请教VBS中多个IF的用法

ww0000

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

1. 
   
2. do
   
3. set mi=getobject("winmgmts:win32_process").instances_
   
4. for each p in mi
   
5. if ucase(p.name)=ucase("QQ.exe") then
   
6. Call check_ie_run()
   
7. end if
   
8. next
   
9. wscript.sleep 1000
   
10. loop
    
11. 
    
12. sub check_ie_run()
    
13. dim a
    
14. const pass="123456"
    
15. do
    
16.     a=inputbox("请输入密码")
    
17.     if a=pass then
    
18.          msgbox("欢迎使用QQ")
    
19.          Call check_ie_run2()
    
20.          exit do
    
21.          end if
    
22.     if a<>pass then
    
23.          msgbox("密码错误,你不能使用QQ")
    
24.          Call check_ie_run3()
    
25.          Else
    
26.          wscript.sleep 1000*30
    
27.          Call check_ie_run3()
    
28.    end if
    
29. loop
    
30. end sub
    
31. 
    
32. sub check_ie_run2()
    
33. do
    
34. set ws=getobject("winmgmts:\\.\root\cimv2")
    
35. set pp=ws.execquery("select * from win32_process where Name = 'wscript.exe'or Name = 'wmiprvse.exe'")
    
36. for each i in pp
    
37. i.terminate()
    
38. wscript.sleep 100
    
39. next
    
40. loop
    
41. end sub
    

复制代码

yu2n

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

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


参考：

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