For 100 MoveTo 875, 371 LeftClick 1 Delay 300 KeyDown 18, 1 KeyPress 111, 1 KeyUp 18, 1 Delay 300 MoveTo 879, 413 LeftClick 1 Delay 300 SayString "13900000000" MoveTo 875, 551 LeftClick 1 Delay 300 SayString "混凝土" Delay 300 KeyDown 18, 1 KeyPress 106, 1 K
作者|我是奔跑的键盘侠 来源|奔跑的键盘侠(ID:runningkeyboardhero) 转载请联系授权(微信ID:ctwott) 按键精灵最近更新的比较多,几乎都是我一直在用的,也有一点现学现卖的 其实学习按键精灵最最关键的,就是学以致用,投入到生产实践中,提高工作效率。这也是为什么很多人热衷于它的重要原因。 《按键精灵——办公常用脚本集锦》中列的几个计划大部分都完成了,还差一个《从txt中调用通讯录等配置信息》,其实也就是文本的读取配合数组的应用,就可以实现,大家完全可以自己动手来实现,这里就一略而过了。 然后,关于,接下来的计划,按键精灵这块可能要暂时停更了,或者说本公众号要休眠了 ? 因为还有更更多,很重要的事情等着我去做,不管是工作还是学习,还有备战马拉松 ? 这时候,上面的代码就可以派上用场了,设置一下潜在的干扰弹窗名称,代码循环中途卡住(比如找图命令3秒就能完成,结果5秒了还找不到),可以在延时超过5秒后调用一下关闭“搜狐新闻”,搞定!
如果还有不知道怎么操作的,可以参考我之前的帖子《按键精灵之模拟发送qq文本消息》里面有示例编码。 2 qq发图片 今天的干货部分,也是我苦思N年没解决的问题,我感觉这貌似超越了按键精灵自身的边界。 大概是去年初的时候,通过python我完成了这个简单的功能,不过呢,因为python2和python3版本变换,很多模块其实挺混乱的,一度让我困顿了好几个月。 按键精灵自有的模块可能真的实现不了 ? 当然如果能破译qq的协议应该是可以,但是分享出来可能会被腾讯追杀吧 ? 废话不多说,我也是看了网上大神分享的插件,试用过没异常,才敢分享出来。 http://bbs.anjian.com/showtopic-511582-1.aspx 按键精灵论坛 渣度网盘登陆才两次,莫名提示被锁定3小时,就不放网盘给大家下载了,大家直接去官网论坛看吧。 KeyPress 86, 1 KeyUp 17, 1 Delay 200 KeyPress "Enter", 1 End Function 直接封装成了函数,方便直接调用,共3个参数
初入按键精灵,无非写个简单的模拟键盘鼠标操作,要写个运行日志,记录敲了哪个键盘几下,鼠标左右键各多少下吗? 可以说是,但绝对不只是这么low ? 可是,如果是用按键精灵模拟操作了个把小时之后,你回来看看人物状态,虽然有卖掉很到一些钱,但是你打死了几个怪物,捡到什么物品、是否有高级物品,甚至挂机是否有出现异常。 最后,作为历史数据存档,直到某一天要做个统计啥的,翻一下日志,突然发现,原来按键精灵已经替我完成了几百万个工作 ? 3 日志代码 直接贴一个我一直在用的版本,虽然简单,但的确好用。 但是按键精灵学到一定阶段以后,其实也就慢慢习惯了,而且类似这种函数,都是一劳永逸的。毕竟,逻辑写好、封装成函数,coding不同的脚本时,复制粘贴一下就能直接用 ?
文本读写相关的内容在之前的帖子中有穿插讲到过一些,比如《按键精灵二三事系列第八篇——读取指定行文本内容》介绍读取txt文本内容的,再比如上篇的《按键精灵——脚本日志》就涉及了文本如何写入本地等等。 1 txt文本写入操作 按键精灵对文件的读写有一个专门设置了一个File 文件插件,先来简单看一眼: ?
lan/100*(257-94)+94,MY,"ffbe00",0 Then //前台 定义变量按键 UserVar Var1=DropList{"关闭":""|"1键":"1"|"2键":"2"|"3键 Var1=DropList{"关闭":""|"1键":49|"2键":50|"3键":51|"4键":52|"5键":53|"6键":54|"7键":55|"8键":56|"9键":57|"0键":48 + 1) //根据a,按顺序只输入到第8个位 KeyPress MID(A, MyValue, 1),1 Next //随机鼠标点击 UserVar XY=0 "输入方法: X1,Y1|X2,Y2|X3, Y3|……" sXY = Split(XY,"|") For i = 0 To UBound(sXY) MovX = Split(sXY(i), ",")(0) MovY = Split(sXY(i), = cint("&h" & mid(颜色A, 1, 2)) 红B = cint("&h" & mid(颜色B, 5, 2)) : 绿B = cint("&h" & mid(颜色B, 3,
这是奔跑的键盘侠的第169篇文章 作者|我是奔跑的键盘侠 来源|奔跑的键盘侠(ID:runningkeyboardhero) 转载请联系授权(微信ID:ctwott) 去年有写过一篇按键精灵关于excel 1 如何使用第三方插件 首先打开按键精灵,新建一个脚本,再主界面上方,有个按钮“资源库”,点进去,可以看到很多资源,大概浏览一下,就找到了懒人办公插件(底部的位置)。 ? Delay 1000 Call Plugin.lxj_Office.lxj_ExcelClose(index) TracePrint "演示结束" 上述代码调试演示: excel实际运行效果演示: 3
命令功能:定义一个函数 ; 3. 语法格式: Function 函数名([自定义参数1, 自定义参数2, ...]) 我是字符串信息" 变量2=123 Call 子程序(变量1,变量2,"第三个参数",456) EndScript // 定义一个过程,可以在脚本中调用这个过程 Function 自定义函数(参数1,参数2,参数3, TracePrint "我是自定义函数,被你调用了" TracePrint "参数1=" & 参数1 TracePrint "参数2=" & 参数2 TracePrint "参数3= " & 参数3 TracePrint "参数4=" & 参数4 End Function // 支持Exit Function 命令直接退出子程序过程 例子3:Function与Sub的区别,支持返回值
End If 其中path是要寻找的目标截图,要存入按键精灵的附件中。运行起来,通过If判断语句,检测是否找图成功,如果成功弹窗如下: ? 如果找图失败,弹窗如下: ? 这个命令也是非常好用的一个调试命令,跟MessageBox有一点不同,就是他不是弹窗提示,而是在按键精灵底部的调试信息中,直接输出。 上面的示例修改一下: ? 运行起来就没有弹窗了,而是这样: ? 3 单步和步过 ?
按键精灵里面,就没有什么难的语法,如果真的有,那一定是错觉 ? 关于数组,列表中总共有5个常用的函数,本来只想简单介绍一下语法和常用情景,结果写着写着发现3000字还是收不了尾 ? 比如要输出第一个元素10,就是: B = A(0) 注意:数组的下标是从0开始,上方的数组A总共有3个元素,如果要按顺序调用,分别是A(0),A(1),A(2) 接着,就是UBound函数和LBound 简单讲一下,刚才的A=Array(10,20,20),其实是一个包含3个元素的一维数组,平时用到一维的情形居多。 后面3行是输出文件夹里的所有文件名,其中有用到Ubound函数,可是却没有LBound函数。其实是可以装逼一下,可以把i=0改一下,写成下面这样 ? 3 UBound函数的坑 刚开始学按键的时候,UBound函数用的很懵懂,自然时不时意外一下。 先讲一下,为什么一定要用UBound函数。
可是按键精灵的Filter,调试了无数遍,很多Python的功能它并不适用。我知道它功能肯定是弱化了,已经失去了它该有的强大。不过也不排除潜在的隐藏功能没有被发掘,容我再好好思考一番,想到了再说吧
单行注释:// 这是一行注释,使用一对反斜杠进行注释; (3). 多行注释:/*这是多行注释,中间的内容可以进行换行*/,开头为反斜杠和星号,结尾为星号和反斜杠,两者结合来进行注释; 3. 延时命令:Delay 3000,单位为毫秒,表示延时3秒钟 6.
3、代码实现 Excel VBA作为一种编程语言,虽然不适合开发什么大型的软件系统,但是从理论讲,还是可以实现任何语言能实现的功能的,所以在VBA里也没什么是不可能的。 这种简单的按键精灵在VBA里很容易,甚至不用调用API,VBA已经帮我们封装好了功能,那就是SendKeys。
这是奔跑的键盘侠的第199篇文章 作者|我是奔跑的键盘侠 来源|奔跑的键盘侠(ID:runningkeyboardhero) 转载请联系授权 三年前,按键精灵板块停更了,读个研还是非常不易的,过程艰辛 从今天开始,按键精灵相关内容,将开始新一轮的耕耘 与以往不同的是,我们邀请到了chatgpt专家来写代码,毫无疑问,顺应潮流才能与时俱进 废话不多说,直接上题目和代码。 100个人手拉手围成一圈,逢三退一(1到3循环数数,被数到3的人退出),求最后一个被剩下人的编号.请写出代码) // 定义常量 const peopleNum = 100 // 人数 const countNum = 3 // 数到的数字 const exitNum = 1 // 退出的数字 // 初始化参与游戏的人员数组 dim people[peopleNum] for i = 0
上一期主要讲了定时器的循环逻辑,还有配置表的使用,还是来段代码供大家参详一下吧,干唠不给代码貌似是在耍流氓
而OCR的使用涉及到了一款神器:大漠插件,往期有介绍过如何使用大漠插件,留一下传送门链接《按键精灵二三事系列第九篇——图文识别+发邮件》 最后的获取到扫描区的文字之后,再进行字符串解析处理。 3 任务处理 任务处理反而是最简单的,当然需要你有明确的处理规则。 不怕if分支过多,select case还是蛮好用的。另外,上节内容我们把字典都搬出来了,你觉得还会有按键精灵搞不了的吗? KeyPress "Enter", 1 '模拟键盘回车键发送 Delay 200 KeyPress "Esc", 1 '关闭qq窗口 End Function 5 总结 关于按键精灵实现办公自由
2 代码赏析 思路一:基于时间戳生成随机数 按键精灵语言内置函数 GetTime() 可以返回当前时间的毫秒数,我们可以利用该函数生成随机数。 dim arr[10], rand arr[0] = 1 arr[1] = 3 arr[2] = 7 arr[3] = 11 arr[4] = 13 arr[5] = 17 arr[6] = 19 arr
lan/100*(257-94)+94,MY,"ffbe00",0 Then //前台 定义变量按键 UserVar Var1=DropList{"关闭":""|"1键":"1"|"2键":"2"|"3键 Var1=DropList{"关闭":""|"1键":49|"2键":50|"3键":51|"4键":52|"5键":53|"6键":54|"7键":55|"8键":56|"9键":57|"0键":48 + 1) //根据a,按顺序只输入到第8个位 KeyPress MID(A, MyValue, 1),1 Next //随机鼠标点击 UserVar XY=0 "输入方法: X1,Y1|X2,Y2|X3, Y3|……" sXY = Split(XY,"|") For i = 0 To UBound(sXY) MovX = Split(sXY(i), ",")(0) MovY = Split(sXY(i), = cint("&h" & mid(颜色A, 1, 2)) 红B = cint("&h" & mid(颜色B, 5, 2)) : 绿B = cint("&h" & mid(颜色B, 3,
3 coding Call liner_move(10,10,1000,800) Function liner_move(x1, y1, x2, y2) k = (y2 - y1) / (x2
按键精灵中的数据类型有:整型、浮点数、布尔类型、字符串、数组这几种类型,主要的转换方式有以下这几种方式: 1. CStr Dim MyInteger = 437 Dim MyString =CStr(MyInteger) TracePrint MyString = "437" // true 3.