|
下面是对一个网页的冲浪代码
While 1
;获取名为“main”的frame
$oFrame = _IEFrameGetObjByName($oIE, "main")
$sText=_IEBodyReadText($oFrame)
;如果搜索到包含“k the”的字符串就进行如下操作
if StringInStr($sText,"k the")>0 Then
;拿frame内的文本与字符串组A比较,如果正确则点击字符串组A[1]
for $r=0 to 32
If StringInStr($sText,$arrayA[$r][0])>0 Then
MsgBox(0,"link","应点图的src:"& $arrayA[$r][1],1)
_IEImgClick($oFrame,$arrayA[$r][1],"src")
ExitLoop
EndIf
Next
;上面如没有比较成功就拿数组B进行src比较
$oImgs = _IEImgGetCollection ($oFrame)
for $oImg in $oImgs
;MsgBox(0,"test",$oImg.nameProp&"长度"&StringLen($oImg.nameProp),1)
for $rs=0 To 14
if StringCompare($oImg.src,$arrayB[$rs][0])>=0 Then
;MsgBox(0,"找到","目标是"&$arrayB[$rs][1],1)
_IEImgClick($oFrame,$arrayB[$rs][1],"src")
ExitLoop 2
EndIf
Next
Next
Else
;没有合适字符串就等待
sleep(3000)
_IEAction($oIE,"stop")
EndIf
WEnd
问题表现是:在第一次能够正确执行,且能成功。但之后就没有反应了。直到控制台显示IE超时这才执行一下,之后又处于定格状态。
编程很臭,请大家帮忙分析一下。多谢!
[ 本帖最后由 yyabo 于 2009-3-24 16:51 编辑 ] |
|