#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[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]&$name[Random(1,$name[0])]
$Numpassword=$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]&$password[Random(1,$password[0])]
;填表!
$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))
;输入验证码!
老是弹出超时页面,请问有什么办法实现不弹呢! |