中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请教高手关于批处理网页关闭问题

lucy007
新手上路

积分 8
发帖 2
注册 2008-4-30
状态离线

『楼主』: 请教高手关于批处理网页关闭问题

用于实现自动登陆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

2008-5-8 08:33

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: