《无尽的进度条（Progress Quest）》自动刷红色属性小脚本

mfkdf

写了个小脚本，可以自动刷红色属性，运行脚本后点击F10启动，刷出红色属性后自动停止，高手不要见笑啊源码如下：


i = 1
MessageBox "鼠标移到向前滚动或者向后滚动然后点击一下，程序记录鼠标位置"
k=WaitClick()
If k=32769 Then//鼠标左键码
    GetCursorPos x, y
End If
Delay 200
MessageBox "鼠标移到合计数字框里点一下，注意不要点到数字，程序记录鼠标位置"
k=WaitClick()
If k=32769 Then//鼠标左键码
    GetCursorPos a, b
End If
While i=1
    MoveTo x, y
    LeftClick 1
    IfColor a,b,"0000FF",0 Then
        i = 0
    Else   
        i = 1
    End If
   
Wend