Question

按键精灵后台找色点击 求教后台怎么写

FindColor 0,0,160,1100,"096AF3",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX - 50, intY
LeftClick 1
Delay 200
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 1
Delay 200
End If

Answer 1

首先我要说明后台是无法用组合键的，比如你这里的粘贴是有可能失败的。
do
Hwnd = Plugin.Window.MousePoint()
Loop Until Hwnd > 0
do
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1600, 1100, "096AF3")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X > 0 And Y > 0 Then
SetSimMode 2
Call Plugin.Bkgnd.LeftClick(Hwnd, X-50, Y)
Delay 200
KeyDown "Ctrl"
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 86)
Delay 100
KeyUP "Ctrl"
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
End If
Loop Until X > 0 And Y > 0