HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0710
hDA (投稿者削除)3未解決


hDA

リンク

2008/7/10(Thu) 21:03:43|NO.17225

この記事は投稿者により削除されました。
2008/7/12(Sat) 13:30:28



この記事に返信する


hDA

リンク

2008/7/10(Thu) 21:06:55|NO.17226

↓が自分なりに作ってみたスクリプトです。

#uselib "kernel32.dll" #cfunc OpenProcess "OpenProcess" int, int, int #func CloseHandle "CloseHandle" int #uselib "psapi.dll" #func EnumProcesses "EnumProcesses" int, int, int, int #func EnumProcessModules "EnumProcessModules" int, int, int, int #func GetModuleFileNameEx "GetModuleFileNameExA" int, int, int, int #define PROCESS_QUERY_INFORMATION 0x00000400 #define PROCESS_VM_READ 0x00000010 #define PROCESS_ALL_ACCESS 0x001F0FFF dim id, 256 sdim txt, 3200 sdim file, 260 EnumProcesses varptr(id), 256*4, varptr(size), 0 : num = size/4 repeat num file = "" hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, id(cnt)) if hProcess { EnumProcessModules hProcess, varptr(moduleList), 4, varptr(size) if stat { GetModuleFileNameEx hProcess, modulelist, varptr(file), 256 } CloseHandle hProcess } txt += ""+id(cnt)+" - "+getpath(file, 8)+"\n" loop mesbox txt, 640, 480



かーなび

リンク

2008/7/10(Thu) 23:01:35|NO.17228

昔作ったスクリプトを投下


#include "psapi.as" #include "kernel32.as" sdim mesboxbuf,1024,1 dim idProc,1024 dim bufSize,1 EnumProcesses varptr(idProc),1024*4,varptr(bufSize) dim procNum,1 procNum = bufSize / 4 dim procHandle,1 dim moduleHandle,1024 sdim procName,1024,1 repeat procNum OpenProcess 0x00000400 | 0x00000010 ,0 ,idProc(cnt) procHandle = stat if procHandle { EnumProcessModules procHandle, varptr(moduleHandle), 1024*4, varptr(bufSize) if stat { GetModuleBaseName procHandle, moduleHandle(0), varptr(procName), 1024 if stat > 0{ mesboxbuf += "("+cnt+")"+procName+"\n" } } CloseHandle procHandle } loop mesbox mesboxbuf,ginfo(26),ginfo(27)



hDA

リンク

2008/7/10(Thu) 23:36:50|NO.17229

かーなびさん、ありがとうございます。
うまく動きました。


http://oshiete1.goo.ne.jp/qa3043322.html?ans_count_asc=1

質問なのですが、↑の No.1の回答のように、
システムプロセスを取得することはやはり出来ないのでしょうか?



ONION software Copyright 1997-2023(c) All rights reserved.