ab.com コミュニティ

#prompt
> declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> Dim st As Long
> Do
> 	cpus(VarPtr(st))
> 	Print st
> 	Sleep(1000)
> Loop

> 元のコード完全無視ですが(^^;;
> [code]#prompt
> declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> Dim st As Long
> Do
> cpus(VarPtr(st))
> Print st
> Sleep(1000)
> Loop[/code]
> 当方ではこのコードで正しく動作しています。(Windows XP SP2 Home)
> Windowsのバージョンが98やMeということはないでしょうか(DLLがNT系専用となっているので、念のため)。

Windows XP で実行したところ、表示されました。
ありがとうございました。

#prompt
> declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> Dim st As Long
> Do
>  cpus(VarPtr(st))
>  Print st
>  Sleep(1000)
> Loop

> 元のコード完全無視ですが(^^;;
> [code]#prompt
> declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> Dim st As Long
> Do
> cpus(VarPtr(st))
> Print st
> Sleep(1000)
> Loop[/code]
> 当方ではこのコードで正しく動作しています。(Windows XP SP2 Home)
> Windowsのバージョンが98やMeということはないでしょうか(DLLがNT系専用となっているので、念のため)。

Windows 95/MEでやっていました。
95は何をしてもCPUの変化が起きなかったので、
意味はありませんでしたが…

Windows XP SP2でやってみます。
ありがとうございます。

#prompt
declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
Dim st As Long
Do
	cpus(VarPtr(st))
	Print st
	Sleep(1000)
Loop

元のコード完全無視ですが(^^;;
[code]#prompt
declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
Dim st As Long
Do
cpus(VarPtr(st))
Print st
Sleep(1000)
Loop[/code]
当方ではこのコードで正しく動作しています。(Windows XP SP2 Home)
Windowsのバージョンが98やMeということはないでしょうか(DLLがNT系専用となっているので、念のため)。

declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> 
> cpus(VarPtr(st))
> 

> 確認していませんが、
> [code]declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
>
> cpus(VarPtr(st))
> [/code]
> 宣言をこのように変えてポインタを渡せばよいのではないでしょうか。

やってみましたが、ちゃんと表示されません。
表示されるのは、ずっと"0 ％"です。

declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
> 
> cpus(VarPtr(st))
> 

> 確認していませんが、
> [code]declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long
>
> cpus(VarPtr(st))
> [/code]
> 宣言をこのように変えてポインタを渡せばよいのではないでしょうか。
> pCpuFunc は、Declare によって DLL の関数を定義する場合には不要だと思います。

わかりました、とりあえずやってみます。
ありがとうございます。

declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long

cpus(VarPtr(st))

確認していませんが、
[code]declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as *long) as long

cpus(VarPtr(st))
[/code]
宣言をこのように変えてポインタを渡せばよいのではないでしょうか。
pCpuFunc は、Declare によって DLL の関数を定義する場合には不要だと思います。

/////////////////////////////////////////////////////////////////////////////////////////////////////////
//
//『getcpust.dll』のサンプルプログラム	2005/09/24 作成

#include <tchar.h>
#include <stdio.h>
#include <windows.h>

//-------------------------------------------------------------------------------------------------------
//
//メモ書き

//『getcpust.dll』を使ったサンプルプログラムです。
//このプログラムでは流れが見やすいようにCPU占有率の値を代入するタイミングをタイマー時間にしているので起動直後は
//0が表示されますが、描画部で取得して表示するなどの方法で起動直後から値が表示できるようにすることができます。


//CPU占有率は第1引数にint型のポインタを引き渡すことで得ることができます。
//得られる値はCPU占有率を四捨五入して整数としたものです。

//Win32 APIを使ったコードですが、MFCや.Net系でも扱い方は似たり寄ったりだと思います。
//戻り値はFALSE(0)が取得エラーで、それ以外が成功です。

//-------------------------------------------------------------------------------------------------------
//
//宣言

typedef int (*CPU_FUNC)( int * );

ATOM MyRegisterClass(HINSTANCE hInstance);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
int ShowText( HDC , int );

//-------------------------------------------------------------------------------------------------------
//
//プログラム本体

//メイン関数
int APIENTRY _tWinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPTSTR lpCmdLine,int nCmdShow)
{
	MSG msg;
	HWND hWnd;

	MyRegisterClass(hInstance);

	hWnd = CreateWindow( "WindowClass", "リソース", WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, 0, 30, 100, NULL, NULL, hInstance, NULL);

	if (!hWnd)
	{
		return FALSE;
	}

	ShowWindow(hWnd, nCmdShow);
	UpdateWindow(hWnd);

	while (GetMessage(&msg, NULL, 0, 0)) 
	{
		DispatchMessage(&msg);
	}

	return 0;
}

//クラス登録
ATOM MyRegisterClass(HINSTANCE hInstance)
{
	WNDCLASSEX wcex;

	wcex.cbSize = sizeof(WNDCLASSEX); 

	wcex.style			= CS_HREDRAW | CS_VREDRAW;
	wcex.lpfnWndProc	= (WNDPROC)WndProc;
	wcex.cbClsExtra		= 0;
	wcex.cbWndExtra		= 0;
	wcex.hInstance		= hInstance;
	wcex.hIcon			= NULL;
	wcex.hCursor		= LoadCursor(NULL, IDC_ARROW);
	wcex.hbrBackground	= (HBRUSH)(COLOR_WINDOW+1);
	wcex.lpszMenuName	= NULL;
	wcex.lpszClassName	= "WindowClass";
	wcex.hIconSm		= NULL;

	return RegisterClassEx(&wcex);
}

//ウィンドウプロシージャ (ウィンドウの処理)
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{

	static HINSTANCE hDll=NULL;							//dllのインスタンスハンドル
	static CPU_FUNC pCpuFunc=NULL;							//dllの関数へのポインタ
	static int iStatus = 0;								//CPU占有率の値

	switch (message) 
	{
	case WM_CREATE:
		{
			hDll = LoadLibrary( "getcpust.dll" );				//Dllのロード(必要に応じてパスを変える)

			if(!hDll)
			{
				return -1;	//dllの取得に失敗
			}

			pCpuFunc=(CPU_FUNC)GetProcAddress(hDll,"GetCpuStatus");		//Dllから関数を取得

			if(!pCpuFunc)							//関数が取得できたか確認
			{
				return -1;	//dllが壊れている  
			}

			SetTimer( hWnd , 1 , 1000 , NULL );				//タイマーを起動
		}
		break;
	case WM_TIMER:
		{
			pCpuFunc( &iStatus );						//Dllの関数を使ってCPU占有率を取得してiStatusに値を代入
			InvalidateRect( hWnd , NULL , TRUE );				//表示の更新
		}
		break;
	case WM_PAINT:
		{
			PAINTSTRUCT ps;
			HDC hdc;
			hdc = BeginPaint(hWnd, &ps);						
			ShowText( hdc , iStatus );					//表示
			EndPaint(hWnd, &ps);
		}
		break;
	case WM_DESTROY:
		{
			KillTimer( hWnd , 1 );						//タイマーの解除
			FreeLibrary( hDll );						//Dllの解放
			PostQuitMessage(0);
		}
		break;
	default:
		{
			return DefWindowProc(hWnd, message, wParam, lParam);
		}
		break;
	}
	return 0;
}

//ここから先はdllの処理とは直接関係ない関数(エラー処理とかいい加減になっているので注意してください)

//ウィンドウに表示する関数
int ShowText( HDC hdc , int iStatus )
{
	char str[256];
	sprintf( str ,"CPU:%d％",iStatus );
	TextOut( hdc , 0 , 0 , str , (int)strlen( str ) );
	return TRUE;
}

declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as long,pCpuFunc as long) as long


Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim st As Long, cf As Long
	cpus(st,cf)
	Dim str[256] As char
	wsprintf(str,"%d ％",st)

	SetTimer(hMainWnd,0,1000,0)
