【強大實用】智慧工具箱 Smart Tools v1.6【已付費+繁體中文】

加好友 · 發表於 2014-5-1 18:12

本帖最後由 y3b4 於 2014-5-20 18:05 編輯

薑餅人掛機 v2

//Author Likol
UserVar CDelay=2000 "公共操作延遲"
UserVar runTime=60000 "刷錢時間設定"
UserVar retuneCD=5000 "循環掛機間隔"
UserVar totals=1 "掛機次數"
UserVar var1=DropList{"購買":1|"不購買":0} "快速捷徑"
UserVar var2=DropList{"購買":1|"不購買":0} "經驗加倍"

Call gogogo

Sub testvar()
If var1 = 1 Then
"點擊快速捷徑
Call Plugin.Bkgnd.LeftClick (Hwnd, 119, 299)
Delay 500

"點擊購買
Call Plugin.Bkgnd.LeftClick (Hwnd, 503, 140)
Delay CDelay
End If
If var2 = 1 Then
"點擊經驗加倍
Call Plugin.Bkgnd.LeftClick (Hwnd, 276, 220)
Delay 500

"點擊購買
Call Plugin.Bkgnd.LeftClick (Hwnd, 503, 140)
Delay CDelay
End If
End Sub
Sub gogogo()
times = 0
While times < totals
times = times + 1
"抓取遊戲視窗背景控制
Hwnd = Plugin.Window.Find(0,"BlueStacks App Player for Windows (beta-1)")
Delay 500

Call Plugin.Bkgnd.LeftClick (Hwnd, 311, 41)
Delay 500
"點擊遊戲開始
Call Plugin.Bkgnd.LeftClick (Hwnd, 490, 322)
Delay 1000

"購買判斷
Call testvar
"遊戲開始
Call Plugin.Bkgnd.LeftClick (Hwnd, 490, 322)
Delay 2000

"按下快速捷徑
For 16
Call Plugin.Bkgnd.LeftClick (Hwnd, 325, 150)
Delay 250
Next

"刷錢時間設定
Delay runTime
"點擊暫停
Call Plugin.Bkgnd.LeftClick (Hwnd, 624, 16)
Delay 1000

"點擊終止
Call Plugin.Bkgnd.LeftClick (Hwnd, 324, 207)
Delay 1000

"點擊確認
Call Plugin.Bkgnd.LeftClick (Hwnd, 343, 184)
Delay CDelay

"結算確認
Call Plugin.Bkgnd.LeftClick (Hwnd, 230, 322)
Delay CDelay

"升級確認
Call Plugin.Bkgnd.LeftClick(Hwnd, 334, 335)

"循環掛機延遲設定
Delay retuneCD
Wend
MessageBox "掛機結束腳本已停止"
End Sub