Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="QQ油箱"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
For i=1 To 20 Step 1
ie.navigate "http://m6.mail.qq.com/cgi-bin/login"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.Document.form1.u.value="QQ账号"
ie.Document.form1.p.value="QQ密码"
WShell.SendKeys "~" ' 回车
Wscript.Sleep 5000 ' 根据自己的网速确定等待时间
Wshell.SendKeys "^W" ' 关闭IE窗口
Next
以上代码复制到TXT文档后修改QQ账号和QQ密码后保存为QQmail.vbs,然后在打开浏览器的情况下运行QQmail.vbs就可以自动登陆20次,赚取当天的积分了(不过实在不知道要那积分有什么用..),利用这个方法还可以刷163邮箱的积分就看各位变通了.
Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="126邮箱"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
For i=1 To 6 Step 1
ie.navigate "http://mail.126.com"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.Document.form.user.value="126的id"
ie.Document.form.pass.value="126的密码"
WShell.SendKeys "~" ' 回车
Wscript.Sleep 5000 ' 根据自己的网速确定等待时间
Wshell.SendKeys "^W" ' 关闭IE窗口
Next
Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="126邮箱"
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="****"
ie.Document.login163.password.value="****"
WShell.SendKeys "~" ' 回车
Wscript.Sleep 5000 ' 根据自己的网速确定等待时间
Wshell.SendKeys "^W" ' 关闭IE窗口
Next