HSPTV!掲示板

タスクマネージャーの指定プロレスのメモリ使用率を取得したいです。
メモリが明らかに異常なプロレスを特定したいです。
わかる方色々教えて下さい！

よろしくお願いします

プロセスや

プロレスの一覧も同時に取得できたら嬉しいです！

そのまま、タ（イガーマ）スク（の）マネージャーを調べる。

そのまま調べるとは…？

１：マネージャーを召喚する。
２：各ブラレスのメモリ使用量をずっと眺める。
３：異常に増えたら特定。
４：めでたく解決。

こちらで紹介されています。
http://blog.goo.ne.jp/masaki_goo_2006/e/7a33fc63935919da2fd3f3bec37f8695

暇なので作りました。
どの情報を使うかとプロセスIDについては自分で考えてください。

#uselib "user32.dll"
#func FindWindowEx             "FindWindowExA"            sptr, sptr, sptr, sptr
#func GetWindowThreadProcessId "GetWindowThreadProcessId" sptr, sptr
#uselib "kernel32.dll"
#func OpenProcess        "OpenProcess"        sptr, sptr, sptr
#func CloseHandle        "CloseHandle"        sptr
#uselib "psapi.dll"
#func GetProcessMemoryInfo "GetProcessMemoryInfo" sptr,sptr,int
#define STILL_ACTIVE       0x000103
#define PROCESS_ALL_ACCESS 0x1F0FFF
sdim wndName, 256
pos 0, 0
mes "プロセスのウィンドウタイトルを入力"
pos 3, 20
wndName="hot soup processor ver.3.32"
input wndName, 200, 17
pos 3, 40
button "調べる", *start
stop
*start
FindWindowEx 0, 0, 0, wndName
if (stat == 0) {
	mes "ウィンドウが見つかりませんでした。"
	stop
} else {
	hTarget = stat
}
dim piTarget
GetWindowThreadProcessId hTarget, varptr(piTarget)
OpenProcess PROCESS_ALL_ACCESS, 0, piTarget
hpTarget = stat
mes "ウィンドウが見つかり、準備が出来ました。"
mes "メモリの調査を開始します。"
dim ret,11
GetProcessMemoryInfo hpTarget,varptr(ret),256
if stat=0{
	mes "アクセスに失敗しました。"
}else{
	mes "取得した全ての情報"
	repeat 11
		mes ret.cnt
	loop
}
stop
*exit
	CloseHandle hpTarget	
end