自动精灵点击无效
点不到或者点了没反应的情况和方法无关，是按键精灵的后台点击本身的问题。解决方法：
1、把后台鼠标点击操作改为后台鼠标按下+弹起；
2、从后台鼠标操作改为后台键盘操作，Tab到按钮上然后回车；
3、鼠标点击没反应之后补一个回车，不过这个在偶尔点击生效的情况下会有奇怪的副作用。以及，可以考虑用大漠插件，据说后台比原软件的强一点，我没有用过就不评价了。
按键精灵后台鼠标单击
//屏幕
dim ScreenW,ScreenH,Dev
//窗口
dim ckx,cky,ckw,ckh,ck
//鼠标坐标
dim sbpmx,sbpmy,sbckx,sbcky
//鼠标位置颜色,形状
dim GetColor,Shape1
//输出位置及行高
dim scx,scy,sch
//放大区域颜色
dim cc(5,5),ccc,i,j,lsx,lsy
///////////////////////////
UserVar zbx=900输出X坐标
UserVar zby=400输出Y坐标
///////////////////////////
sch=16
Gosub读屏幕
VBS scy=zby
Plugin Msg.ShowScrTXT(zbx,scy,ScreenW,ScreenH,"┏━━━━━━【窗口信息】━━━━━━┓","0000FF")
VBS scy=scy+sch
For 11
Plugin Msg.ShowScrTXT(zbx,scy,ScreenW,ScreenH,"┃������������������┃","0000FF")
VBS scy=scy+sch
EndFor
Plugin Msg.ShowScrTXT(zbx,scy,ScreenW,ScreenH,"┗━━━━━━━━━━━━━━━━━━┛","0000FF")
Plugin Msg.ShowScrTXT(zbx+130,scy-sch,ScreenW,ScreenH,"乌白菜出品 2009.9.23","000000")
Rem开始
Plugin ck= Window.MousePoint()
Gosub读窗口
Gosub读鼠标
Gosub读颜色
//写屏幕
VBS scy=zby+sch
Plugin Msg.ShowScrTXT(zbx+24,scy,ScreenW,ScreenH,"屏幕屏幕分辨率:"&ScreenW&"×"&ScreenH&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24,scy,ScreenW,ScreenH,"屏幕色深度(颜色质量):"&Dev&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24,scy,ScreenW,ScreenH,"窗口位置:"&ckx&","&cky&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24, scy,ScreenW,ScreenH,"窗口大小:"&ckw&"×"&ckh&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24, scy,ScreenW,ScreenH,"窗口句柄:"&ck&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24,scy,ScreenW,ScreenH,"鼠标屏幕坐标:"&sbpmx&","&sbpmy&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24, scy,ScreenW,ScreenH,"鼠标窗口坐标:"&sbckx&","&sbcky&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24, scy,ScreenW,ScreenH,"鼠标形状特征码:"&Shape1&"","FF0000")
VBS scy=scy+sch
Plugin Msg.ShowScrTXT(zbx+24, scy,ScreenW,ScreenH,"鼠标处颜色:","FF0000")
Plugin Msg.ShowScrTXT(zbx+24+90, scy,ScreenW,ScreenH,"█", GetColor)
Plugin Msg.ShowScrTXT(zbx+24+90+22, scy,ScreenW,ScreenH, GetColor&"","FF0000")
VBS scx=zbx+200
VBS scy=zby+sch*3
Gosub画颜色
Goto开始
Sub读屏幕
//下面这句是获得屏幕分辨率宽度
Plugin ScreenW= Sys.GetScRX()
//下面这句是获得屏幕分辨率高度
Plugin ScreenH= Sys.GetScRY()
//下面这句是获得屏幕色深度(颜色质量)
Plugin Dev= Sys.GetScDep()
Return读屏幕
Sub读窗口
Plugin rect=Window.GetWindowRect(ck)
MyArray=Split(rect,"|",-1,1)
VBS ckx=Clng(MyArray(0))
VBS cky=Clng(MyArray(1))
VBS ckw=Clng(MyArray(2))-Clng(MyArray(0))
VBS ckh=Clng(MyArray(3))-Clng(MyArray(1))
Return读窗口
Sub读鼠标
VBSCall GetCursorPos(sbpmx,sbpmy)
//把当前鼠标位置的x和y坐标放在变量sbpmx和sbpmy中
VBS sbckx= sbpmx- ckx
VBS sbcky= sbpmy- cky
VBSCall Shape1=GetCursorShape(0)
Return读鼠标
Sub读颜色
VBSCall GetColor=GetPixelColor(sbpmx,sbpmy)
//ScreenW ScreenH
VBS lsx=sbpmx-2
VBS i=1
For 5
VBS j=1
VBS lsy=sbpmy-2
For 5
If lsx>=0 and lsx<ScreenW and lsy>=0 and lsy<ScreenH
VBSCall ccc=GetPixelColor(lsx,lsy)
VBS cc(i,j)=ccc
Else
VBS cc(i,j)=ffffff
EndIf
VBS j=j+1
VBS lsy=lsy+1
EndFor
VBS i=i+1
VBS lsx=lsx+1
EndFor
Return读颜色
Sub画颜色
//scx,scy
VBS lsx=scx
VBS i=1
For 5
VBS j=1
VBS lsy=scy
For 5
If i=3 and j=3
Plugin Msg.ShowScrTXT(lsx, lsy,ScreenW,ScreenH,"■", cc(i,j))
Else
Plugin Msg.ShowScrTXT(lsx, lsy,ScreenW,ScreenH,"█", cc(i,j))
EndIf
VBS j=j+1
VBS lsy=lsy+15
EndFor
VBS i=i+1
VBS lsx=lsx+16
EndFor
Return画颜色
这个脚本复制到按键精灵运行
鼠标点击如何做按键精灵脚本
1、首先在桌面找到并且双击打开按键精灵，显示出按键精灵主页，打开一个新的脚本制作表，如图找到点击打开新建图标。
2、点击打开了新建按钮，出现到可以写命令的平台，很多命令表和命令库等指示。
3、找到鼠标命令如图。选择提示框的鼠标左击后，再点击插入按钮，就会出现在命令表 LeftClick 1（命令是鼠标左击 1次）。
4、然后就要加点时间来控制它的点击速度，这样可以自己来定。如图要记住启动命令的热键默认是启动热键是F10，停止键默认是F12。设置好选择好就是无限循环。
5、最后就是如图找到按键精灵上面的调试按钮，点击后就可以再按F10启动，每一秒鼠标左击一次的命令。