范统.贾 发表于 2010-1-11 04:52:17

求几个邮箱自动登陆的代码。

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个全部搞定的话,回帖告诉我,我直接选为最佳答案,然后你一周内给我代码就可以。

bob 发表于 2010-1-11 04:52:18

写随笔写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

范统.贾 发表于 2010-1-11 05:13:57

再补充一个: http://thephoenix-forums.com/

bob 发表于 2010-1-11 10:16:23

如果没有特别恶心的验证码,都很简单的

minterz 发表于 2010-1-11 11:42:50

楼主,你的金钱总共才250啊。

范统.贾 发表于 2010-1-12 03:38:22

回复 4# minterz

金钱已经预付给论坛了。帖子发完,钱就已经被扣掉了。

我采用最佳答案以后,金钱应该是再由论坛转给最佳答案的那个人。

范统.贾 发表于 2010-1-12 03:39:27

回复 3# bob

有把握不?好象都没有验证码的。

范统.贾 发表于 2010-1-13 07:30:25

回复 2# bob

谢谢,我先自己试着写其他的,不会的再PM你。
页: [1]
查看完整版本: 求几个邮箱自动登陆的代码。