Question

按键精灵脚本问题，求高手解答

我想写这个脚本，但是一直试不出来，就是在屏幕的一定区域内所搜一种颜色，如果有，就一直按F3，如果没有就按F8。就这样一直循环。颜色和范围的坐标我可以自己调整，但是就是试不成功脚本，哪位高手能写一个让小弟看看哈

Answer 1

//下面这句是得到鼠标指向的窗口句柄
Plugin Hwnd = Window.MousePoint()
Rem star
//下面这句需要修改成你自已需要的参数"0,0,1024,768,"为中间找色的查找范围"0000FF"是所要查找的颜色
VBSCall FindCenterColor(0,0,1024,768,"0000FF",X,Y)
If x>=0 and y>=0
//这句是后台按F3 100毫秒后重新找色
Plugin Window.SendKeyPress(Hwnd, 114)
Delay 100
Goto star
Else
//这句是后台按F8 100毫秒后重新找色
Plugin Window.SendKeyPress(Hwnd, 118)
Delay 100
Goto star
EndIf
想写个后台找色、后台按键的因为有很多游戏不支持后台找色所以上面这个前台找色，后台输入按键可能更适合你使用，

Answer 2

我发个跳舞机的程序给你看看……我想编个和你这个类似的，套用下面那个写了3小时，还是用不了……话说我也不会遍，也找人问呢……

//↓这几行语句是为了让别人也可以使用，克服座标问题
Plugin hwnd=Window.MousePoint()
Plugin rect=Window.GetClientRect(hwnd)
//↓透过窗口大小判断是否为游戏窗口（游戏窗口大小：550x400）
If StrComp(Right(rect,7),"550|400")<>0
MsgBox "鼠标请先指向游戏画面！"
EndScript
EndIf
//↓这一行算出游戏窗口左上角的基准座标，同一行内可以用冒号(：)连接多个语句
r=Split(rect,"|"):x=r(0):y=r(1)
//从这里开始的颜色判断语句，均加上基准座标以换算
//↓[While true]的用法可以作为无限回圈
While true
//↓判断方向键是否全部完成，特徵点为最后一个方向键
IfColor x+124+300,y+269,3399ff,0
//方向键尚未完成，按方向键
//↓有四个方向键，故回圈四次，每个方向键的X座标等差
a=0
For 4
//这边都是用特徵点判断方向
IfColor x+124+a*100-12,y+269-23,3399ff,0
KeyPress 40,1
Else
IfColor x+124+a*100+13,y+269+24,3399ff,0
KeyPress 38,1
Else
IfColor x+124+a*100+24,y+269-12,3399ff,0
KeyPress 37,1
Else
IfColor x+124+a*100-23,y+269+13,3399ff,0
KeyPress 39,1
Else
EndIf
EndIf
EndIf
EndIf
a=a+1
EndFor
Else
//方向键已全部完成，准备按空格
IfColor x+353,y+173,99ff,1
KeyPress 32,1
EndIf
Delay 5
EndIf
EndWhile