本帖最后由 kinghu318 于 2011-3-29 15:30 编辑 Global $ie = _IECreateEmbedded ()
GUICtrlCreateObj($ie,0, 400, 600,400)
_IENavigate($ie,"reg.qq.com")
............中间是一系列的赋值操作
$sub=_IEGetObjById($ie,"a_submit");获取注册按钮
_IEAction ($sub, "click");模拟点击事件
_IELoadWait ($ie);等待加载(好像无法等待网页加载完成)
getQQ("sss")
Func getQQ($ms)
_logerr() ;一些错误提示的获取
$divs=_IETagNameGetCollection($ie,"div")
for $div In $divs
if $div.className=="account" Then
GUICtrlCreateListViewItem($div.innerText,$ListView1)
writeQQ($div.innerText,$ms);注册成功的QQ写入文本
EndIf
Next
EndIf
EndFunc
Func _logerr()
$yzmcw=_IEGetObjById($ie,"e_validecode")
if not @error Then
if $yzmcw.innerText<>"" Then
;SplashOff()
GUICtrlCreateListViewItem($yzmcw.innerText,$ListView1)
$res=True
EndIf
endif
$mmcw=_IEGetObjById($ie,"e_pass")
if not @error Then
if $mmcw.innerText<>"" Then
;SplashOff()
GUICtrlCreateListViewItem($mmcw.innerText,$ListView1)
$res=True
EndIf
endif
$lis=_IETagNameGetCollection($ie,"li")
if @EXTENDED==0 then Sleep(1000)
For $li In $lis
If $li.className=="title" Then
;SplashOff()
GUICtrlCreateListViewItem($li.innerText,$ListView1)
$res=True
EndIf
Next
EndFunc
请各位老大帮忙,因为网速不一,加载网页的速度不同,有时候根本就获取不到网页上的值,怎么样才能判断提交已经完成,然后再进行后面的获取错误或者是成功得到的QQ,谢谢。。。。 |