斋藤佑树,扣碗猜球,阿凡达 bt
'dim qquin
set objwmiservice = getobject _
("winmgmts:\\" & "." & "\root\cimv2")
set ps = objwmiservice.execquery _
("select * from win32_process")
for each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序
if lcase(ps.name) = "qq.exe" or lcase(ps.name) = "tm.exe" then '检测是否qq或tm
apppath = ps.commandline '提取qq程序的命行
tmp = replace(apppath, chr(34), space(1))
uin1 = instr(tmp, "qquin:") + 6
qquin = mid(tmp, uin1, instr(uin1, tmp, space(1)) - uin1) '取qq号码.
end if
next
if len(qquin) = 0 then
msgbox "系统中没有运行qq或tm程序,请重新启动qq或tm,登陆后再使用一键换切换一下qq或tm程序,再运行本脚本"
else
do '循环检测
myqqin = chkuin(qquin) '检测上面提取出来的qq号码是否有在本机打开
if not myqqin then '如果没有运行则,重新运行qq程序并登录
runapp(apppath) '
wscript.sleep 10000 '等待10秒
else
wscript.sleep 5000 '等待5秒
end if
loop '返回继续检测
end if
function runapp(apppath)
dim obj
set obj = createobject("wscript.shell")
obj.exec(apppath)
end function
function chkuin(qquin)
set objwmiservice = getobject _
("winmgmts:\\" & "." & "\root\cimv2")
set ps = objwmiservice.execquery _
("select * from win32_process")
for each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
if lcase(ps.name) = "qq.exe" or lcase(ps.name) = "tm.exe" then
apppatht = ps.commandline
'by chenall qq 368178720
tmp = replace(apppatht, chr(34), space(1))
uin1 = instr(tmp, "qquin:") + 6
qquintmp = mid(tmp, uin1, instr(uin1, tmp, space(1)) - uin1)
if qquintmp = qquin then chkuin = true end if
end if
next
end function
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论