《一、多行代码合并一行》 1、用英文冒号 “:” 把换行符替换就行 ============【代码】=========== // 变量赋值 a = 1 : b = 2 : c = 3 // For循环 For i = 0 To 10 : TracePrint i : Next ============================== 2、If 语句可以不用 “:” 符号，也能变单行 ============【代码】=========== // 注：按键精灵的代码检测有点问题，如果项目代码复杂可能会报错，实际上这样的语法是正确的 // 不带否则语句 If True Then TracePrint "条件成立！" // 带有否则语句 If False Then TracePrint "

首先是找色，打开按键抓抓，打开软件，然后在按键抓抓那里截屏，把鼠标移动到字那里，记得要是黑色的地方 然后到找图，FindPic 0,0,500,500,"Attachment:\123.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intx+20, inty+20 LeftDoubleClick 1 End If 可视找图有时候那图是会变的，以至找不到那图，所以这时候我们需要找字 找字必记，在字的旁边留一个格子 //然后搞一个无限循环就可以了 Do FindPic 0,0,500,500,"Attachment:\123.bmp",0.9,intX,intY If intX > 0 And intY &g

申请人：@按键精灵小Q🐾 申请感言：管理组好，此前由于对按键精灵官方吧疏于管理被撤销职务，我们也认识到错误所在，但希望管理组可以再给我们一次机会，我们将安排更多时间对该吧进行管理及答疑，并积极完成吧主考核。 希望可以重新担任吧主！谢谢！

打卡签到打卡签到！

按键精灵出现“当前小精灵已超出最大可运行用户数” 怎么解决 各位大神帮忙解决一下谢谢

djs1 = 2 Event Form1.button1.Click If djs1 = 2 Then djs1 = BeginThread(倒计时1) End If djs1 = 1 End Event Sub 倒计时() D1 = Form1.djs.text TracePrint "启动第一个BOSS倒计时" D1 = D1 * 60 TracePrint D1 gD1 = D1 For D1 gD1 = gD1 - 1 Delay 1000 TracePrint gD1 Next MsgBox Form1.dt.Text & "刷新了" djs1 = 2 End Sub #干货#

do x_y = 圆形随机点(600, 400, 200) s = Split(x_y, ",") x0 = clng(s(0)) : y0 = clng(s(1)) Call Plugin.Plug365New.DrawLine(0, x0, y0, x0, y0, 10, "ff00ff") Delay 20 Loop Function 圆形随机点(圆心x坐标, 圆心y坐标, r) //r为圆形的半径 //思路是在圆的外接正方形内随机点,如果点在圆内就符合条件,进行点击操作 Do x_min = 圆心x坐标 - r : x_max = 圆心x坐标 + r y_min = 圆心y坐标 - r : y_max = 圆心y坐标 + r x = 随机数(x_min, x_max) : y = 随机数(y_min, y_max) If (x - 圆心x坐标) ^ 2 + (y - 圆心y坐标) ^ 2 &lt

亲爱的按键精灵官方吧的吧友们：大家好！ @按键精灵小Q🐾 为本吧吧主候选人得票最多者，共计1张真实票数，根据竞选规则，官方最终批准其成为本吧正式吧主。公示期三天。 吧主上任后，请严格遵守吧主协议 https://tieba.baidu.com/mo/q/newapply/rule?from=task，履行吧主义务，积极投身本吧的发展建设，也请广大吧友进行监督。如出现违规问题，请至贴吧反馈中心进行反馈或者投诉http://tieba.baidu.com/pmc/reportBazhu

虎年到了，愿大家左手拿着金元宝，右手扶着摇钱树；金钱满钱包，好运当头照；事业上枝头，美女身边绕；出六专车送，升职在今朝；新年快乐！平安健康！

返回值=网络时间() 到期时间 = "2015/3/1 20:30:00" If CDate(到期时间) < 返回值 Then MsgBox "脚本使用时间到期了" EndScript End If Function 网络时间() Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "get", "http://m.hao123.com/1234", False xmlHttp.send sdate = ucase(xmlhttp.getResponseHeader("Date")) Set xmlHttp = nothing 网络时间 = cdate(trim(mid(sdate, 5, instr(sdate, "GMT") - 6))) + 8 / 24 End Function ================= 除了上述方法，还可以使用时间戳来进行

卸载了cydia substrate 在重装也不行，好几台手机出这个毛病了

还有那个啥生态的，有平台可以卖作品。

下载好之后无法打开了，改怎么办啊！？

很早以前的代码，如果在新版本中有报错，大家自行调整 Private Declare Function GetKeyState Lib"user32"(ByVal nVirtKey As Long) As Integer Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer Hwnd = Plugin.Window.Foreground() For 100 If GetAsyncKeyState(17) =32768 and GetKeyState(49) < 0 Then // CTRL + 1 Call Plugin.Window.Top(Hwnd, 0) TracePrint "当前窗口置前" EndScript ElseIf GetAsyncKeyState(17) = 32768 and GetKeyState(50) < 0 Then // CTRL + 2 Call Plugin.Window.Top(Hw

这段源码作用是读取指定行文本!!希望对需要的朋友有点帮助!! Function delsc(文本路径, 指定行数) //功能: 读取指定行文本 //参数: 字符串型,需要读取的文本路径 //参数2: 整数型,需要读取的行数 //返回值: 读取到的文本错误行返回空值 Dim txt, txtarr, Delsc txt = Plugin.File.ReadFileEx(文本路径) txtarr = Split(txt, "|") Delsc = Plugin.File.DeleteFile(文本路径) Delay 100 For i = 0 To UBound(txtarr) - 3 If i <> 指定行数 - 1 Then Call Plugin.File.WriteFileEx(文本路径, txtarr(i)) End If Next Delay

分享一个可以循环登录账号的脚本，登录成功的记录下来，也可以设置成完成任务后执行记录操作，， 脚本重启后从登陆成功的下一个开始登陆 账号文件为c:\zh.txt， 内容：www=密码 账号=密码 不限制行数 额。在使用中发现内容要写成三列才能无限循环，不然会卡在第三个号上， zh.txt内容为 账号=密码=xx 账号2=密码=xx 求高手教导 下面是源码： Sub 读取账号 账号文本 = Plugin.File.ReadFileEx("c:\zh.txt")//分割账号文本内容 TracePrint 账号文本 文本分割 = sp

首先声明一点，大神可以完全忽视此帖！这是转自小白用户学习过程的一点心得，也是为了自己巩固基础，加深印象，同时呢，也希望能帮助一些新学按键的朋友。 Dim a, b, c, x a = "a1|123|a2|321|a3|213|a4|312" b = split(a, "|") TracePrint UBound(b) For Each c In b TracePrint c SayString c //打开记事本，可以直接把每次遍历所获取到的向记事本输入. Next For i = 1 To UBound(b) step 2 TracePrint b(i) Next x = b(1) + b(3) + b(5) + b(7) TracePrint x // 注意区分下边这两次调试输出的x的值

夜雨网络 dim r,g,b, rColor,亮度 rColor = GetPixelColor(300, 300,0) ColorToRGB(rColor,r,g,b) TracePrint r,g,b //根据公式计算 亮度 = (0.299*r)+(0.587*g)+(0.114*b) traceprint 亮度 //作用:以前用来过滑块，阴影部分和正常部分亮度差异比较大的，所以用这个方法还算好使

如果iOS按键精灵页面显示“无网络”或“网络已断开”，这是越狱后，按键精灵的网络权限没有打开导致的，在Cydia上搜索netcontrol或者ConditionalWiFi 插件并安装（不同手机系统安装不同版本），然后打开安装的应用，再设置下开关就可以解决。

《前言》 为了让不太编码习惯的开发者更好的协助配合，并形成良好的基础编码规范与风格，整理了工作中常见的不规范操作，最终形成此按键精灵编码规范与风格。 【必须】：用户必须采用 【推荐】：用户理应采用，但如有特殊情况，可以不采用 【可选】：用户可参考，自行决定是否采用

在写游戏脚本，或其他脚本的时候，经常会遇到这样的问题： 以游戏为例： 比如你要找一张图片，这张图片是否出现，在游戏里包含指定意义(这个和自己游戏有关，具体不提) 你也许会设想：在10秒内找这张图片，如果10秒后，这张图仍然没出现，那么就可能是发生了错误，必须要转到其他语句去执行特定操作 一般正规的思路是，如下 t1=now do if DateDiff("s",t1,now)>10 then goto 特定操作 loop 复制代码上面的代码，我相信很多人都在用，包括我 慢慢

在网络上有很多窗口透明的小软件，用按键精灵也能实现。 萌新一个，如果下面源码有可以改进的地方，请斧正。 需要自行将控件加上。 附上源码： //以下代码为将鼠标指向程序直接透明// GetCursorPos x,y Hwnd = Plugin.Window.MousePoint() GetColor = GetPixelColor(x, y) IfColor x,y,"5EAB25",0 Then Hwnd = Plugin.Window.Find(0, "按键精灵") End If Plugin.lxj_Plug.lxj_SetWindow Hwnd, 20 WaitKey Plugin.lxj_Plug.lxj_SetWindow Hwnd,-1 //以上代码为将鼠标指向程序直接透明// Event Form1.Load 计数 = 0

