HSPTV!掲示板

CPUの使用率を取得する方法を探しているのですが見つかりません
ダウンロードしたＤＬＬを使わない方法で何かありませんか？

ダウンロードしないDLLを使う方法なら、
http://blog.goo.ne.jp/masaki_goo_2006/e/6b48817a6c93940e70667e6d6c7ec8ed
にあるな。

コンパイルのオプション関係いじる必要はあるが、動作は確認した。
TEXTマクロも要ったか。

HSPで同じ事が書ければいけるだろう。
hspは戻値としてINT32が受け取れるが、LONGが同じ32bitなのでそれで受ければ良いと思われる。

ただ、DLLあるんなら素直に使った方が良いんでね？

すみません
PdhAddCounter のところで外部DLLの呼び出しに失敗します
fさんの言うコンパイルのオプションやTEXTマクロが原因だと思いますが、
その設定方法がわかりません

ん？
HSP上でやる分には、その話は関係無いと思う。
VC++でコンパイルする話なので。

以前パフォーマンスカウンターについて調べた時に書いたサンプルスクリプトです。どうぞ。

	#uselib "pdh.dll"
		#func PdhOpenQuery "PdhOpenQuery" int,int,int
		#func PdhCloseQuery "PdhCloseQuery" int
		#func PdhAddCounter "PdhAddCounterA" int,sptr,int,int
		#func PdhCollectQueryData "PdhCollectQueryData" int
		#func PdhGetFormattedCounterValue "PdhGetFormattedCounterValue" int,int,int,int
	
	screen 0, 400,101
	onexit gosub *exit
	alloc CounterValue, 16
	PdhOpenQuery 0, 0, varptr(hQuery)
	path = "\\Processor(_Total)\\% Processor Time"
	PdhAddCounter hQuery, varptr(path), 0, varptr(hCounter)
	PdhCollectQueryData hQuery
	do
		title "CPU使用率: "+strf("%3d%%", cpu)
		pos 0,0  :  gcopy 0, 10,0, 400-10,101
		color 255,255,255  :  boxf 400-10, 0, 400-1, 101-1
		color   0,192,  0  :  boxf 400-10, 101-1-cpu, 400-1, 101-1
		
		wait 200
		
		PdhCollectQueryData hQuery
		PdhGetFormattedCounterValue hCounter, 0x100, 0, varptr(CounterValue)
		cpu = lpeek(CounterValue, 8)
	until( exit_sw )
	PdhCloseQuery hQuery
	end

*exit
	exit_sw = 1
	return

注意点
得られる数値は、前回のPdhCollectQueryData呼び出しから、
今回のPdhCollectQueryData呼び出しまでの間の、平均値です。たぶん。
だから、PdhCollectQueryDataの呼び出しと、PdhCollectQueryDataの呼び出しの間に、
いくらかの時間をおいて取得すべき。
上のサンプルでは約2秒間の計測値になってます。(wait 200)

外部DLLの呼び出しに失敗する原因は PdhAddCounterA が PdhAddCounterだったからでした

aさんプログラムを実行してみましたが(変数)cpuの値が常に０でした
タスクマネージャなどで調べて０％出ないときもです
待ち時間を短くして調べても０でした

Win9xというオチじゃなく、動画再生とか負荷かけて0なら、まともに動いてないって事ですよね。
なんか、パフォーマンスカウンタで取得できない環境もあるらしいです。検索すると色々と…。
専用のDLLに頼った方がよさそうです。

そうですか…
他の環境によって動作しないようなプログラムではだめですもんね
専用のDLLを頼ってみます
fさん、aさん ありがとうございました