求几个邮箱自动登陆的代码。
http://www.autoitx.com/ (登陆时有提示问题:最后驾照后四位那个)http://bbs.themex.net/
http://bbs.3e-online.com/
http://dzh.mop.com/
http://www.tianya.cn/
http://mail.sina.com.cn/
http://mail.live.cn
http://mail.qq.com/以上几个,能自动登陆就可以。密码太多,记不太清,又怕长时间不登陆帐号失效,所以弄出来,一个月点一下就可以了。
一个网站100金钱。总共8个。
自己对IE方面搞不太清楚,有源码的话自己也好研究下。
如果确定有把握8个全部搞定的话,回帖告诉我,我直接选为最佳答案,然后你一周内给我代码就可以。 写随笔写3个出来吧,都大同小异的,想学习方法可以看看这篇文章
http://www.autoit.org.cn/html/zhongwenziliao/20100111/quickieform.html
#include <IE.au3>
#csQQ邮箱登陆代码
$oIE = _IECreate ("http://mail.qq.com")
_IELoadWait ($oIE)
$UserName = _IEGetObjById ($oIE, "uin")
;QQ的用户名不能为数字号码,只能是别名,否则要验证码
If IsObj($UserName) Then $UserName.value = "用户名"
$PassWord = _IEGetObjById ($oIE, "pp")
If IsObj($PassWord) Then $PassWord.value = "密码"
$Submit = _IEGetObjById ($oIE, "btlogin")
$Submit.click
#ce
#csLIVE邮箱登陆代码 (我这禁止HTTPS链接,无法测试是否登陆成功)
$oIE = _IECreate ("http://login.live.com/login.srf")
_IELoadWait ($oIE)
$UserName = _IEGetObjByName ($oIE, "login")
If IsObj($UserName) Then $UserName.value = "用户名"
$PassWord = _IEGetObjByName ($oIE, "passwd")
If IsObj($PassWord) Then $PassWord.value = "密码"
$Submit = _IEGetObjByName ($oIE, "SI")
$Submit.click
#ce
#cs新浪邮箱登陆代码
$oIE = _IECreate ("http://mail.sina.com.cn/")
_IELoadWait ($oIE)
$UserName = _IEGetObjById ($oIE, "username")
If IsObj($UserName) Then $UserName.value = "用户名"
$PassWord = _IEGetObjById ($oIE, "password")
If IsObj($PassWord) Then $PassWord.value = "密码"
$Submit = _IEGetObjByName ($oIE, "btnloginfree")
$Submit.click
#ce
再补充一个: http://thephoenix-forums.com/ 如果没有特别恶心的验证码,都很简单的 楼主,你的金钱总共才250啊。 回复 4# minterz
金钱已经预付给论坛了。帖子发完,钱就已经被扣掉了。
我采用最佳答案以后,金钱应该是再由论坛转给最佳答案的那个人。 回复 3# bob
有把握不?好象都没有验证码的。 回复 2# bob
谢谢,我先自己试着写其他的,不会的再PM你。
页:
[1]