通过定义,获取点的颜色然后进行判断,即可通过判断继续自己需要的执行代码,新手分享,大佬勿笑! 下面是我昨晚弄的自动吃药回血代码! Do A = GetPixelColor(479, 751) B = GetPixelColor(486, 750) C = GetPixelColor(524, 750) If A = "C6C6C6" Then Delay 100 KeyPress "7", 1 Delay 100 KeyPress "8", 1 Delay 100 KeyPress "9", 1 Delay 100 ElseIf B ="DEDEDE" Then Delay 100 KeyPress "7", 1 Delay 100 KeyPress "8", 1 Delay 100 ElseIf C ="DEDEDE" Then Delay 100 KeyPress "7", 1

申请人：按键精灵小Q🐾 申请感言：我爱百度贴吧，我爱按键精灵。大家好我是小Q，请投我一票，我希望能引领大家一起开拓本贴吧的繁荣与活跃。大家一起来学习吧，谢谢大家！

按键精灵手机8.1系统划动异常没人反映？

【题目】 给定2个由英文小写字母组成的字符串s1 和s2 ， 请编写一个函数，当s1 重新组合后能跟s2 相匹配则返回True ，否则返回False 。 示例： 输入：'ovswmlhe', 'smwh' ，输出：True ，因为前者可以重组成lovesmwh 。 题目难度：中等 题目来源：CodeWars-Scramblies 题目交流：584781753（Ω群）

