316689688 发表于 2008-12-2 03:44:35

谁帮我看看,卡壳在这里了,请帮忙!

#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))
;输入验证码!

老是弹出超时页面,请问有什么办法实现不弹呢!

316689688 发表于 2008-12-2 03:47:03

对不起,您的操作已超时,请高人帮忙想想办法。

liongodmien 发表于 2008-12-2 09:02:02

请不要一下跳到第三步去!

316689688 发表于 2008-12-2 10:40:14

三楼说的是哪样意思
页: [1]
查看完整版本: 谁帮我看看,卡壳在这里了,请帮忙!