按键精灵简单教程

关于按键精灵9.0对于批量工作速度的快速提升首先这是一个非常简单好用的工具。

新建输入文件名，写代码，点调试，按启动热键启动。

PS：关于录制，不是很好用，有兴趣也可以试试。

修改小数位：修改小数位，先想想自己手动操作是怎么做的，每一步要做什么。

1.双击位号。

2弹出位号窗口。

3点高级。

4如果小数位前的钩没打上，你要打上，已经打上了就不能再点击，所以要判断。

5双击整数位，输入数字比如3。

6双击小数位，输入数字比如2。

如上所述要点4个点。

但这里我要加一个点用于判断窗口有无弹出。

先打开抓抓，按电脑截屏键（PrtSc）。

在抓抓中点图像，可以按1~0，这里捉到的点和有关联，写到代码里后和代码里的是没有关联的。

鼠标移到需要点击的地方，右键点击选择加入到点”1”，点”2”.....在这条线上取它的位置和颜色值，加入1号点在按钮上取2号点在钩的位取3号点加入4号点加入5号点------------------------------------------------------割------------------------------------------------------------- 选择代码中先加入Delay 10 延时10毫秒将放大镜中的1号点中的值写入IfColor 中Do while 1IfColor 392,357, "A0A0A0", 0 Then//这里写内容Exit DoEnd IfLoop这里可以选择，就是IFCOLOR命令。

不过上面选了P３，下面也要记得选P3！上面的是为了判断双击后的窗口是否弹出，弹出后我们才好进行下面的操作（当然也可以用别的方法）（代码原理：用永循环去）------------------------------------------------------割-------------------------------------------------------------MoveTo 805, 528LeftClick 1//点高级所在的位置Delay 20//延时20毫秒（很重要）------------------------------------------------------割-------------------------------------------------------------同理将第三点写入IfColor 805, 528, "FFFFFF", 0 ThenIfColor 806, 530, "FFFFFF", 0 Then //如果805，528为白色，也就是没打勾MoveTo 806, 530LeftClick 1//打上勾Delay 20//延时20毫秒END IF------------------------------------------------------割-------------------------------------------------------------MoveTo 886，500//点整数位所在的位置LeftDoubleClick 1//双击，相当于是全选中KeyPress "3", 1//输入3同样第五点也用上面的方法加入MoveTo 976, 700 //鼠标移动到976, 700LeftDoubleClick 1 //左键双击，、KeyPress "2", 1 //按2KeyPress "Enter", 1 //按回车，确定以下是完整代码LeftDoubleClick 1 双击你鼠标所在的位置Do while 1 永循环IfColor 392, 357, "A0A0A0", 0 Then (判断窗口是否打开)x,y,”颜色”，0（等于）MoveTo 854, 427 鼠标移动，左键单击（点高级的位置）LeftClick 1Delay 20 延时（点高级后要延时，等延伸窗体出现）IfColor 806,530, "FFFFFF", 0 Then 判断小数位是否有打勾MoveTo 806, 530 如果806, 530 点的颜色不是"FFFFFF"LeftClick 1 点击806, 530End IfMoveTo 886, 500 鼠标移到866, 500（整数位）LeftDoubleClick 1 左键双击（相当于全选内容）KeyPress "3", 1 输入3Delay 20MoveTo 887, 527 鼠标移到887, 527（小数位）LeftDoubleClick 1KeyPress "2", 1Delay 10KeyPress "Enter", 1 按回车，确定Exit Do 跳出循环End ifLoop丰富的插件，大家可以用用。

利用按键精灵工作，他的工作方式就是控制你的鼠标与键盘，不需要你手动工作，或只需要你按下快捷键，就能按照你设计好的步骤，操作鼠标与键盘进行工作。

单击“新建”，进入编辑脚本页面例1；在那次出差，图纸已经用PIMS画好，但是位号在对方公司例如：II-12345-123;但是在PIMS上使用的必须是下划线II_12345_123。

在这种情况下，无论是照着手动输入，还是复制过来，把”-”改成”_”都将极大降低了工作效率，浪费工作时间。

所以，我用到了按键精灵。

代码如下，附解释：//手动选中要复制的位号，按下设置好的快捷键；KeyDown 17, 1 //按下Ctrl键KeyPress 67, 1 //单击键盘”C”KeyUp 17, 1 //松开Ctrl键txt = ""i=0Clipboard = Plugin.Sys.GetCLB() //获取剪贴板中的值，赋值到ClipboardL= len(Clipboard) //获取Clipboard 的长度For L //循环L次i = i + 1If Mid(Clipboard,i,1)="-" thentxt = txt + "_" //遇到”-”时替换”_”Elsetxt=txt+Mid(Clipboard,i,1) //其他的照常End IfNextCall Plugin.Sys.SetCLB(txt) //将修改好的txt设置回剪贴板根据代码与解释，我们很容易看懂这段代码，很简单，意思就是将”-”替换成”_”，只要选对地方粘贴就可以了。

同理，除了”-”我们还可以改”.”，”@”，”%”，”?”等。

例2；取引号里的位号，val=1，xx=”II_12345.Value”，alignment=center；比如这一串字符串在一个单元格中，用鼠标去选取，选中引号内，在拖满一个位号，在复制是不是很慢。

用到案件精灵，只需要选中这个单元格按下快捷键就可以了。

代码如下，附解释：//选中单元格内容，有鼠标选中，或者键盘选中，这里是键盘选中，有些计算机上可能无法成功选中。

KeyPress "End", 1 //单击键盘End键，至尾KeyDown 16, 1 //按下键盘Shift键KeyPress 36, 1 //单击键盘Home键，至首KeyUp 16, 1 //松开键盘Shift键KeyDown 17, 1KeyPress 67, 1KeyUp 17, 1 //复制Clipboard = Plugin.Sys.GetCLB() //获取剪贴板的内容到Clipboard MyLen = len(Clipboard) //Clipboard 的长度t = 0flag=Falsetxt = ""a=1For Mylent = t + 1If asc(Mid(Clipboard, t, 1)) = 34 Then //遇到引号a=1flag = not flagEnd IfIf flag = True and a=0 Then txt = txt + Mid(Clipboard, t, 1) //放入txt中a=0Next操作命令键盘输入按键KeyPress “A”,1 //按A键一次KeyPress “Enter”,1 //按Enter键一次KeyDown "Ctrl", 1 //按下Ctrl键KeyDown "Alt", 1 //按下Alt键KeyUp "Ctrl", 1 //弹起Ctrl键KeyUp "Alt", 1 //弹起Alt键输出字符串SayString “23456ab9”//输出字符串“23456ab9”一些快捷按键Ctrl+S：KeyDown 17, 1KeyPress 83, 1KeyUp 17, 1Ctrl+C：KeyDown 17, 1KeyPress 67, 1KeyUp 17, 1具体情况可以在键盘命令，按键组合，按键后点插入，都能达到目标。