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
复制代码