请教如何禁止程序运行

cxq7668 · 发表于 2017-2-23 00:22:29

比方说我打开了一个qq，就禁止打开第二个qq，然后当我把第一个qq关了就又可以打开qq了

MXSEED · 发表于 2017-2-23 07:42:40

_Singleton，你看看这个函数是不是你想要的

cxq7668 · 发表于 2017-2-23 08:27:27

好的，我试试

229989799 · 发表于 2017-2-23 08:47:46

#include <MsgBoxConstants.au3>

If ProcessExists("qq.exe") Then ; 检查进程是否正在运行
    MsgBox(0, "", "QQ正在运行")
Else
    Run("C:\Program Files (x86)\Tencent\QQ\Bin\qq.exe");填写QQ安装的路径
EndIf

cxq7668 · 发表于 2017-2-23 10:52:54

回复 4# 229989799

cxq7668 · 发表于 2017-2-23 10:58:32

回复 4# 229989799

谢谢指教，是我表达的不够清楚，我的意思是这个脚本在后台运行，监视qq这个程序，只允许运行一个，只要有一个qq在运行，后面的qq就运行不起来，而且这脚本就是监视，不是去执行qq，谢谢，我刚接触这语言，小白一个，见笑

229989799 · 发表于 2017-2-23 20:07:23

循环检测进程容易机器耗内存，可能鼠标会有闪烁哦。。

Local $a[4]=['0.exe','1.exe','2.exe','3.exe']
While 1
For $i=0 To 3 
If ProcessExists($a[$i]) Then ProcessClose($a[$i])
Next
Sleep(500)
WEnd

Alam · 发表于 2017-2-23 20:09:18

Local $aList
Local $iPid_QQ = ProcessExists('qq.exe')
While 1
Sleep(100)
$aList = ProcessList('qq.exe')
If @error Then ContinueLoop
If $iPid_QQ = 0 Then $iPid_QQ = $aList[1][1]
For $i = 1 To $aList[0][0]
        If $aList[$i][1] <> $iPid_QQ Then ProcessClose($aList[$i][1])
Next
WEnd

cxq7668 · 发表于 2017-2-24 15:22:51

回复 7# 229989799

谢谢，学习了

cxq7668 · 发表于 2017-2-24 15:23:17

回复 8# Alam

谢谢，大神指点

msold5 · 发表于 2024-5-8 09:38:30

本帖最后由 msold5 于 2024-5-8 09:41 编辑

应该注册事件，由EXE运行触发，检测是否有同名程序，如果有则kill掉
但是注册检测EXE运行事件又应该怎么写呢？

		自动登录	找回密码
密码			加入

[AU3基础] 请教如何禁止程序运行

相关帖子

评分