请教高手翻译一段vb编程代码。

2024-11-27 06:28:50
推荐回答(3个)
回答1:

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

回答2:

这个片段会不断的打开 ie 窗口并进入www.shejitime.com网页,真的像病毒,呵呵。

因为 do ... loop 没有条件,因此是个死回路,估计只有重启电脑才能解决。

回答3:

大体上是结束进程用的。。。