【AHK脚本】只允许运行单一进程（如QQ）

loms126

需求来自于这个帖子：http://bbs.kafan.cn/thread-1605122-1-1.html

和ioshx与100lj的讨论：http://bbs.kafan.cn/forum.php?mo ... &fromuid=539915
http://bbs.kafan.cn/forum.php?mo ... &fromuid=539915

要不写个隐藏的小程序，跟随QQ启动，发现有第2个QQ进程就自动干掉。(最好是他登陆一会后再杀，这样对方会更加不爽），顺便再弹出个程序错误的弹窗
当所有QQ.exe都退出后自动给QQ.exe加unicode并退出

原帖被锁了，只好发这里。 @ioshx   @100lj   

代码如下：

1. PID = 0
   
2. target_process = notepad.exe
   
3. while(!PID)
   
4. {
   
5.         sleep 2000
   
6.         Process,Exist,%target_process%
   
7.         PID := ErrorLevel  
   
8. }
   
9. old_PID := PID
   
10. tooltip,Found target process!`nPID = %PID%
    
11. sleep 6000
    
12. tooltip
    
13. 
    
14. while(1)
    
15. {
    
16.         sleep 1000
    
17.         ;MsgBox 1
    
18.         for process in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process")
    
19.         {
    
20.                 new_name := process.Name
    
21.                 new_pid  := process.Handle       
    
22.                 IfInString, target_process, %new_name%
    
23.                         IfInString,new_name,%target_process%
    
24.                                 if (old_PID != new_pid)
    
25.                                         ;MsgBox, %new_name% `n  %new_pid%
    
26.                                         alert_function(new_pid)
    
27.         }
    
28. }
    
29. 
    
30. ExitApp
    
31. 
    
32. alert_function(new_PID)
    
33. {
    
34.         BlockInput,On
    
35.         sleep,10000
    
36.         ;蓝屏？ 嘻嘻
    
37.         Process,close,%new_PID%
    
38.         sleep,6000
    
39.         BlockInput,Off
    
40. }

复制代码

loms126

风之暇想 发表于 2013-7-28 09:30
不懂怎么用。

AHK脚本，使用前先安装AutoHotKey，将以上代码存为.ahk文件即可执行。

运行该脚本和打开目标程序不分先后。
第2行target_process 控制要监视的进程名称。例子中给的是记事本的进程。
发现进程后鼠标处会出现提示。

之后每1秒检测系统中的进程，发现有新进程创建后，执行alert_function(new_PID)子函数的内容。例子中动作的是，锁定键盘鼠标，延迟10s，结束新创建的进程，延迟6s，解锁键盘鼠标。可以自己弄个蓝屏的图片显示出来。

ioshx

loms126 发表于 2013-7-28 10:08
AHK脚本，使用前先安装AutoHotKey，将以上代码存为.ahk文件即可执行。

运行该脚本和打开目标程序不分先 ...

其实这里有MS官方蓝屏屏保 http://technet.microsoft.com/zh-cn/sysinternals/bb897558

100lj

高手就是高手，好厉害。可惜没RQ了。话说一天3RQ太少了。@ioshx  

ioshx

谢谢高手。  看来我要找时间去把ComObj啃下来了。

补充一下，如果哪位看到本贴的饭友有这个需求，可以看那个帖子的9楼和15楼
9楼 http://bbs.kafan.cn/forum.php?mo ... ;page=1#pid29212565
和15楼 http://bbs.kafan.cn/forum.php?mo ... ;page=2#pid29216588

风之暇想

不懂怎么用。