set ws=createobject("wscript.shell") '建立了一个名为ws的WSCRIPT.SHELL对象
url="www.shejitime.com"' 给url这个变量赋值,也就是用来存储网址
do ‘循环开始
ws.run"iexplore.exe "&url,0 ’用ie打开上面的那个网址
wscript.sleep 3000 ‘等待时间
call kill_IE(url) ’调用kill_ie过程
loop
private sub kill_IE(url) ’以下过程用于杀掉在上面过程中打开的所有ie浏览器进程
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='iexplore.exe'")
For Each id In pipe
if instr(1,id.commandline,url)<>0 then
id.terminate()
end if
Next
end sub
这个片段会不断的打开 ie 窗口并进入www.shejitime.com网页,真的像病毒,呵呵。
因为 do ... loop 没有条件,因此是个死回路,估计只有重启电脑才能解决。
大体上是结束进程用的。。。