Autoit-鐵人大富翁自動練功(中)

DAY 29

VB6之迴光返照系列第 29 篇

鐵人賽

thc

2010-10-25 08:36:02

8605 瀏覽

分享至

請你跟我這樣錄
執行Au3Record，點擊紅框部分開始錄製，流程是先點Go，接著無論有沒有怪都要逃跑，因為我的目的是只是遇怪就逃跑，被打就算了，只要再重按一次鐵人大富翁怪就不會再次出現了。

然後點擊左上的 Click To Stop得到以下的code

_WinWaitActivate(":::2010第三屆IT邦幫忙鐵人賽::: - Mozilla Firefox","")
MouseMove(1272,651)
MouseDown("left")
MouseMove(1271,651)
MouseUp("left")
MouseClick("left",825,843,1)
MouseClick("left",893,286,1)

稍微修改一下，加上迴圈及延遲函數sleep()，延遲可視網路速度自行修改，以下

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait(":::2010第三屆IT邦幫忙鐵人賽::: - Mozilla Firefox","")
If Not WinActive(":::2010第三屆IT邦幫忙鐵人賽::: - Mozilla Firefox","") Then WinActivate(":::2010第三屆IT邦幫忙鐵人賽::: - Mozilla Firefox","")
WinWaitActive(":::2010第三屆IT邦幫忙鐵人賽::: - Mozilla Firefox","")
for $i=1 to 999999999999999 ;加上迴圈
sleep(1000)
MouseMove(1272,651)
MouseDown("left")
MouseMove(1271,651)
MouseUp("left")
sleep(500)
MouseClick("left",825,843,1)
MouseClick("left",893,286,1)
sleep(1000)
next