|
$i=8123
$n=1
$x=979
$y=91
$a=413
$b=493
Sleep (5000)
While $i > 3
Sleep (10)
Send ("!d")
Sleep (10)
Send("http://star.sgst.cn/questionDetail.do?id=" & $i)
Sleep (10)
Send ("{ENTER}")
Sleep (1000)
MouseMove ($x,$y)
while $n < 300
If PixelGetColor ($x, $y) = 'ffffff' Then
MouseMove ($a,$b)
Sleep (1000)
MouseClick
ExitLoop
Else
sleep(1000)
$n = $n + 1
EndIf
WEnd
Sleep (1000)
$i = $i + 1
WEnd
我是首先打开在opera,然后判断opera地址栏后面的进度栏(x,y)是否变白,如果变白,则将鼠标移动到星星的位置(a,b),然后点击星星,如果进度栏(x,y)没有变白,说明正在读网页,这时用循环每秒判断进度栏,直到变白时,移动到星星,这种判断最长5分钟。可是我运行后,发现,即使进度条变白了,鼠标也不移动了。 |
|