用vbs写连接网页100次再连下一个网页100次

1 打开后自己又关闭

netlink 100,"www.baidu.com"
netlink 100,"www.qq.com"
netlink 100,"www.yahoo.com"
netlink 100,"www.google.com"
msgbox"任务完成~",4096+64

sub netlink(ctr,url)
for i= 1 to ctr
set ws=createobject("wscript.shell")
ws.run"iexplore.exe "&url
wscript.sleep 2000
Ws.AppActivate "internet explore"
Ws.SendKeys"%{f4}"
next
end sub

2 打开后不关闭
netlink 100,"www.baidu.com"
netlink 100,"www.qq.com"
netlink 100,"www.yahoo.com"
netlink 100,"www.google.com"
msgbox"任务完成~",4096+64

sub netlink(ctr,url)

for i= 1 to ctr
set ws=createobject("wscript.shell")
ws.run"iexplore.exe "&url
wscript.sleep 2000
next

end sub

号
正面 有领导能力的先驱角色、有智慧的、有独立的勇气、别出心裁的、有组织系统的、 个人主义的、积极有决心的、有权威的、有进取心的
负面 傲慢固执的、教条式的、自私自利的、自我中心的、容易消沉的、冷漠苛刻的、残酷无情的、不够机智的

www.baidu.com