身不苦则福禄不厚， 心不苦则智慧不开。 人们只知道凤凰可以重生， 却忽略了它在烈火炼狱中 挣扎的环节！ 所有大彻大悟之人， 都曾无药可救过。 心不死则道不生， 人的末路就是神的开端！ ——预祝按键精灵论坛从新开放浴火重生！ ——预祝按键精灵论坛APP、小程序问世！ ——预祝按键精灵2022版问世！ ——预祝按键精灵X版(lua引擎）问世！ （按键精灵正规军集结完毕）

鼠标点击NPC后弹出的对话框内容不变，但是顺序是随机的，这样的按键精灵如何操作？

对比找图的优势：快捷，精确，无需作图。 原理介绍：区域多点找色，顾名思义，是通过多个点阵颜色匹配程度来识别。对比找图是把整块矩阵范围全部像素点进行匹配，点阵识别方式只需核对少数点阵特征信息即可。 例子讲解： //下面这句在屏幕区域范围内按方式0，查找多点颜色,返回左上角第一点颜色位置坐标 Dim str, arr, x, y str = Plugin.Color.FindMutiColorEx(0, 0, 1024, 768, "FFFFFF", "2|0|FFFFFF,-6|1|FFFFFF,-3|1|FFFFFF,-6|3|FFFFFF,-3|3|FFFFFF,0|3|FFFFFF,4|3|FFFFFF,-1|

申请人：按键精灵小Q🐾 申请感言：我爱百度贴吧，我爱按键精灵。大家好我是小Q，请投我一票，我希望能引领大家一起开拓本贴吧的繁荣与活跃。大家一起来学习吧，谢谢大家！

一些程序是支持参数启动的，例如画图软件后面跟图片路径的话，会以画图工具形式打开图片进行修改。更多的程序参数还请自行搜索。另外例子还提供了大量的系统自带程序，例如任务管理器，控制面板，应用管理等。 //一些系统自带参数的启动程序, 更多请程序参数请自行搜索 //用画图程序打开图片 RunApp "mspaint.exe C:\紫猫帅照.jpg" //以下代码例子是从网上搜索得到的 //打开任务管理器 RunApp "TASKMGR.EXE" //打开我的文档 RunApp "explorer.e

深入For循环经典案例：99乘法表 在我的长期教学中，发现很多初学者对于For循环的理解还是很好的，但如果For循环嵌套在一起就不能理解了，为了让大家能够更好的学习For循环，我这里举一个经典案例来让大家更加深入的掌握循环的使用方法 为了能让大家学习的更明白，我这里特意做了一课教学，放在B站中：99乘法视频教学 学习知识点： 1、For循环嵌套 2、变量连接符& 嵌套循环的规则：先循环外层循环一次，然后进入内层循环并完成内层全部循环

想做自己喜欢的音乐的，直接在网络上搜索 歌曲名字+简谱，然后按照下面的方法自己编写代码。 高低音的区分：看数字的那行，数字下面有"·",即为低音;上面有"·",即为高音。没有点就是标准。 音符的区分：数字为几，音符就是第几个。1,2,3,4,5,6,7个数字，分别对应哆，瑞，咪，发，嗦，啦，西。数字0，是休止符，表示停顿，在代码中加入延时(Delay)即可。 节拍的区分：数字下面没有下划线"_"，即为一拍,有一条下划线为两拍，

非官方，无意中发现的 1.把抓抓框不停往上拖，你会发现抓抓框变窄了 2.屏幕下方取色不正确的到解决 3.如果复制命令那一栏消失的话，把抓抓框拖下来放大就行了

随机数中有一个非常重要的特性： 它所产生的后面的那个数与前面的那个数毫无关系。 这个特性甚至可以理解为随机数的全部。 但如果想做到真的与之前那个数毫无关系，依靠机器来做是有难度的，这个时候就有必要引出伪随机的概念。 伪随机简单地说就是通过特定算法实现一组随机数，并且这个算法可以通过多种手段来实现，但更多依靠的，只是简单的加法。 例如下面的代码，使用伪随机对一串字符进行不可逆的加密 for i = 0 to ubound(数据数组)-1

For 10 TracePrint "我循环了" Next //这个就是循环了10次, 次数=10 For 次数 TracePrint "打怪" Next //这个是变量做次数. For i = 446 To 146 step -1 TracePrint i MoveTo i,186 Delay 50 Nex //这是一个步长为负数的循环.运行一下,你会发现他是从右往左移动 For i = 0 To 9 For j = 0 To 9 TracePrint "当前i的值是" & i & "当前j的值是" & j Next Next 大家在看For的时候先看看这个For里面有几个循环,那上面的做例子,我们看见了2个for循环上面的j在 i循环里面,那我们

有官方指定示例运行不了？是什么导致，有人指导下吗？

我把代码简写。能看的懂意思就好，不是完整的代码。句柄都是绑定激活成功的还是是字库的查找方式，所有方法我都试过了，结果都是如下。 我要实现的是第四种方法。 想要让第四种方法成功 这是一写法 这种写法是好用的Call 活跃 Function 活跃 pos = dm.FindStrE(585, 236, 712, 261, "(", "00ff00-000000", 0.9) pos = split(pos, "|") If int(pos(0)) >= 0 Then TracePrint "找到括号字体" End If End Function 这是二写法 这种写法是好用的 Call 活跃1 Sub 活跃1 C

不知道大家有没有这样的情况，比如安卓QQ，在聊天栏中如果用swipe下滑，即Swipe x,y，不能准确下滑一条聊天记录。试过使用较长时间延迟解决滑动特效造成不准确的问题，但效果不是很好。 最后改成这样 TouchDown (x1,y1,0 TouchMove (x2,y2+1,0) //所添加语 Delay 10 TouchMove (x2,y2,0 Delay 20 TouchUp (0) 效果不错，时间也提升了不少。大佬们还有其他方式么，求指导~~

//建议time1=200,time2=800,如果不精准时直接增加time2的值即可 Sub huadongzhun(x1,y1,x2,y2,time1,time2 Dim xx1,yy1,xx2,yy2,timeone,timetwo xx1=x1 xx2=x2 yy1=y1 yy2=y2 timeone=time1 timetwo=time2 TouchDown xx1,yy1 Delay timeone TouchMove xx2,yy2 Delay timetwo TouchUp End Sub

认真修改了下之前的代码多了3行就是不一样从7秒提速到0.375秒~ cy=10 '图片高度 Dim ay, bx, by, sTime, qw, op dw=Plugin.Sys.GetScRX dh=Plugin.Sys.GetScRY ax=0:ay = 0:sTime = Timer:bbs = 0 Do FindPic ax, ay, dw, dh, "Attachment:\我.bmp", 1, intX2, intY2 If intX2 > 0 and intY2 > 0 Then bbs=bbs+1:Ux=intX2+1:ay = inty2 + 1 qw=qw&intX2&","&intY2&vbcrlf Else Exit Do End If intX1=1 Do Until intX1 < 0 FindPic Ux, ay-1, dw, ay-1+cy, "Attachment:\我.bmp", 1, intX1, intY1 If intX1 > 0 and intY1 > 0 Then bbs=bbs+1:U

定制脚本如何解决……

固定循环： [For] 格式： For 循环次数 或 For 变量 = 起始数值 To 终止数值 或 For 变量 = 起始数值 To 终止数值 Step 步长数值 或 For Each 变量 In 数组 for 2 … next (循环两边) 条件成立跳出固定循环: For 2 if…then Exit For end if next (条件成立跳出循环，条件不成立执行2次循环) 条件成立固定循环，条件不成立跳出固定循环 For 2 if…then … else Exit For end if next (条件成立时固定循环2遍，条件不成立跳出固定循环) 无限循环： Do … loop 条件成立跳出无限循环： Do if…then