End Sub

Sub cpu_Timer(TimerID As DWord)
	dim st as long, cf as long
	cpus(st,cf)
	dim str[256] as char
	wsprintf(str,"%d ％",st)
	SetWindowText(GetDlgItem(hcpu,Static_rate),str)
End Sub

declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as long,pCpuFunc as long) as long


Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim st As Long, cf As Long
	cpus(st,cf)
	dim str[256] as char
	wsprintf(str,"%d ％",st)
	SetWindowText(GetDlgItem(hMainWnd,Static_rate),str)

	SetTimer(hMainWnd,0,1000,0)
End Sub

Sub MainWnd_Timer(TimerID As DWord)
	dim st as long, cf as long
	cpus(st,cf)
	dim strs[256] as char
	wsprintf(strs,"%d ％",cf)
	SetWindowText(GetDlgItem(hcpu,Static_cpu),str)
End Sub

[url=http://www.vector.co.jp/soft/dl/winnt/prog/se361629.html]getcpust.dll （ぐうたら感謝の日 氏）[/url]で CPU 使用率を取得しようとしているのですが、
C 言語で書かれたコードを AB のコードにしていくのがどうにもうまくいきません。
どなたか、C 言語と AB が出来る方で教えていただけないでしょうか？

C 言語のコード
[hide][code]/////////////////////////////////////////////////////////////////////////////////////////////////////////
//
//『getcpust.dll』のサンプルプログラム 2005/09/24 作成

#include <tchar.h>
#include <stdio.h>
#include <windows.h>

//-------------------------------------------------------------------------------------------------------
//
//メモ書き

//『getcpust.dll』を使ったサンプルプログラムです。
//このプログラムでは流れが見やすいようにCPU占有率の値を代入するタイミングをタイマー時間にしているので起動直後は
//0が表示されますが、描画部で取得して表示するなどの方法で起動直後から値が表示できるようにすることができます。


//CPU占有率は第1引数にint型のポインタを引き渡すことで得ることができます。
//得られる値はCPU占有率を四捨五入して整数としたものです。

//Win32 APIを使ったコードですが、MFCや.Net系でも扱い方は似たり寄ったりだと思います。
//戻り値はFALSE(0)が取得エラーで、それ以外が成功です。

//-------------------------------------------------------------------------------------------------------
//
//宣言

typedef int (*CPU_FUNC)( int * );

ATOM MyRegisterClass(HINSTANCE hInstance);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
int ShowText( HDC , int );

//-------------------------------------------------------------------------------------------------------
//
//プログラム本体

//メイン関数
int APIENTRY _tWinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPTSTR lpCmdLine,int nCmdShow)
{
MSG msg;
HWND hWnd;

MyRegisterClass(hInstance);

hWnd = CreateWindow( "WindowClass", "リソース", WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, 0, 30, 100, NULL, NULL, hInstance, NULL);

if (!hWnd)
{
return FALSE;
}

ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);

