Question

按键精灵9 求个后台脚本！

这是我的前台脚本,求帮我做成后台的.

'==========以下是按键精灵录制的内容==========

a=0
For 5000
KeyDown "F3", 1
Delay 1500
KeyUp "F3", 1
Delay 100
Rem Y
FindColorEx 873, 525 ,886,537,"E8E8E0",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 10000
FindColorEx 873, 312, 878, 316, "A0E8E8", 0, 0.8, BNX, BNY
FindColorEx 840, 296, 848, 301, "6098F8", 0, 0.8, LX, LY
If (BNX > 0 and BNY > 0) or (LX > 0 and LY > 0) Then
KeyPress "Right", 1
Delay 1000
KeyPress "Down", 1
Delay 1000
KeyPress "A", 1
Delay 1000
a=a+1
Delay 15000
Goto Y
Else
KeyPress "Right", 1
Delay 1000
KeyPress "A", 1
Delay 1000
KeyPress "Right", 1
Delay 1000
KeyPress "Right", 1
Delay 1000
KeyPress "A", 1
Delay 1000
Delay 15000
Goto Y
End if
End If
If a >= 10000 Then
KeyDown "Up", 1
Delay 10000
KeyUp "Up", 1
Delay 500
KeyDown "A", 1
Delay 20000
KeyUp "A", 1
Delay 2000
KeyDown "Down", 1
Delay 10000
KeyUp "Down", 1
Delay 100
a=0
End If
Next

Answer 1

Hwnd = Plugin.Window.MousePoint()
a = 0
For 5000
Call Plugin.Window.SendKeyDown(Hwnd, 114)
Delay 1500
Call Plugin.Window.SendKeyUp(Hwnd, 114)
Delay 100
Rem Y
XY1 = Plugin.Bkgnd.FindColorEx(Hwnd, 873, 525 ,886,537,"E8E8E0",0,0.8)
ZB1 = InStr(XY1, "|")
X1 = Clng(Left(XY1, ZB1 - 1)): Y1 = Clng(Right(XY1, Len(XY1) - ZB1))
//FindColorEx 873, 525 ,886,537,"E8E8E0",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 10000
//FindColorEx 873, 312, 878, 316, "A0E8E8", 0, 0.8, BNX, BNY
//FindColorEx 840, 296, 848, 301, "6098F8", 0, 0.8, LX, LY
XY2 = Plugin.Bkgnd.FindColorEx(Hwnd, 873, 312, 878, 316, "A0E8E8", 0, 0.8)
ZB2 = InStr(XY2, "|")
X2 = Clng(Left(XY2, ZB2 - 1)): Y2 = Clng(Right(XY2, Len(XY2) - ZB2))
XY3 = Plugin.Bkgnd.FindColorEx(Hwnd,840, 296, 848, 301, "6098F8", 0, 0.8)
ZB4 = InStr(XY3, "|")
X3 = Clng(Left(XY3, ZB3 - 1)): Y3 = Clng(Right(XY3, Len(XY3) - ZB3))
If (X2 > 0 and Y2 > 0) or (X3 > 0 and Y3 > 0) Then
Call Plugin.Window.SendKeyPress(Hwnd, 39)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 40)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 65)
Delay 1000
a=a+1
Delay 15000
Goto Y
Else
Call Plugin.Window.SendKeyPress(Hwnd, 39)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 65)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 39)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 39)
Delay 1000
Call Plugin.Window.SendKeyPress(Hwnd, 65)
Delay 1000
Delay 15000
Goto Y
End if
End If
If a >= 10000 Then
Call Plugin.Window.SendKeyDown(Hwnd, 38)
Delay 10000
Call Plugin.Window.SendKeyUp(Hwnd, 38)
Delay 500
Call Plugin.Window.SendKeyDown(Hwnd, 65)
Delay 20000
Call Plugin.Window.SendKeyUp(Hwnd, 65)
Delay 2000
Call Plugin.Window.SendKeyDown(Hwnd, 40)
Delay 10000
Call Plugin.Window.SendKeyUp(Hwnd, 40)
Delay 100
a=0
End If
Next

Answer 2

百度搜 简单百宝箱 有你想要的、绝对好。答案选我吧。3Q

Answer 3

。。。看着眼睛就花了

追问

求帮忙额...

Answer 4

好吧
我承认我眼花了。。。