谁帮我看看,卡壳在这里了,请帮忙!
#include <IE.au3>$oIE = _IECreate ("http://newreg.qq.com/step3.shtml");打开QQ申请页面
_IEPropertySet ($oIE, "toolbar", 0)
_IEPropertySet ($oIE, "width", 600)
_IEPropertySet ($oIE, "height", 600)
_IEPropertySet ($oIE, "resizable", 0)
_IEPropertySet ($oIE, "title","打开QQ申请正式页面")
_IEPropertySet ($oIE, "statustext","QQ申请专家")
;碰碰运气
_IELinkClickByIndex ($oIE, 5)
;生产随机密码
$DBname="0123456789qwertyuiopasdfghjklzxcvbnm"
$DBpassword="qwertyuiopasdfghjklzxcvbnm"
$name=StringSplit ($DBname,"")
$password=StringSplit($DBpassword,"")
$Numname=$name)]&$name)]&$name)]&$name)]&$name)]&$name)]&$name)]&$name)]
$Numpassword=$password)]&$password)]&$password)]&$password)]&$password)]&$password)]&$password)]&$password)]
;填表!
$oForm = _IEFormGetObjByName ($oIE, "regform")
;昵称!
$oQuery = _IEFormElementGetCollection ($oForm, 2)
_IEFormElementSetValue ($oQuery, $Numname)
;年!
$oQuery = _IEFormElementGetCollection ($oForm, "4")
_IEFormElementOptionSelect ($oQuery , 1984)
;月!
$oQuery = _IEFormElementGetCollection ($oForm, "5")
_IEFormElementOptionSelect ($oQuery , 5)
;日!
$oQuery = _IEFormElementGetCollection ($oForm, "6")
_IEFormElementOptionSelect ($oQuery , 19)
;密码!
$oQuery = _IEFormElementGetCollection ($oForm, 9)
_IEFormElementSetValue ($oQuery, ($Numpassword))
;确认密码!
$oQuery = _IEFormElementGetCollection ($oForm, 10)
_IEFormElementSetValue ($oQuery, ($Numpassword))
;输入验证码!
老是弹出超时页面,请问有什么办法实现不弹呢! 对不起,您的操作已超时,请高人帮忙想想办法。 请不要一下跳到第三步去! 三楼说的是哪样意思
页:
[1]