[问题求助] 请教VBS中多个IF的用法

ww0000

以下脚本是运行QQ时，要求输入密码，当密码正确时，欢迎使用；当密码不正确时，退出QQ。但现在出现第三种情况，不理密码输入框，QQ还是能使用，以下代码要怎么改，才能做到不输入密码30秒后也退出QQ？

do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("QQ.exe") then 
Call check_ie_run()
end if
next
wscript.sleep 1000
loop

sub check_ie_run()
dim a 
const pass="123456" 
do
    a=inputbox("请输入密码")
    if a=pass then 
         msgbox("欢迎使用QQ")
         Call check_ie_run2()
         exit do
         end if
    if a<>pass then 
         msgbox("密码错误,你不能使用QQ")
         Call check_ie_run3()
         Else 
         wscript.sleep 1000*30
         Call check_ie_run3()
   end if
loop
end sub

sub check_ie_run2()
do 
set ws=getobject("winmgmts:\\.\root\cimv2") 
set pp=ws.execquery("select * from win32_process where Name = 'wscript.exe'or Name = 'wmiprvse.exe'") 
for each i in pp 
i.terminate() 
wscript.sleep 100 
next 
loop
end sub
复制代码

yu2n

启动两个脚本，一个获取密码输入，一个后台监控并关闭QQ。

这不是IF的问题，这是多进程的实现问题。


参考：

yu2n 发表于 2013-1-29 09:08 验证密码和禁止QQ