[问题求助] 如何合并验证密码和禁止QQ的VBS脚本的功能？

ww0000

这是个验证密码的脚本：

dim a 
const pass="123456" 
do
    a=inputbox("请输入密码")
    if a=pass then 
         msgbox("密码校验成功")
         exit do
    end if
loop
复制代码

这是个禁止QQ程序的脚本：

do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("QQ.exe") then 
p.terminate
MsgBox "你不能用QQ"
end if
next
wscript.sleep 2000
loop
复制代码

现在要将这两个脚本的功能合并起来，运行QQ程序就会要求你输入密码，密码正确，QQ运行；密码不正确，QQ不能运行！高手们，请考虑一下！谢谢！

ww0000

回复 3# yu2n


    这个好象不能达到要求，

要每次运行QQ时，跳出要求输入密码，

如果密码错误，跳出“你不能使用QQ”。

如果密码正确，跳出QQ登陆的界面！

ww0000

回复 5# yu2n


    谢谢你，辛苦了！功能很强大，但不能达到要求！

你的脚本运行后，不用管它的密码窗口，不用输入任何东西，照样用QQ！

ww0000

回复 7# yu2n


    谢谢,你真厉害,那么长的代码!