Board logo

标题: 请教高手关于批处理网页关闭问题 [打印本页]

作者: lucy007     时间: 2008-5-8 08:33    标题: 请教高手关于批处理网页关闭问题
用于实现自动登陆2个邮箱,登陆进去一个退出,再登陆进去一个再退出。现在有个问题,第2个邮箱登陆进去之后不能自动退出,网页不能自动关闭。请大家看看,怎么改?谢谢

Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "http://www.126.com/"
WScript.Sleep 3000
a.SendKeys "用户名1"
a.SendKeys "{TAB}"
a.SendKeys "密码1"
a.SendKeys "{TAB}"
a.SendKeys "{ENTER}"
WScript.Sleep 15000
Set a=WScript.CreateObject("WScript.shell")
a.run "http://www.126.com/"
WScript.Sleep 3000
a.SendKeys "用户名2"
a.SendKeys "{TAB}"
a.SendKeys "密码2"
a.SendKeys "{TAB}"
a.SendKeys "{ENTER}"
WScript.Sleep 15000

Dim b,c
Set b=WScript.CreateObject("WScript.shell")
c=1

Do
if c=6 then exit do
wscript.sleep 3000
If b.AppActivate("网易126免费邮") = True Then
b.SendKeys "%{F4}{F4}{F4}"
If b.AppActivate("网易电子邮箱") = True Then
b.SendKeys "%{F4}{F4}{F4}"
exit do
end if

c=c+1
Else
exit do
End If

Loop

set b=nothing