求一个能让我按键精灵脚本后台运行的方法,是鼠标点击的脚本

2024-11-08 20:30:57
推荐回答(1个)
回答(1):

//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
StrPos = "113|226|442|607|232"
StrColor = "55d3fd|6daecc|91"
ArrayPos = Split(StrPos,"|")
ArrayColor = Split(StrColor,"|")
x=ArrayPos(0) :y=ArrayPos(1) : color=ArrayColor(0) :ys=200 :n=1
Gosub S
x=ArrayPos(2) :y=ArrayPos(4) :ys=300 :n=0.9 :i=1
For 10
For 2
If i mod 2=1
color=ArrayColor(1)
Else
color=ArrayColor(2)
EndIf
Gosub S
i = i+1
EndFor
y = y+38
If i=11
x=ArrayPos(3) :y=ArrayColor(4)
EndIf
EndFor
Sub S
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个鼠标移动到客户区域(坐标:x, y)处
Plugin Bkgnd.MoveTo(Hwnd, x, y)
Delay ys
//下面这句按(从左到右从上到下的顺序找色)模糊查找窗口句柄(变量:Hwnd)窗口的指定矩形区域内指定颜色
Plugin XY = Bkgnd.FindColorEx(Hwnd, x, y, x+1, y+1, color, 0, n)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
X1 = Clng(MyArray(0)): Y1 = Clng(MyArray(1))
If X1=x and Y1=y
//下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:x, y)处发送一个鼠标左键单击
Plugin Bkgnd.LeftClick(Hwnd, x, y)
EndIf
EndIf
Delay ys
Return

帮你精简了一下,后台就是麻烦一些,应该没问题了