창조유저그룹-커즈닷컴
Window close
ID :     PASS :   
   
  처음으로
  창조
  창조 소개
창조 다운로드
CUGz.com 소개
온라인 도움말
  커뮤니티
  가입인사
자유게시판
Q/A게시판
TIP/TECH
열린강좌
자주하는질문
아이디어게시판
  자료실
  소스자료실
프로그램자료실
기타자료실
명예의 전당
이미지 자료실
  지원/기타
  표준용어재정
구글 웹서치  
관리자 전용


질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.


LIST ALL
Posted by 강정훈2008-12-21 10:38:47, Hit : 4487
인터넷 서핑하다 찾은것 입니다api 소스인데요....풀이 하실수 있나요?
Homepage : http://huni.nayana.com
Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=2052

1. 모듈에 다음의 API FUNCTION 을 선언합니다.


 


Public Declare Function QueryPerformanceCounter Lib "kernel32" _


              (lpPerformanceCount As LARGE_INTEGER) As Long


 


Public Declare Function QueryPerformanceFrequency Lib "kernel32" _


              (lpFrequency As LARGE_INTEGER) As Long


 


Public Declare Function RegQueryValueEx Lib "advapi32.dll" _


               Alias "RegQueryValueExA" _


              (ByVal hKey As Long, _


               ByVal lpValueName As String, _


               ByVal lpReserved As Long, _


               lpType As Long, _


               lpData As Any, _


               lpcbData As Long) As Long


 


Public Declare Function RegOpenKey Lib "advapi32.dll" _


               Alias "RegOpenKeyA" _


              (ByVal hKey As Long, _


               ByVal lpSubKey As String, _


               phkResult As Long) As Long


 


Public Declare Function RegCloseKey Lib "advapi32.dll" _


              (ByVal hKey As Long) As Long


 


Public Type LARGE_INTEGER


    lowpart As Long


    highpart As Long


End Type


 


Public Const REG_DWORD = 4


Public Const HKEY_DYN_DATA = &H80000006


 


2. 폼에 CPU 사용률을 표시해줄 텍스트박스 하나와 타이머콘트롤 하나를 만든후에


   다음과 같이 코딩하십시요.


   - Timer1.Interval = 150


 


Private Sub InitCPU()


    Dim lData As Long, lType As Long, lSize As Long


    Dim hKey As Long


   


    Qry = RegOpenKey(HKEY_DYN_DATA, "PerfStats\StartStat", hKey)


    If Qry <> 0 Then


        MsgBox "Statistics 키를 열수 없습니다."


        End


    End If


               


    lType = REG_DWORD


    lSize = 4


    Qry = RegQueryValueEx(hKey, "KERNEL\CPUUsage", 0, lType, lData, lSize)


    Qry = RegCloseKey(hKey)


End Sub


 


Private Sub Form_Load()


    InitCPU


End Sub


 


Private Sub Timer1_Timer()


    Dim lData As Long, lType As Long, lSize As Long


    Dim hKey As Long


              


    Qry = RegOpenKey(HKEY_DYN_DATA, "PerfStats\StatData", hKey)


                   


    If Qry <> 0 Then


        MsgBox "Statistics 키를 열수 없습니다."


        End


    End If


                   


    lType = REG_DWORD


    lSize = 4


                   


    Qry = RegQueryValueEx(hKey, "KERNEL\CPUUsage", 0, lType, lData, lSize)


                                   


    Text1.Text = Format(lData, "##.0") & "" %"


    Qry = RegCloseKey(hKey)


End Sub


 


3. 위와 같이 하신후 실행을 하게되면 텍스트박스에 현재 CPU 사용률이 반복적으로 표시


   되는 것을 확인할수 있을 것입니다.


--------------------확인해보시고 답변 기다리겠습니다.------------------


 


