写个程序监视另一个软件是否正常运行（崩溃，卡掉，假死等）中午12:00前结贴

﹏ゞ記憶︶ㄣ

如题  不要说命令   这个用的代码不多，贴个例子    中午结贴

HugBear

1. .版本 2
   
2. 
   
3. .如果真 (取进程名 (, ProcName) ≠ ProcName)
   
4.     编辑框3.加入文本 (“异常信息:目标进程不存在” ＋ #换行符)
   
5. .如果真结束
   
6. .如果真 (IsWindow (HWND) ≠ 真)
   
7.     编辑框3.加入文本 (“异常信息:目标窗口无效” ＋ #换行符)
   
8. .如果真结束
   
9. .如果真 (IsHungAppWindow (HWND) ＝ 真)
   
10.     编辑框3.加入文本 (“异常信息:目标窗口未响应可能假死” ＋ #换行符)
    

复制代码

1. .版本 2
   
2. 
   
3. .子程序 取进程名, 文本型
   
4. .参数 窗口句柄, 整数型, 可空, 取进程名
   
5. .参数 FileName, 文本型, 可空, 判断进程是否存在 存在返回原进程名 否则返回空
   
6. .局部变量 hHansna, 整数型
   
7. .局部变量 info, LPPROCESSENTRY32
   
8. .局部变量 hProcss, 整数型
   
9. .局部变量 PID, 整数型
   
10. 
    
11. hHansna ＝ CreateToolhelp32Snapshot (15, 0)
    
12. .如果真 (hHansna ＝ 0)
    
13.     返回 (“”)
    
14. .如果真结束
    
15. GetWindowThreadProcessId (窗口句柄, PID)
    
16. info.dwSize ＝ 1024
    
17. hProcss ＝ Process32First (hHansna, info)
    
18. .判断循环首 (hProcss ≠ 0)
    
19.     .判断开始 (窗口句柄 ＞ 0)
    
20.         .如果真 (info.th32ProcessID ＝ PID)
    
21.             CloseHandle (hHansna)
    
22.             返回 (到文本 (info.szExeFile_MAX_PATH_))
    
23.         .如果真结束
    
24. 
    
25.     .判断 (是否为空 (FileName) ＝ 假)
    
26.         .如果真 (到文本 (info.szExeFile_MAX_PATH_) ＝ FileName)
    
27.             CloseHandle (hHansna)
    
28.             返回 (FileName)
    
29.         .如果真结束
    
30. 
    
31.     .默认
    
32. 
    
33.     .判断结束
    
34.     hProcss ＝ Process32Next (hHansna, info)
    
35. .判断循环尾 ()
    
36. CloseHandle (hHansna)
    
37. 返回 (“”)
    

复制代码

枚举进程 判断进程是否存在
IsWindow 判断窗口是否有效
IsHungAppWindow 判断窗口是否假死(假死就无响应了。)


补充内容 (2014-1-5 09:49):
窗口假死崩溃 一般都会进入未响应状态 IsHungAppWindow 都能检测出来并且不卡UI线程

开心每一天s

写个程序，TX验证码识别，你写不？代码也用不了多少

SalHe

邱佳卉  ？？

月光族

个人感觉没有必要这样做

NeverLoveAgain

崩溃，卡掉，假死
求解释

1016242804

我也想要。。。。

早起的虫子

给楼主顶一下

﹏ゞ記憶︶ㄣ

十年之后 发表于 2014-1-5 08:57
写个程序，TX验证码识别，你写不？代码也用不了多少

屌丝在这装？不懂  去远点