冰楓論壇

 找回密碼
 立即註冊
ads_sugarbook
搜索
查看: 2852|回覆: 2

[Line遊戲] LINE 熊大農場 簡易腳本

[複製鏈接]

499

主題

0

好友

503

積分

高級會員

Rank: 4

UID
250226
帖子
499
主題
499
精華
0
積分
503
楓幣
5011
威望
502
存款
0
贊助金額
0
推廣
0
GP
524
閱讀權限
50
性別
保密
在線時間
14 小時
註冊時間
2018-10-19
最後登入
2018-11-23
發表於 2018-10-26 13:33:29 |顯示全部樓層
1.png

2.png

3.png

4.png

5.png

6.png


這是自己用"按鍵精靈"寫的腳本,我是初新手而已,沒有去特別學,專業人士可以當作看看戲就好
我只有兩個帳號,所以只寫兩個視窗互相切換而已,而且不能後台動作,因為我不會用後台抓圖,如果有興趣的可以詢問我,有空我就回答,腳本COPY去不用錢,但是要看得懂阿!!不是直接用就行的
1.模擬器解析度800*600
2.在桌面建資料夾(按鍵精靈圖新增資料夾 (2))照順序建每一個斜線代表在前一個資料夾裡面再建
3.截圖到新資料夾(2)以下紅色圈圈的圖片

https://www.youtube.com/watch?v=tKRiWGGzV-8


腳本:
"Delay 3000
"1.取得視窗2.移動到最左上3.取得視窗大小4.把大小坐標化
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
sRect = Plugin.Window.GetWindowRect(Hwnd)
dim MyArray
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
"初始點xx,yy
ax=509
by=283
"time1=往右下/time2=往左下
time1=7
time2 = 6
Rem ALL
Delay 500
MoveTo ax, by
GetCursorPos x1, y1
Delay 500
LeftClick 1
Delay 500
Call start()
Delay 100
Goto ALL

Sub Q1()
    Delay 500
    LeftDown 1
    Delay 500
    MoveTo ax, by
    Delay 50
    GetCursorPos x1, y1
    Delay 500
    Call A1()
    Delay 50
    LeftUp 1
    Delay 500
End Sub
Sub A1()
    Call A2()
    For time1
        Delay 50
        MoveTo x1+17, y1+8
        Delay 50
        GetCursorPos x1, y1
        Delay 50
        Call A2()
    Next
End Sub
Sub A2()
    For time2
        Delay 50
        MoveR -17, 8
        Delay 50
    Next
    Call check()
End Sub
Sub A3()
    Delay 500
    KeyPress "Z", 1
    Delay 500
    Call Z4()
    Delay 500
    KeyPress "X", 1
    Delay 500
    Call Z4()
    Delay 500
    KeyPress "C", 1
    Delay 500
    Call Z4()
    Delay 500
End Sub
Sub start()
    Delay 500
    Rem S1
    FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)種小麥.bmp",0.8,intX,intY
    If intX> 0 And intY> 0 Then
        Delay 100
        MoveTo intX+5, intY+5
        Delay 100
        Call S1()
        Delay 100
    End If
    FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)收成.bmp",0.8,intX,intY
    If intX> 0 And intY> 0 Then
        Delay 100
        MoveTo intX+5, intY+5
        Delay 100
        Call S2()
        Delay 100
    End If
    Delay 1000
    LeftClick 1
    Goto S1
End Sub
Sub check()
    Delay 100
    FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)叉叉.bmp",0.8,intX,intY
    If intX> 0 And intY> 0 Then
        Delay 100
        LeftUp 1
        Delay 100
        MoveTo intX+5, intY+5
        Delay 500
        LeftClick 1
        Delay 500
        KeyPress "Z", 1
        Delay 500
        Call Z4()
        Delay 500
        KeyPress "X", 1
        Delay 500
        Call Z4()
        Delay 500
        KeyPress "C", 1
        Delay 500
        Call Z4()
        Delay 500
        Goto ALL
    End If

End Sub
Sub exchange()
    KeyDown "Alt", 1
    Delay 50
    KeyDown "Tab", 1
    Delay 50
    KeyUp "Tab", 1
    Delay 50
    KeyUp "Alt", 1
    Delay 100
End Sub
Sub Z4()
    Delay 1000
    FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)小麥確認.bmp",0.8,intX,intY
    If intX> 0 And intY> 0 Then
        Delay 100
        FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)沒問題.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then
            Delay 100
            MoveTo intX, intY
            Delay 100
            LeftClick 1
            Delay 100
                    Goto ALL
        End If
    else
        Delay 100
        FindPic L,T,R,B,"C:UsersUSERDesktop按鍵精靈圖新增資料夾 (2)現在不想賣.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then
            Delay 100
            MoveTo intX, intY
            Delay 100
            LeftClick 1
            Delay 100
        End If
    End If
End Sub
Sub S1()
    Delay 200
    Call Q1()
    Delay 200
    Call exchange()
    Delay 200
        Goto ALL
        Delay 200
End Sub
Sub S2()
    Delay 200
    Call Q1()
        Delay 200
            Call A3()
    Delay 200
    Goto ALL
    Delay 200
End Sub


複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$

0

主題

0

好友

0

積分

新手上路

Rank: 1

UID
255596
帖子
1
主題
0
精華
0
積分
0
楓幣
0
威望
0
存款
0
贊助金額
0
推廣
0
GP
0
閱讀權限
10
性別
在線時間
0 小時
註冊時間
2019-1-21
最後登入
2019-1-21
發表於 2019-1-21 13:25:03 來自手機 |顯示全部樓層
你可以教我怎麼用腳本嗎?我的Line是joanna010520,可以麻煩你嗎?
點評回覆

使用道具 舉報

1

主題

0

好友

0

積分

新手上路

Rank: 1

UID
257193
帖子
4
主題
1
精華
0
積分
0
楓幣
-2
威望
0
存款
0
贊助金額
0
推廣
0
GP
0
閱讀權限
10
性別
保密
在線時間
0 小時
註冊時間
2019-2-20
最後登入
2019-2-21
發表於 2019-2-21 10:32:38 |顯示全部樓層
[發帖際遇]: cp74cq7548 被錢袋砸中進醫院,看病花了 1 楓幣 幸運榜 / 衰神榜
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies

廣告刊登意見回饋關於我們職位招聘本站規範DMCA隱私權政策

Copyright © 2011-2024 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|手機版|冰楓論壇

GMT+8, 2024-3-29 00:21

回頂部