中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-19 15:07

欢迎新会员 homebai　 RSS
共 47,998 篇主题 / 350,071 篇帖子 / 今日 0 篇 / 48,212 位会员不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请求改良一段VBS 查看 1,092　回复 12

楼主 请求改良一段VBS 发表于 2007-04-16 10:30　·　中国湖南株洲电信

utem999

初级用户

★★

积分 135
发帖 54
注册 2006-09-10 03:07
UID 62265

状态离线

Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="163邮箱"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
For i=1 To 6 Step 1
ie.navigate "http://mail.163.com"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.Document.login163.username.value="163ID"
ie.Document.login163.password.value="163密码"
WShell.SendKeys "~" ' 回车
Wscript.Sleep 5000 ' 根据自己的网速确定等待时间
Wshell.SendKeys "^W" ' 关闭IE窗口
Next

登陆163邮箱的VBS，请问能不能把这段代码改进一下呢？
如：我有N多的163邮箱保存在163.txt的文档中，地址与密码格式如：
1234@163.com----1234
1235@163.com----1234
1256@163.com----1234

请问能不能用VBS自动读取163.txt，自动从第一登陆至最后一个，并重复3次？

992912

第 2 楼发表于 2007-04-16 10:34　·　中国湖北武汉电信

lxmxn

版主

★★★★★

积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080

状态离线

你刷积分呢？

第 3 楼发表于 2007-04-16 10:37　·　中国湖南株洲电信

utem999

初级用户

★★

积分 135
发帖 54
注册 2006-09-10 03:07
UID 62265

状态离线

Originally posted by lxmxn at 2007-4-16 10:34:
你刷积分呢？

可以这么说吧
去年不小心申了N多163的邮箱
再说了
不登陆的话有被停的可能呀
各位帮忙了

992912

第 4 楼发表于 2007-04-16 10:38　·　中国湖北武汉电信

lxmxn

版主

★★★★★

积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080

状态离线

用vbs和bat结合应该可以搞定，但是vbs我也不会。

第 5 楼发表于 2007-04-16 22:37　·　中国安徽马鞍山电信

kich

中级用户

★★

积分 397
发帖 168
注册 2006-10-08 10:07
UID 64934

状态离线

我也是新手,略写了一点,不知道有什么出错,我运行时是可以进去的!!
仅供参考:



'脚本和密码文本"163.txt"在同一个目录下运行

On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")

Set fr=fso.OpenTextFile("163.txt")

Do Until fr.AtEndOfStream

   Login fr.ReadLine

Loop

fr.Close

Set fr=Nothing

Set fso=Nothing

Function Login(text)

  Set Wshell=WScript.CreateObject("WScript.Shell")

  AppName="163邮箱"

  Set ie=WScript.CreateObject("InternetExplorer.Application")

  ie.visible=True

  text=Trim(text)  

  ID=Left(text,InStr(text,"@")-1)

  PW=Right(text,len(text)-instrrev(text,"-"))

  For i=1 To 6 Step 1

    ie.navigate "http://mail.163.com"

    Do

      Wscript.Sleep 200

    Loop Until ie.ReadyState=4

    ie.Document.login163.username.value=ID

    ie.Document.login163.password.value=PW

    WShell.SendKeys "~" ' 回车 

    Wscript.Sleep 5000 ' 根据自己的网速确定等待时间

    Wshell.SendKeys "^W" ' 关闭IE窗口

  Next

  Set ie=Nothing

  Set Wshell=Nothing

End Function