UC知道vbs编成求助
来源：百度知道 编辑：UC知道 时间：2024/06/24 06:21:56
dim bag,pipe,honker,good,hwnd
do
good="."
set bag=getobject
("winmgmts:\\"&good&"\root\cimv2")
set pipe=bag.execquery("select * from
win32_process where name='qq.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 2
MsgBox"禁止上班时间聊天""
loop
如何修改代码，能在检测到QQ和IM后，停止这两个程序，并弹出窗口“禁止上班时间聊天”，现在弹出的msgbox无法关闭。
do
good="."
set bag=getobject
("winmgmts:\\"&good&"\root\cimv2")
set pipe=bag.execquery("select * from
win32_process where name='qq.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 2
MsgBox"禁止上班时间聊天""
loop
如何修改代码，能在检测到QQ和IM后，停止这两个程序，并弹出窗口“禁止上班时间聊天”，现在弹出的msgbox无法关闭。
IM是什么程序？假设它的进程名称是im.exe
把 select 语句改为 "select * from win32_process where name='qq.exe' or name='im.exe'"
把 set bag= 这行写在 do 前比较好
解决弹出的msgbox无法自动关闭：
在 do 前加 set ws=createobject("WScript.Shell")
把 MsgBox"禁止上班时间聊天" 改为（任选一种）
方法一：ws.run "msg * /time:2 ""禁止上班时间聊天""",0
方法二：ws.popup "禁止上班时间聊天",2
都是2秒自动关闭，窗口外观不一样，方法一窗口不关闭也继续执行，窗口总在最前，方法二窗口关闭后才执行下句