박종훈   2008-12-24 PM 9:00:41  
굳이 API까지 사용할 필요는 없고요^^
창조의 레지스트리관련 명령어를 사용하시면 됩니다^^
레지스트리중에 [HKEY_DYN_DATA\PerfStats\StatData\KERNEL\CPUUsage] 이곳에 CPU사용률이 기록된다고 하네요^^
창조에서 레지스크리관련 명령어로 값을 읽으면 됩니다^^ 굳이 API까지 사용하실 필요는 없습니다~
LIST ALL               GO TO THE TOP


N
Category
   Subject
Posted by
Date
H
462 창조
   인자를 객체이름으로 받아 사용하는 방법 [9]
최현묵 2009/12/26  4380
461 창조
   DB를 이용한 검색프로그램을 짜고 싶은데요.
신용주 2012/11/18  4380
460 창조
   ㅎ메모 질문 [3]
마소리스 2002/10/23  4381
459 창조
   현재경로.. 레지스트리.. 경로가 이상해요.. [4]
qkrwhdgns 2005/07/27  4381
458 창조
   창조 로 "원격조정" 프로그램 을 만들수 있을... [3]
제인호[독도] 2007/06/23  4382
457 창조
     [re] 제 소스좀 수정해 주세요~ [5]
nylon 2004/05/14  4384
456 기타
   클립보드 문자값을 알아오는 건데요.. 이상한... [9]
박종훈 2006/07/07  4384
455 창조
   이미지와 메모글 미리보기 방법_쉬운 질문 [1]
신용주 2009/02/22  4384
454 창조
   문법오류가 나타나네요;; [3]
장화신은고양이 2010/01/10  4384
453 창조
   인터넷 속도 체킹 및 메세지 [2]
신용주 2009/02/24  4385
452 창조
   특정 폴더내 파일목록 뽑아오는 가장 빠른 방... [11]
손상진 2005/01/17  4389
451 창조
   질 문 있 슴 돠 ! -_-;
자유창조 2005/01/26  4390
450 창조
   [질문]창조0.9b사용자 보세요. [1]
창조신화 2002/12/04  4391
449 창조
     [re] 잘 보시고 연구해보세요. (無) [1]
강현구 2005/02/05  4393
448 창조
   이미지 사이즈 조절 후 저장 [5]
신용주 2010/02/27  4396
447 창조
   리스트박스 내 모든 줄내용 덧셈 질문입니다. [4]
김희준 2010/12/30  4396
446 창조
     [re] VBMP3에 대하여 [2]
신용주 2009/10/30  4398
445 창조
   키보드 키에 대해.. [14]
손상진 2003/03/20  4400
444 창조
   핸들찿기 [수동 또는 자동 ] 김길남님 ... [3]
강정훈 2008/12/11  4400
443 기타
    !!!@@!!!! [1]
정성지 2003/01/13  4401
442 창조
   클립보드의 그림↔ㅎ그림판 [2]
손상진 2004/04/12  4403
441 창조
     [re] 리스트박스 스크롤관련 [6]
신용주 2009/02/27  4403
440 창조
   밑에 있는 질문입니다... 궁금해요!
靑色糖™ 2002/11/24  4406
439 기타
   [HTML 태그] 홈페이지의 하단으로 이동하기 [2]
한수훈 2009/06/07  4409
438 창조
   XP에 대한 질문요..... [2]
위자드 2002/12/08  4413
LIST ALL   Prev [1]..[61][62][63][64][65][66][67][68] 69 [70]..[87] Next
Copyright 1999-2025 Zeroboard / skin by reedyfox in miniwini style
로그인
지우개 Expert 3.0
제작자 : 천호성 님 [LINK]
로그인
대박로또2005
제작자 : 최재일 님 [LINK]
로그인
1박종훈15292 점
2지상현8809 점
3손상진7389 점
4권선중6077 점
5이진백5174 점
로그인
가입일닉네임
05/31김동률
03/31홍형기
09/01o00pp99oo
12/27이재민
11/20이희철
로그인