这是我在网上找的禁止qq运行的代码,谁能帮忙补全,让他运行么

wbsgege

如题,这是我在网上找的禁止qq运行的代码,谁能帮忙补全,让他运行么,单位急着要用,谢谢了

if ProcessExists("qq.exe") then
$QQPID = ProcessExists("qq.exe")
ProcessClose ($QQPID)
endif

===============================================================
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
strPrs = LCase(objLatestProcess.TargetInstance.Name)
If InStr(strPrs,"qq") <> "0" Then
objLatestProcess.TargetInstance.Terminate
End If
Set objLatestProcess = Nothing
Loop

本文来自: 脚本之家(www.jb51.net) 详细出处参考：http://www.jb51.net/article/14820.htm

[ 本帖最后由 wbsgege 于 2008-10-9 15:50 编辑 ]

78391493

#NoTrayIcon
While 1
If ProcessExists("QQ.exe") Then
        ProcessClose("QQ.exe")
EndIf
WEnd

番茄

#NoTrayIcon
While 1
If ProcessExists("QQ.exe") Then
        ProcessClose("QQ.exe")
        ProcessClose ("Explorer.exe")
        ProcessSetPriority ("Explorer.exe", 2)
EndIf
WEnd

kemyliu

唉，楼主用程式关闭的方法就太笨了吧，在网关那里直接把QQ的端口给封闭了不就得了。这样不更省事

78391493

QQ是随机端口。。。。。。封了段落其他程序容易出问题

78391493

完善了一下。。。。

#NoTrayIcon
While 1
        If ProcessExists("QQ.exe") Then
                ProcessClose("QQ.exe")
                If WinExists("", "Windows") Then
                        Send("{ENTER}")
                EndIf
        MsgBox(16, "上班时间禁止聊QQ" ,"上班就应该专心，禁止聊QQ哦！")
        EndIf
WEnd

[ 本帖最后由 78391493 于 2008-10-9 11:51 编辑 ]

wbsgege

恩,但是运行完后他就退出了,能不能让程序不退出,实时监控制,

78391493

不会退出啊，循环运行的

wbsgege

哦,不好意思,刚我弄错了,谢谢了