LINE 熊大農場簡易腳本

"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

冰楓論壇