64位exe程序取基址模块

易语言 2020-02-15 18:09:09

64位exe程序取基址模块

窗口类名 = 窗口_取类名 (进程_名取句柄 (进程名称))
窗口标题 = 窗口_取标题 (进程_名取句柄 (进程名称))
' 调试输出 (窗口类名)
hWndOverwatch = FindWindow (窗口类名, 窗口标题)
.如果真 (hWndOverwatch = 0) ' 未找到窗口
返回 (0)
.如果真结束
GetWindowThreadProcessId (hWndOverwatch, pid)
hand = OpenProcess (#PROCESS_ALL_ACCESS, 0, pid)
.如果真 (hand = 0) ' 打开进程失败
返回 (0)
.如果真结束
ModuleHandle = css (hand, 进程名称)
CloseHandle (hand)