|
utem999
初级用户
积分 135
发帖 54
注册 2006-9-10
状态 离线
|
『楼 主』:
请求改良一段VBS
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次？
|
[qq]992912[\qq] |
|
 2007-4-16 10:30 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
|
|
2007-4-16 10:34 |
|
|
utem999
初级用户
积分 135
发帖 54
注册 2006-9-10
状态 离线
|
『第
3 楼』:
| Quote: | Originally posted by lxmxn at 2007-4-16 10:34:
你刷积分呢？ |
|
可以这么说吧
去年不小心申了N多163的邮箱
再说了
不登陆的话有被停的可能呀
各位帮忙了
|
[qq]992912[\qq] |
|
|
2007-4-16 10:37 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
4 楼』:
用vbs和bat结合应该可以搞定，但是vbs我也不会。
|
|
|
2007-4-16 10:38 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
5 楼』:
我也是新手,略写了一点,不知道有什么出错,我运行时是可以进去的!!
仅供参考:
'脚本和密码文本"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
|
|
|
2007-4-16 22:37 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
6 楼』:
安全起见,可以在代码里加判断是否有163.txt文件的存在,还要判断文本文件是否为空,还有格式是否正确,但楼主是自己建的文件,应该不用判断了吧!!
|
|
|
2007-4-16 22:47 |
|
|
utem999
初级用户
积分 135
发帖 54
注册 2006-9-10
状态 离线
|
『第
7 楼』:
| Quote: | Originally posted by kich at 2007-4-16 22:37:
我也是新手,略写了一点,不知道有什么出错,我运行时是可以进去的!!
仅供参考:
[code]
'脚本和密码文本"163.txt"在同一个目录下运行
On Error Resu ... |
|
谢谢
狂弹网页
|
[qq]992912[\qq] |
|
|
2007-4-17 03:06 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
8 楼』:
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
这个200好像设置小了,设置成2500,好像就好多了,不会出现很多网页了!!!
|
|
|
2007-4-17 08:26 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
9 楼』:
| Quote: | Originally posted by kich at 2007-4-16 22:47:
安全起见,可以在代码里加判断是否有163.txt文件的存在,还要判断文本文件是否为空,还有格式是否正确,但楼主是自己建的文件,应该不用判断了吧!! |
|
写的真不错，狂弹网页是个小毛病。
分析下代码看 用改变 Sleep time 的方法 有些不妥，因为此处的Sleep易受硬件、系统、网络多方影响 且本就是秒甚至毫秒间的变化，添加另一个判断条件ie.Document.title＝应该是个可行的方法。
163邮箱自动登陆→VBS版
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-4-19 13:58 |
|
|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『第
10 楼』:
能做成126的吗 我用126代换163 并把163.txt改成126 不行
|
|
|
2007-4-20 01:46 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
11 楼』:
我喜欢用telnet,因为vbs容易受登陆界面的限制
[ Last edited by vkill on 2007-4-20 at 02:06 AM ]
|
|
|
2007-4-20 02:02 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
12 楼』:
| Quote: | Originally posted by xswdong at 2007-4-20 01:46:
能做成126的吗 我用126代换163 并把163.txt改成126 不行 |
|
可以改成126的 但是可能要更改下面句子
具体改成什么要查看网页源文件。
ie.Document.login163.username.value=ID
ie.Document.login163.password.value=PW
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-4-20 03:15 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
13 楼』:
Set fr=fso.OpenTextFile("163.txt",1,1)没有就自动创建……
|
|
|
2007-5-10 16:30 |
|
