Advertisement
teacherTU

按鍵精靈 - 涂老師

Oct 21st, 2020
3,404
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Hwnd = Plugin.Window.Find(0, "雷電模擬器-1")
  2. Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 113, 154)
  3. Msgbox "E6EBE6=" & Color
  4. If Color = "E6EBE6="
  5.     Call Plugin.Bkgnd.MoveTo(Hwnd, 460, 51)
  6.     Delay 400
  7.     Call Plugin.Bkgnd.LeftClick(Hwnd, 460, 51)
  8.     Delay 400
  9.     Call Plugin.Bkgnd.MoveTo(Hwnd, 315, 35)
  10.     Delay 400
  11.     Call Plugin.Bkgnd.LeftClick(Hwnd, 315, 35)
  12.     Delay 400
  13.     Call Plugin.Bkgnd.MoveTo(Hwnd, 404, 121)
  14.     Delay 400
  15.     Call Plugin.Bkgnd.LeftClick(Hwnd, 404, 121)
  16.     Delay 400
  17.     Call Plugin.Bkgnd.MoveTo(Hwnd, 530, 20)
  18.     Delay 400
  19.     Call Plugin.Bkgnd.LeftClick(Hwnd, 530, 20)
  20.     Delay 390000
  21. Else
  22.     Call Plugin.Bkgnd.MoveTo(Hwnd, 401, 250)
  23.     Delay 500
  24.     Call Plugin.Bkgnd.LeftClick(Hwnd, 401, 250)
  25.     Delay 500
  26.     Call Plugin.Bkgnd.MoveTo(Hwnd, 255, 195)
  27.     Delay 500
  28.     Call Plugin.Bkgnd.LeftClick(Hwnd, 255, 195)
  29.     Delay 5000
  30. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement