Question

高分！！求高手帮我讲这段按键精灵代码转换成后台的

前台的代码：
IfColor 1902,1015,"CFA56E",0 Then
Delay 3000
RunApp "E:\A.bat"
Delay 1000
MoveTo 89, 1030
Delay 200
LeftClick 1
Delay 200
Else
End If

屏幕分辨率是1920*1080，整个窗口是最大化的
脚本需要重复运行~~
我运行了，没有反应，还需要设置什么吗？麻烦了

Answer 1

如果你的窗口是置顶激活状态的，用下面的代码就可以后台循环执行，你可以放到脚本里试试：
//得到当前最前面的窗口句柄
Hwnd = Plugin.Window.Foreground()
//执行循环
i = 0
//这里可以无限循环，直到按下中止键
while i = 1
//获取指定点颜色
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 1902,1015)

//判断获取的颜色是否相符
IF GetColor = "CFA56E" Then
Delay 3000
RunApp "E:\A.bat"
Delay 1000
//后台移动鼠标到指定点并单击左键
Call Plugin.Bkgnd.LeftClick(Hwnd, 89, 1030)
Delay 200
Else
End If
Wend

追问

我运行了，没有反应，还需要设置什么吗？麻烦了
窗口没有全屏，只是最大化，还看得到任务栏
设置成重复到按结束键也不行，到底是什么地方出错了呢？
原来的脚本不用设置重复运行都自动重复运行的，好像是一直坚持1902,1015的颜色，它一改变就运行批处理文件。

追答

我给你加一些输出信息，你看弹出的提示内容就可以发现问题出在哪里（如果运行正常，你可以在所有MessageBox前面加//注释掉就可以了），代码调整如下：

//得到当前最前面的窗口句柄
Hwnd = Plugin.Window.Foreground()
//获取当前窗口的标题并输出
sText = Plugin.Window.GetText(Hwnd)
MessageBox "找到窗口的标题为：" & sText
//执行循环
i = 0
//这里可以无限循环，直到按下中止键
while i = 1
//获取指定点颜色
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 1902,1015)
MessageBox "找到指定点的颜色为：" & GetColor
//判断获取的颜色是否相符
IF GetColor = "CFA56E" Then
MessageBox "找到的颜色相符，准备运行E:\A.bat"
Delay 3000
RunApp "E:\A.bat"
Delay 1000
//后台移动鼠标到指定点并单击左键
Call Plugin.Bkgnd.LeftClick(Hwnd, 89, 1030)
Delay 200
Else
MessageBox "指定点的颜色不符！"
End If
Wend

Answer 2

首先要把你要执行操作的窗口成为当前窗口，我看你最后一个语句是延迟1秒，我想你可能是想重复运行吧？我给你修改了一下，变成了重复运行。如果不想重复 就删除了
REM START
GOTO START
这两句

刚才不在，你还有什么问题？就“补充问题”吧

//得到当前最前面的窗口句柄
Hwnd = Plugin.Window.Foreground()

Rem start

Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
Delay 1000

Call Plugin.Bkgnd.KeyPress(Hwnd, 113)
Delay 4000

Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 114)
Delay 4000

Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 115)
Delay 6000
Call Plugin.Bkgnd.KeyDown(Hwnd, 18)
Call Plugin.Bkgnd.KeyDown(Hwnd, 82)
Delay 7500
Call Plugin.Bkgnd.KeyUp(Hwnd, 18)
Call Plugin.Bkgnd.KeyUp(Hwnd, 82)

Call Plugin.Bkgnd.KeyDown(Hwnd, 18)
Call Plugin.Bkgnd.KeyDown(Hwnd, 82)
Call Plugin.Bkgnd.KeyUp(Hwnd, 18)
Call Plugin.Bkgnd.KeyUp(Hwnd, 82)
Delay 1000
Goto start
EndScript

Answer 3

2楼正解 需要用到后台找色插件

Answer 4

Hwnd = Plugin.Window.Foreground()
For 15000
Delay 1000
Call Plugin.Bkgnd.MoveTo(Hwnd, 702, 517)
Call Plugin.Bkgnd.RightClick(Hwnd, 50, 20)
Delay 100
Call Plugin.Bkgnd.MoveTo(Hwnd, 958, 509)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 500
Call Plugin.Bkgnd.MoveTo(Hwnd, 594, 228)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 300
Call Plugin.Bkgnd.MoveTo(Hwnd, 958, 509)
Delay 600
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 400
Call Plugin.Bkgnd.MoveTo(Hwnd, 884, 187)
Delay 400
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd, 391, 285)
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 300
Call Plugin.Bkgnd.MoveTo(Hwnd, 481, 300)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 300
Call Plugin.Bkgnd.MoveTo(Hwnd, 603, 537)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 4000
Call Plugin.Bkgnd.MoveTo(Hwnd, 437, 727)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 300
Call Plugin.Bkgnd.MoveTo(Hwnd, 604, 537)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 300
Call Plugin.Bkgnd.MoveTo(Hwnd, 594, 228)
Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 20)
Delay 4000
Next

这是按键精灵标准的后台代码。。我不保证他的可用性，但这是标准插件。。不能用只能说明按键精灵给的插件不行。。。

Answer 5

IfColor 1902,1015,"CFA56E",0 Then
当这个坐标的颜色为CFA56E不成立时,也就是这个点的颜色不是CFA56E的时候,运行下面的一个批处理文件,如果你这个坐标点颜色已经是CFA56E了,就不会运行.
还有你可以让你的按键精灵设置成 重复运行,直到按终止键,这样就可以一直运行.