while (GetMessage(&msg, NULL, 0, 0))
{
DispatchMessage(&msg);
}

return 0;
}

//クラス登録
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;

wcex.cbSize = sizeof(WNDCLASSEX);

wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = (WNDPROC)WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = NULL;
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = NULL;
wcex.lpszClassName = "WindowClass";
wcex.hIconSm = NULL;

return RegisterClassEx(&wcex);
}

//ウィンドウプロシージャ (ウィンドウの処理)
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{

static HINSTANCE hDll=NULL; //dllのインスタンスハンドル
static CPU_FUNC pCpuFunc=NULL; //dllの関数へのポインタ
static int iStatus = 0; //CPU占有率の値

switch (message)
{
case WM_CREATE:
{
hDll = LoadLibrary( "getcpust.dll" ); //Dllのロード(必要に応じてパスを変える)

if(!hDll)
{
return -1; //dllの取得に失敗
}

pCpuFunc=(CPU_FUNC)GetProcAddress(hDll,"GetCpuStatus"); //Dllから関数を取得

if(!pCpuFunc) //関数が取得できたか確認
{
return -1; //dllが壊れている
}

SetTimer( hWnd , 1 , 1000 , NULL ); //タイマーを起動
}
break;
case WM_TIMER:
{
pCpuFunc( &iStatus ); //Dllの関数を使ってCPU占有率を取得してiStatusに値を代入
InvalidateRect( hWnd , NULL , TRUE ); //表示の更新
}
break;
case WM_PAINT:
{
PAINTSTRUCT ps;
HDC hdc;
hdc = BeginPaint(hWnd, &ps);
ShowText( hdc , iStatus ); //表示
EndPaint(hWnd, &ps);
}
break;
case WM_DESTROY:
{
KillTimer( hWnd , 1 ); //タイマーの解除
FreeLibrary( hDll ); //Dllの解放
PostQuitMessage(0);
}
break;
default:
{
return DefWindowProc(hWnd, message, wParam, lParam);
}
break;
}
return 0;
}

//ここから先はdllの処理とは直接関係ない関数(エラー処理とかいい加減になっているので注意してください)

//ウィンドウに表示する関数
int ShowText( HDC hdc , int iStatus )
{
char str[256];
sprintf( str ,"CPU:%d％",iStatus );
TextOut( hdc , 0 , 0 , str , (int)strlen( str ) );
return TRUE;
}[/code][/hide]

自力で直したコード
[hide][code]declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as long,pCpuFunc as long) as long


Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim st As Long, cf As Long
cpus(st,cf)
Dim str[256] As char
wsprintf(str,"%d ％",st)

SetTimer(hMainWnd,0,1000,0)
End Sub

Sub cpu_Timer(TimerID As DWord)
dim st as long, cf as long
cpus(st,cf)
dim str[256] as char
wsprintf(str,"%d ％",st)
SetWindowText(GetDlgItem(hcpu,Static_rate),str)
End Sub[/code][/hide]
　　　　若しくは
[hide][code]
declare function cpus lib "getcpust" alias "GetCpuStatus" (iStatus as long,pCpuFunc as long) as long


Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim st As Long, cf As Long
cpus(st,cf)
dim str[256] as char
wsprintf(str,"%d ％",st)
SetWindowText(GetDlgItem(hMainWnd,Static_rate),str)

SetTimer(hMainWnd,0,1000,0)
End Sub

Sub MainWnd_Timer(TimerID As DWord)
dim st as long, cf as long
cpus(st,cf)
dim strs[256] as char
wsprintf(strs,"%d ％",cf)
SetWindowText(GetDlgItem(hcpu,Static_cpu),str)
End Sub[/code][/hide]
僕ではこの程度までしか出来ません。
どなたかお願いします。