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

范统.贾

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

写随笔写3个出来吧，都大同小异的，想学习方法可以看看这篇文章
http://www.autoit.org.cn/html/zh ... 11/quickieform.html

#include <IE.au3>

#cs  QQ邮箱登陆代码
$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 

#cs  LIVE邮箱登陆代码 （我这禁止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/

bob

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

minterz

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

范统.贾

回复 4# minterz

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

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

范统.贾

回复 3# bob

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

范统.贾

回复 2# bob

谢谢，我先自己试着写其他的，不会的再PM你。