自动注册163邮箱,密码框为什么不能自动输入?

diandiand163

看代码:
#include<ie.au3>
$oie=_IECreate("http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail",1,1,0)
$oForm =_IEGetObjById($oie,"regform")
$oQuery = _IEFormElementGetObjByName ($oForm, "inp_uname")
_IEFormElementSetValue ($oQuery, "abcx00301")
Send(@CR);;回车
Sleep(1000);;等待，这两句好像不太保险，不知高手有何妙法改进
_IEFormElementRadioSelect ($oForm, "abcx00301@126.com", "rdAccount", 1, "byValue")
Sleep(1000)
;以下不能自动输入密码啊.
$oQuery1=_IEGetObjById($oie,"password")
_IEFormElementSetValue ($oQuery1, "a9974515")
$oQuery2=_IEGetObjById($oie,"passwordconfirm")
_IEFormElementSetValue ($oQuery2, "a9974515");;;;;;;;;;;;;;;;;密码


$oSelect = _IEFormElementGetObjByName ($oForm, "secproblem")
_IEFormElementOptionSelect ($oSelect, "您配偶的生日是?", 1, "byValue")
$oQuery3=_IEGetObjById($oie,"secanswer")
_IEFormElementSetValue ($oQuery3, "19810515");;;;;安全问题

_IEFormElementRadioSelect ($oForm, "0", "rd1", 1, "byValue");;选择性别

$oQuery4=_IEGetObjById($oie,"year")
_IEFormElementSetValue ($oQuery4, "1985")
$oQuery5=_IEGetObjById($oie,"month")
_IEFormElementSetValue ($oQuery5, "05")
$oQuery6=_IEGetObjById($oie,"day")
_IEFormElementSetValue ($oQuery6, "05");;;;;;;;;;;;;;出生日期

diandiand163

$oie=_IECreate("http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail",1,1,0)
测试时需去掉参数1,1,0
或先打开163邮箱.
在线等高手解决

lchl0588

UDF ？我从来不用之，不过偶喜欢用TAB+SEND

rtytext

为什么邮箱要自动注册啊，用很多吗

chenzhi1210

密码输入后,真正密码控件的值没有变化,好像要激活onKeyPress事件,输入的密码才能生效!
现在的问题是输入密码后,怎么激活onKeyPress事件让密码生效?

h141242

留下脚印~~~~

diandiand163

版主去哪了，继续等待！

lynfr8

密码输入后,真正密码控件的值没有变化,好像要激活onKeyPress事件,输入的密码才能生效!
现在的问题是输入密 ...
chenzhi1210 发表于 2010-6-8 10:46

不用激活，继续注册即可！
修改的地方：

$oQuery = _IEFormElementGetObjByName ($oForm, "btn_chk")
_IEAction ($oQuery, "focus")
Sleep(3000)
_IEFormElementRadioSelect ($oForm, "abcx0030@163.com", "rdAccount", 1, "byValue")
$oQuery1=_IEFormElementGetObjByName ($oForm,"password")
_IEFormElementSetValue ($oQuery1, "a9974515")
$oQuery2=_IEFormElementGetObjByName ($oForm,"passwordconfirm")
_IEFormElementSetValue ($oQuery2, "a9974515");;;;;;;;;;;;;;;;;密码

#include<ie.au3>
$oie=_IECreate("http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail",1,1,0)
_IELoadWait($oie)
$oForm =_IEGetObjById($oie,"regform")
$oQuery = _IEFormElementGetObjByName ($oForm, "inp_uname")
_IEFormElementSetValue ($oQuery, "abcx0030")
$oQuery = _IEFormElementGetObjByName ($oForm, "btn_chk")
_IEAction ($oQuery, "focus")
Sleep(3000)
_IEFormElementRadioSelect ($oForm, "abcx0030@163.com", "rdAccount", 1, "byValue")
$oQuery1=_IEFormElementGetObjByName ($oForm,"password")
_IEFormElementSetValue ($oQuery1, "a9974515")
$oQuery2=_IEFormElementGetObjByName ($oForm,"passwordconfirm")
_IEFormElementSetValue ($oQuery2, "a9974515");;;;;;;;;;;;;;;;;密码
$oSelect = _IEFormElementGetObjByName ($oForm, "secproblem")
_IEFormElementOptionSelect ($oSelect, "您配偶的生日是?", 1, "byValue")
$oQuery3=_IEGetObjById($oie,"secanswer")
_IEFormElementSetValue ($oQuery3, "19810516");;;;;安全问题
_IEFormElementRadioSelect ($oForm, "0", "rd1", 1, "byValue");;选择性别
$oQuery4=_IEGetObjById($oie,"year")
_IEFormElementSetValue ($oQuery4, "1985")
$oQuery5=_IEGetObjById($oie,"month")
_IEFormElementSetValue ($oQuery5, "05")
$oQuery6=_IEGetObjById($oie,"day")
_IEFormElementSetValue ($oQuery6, "05");;;;;;;;;;;;;;出生日期

diandiand163

太感谢了.不愧是论坛元老

diandiand163

已解决,除了感谢,甚至想拜你为师

chenzhi1210

lynfr8大哥直接将密码输入到隐藏域中，是可以注册成功，但感觉不够完美，可能会被163检测出是软件注册的。
激活onKeyPress事件,让输入的密码生效不知道怎么实现?

deliy

前两天才写了个TOM注册机。。。比163的还容易些。不用输入这么多乱七八糟的东西。。。
如果验证码能解决就厉害了。

风行者

不错,看看学习一下

longmu

回复 8# lynfr8


    不知怎么使用   能给个说明吗

455901394

高手啊真是佩服