本帖最后由 crkey12345 于 2009-8-19 15:10 编辑
注册网址:http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail
最后提交时不对,提示未阅读服务条款,可默认明明是选中的,加了选中的代码也不行
估计是“创建帐号”时的问题,重点是35行以后
我写的代码如下:#include<ie.au3>
$oie=_IECreate("http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail")
$oForm =_IEGetObjById($oie,"regform")
$oQuery = _IEFormElementGetObjByName ($oForm, "inp_uname")
_IEFormElementSetValue ($oQuery, "asdd00fs11ioafd74")
Send(@CR);;回车
Sleep(1000);;等待,这两句好像不太保险,不知高手有何妙法改进
_IEFormElementRadioSelect ($oForm, "asdd00fs11ioafd74@126.com", "rdAccount", 1, "byValue")
$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, "1980")
$oQuery5=_IEGetObjById($oie,"month")
_IEFormElementSetValue ($oQuery5, "04")
$oQuery6=_IEGetObjById($oie,"day")
_IEFormElementSetValue ($oQuery6, "10");;;;;;;;;;;;;;出生日期
$oQuery7=_IEGetObjById($oie,"authcode")
$oyzm=InputBox("验证码","")
_IEFormElementSetValue ($oQuery7, $oyzm);;;;;;;;;;;;;验证码
Sleep(1000)
MsgBox(1,"","");;;;;;;;;;;;;;从这开始
$oInputs = _IETagNameGetCollection ($oIE, "INPUT")
For $oInput In $oInputs
if $oInput.title = "创建帐号" And $oInput.class="btn-submit" then
_IEAction ($oInput, "click")
EndIf
Next;;;;;;;;;;;;;;;;;重点在这里
Exit
|