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

登錄/註冊後可看大圖

讚讚讚  感謝分享，好用軟體值得推薦 謝謝大大^^

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

1. 
   
2. APK論壇條列式表示
   
3. 範例一
   
4. 範例二
   

複製代碼

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

這個真是實用 我也喜歡  想要下載

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

~~~~~~~~~~~~~~~~

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

~~~~~~~~~~~~~~~~~~~~

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

薑餅人掛機 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

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

薑餅人燒餅自動設定 v2

//Author Likol
UserVar fix1=DropList{"啟動":1|"禁用":0} "燒餅修改器自動設定"
UserVar fix2=DropList{"不修正":0|"一速":1|"二速":2|"三速":3|"四速":4|"五速":5} "燒餅加速器自動設定"


"搜索 選取數值 點擊修改
Sub mysub
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 519, 245)
        Delay 1500

        Call Plugin.Bkgnd.LeftClick(Hwnd, 291, 225)
        Delay 500

        Call Plugin.Bkgnd.LeftClick(Hwnd, 285, 134)
        Delay 500
End Sub

"確認修改 叫出燒餅 清空
Sub mysub2
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 519, 187)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick (Hwnd, 12, 12)
        Delay 500
        Call Plugin.Bkgnd.LeftClick (Hwnd, 490, 188)
        Delay 500
        Call Plugin.Bkgnd.LeftClick(Hwnd, 325, 180)
        Delay 500
End Sub

"燒餅修改器
Sub sbtools1
        Hwnd = Plugin.Window.Find(0, "BlueStacks App Player for Windows (beta-1)")
        Delay 500

        Call Plugin.Bkgnd.LeftClick (Hwnd, 12, 12)
        Delay 500

        Call Plugin.Bkgnd.LeftClick(Hwnd, 161, 178)
        Delay 500

        Call Plugin.Bkgnd.LeftClick(Hwnd, 160, 232)
        Delay 500

        Call Plugin.Bkgnd.LeftClick(Hwnd, 325, 180)
        Delay 500

        "輸入-204,552
        Call Plugin.Bkgnd.KeyPress(Hwnd, 189)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 188)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
        Call mysub

        "輸入504
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
        Call mysub2

        "輸入-188,403
        Call Plugin.Bkgnd.KeyPress(Hwnd, 189)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 56)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 56)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 188)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
        Call mysub

        "輸入402
        Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
        Call mysub2

        "輸入-205,503
        Call Plugin.Bkgnd.KeyPress(Hwnd, 189)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 188)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
        Call mysub

        "輸入553
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
        Call mysub2

        "輸入-183,504
        Call Plugin.Bkgnd.KeyPress(Hwnd, 189)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 56)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 188)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
        Call mysub

        "輸入553
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
        Delay 10
        Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
        Call mysub2
        Call Plugin.Bkgnd.LeftClick(Hwnd, 335, 108)
        Delay 100
End Sub


"燒餅加速器
Sub sbtools2
        Hwnd = Plugin.Window.Find(0, "BlueStacks App Player for Windows (beta-1)")
        Delay 500
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 16, 343)
        Delay 200
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 461, 332)
        Delay 200
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 179, 333)
        Delay 200
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 423, 294)
        Delay 200
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 180, 253)
        Delay 200
       
        i = fix2 + 1
       
        For i
                Call Plugin.Bkgnd.LeftClick(Hwnd, 370, 333)
                Delay 100       
        Next
       
        Call Plugin.Bkgnd.LeftClick(Hwnd, 320, 297)
        mymsg = mymsg & "加速器效果："& fix2 &" 速"
        Delay 200
End Sub

//條件設定
Dim mymsg

If fix1 = 1 Then
        "呼叫燒餅修改器副程式
        Call sbtools1
        mymsg = "修改器已修正完成！" &vbcr&vbcr
Else
        mymsg = "修改器設定為禁用！" &vbcr&vbcr
End If
       
If fix2 = 0 Then
        mymsg = mymsg & "加速器效果：不修正"
Else
        Call sbtools2
End If

MessageBox mymsg

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

感謝分享

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊

这是一个好东西啊。。

您好！您暫時不能瀏覽帖子的全部內容，請 登錄 | 沒有帳號？ 註冊