《按键精灵1--6级答案》由会员分享，可在线阅读，更多相关《按键精灵1--6级答案（67页珍藏版）》请在人人文库网上搜索。
1、以下哪一个不是按键精灵的产品? 按键箱子录制的脚本没有以下哪个功能? 记录鼠标特征码下列哪一个命令不属于全部命令? 内核命令按键精灵自带的抓图工具是? 按键抓抓哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.按键精灵不可以在以下哪个系统中使用? Linux可以使用神盾功能的程序是?
小精灵商业版旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用自动缩进功能WaitClick命令的含义是? 按任意鼠标键继续哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Pl
2、ugin目录下装有不是官方提供的插件引起的关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本GetLastClick命令的含义是? 检测上次按过的鼠标键按键精灵生成的小精灵程序的后缀名是? EXE按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享受版主资源网页按键精灵是下列哪一个程序?
wqm.exe按键精灵的产品包括以下哪一个? 按键盒子按键精灵是下列哪一个程序? 按键精灵9.exe按键精灵会员卡注册码,没有以下哪一种? 天卡(1天)UnlockMouse命令的含义是? 解除锁定鼠标位置按键精灵会员不能享受的资源是? 免费小精灵的源代码RightUp命
3、令的含义是? 右键弹起按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器按键精灵能兼容下列哪一种语言? VBS不能用抓抓工具直接获取的是? PID关于按键精灵的描述，以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作的软件脚本编辑界面上没有的按钮是?启动与取色判断命令没有直接关系的参数是? 按键码以下哪种方式可以在脚本编辑界面中获取到新的插件?
点击资源库按钮,然后导入需要的插件LeftClick命令的含义是? 左键单击按键精灵官方网站的网址是? RestoreMousePos命令的含义是? 恢复上次保存的鼠标位置如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾SaveMouse
4、Pos命令的含义是? 保存当前鼠标所在位置GetCursorPos命令的含义是? 得到鼠标位置坐标键盘命令的类型不包括? 锁定按键精灵里运算符乘号是? *KeyPress命令的含义是? 按键MiddleClick命令的含义是? 中键单击LockMouse命令的含义是? 锁定鼠标位置按键精灵会员不能享受的功能是?
脚本编写服务GetCursorShape命令的含义是? 得到鼠标形状按键精灵自带的用户界面叫做什么? QUI界面RightClick命令的含义是? 右键单击按键精灵里运算符减号是? -按键精灵默认的启动热键是? F10属于全部命令的是? 我的命令库“录制”功能不能录制的内容是? 记录鼠
5、标指向的窗口句柄按键抓抓是下列哪一个程序? picker.exe想要知道脚本是否存在错误,应该使用下列哪个功能? 调试以下哪种方式不可以获得论坛银币? 发布大量无内容的主题贴按键精灵里运算符除号是? /按键精灵会员不能享受的技术支持是? 技术人员上门服务按键精灵自带的功能不包括以下哪一个?
路由功能GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0变量的定义，以下哪个是正确的? dim a下列哪一种方法不能够正确输入命令? 鼠标右键单击命令按键精灵的功能是？模拟鼠标键盘操作的工具MoveR命令的含义是? 相对移动关于小精灵去广告的描述，下列正确的是? 会员用户在“制作
6、按键小精灵”界面上-更多设置-选择会员去广告（是）即可按键精灵里运算符加号是? +对小精灵的描述，以下是正确的? 按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。LeftDown命令的含义是? 左键按下键鼠的模拟方式不包括以下哪一个? 虚拟模拟3、区域找图的命令是?
FindPic4、按键精灵语言大小写的描述哪一个是正确的? 按键精灵不区分大小写7、KeyPress命令有几个参数? 213、不能实现键盘按下A键的命令是? KeyPressW A,115、下列哪一个不是循环命令? Select Case颜色值为000000是什么颜色? 黑色以下哪一个不属
7、于按键精灵的全部命令? 远程嗅探命令20、下列RGB颜色值，书写正确的是? DD23、GetPixelColor命令有几个参数? 225、以下哪一段命令能正确执行如果(70,416)的颜色等于FFFFFF则鼠标移动到点(100,200)?IfColor 70, 416, FFFFFF, 0 Then:MoveTo 100,200:End
If26、以下哪一个写法不能点击shift键? KeyPress 60, 128、下列哪一个不是逻辑运算符? Const33、FindColorEx命令有几个参数? 936、下列哪一段代码不能输出L键? Keyup L, 144、SetSimMode 1 的实
8、际意义是? 使用硬件模拟1、鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：D50,1002、F10的按键码是? B. 1213、下列哪一个不是键盘命令?A KeyClick4、循环可以使用下列哪个语句? B. For语句5、回车键的按键码是? A. 136、默认情况下某些特定窗口模拟按键可能失效,以下哪种方法可能可以解决?
D. 在脚本开头增加代码:SetSimMode 27、如何退出For循环的命令? D. Exit For8、得到一个按键的按键码,以下哪一个方法是完全正确的? 在按键精灵编辑界面的基本命令的键盘命令部分查询9、鼠标右键按下的命令是?
9、RightDown10、以下哪一个命令不会暂停脚本? for.next11、下列哪一个是键盘命令? KeyPress12、鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为：100,15013、鼠标左键按下的命令是? LeftDown14、解除鼠标锁定是下列哪一个命令?
UnlockMouse15、组合键CTRL+C的正确按键顺序是? 按下CTRL,点击C,弹起CTRL16、下列属于鼠标命令的是? RightClick17、以下哪一种方式不能无限循环? 在脚本开头加入For 10000,脚本尾部加入Next18、WaitKey命令有几个参数? 019、如何退出D
10、o循环的命令? Exit Do20、下列哪一个是鼠标命令? LeftClick21、下列RGB颜色值，书写错误的是? FFFFFFFF22、以下哪一个KeyPress命令的路? 检测血条上某一点,如果此点不是血条的颜色则执行加血操作23、FindColor命令有几个参数? 724、哪一种不能正确调用KeyPress命令? KeyPress
FA,125、延时的命令是? Delay26、取指定点颜色的命令是? GetPixelColor27、延迟2小时,以下哪一句代码是正确的? Delay 1000*60*60*228、以下哪一个是自动打怪的思路? 检测怪物血条上某一点,如果此点是血条的颜色则执
11、行打怪操作29、EndScript命令的意义是? 脚本停止运行30、以下哪一个是循环命令? for.next31、SetSimMode命令有几个参数? 132、鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为? 100,10033、区域找色的命令是? FindColor34、FindPic命令有几个参数?
835、按键精灵找图命令需要的图片格式是下列哪一个? *.BMP36、脚本停止运行命令是哪一个? EndScript37、延迟1天,以下哪一句代码是正确的? Delay 1000*60*60*24*138、下列哪一个命令会暂停脚本? WaitCl
12、ick39、不能正确调用KeyPress命令的写法是? KeyPress FB,140、鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为? 100,10041、代码KeyPress A，1 调试后提示出错,错误的原因是? 逗号使用了全角符号无法识别导致错误42、锁定鼠标位置是下列哪一个命令?
LockMouse43、下面哪一个命令会暂停脚本? MsgBox44、鼠标左键单击的命令是? LeftClick45、鼠标左键双击的命令是? LeftDoubleClick46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号? &47、以下哪一个命令能够延时
13、1个小时? delay 1000*60*6048、按键码105是下列哪一个按键? NUM 949、指定句柄进行截图，以下哪种情况不会导致截到的图是黑色？窗口标题动态变化50、空格键的按键码是? 324、以下哪一个函数返回值的数据类型与其他三个的不一样? Filter A. Instr B. Ubound C. Clng D.
Filter5、以下哪一个函数返回值的数据类型与其他三个不一样? A. Array 错 B. Filter 错 C. Split D. Replace18、以下哪一个返回值是字符串?C A. clng(520) B. 10-1 C. anjian&vrbrothers D
14、. len(anjian)Msgbox anjian&1 将会弹出什么内容? anjian1以下哪一个命令可以将表达式转化为字符串：Cstr10、假如“神盾”图像存在，以下无法识别到图像的命令是？FindPic 0, 0, 1024, 768, 神盾.jpg, 0.9, intX,
intY11、IsNumeric(n)，当n等于VrBrothers时返回什么？False12、Redim 命令的作用对象是? 数组1、关于 GetLastKey 命令的描述哪一个是错误的? D. 返回值是字符串2. 以下不属于按键命令的是？ OnThreadLoad3. 假如MyDate = October 19
15、, 1962: YourDate = #10/19/62#: NoDate = Hello，返回值为False的是？ D. IsDate(NoDate)4. 字符串Vrbrothers的长度为? 105. GetOSType()返回值描述正确的是？返回当前系统类型6. Text = Plugin.File.ReadINI(小节名, 键值,
文件路径)，读取文件格式为？A. *.ini7. 常数 VbOk 的值为? 18. 以下语句无法返回时间信息的是？B. MyTime=Now(Time)9. 下列哪一个函数可以取数组最大可用下标? Ubound10. 以下对函数的描述哪一个是错误的? 函数一
16、定有返回值11. 以下命令哪个可以终止所有线程运行并停止脚本。ExitScript12. ExitOS命令中，以下描述错误的是？可执行待机13. 关于自定义变量的描述以下哪一个是错误的? 可以是数字或者字符串 错 数组？14. 以下哪一个函数的功能是指明表达式的值是否为数字?IsNumeric 15、Set 语句的含义是?
将对象引用赋给变量或属性16.选出下列命令参数格式错误的选项。PutAttachment , *.*？17.后台取色命令需要的参数为? 句柄和坐标18. 以下命令可以获取当前窗口所在屏幕位置精确坐标的是？Text = Plugin.Window.GetWindowRect(
17、Hwnd)19. 选出以下命令参数错误的。 Import Window20.MsgBox命令最多可以使用几个参数? 5个21. GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？ 022. 以下选项中不符合调用规则的是？Asc(F1)23.
以下关于按键抓抓描述错误的是？支持后台找色找图效果测试24.Media.Play命令不支持哪个文件格式。Mp425.数组MyArray(5)的最大可用下标为?Ubound 5 26.数组MyArray(5)包含的元素个数为?627.字符串&H22用Clng命令转换后除以2再用Cstr命令转换,最后结果为? 1729.由RGB分量分别
18、为(50,50,50)的颜色值得到的16进制颜色值为? 32323230.当str = (1+2*3-1)/2，Eval(str)返回值为？331.RGB值分解为红绿蓝分量,分量值的范围是? 0-25532.Call Plugin.Window.Close(参数)命令需要以下哪种参数？窗口句柄33.True的值是? -134.以下哪一个是类型转换函数?
clng35.使用WQM的脚本代码第一步应该做什么? 绑定WQM36.以下对子程序和函数的描述哪一个是正确的? 函数可以代替子程序37.以下命令无法正常获取句柄的是？Active 38.myarray=Array(1,2,3,4,5),那么my
19、array(4)的值为? 539.如果有多个重复标题的窗口,以下哪个命令能够直接获取到所有对应窗口的句柄?HwndEx = Plugin.Window.Search(记事本)HwndEx = Plugin.Window.SearchEx(0,记事本,0)40.DateDiff命令有几个必选参数？且返回值类型是？3个
41.FindMutiColorEx命令有几个参数？842.myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?443.Xor 运算符描述正确的是? ：用于对两个表达式进行逻辑异或运算。44.GetLastKey：检测上次按键，返回数字，键码
20、45.Const 语句 ：定义常量46. 以下哪一个命令不能用于调试内容输出?：beep47.关于事件描述错误的是：事件子程序的参数可以是任意多个48.以下哪个命令需要绑定WQM使用：Call
Plugin.Web.ScrollTo(0,0)49.常数vbok的值为：150.以下哪种情况可能导致获取不到网页元素：网页未完全加载51.Join命令的参数类型是?：数组52.VarType
函数：返回指示变量子类型的值53.下列对按键精灵变量描述正确的是?：不定义可以直接使用变量54.以下哪个不是数学函数：ccur55.以下哪个的值是true：not（false）56. a=34,b=&H22,下列
21、描述哪一个是错误的?：cstr（b）的值为“&H22”57.vbcrlf-回车换行符58. 以下哪一个命令可以得到变量的类型?：VarType59. 关于延时命令描述错误的是?：可以停止脚本60.str=Clng(Mid(234,2,1),那么str的值为? 361. 以下哪个方法不能关闭窗体?：sWindow =
Plugin.Window.IsWindow(Hwnd)62.双引号的ANSI 字符代码是?：3463.关于找图找色描述错误的是? 找图比找色更准确错误：从思路上来说找图等同于找多点颜色64.大型脚步中不推荐使用：goto命令65.发送字符串：sendstring66.以下对子程序
22、的描述哪一个是正确的?：子程序没有返回值67. 对于按键精灵与VBS的描述正确的是?：按键可以直接调用VBS命令68. 132 Mod 13
的值为?:269.变量名称不合法：1MyArray70.str=mid(234,2,1)：371.哪个事件最先响应：onscriptload72.以下哪一个命令的功能是设置屏幕分辨率?：setsc73.QUI输入框控件返回值的变量类型是?：字符串74.按键精灵的产品包括以下哪一个?
：按键盒子75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.76.关于加密脚本的描述，下列是错误的是?：只有会员输入密码可以解
23、开加密脚本77.鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：50,10078.WaitKey命令有几个参数?答案：079.vbCrLf的值为?A Chr(13) & Chr(10)80.选出下列返回值类型不一样的选项。C A. InStr(str,str) B. Len(n) C. Join(arr) D.
Asc(n)81.a = 10.05 Mod 2 ,那么a的值为? 082.Round(3.141592,5)返回值为什么？3.1415983.Int(32)返回值等于多少？ Int(3/2)84.返回已添加指定时间间隔的日期应使用下列哪一个函数?
24、 DateAdd 函数85.arr=Split(1,2,3,4,5,6,7,8,9, ,)，问arr(5)等于多少？“6”86.文本不存在,以下哪一个命令会新建立文本? C. WriteFileEx87.下列语句中无法达到无限循环效果的是？C. For i = True To True : Next 6、以下命令无法改变窗口大小的是？Call
Plugin.Window.Move(Hwnd, 100, 100)18、选出下列非键鼠操作的命令。22、以下关于按键抓抓描述错误的是？1、当n=3.141592*-1，以下语句返回值是绝对值的是？B. Abs(n)4、以下哪一个变量不可能是数组? Co
25、nst MyArray=25、假如a=123abc456，b=abc123def，c=abc，d=123，以下返回值正确的是？IsNumeric(d) = True6、arr=array(1,2,3,4,5,6,7,8,9)，问CStr(arr(5)等于多少？A 68、在脚本开头中加入代码 Msgbox Ture ,弹出的值为?
为空9、QUI输入框控件返回值的变量类型是? 字符串11、arr=array(0,1,2,3,4,5,6,7,8,9)，问Clng(arr(9)等于多少？B. 912、Round(3.141592,5)返回值为什么？3.1415913、GetCursorShape(0
26、)该命令返回值类型为？整数类型17、执行Call Plugin.File.WriteINI(Command, Val, 内容, .Config.ini)命令后，IsFile = Plugin.File.IsFileExit(.Config.ini)返回值是？true1、PrintScreen命令支持那种格式截图。D
jpg2、以下命令哪个不属于按键命令？StopScript10、FindMutiColor命令的颜色特征点最少为几个？2个？ 3个错20、以下哪一个命令会出错? TracePrint Cint(32768)9、以下哪一个命令输出的值与其他三个不同? TracePrint fix(3
27、.5)Erase 语句的含义是? 重新初始化固定大小数组的元素，并释放动态数组的存储空间5、以下命令无法正常获取句柄的是？BError! Reference source not found.A. Hwnd = Plugin.Window.Search(未命名 - 画图)Error! Reference source not found.B. Hwnd =
Plugin.Window.Find(#32770, -1)Error! Reference source not found.C. Hwnd = Plugin.Window.Find(MSPaintApp, 未命名 - 画图)Error!
28、 Reference source not found.D. Hwnd = Plugin.Window.Find(, 未命名 - 画图)7、关于自定义变量的描述以下哪一个是正确的? 自定义变量可以是数字或者字符串A. 自定义变量可以是数组D. 自定义变量可以是类10、关于后台坐标的描述哪一个是不正确的? 后台坐标在窗体内是不会变化的A.
后台坐标只针对窗体内生效B. 后台坐标是由后台横坐标和后台纵坐标构成的16、选出下列命令参数格式错误的选项。PutAttachment ,*.*17、Hex函数的返回值类型是? 字符串21、以下哪一个命令可以定义常数? Const23、以下不属于键鼠命令的是？
29、Call Plugin.Bkgnd.SendString(Hwnd, 0)前半部分为问答题 后半部分为选择题问答题只需要复制单道题到按键精灵中后调试就会看到效果了选择题是搜索的其他资料 并没有进行整理(紧供参考)只有自己读懂每句代码的含义后再答题 这样不仅完成答题
还能丰富自己的知识问答题部分六、1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码Dim 父窗口句柄, 子窗口句柄, 客户区大小大小Call RunApp(notepad.exe) Delay 1000 父窗口句柄 = Plugin.Win
30、dow.Find(Notepad, 0)子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, Edit, 0)TracePrint 查找到的父窗口句柄为： & 父窗口句柄TracePrint 查找到的子窗口句柄为： & 子窗口句柄Call 比例大小(父窗口句柄, 子窗口句柄, 0.9)EndScript Sub
比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父边框, 父左1, 父左2, 父右1, 父右2 父边框 = Plugin.Window.GetWindowRect(父窗口句柄) 父左1 = Clng(Split(父边框,
)(0) : 父左2 = Cln
31、g(Split(父边框,
)(1) 父右1 = Clng(Split(父边框,
)(2) : 父右2 = Clng(Split(父边框,
)(3) Call Plugin.Window.Size(子窗口句柄, (父右1 - 父左1) * 比例, (父右2 - 父左2) * 比例) End
Sub随机生N(N也为随机数)个字母,将N个字母分别赋值到数组中,数组的大小以最节省空间为标准生成.请写出代码六、1、随即输出10个50到100正整数，并从大到小排列(冒泡排序),请写出代码Dim 随即Int(9), i1, j, Cache, bSwapRandomizeFor i1 = 0 To 9
32、 随即Int(i1) = Int(100 - 50 + 1) * Rnd + 50) TracePrint i1 & ： & 随即Int(i1)NextFor j = 0 To UBound(随即Int) - 1 bSwap = False For i1 = 0 To UBound(随即Int) - 1 If 随即Int(i1) 随即Int(i1
+ 1) Then 若是递增，则将 Cache = 随即Int(i1) 随即Int(i1) = 随即Int(i1 + 1) 随即Int(i1 + 1) = Cache bSwap = True End If Next If bSwap = False
33、 Then Exit ForNextTracePrint 【冒泡排序后输出】For i1 = 0 To UBound(随即Int) TracePrint i1 & ： & 随即Int(i1)NextEndScript 六、2、利用文本(TXT)模拟一个数据库,数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加
等功能(伪数据库),请写出代码Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果数据库路径 = C:档案.txtInputH
34、ome = InputBox(退出：Q 主页：H & vbcrlf & vbcrlf & 查询：1 搜索：2 删除：3 增加：4, 主页请输入对应字符进行相关操作)Do While InputHome Q And InputHome q If InputHome = H Or InputHome = h Then InputHome =
InputBox(退出：Q 主页：H & vbcrlf & vbcrlf & 查询：1 搜索：2 删除：3 增加：4, 主页请输入对应字符进行相关操作) ElseIf InputHome = 1 Then Do 查询结果 = Input查询 = InputBo
35、x(退出：Q 主页：H, 查询请输入编号进行查询, 编号) If Input查询 = Q Or Input查询 = q Then : InputHome = Q : Exit Do ElseIf Input查询 = H Or Input查询 = h Then : InputHome = H : Exit Do ElseIf IsNumeric(Input查询)
= True Then 查询结果 = 查询(数据库路径, Input查询) End If If 查询结果 Then MsgBox 查询结果, 65, 查询结果 Loop ElseIf InputHome = 2 Then Do 搜索返回
36、 = : Show搜索 = Input搜索 = InputBox(退出：Q 主页：H & vbcrlf & vbcrlf & 可模糊搜索到编号、姓名、年龄、身高字段, 搜索请输入关键字进行搜索, 关键字) If Input搜索 = Q Or Input搜索 = q Then : InputHome = Q : Exit Do ElseIf
Input搜索 = H Or Input搜索 = h Then : InputHome = H : Exit Do Else 搜索返回 = 搜索(数据库路径, Input搜索) End If If 搜索返回 Then 搜索结果 = Split(搜索返回, ,
37、) For i = UBound(搜索结果) - 1 To 0 Step - 1 Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next MsgBox Show搜索, 65, 搜索结果 End If Loop ElseIf InputHome = 3 Then Do 查询结果 = : 删除结果 = Input删除 =
InputBox(退出：Q 主页：H, 删除请输入编号进行删除, 编号) If Input删除 = Q Or Input删除 = q Then : InputHome = Q : Exit Do ElseIf Input删除 = H Or Input删除
38、= h Then : InputHome = H : Exit Do ElseIf IsNumeric(Input删除) = True Then 查询结果 = 查询(数据库路径, Input删除) End If If 查询结果 Then 删除结果 = MsgBox(查询结果, 68, 确定要删除此条数据？) If 删除结果 = 6 Then 删除 数据库路径,
Input删除 Loop ElseIf InputHome = 4 Then Do Input增加 = InputBox(退出：Q 主页：H & vbcrlf & vbcrlf & 格式：姓名|年龄|身高 & vbcrlf & 例如：李
39、雷|18|1.52, 增加请输入要增加的一条数据) If Input增加 = Q Or Input增加 = q Then : InputHome = Q : Exit Do ElseIf Input增加 = H Or Input增加 = h Then : InputHome = H : Exit Do ElseIf UBound(Split(Input增加,
) = 2 Then 增加 数据库路径, Input增加 End If loop ElseIf InputHome = Q Or InputHome q Then : Exit Do Else InputHome = InputBox(
40、退出：Q 主页：H & vbcrlf & vbcrlf & 查询：1 搜索：2 删除：3 增加：4, 主页请输入对应字符进行相关操作) End IfLoopEndScriptFunction 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1 Set fso =
CreateObject(scripting.FileSystemObject) If fso.FileExists(文本路径) Then Set myfile = fso.openTextFile(文本路径, 1, false) Else flag = 0 End If For
41、 i = 1 To 编号 - 1 If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then 查询 = myfile.ReadLine Else 查询 = 编号不存在！
End If myfile.close Else 查询 = 文件不存在！ End If Set fso = NothingEnd FunctionFunction 搜索(文本路径, 关键字) Dim ForReading, ForWri
42、ting ForReading = 1 : ForWriting = 2 : 搜索 = Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject(Scripting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路径,
ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 关键字) 0 Then 搜索 = strLine & , &
43、 搜索 TracePrint 搜索= & 搜索 strNewFile = strNewFile & strLine & vbcrlf Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile
objFile.Close Set objFSO = NothingEnd FunctionSub 删除(文本路径, 编号) Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2 Dim objFSO,objFil
44、e,strLine,strNewFile Set objFSO = CreateObject(Scripting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路径,ForReading) Do Until objFile.AtEndOfStream strLine =
objFile.Readline If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile Else strNewFile = strNewFile & strLine &
45、 vbcrlf End If Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径,ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = NothingEnd SubSub 增加(文本路径, 文本内容) Dim
ForReading ,ForWriting ForReading = 1 : ForWriting = 2 Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject(Scri
46、pting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline strNewFile = strNewFile & strLine &
vbcrlf Loop TracePrint objFile.Line strNewFile = strNewFile & objFile.Line &
& 文本内容 & vbcrlf objFile.Close Set objFile = objFSO.
47、OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = NothingEnd SubEndScript
六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含接收关键字的文本(批量消息发送器),请写出代码六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码六、杨辉三角百度说明:五：1、
48、写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码MsgBox 颜色相似度1(Fffffa, FFFFFF),64,颜色相似度1MsgBox 颜色相似度2(Fffffa, FFFFFF),64,颜色相似度2MsgBox 颜色相似度3(Fffffa, FFFFFF),64,颜色相似度3Function 颜色相似度1(当前颜色, 对比颜色) Call
Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度1 = 1 - round(abs(R1 - R2)
49、 / 255) + abs(G1 - G2) / 255) + abs(B1 - B2) / 255) / 3, 3)End FunctionFunction 颜色相似度2(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色,
R2, G2, B2) 颜色相似度2 = 1 - round(abs(R1 - R2) + abs(G1 - G2) + abs(B1 - B2) / 255 / 3, 3)End FunctionFunction 颜色相似度3(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call
Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度3 = 1 - round(abs(R1 / 255 - R2 / 255) + abs(G1 / 255 - G2 / 255) + abs(B1 / 255 - B2 / 255) / 3, 3)End
Function五：2、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为FFFFFF,是则弹出对话框没有其他颜色,否则弹出第一

pxwebsite2023-01-12 20:35:51
大家好，下面给大家分享一下按键向导如何输出文本(按键向导输入文本代码)。很多人还不知道。下面是详细的解释。现在让我们来看看！
1.按键向导如何在后台输出大写字母？
私有声明函数getkey state Lib“user 32”别名“getkey state”(ByVal nVirtKey一样长)为整数
Hwnd =插件。Window.MousePoint()
做
C =检测大写锁定状态()
//检测CapsLock是否开，0开1关。
TracePrint c
如果c = 1，那么
//判断CapsLock状态，不开启则开启，开启则无动作。
按键“大写锁定”，1
如果…就会结束
调用插件。黑色按键(Hwnd，65)
按键“大写锁定”，1
环
函数检测大写锁定状态()
ret = GetKeyState(20)
ret = ret & amp一个
如果ret = 1，则
检测大写锁定状态=1
其他
检测大写锁定状态=0
如果…就会结束
结束功能
这只能通过更改案例状态来实现。其实功能判断没必要。如果你不在乎大小写，你可以利用整个过程。其实我的命令库中的键码组——Keyboard可以自由使用大写或小写，只是不知道怎么把这个变成后台。
2.按键向导如何将变量输出写入TXT文本？
Dim txt，点击interval，I，Shul，obj，弹出对话框。数组txt = "以毫秒为单位设置每个坐标点的延迟，" & vbcr & vbcr & "如50" & vbcr & vbcr & "表示每个坐标的点击间隔为50毫秒" Click interval = InputBox(txt，" Set Click interval ")If Click interval
= " "然后Click interval = 10 else If cint(Click interval)< 10然后Click interval = 10 End If trace print " Click interval = " & Click interval If plugin . file . is file存在(" d: \
Mouse多点击脚本配置。txt ") = true，然后设置obj = createobject ("wscript。shell”)txt = "读取保存的坐标" & vbcr & vbcr & "是:好，直接用保存的坐标运行" & vbcr & "否:取消，重新获取坐标"弹出对话框= Cint(obj。Popup(txt，0，" read or not "，1))设置obj
= Nothing如果弹出对话框= 1则调用读取配置文件并将坐标保存到数组()调用鼠标点击坐标()否则调用plugin.file.delete文件(" d: \鼠标多点脚本配置。txt") Rem手动获取鼠标坐标20 i = 0 Do Rem不正确的键码并重新获取23 txt = "设置" &i+1&"th点的坐标" & VBCR &
"鼠标移动到目标后按Ctrl确认" & VBCR & "如果设置结束，请按Shitf运行。单击“messagebox txt key = wait key()if key = 17 then”并按CTRL redim preserve x (i)，y (i) getCursorpos x (i)。y(I)trace print " the first " & I+1 & "
coordinates = " & x(I)& " & y(I)call plugin . file . writefileex(" d:\鼠标多点脚本配置。txt "，x(i) & "，" & y(i)) ElseIf key = 16且i > 0然后'按下Shift Exit的错误键码Do Else Goto重新获取鼠标点击坐标23 End If I = I+1
Delay 1 Loop Call()End If Else Goto手动获取鼠标坐标20 END IF S. Ub读取配置文件并将坐标保存到array()array = split(plugin . file . read fileex(" d:\ mouse multi-click script configuration。txt ")，"
")Shul =
UBound(array)Redim X(Shul-1)，Y(Shul-1)For I = 0 To Shul-1 coordinate = Split(array(I)，"，")TracePrint coordinate (0)& "，" & coordinate(1)x(i)= coordinate(0):Y(I)= coordinate(1)next
End子鼠标单击coordinate()Shul = UBound(X)do For I = 0 To Shul移至X(I)，Y (I)//Trace Print X (I)第一次运行鼠标时，选择每个点进行点击，并自动保存到d: \ mouse multi-click脚本配置。txt。运行后可以直接获取保存的坐标，也可以重新获取坐标。//根据脚本弹出提示使用方法。
3.按键向导如何输出复制后的文本？
对于j = 0到len(文本)
dm。按键Asc(mid(text，j，1))
延迟50
然后
游戏屏蔽了粘贴功能的可能性。你的账号应该是数字加字母。此方法可能会在输出中添加32个字母。请换一下看看。
哦，对了，我用沙漠外挂
对于j = 0到len(文本)
按键mid(text，j，1)，1
延迟50
然后
就是这样。
4.如何用按键向导代码输出指定的字符串？
在当前窗口中输入文本。
SayString [text]
SayString字符串
文本参数可以是任何有效的字符。
解释
注意:字符串参数可以使用变量。如果要使用变量，请确保软件应该是6.10版以后。
下面的示例在具有输入焦点的窗口中输出“这是一个示例”:
SayString，这是一个例子
/*********************************************/
你可以在网上搜一下《击键合集》，这是官方出版的，里面有非常详细的资料。
5.按键向导输出数字
UserVar low1=20随机数下限
UserVar high1=300随机数上限
UserVar xs=2保留小数位。
UserVar t1=2010-9-1开始日期(年、月、日用-"分隔)。
用户var T2 =截止日期2010年11月22日。
昏暗的tt(50)
使不规则化
x1=((高1-低1+1)* Rnd+低1)
x2=inStr(x1，" ")
x3 =左(x1，x2+xs)
VBSCall RunApp("notepad.exe ")
延迟2000年
插件h=窗口。查找(“记事本”，0)
插件窗口。活动(h)
延迟200
SayString“随机数”&；x3
按键13，2
SayString“下面将输出连续的日期并自动识别每个月的天数”
按键13，1
t1=CDate(t1)
t2=CDate(t2)
t3=t1
SayString t3
按键13，1
While DateDiff("d "，t3，t2)>0
t3=DateAdd("d "，1，t3)
SayString t3
按键13，1
结束时间
6.按键向导如何输出1？
对不对？
a = 1 : b = 10
做
Hwnd =插件。Window.Find("记事本"，0)
如果Hwnd RunApp "notepad.exe "
其他
出口Do
如果…就会结束
延迟500
环
延迟100
Hwnd =插件。Window.FindEx(Hwnd，0，" Edit "，0)
做
调用插件。Bkgnd.SendString(Hwnd，a & "-" & b & vbcr)
a = a + 10 : b = b + 10
延迟200
环
以上解释了按键向导如何输出文本(按键向导输入文本代码)。这篇文章写完了，希望对大家有所帮助。如果信息有误，请联系边肖进行更正。

这是奔跑的键盘侠的第130篇文章
作者|我是奔跑的键盘侠
来源|奔跑的键盘侠（ID：runningkeyboardhero）
转载请联系授权（微信ID：ctwott）
数组的应用，上一期讲了Array、UBound、LBound，这期我们继续将另外两个函数，Split函数和Filter函数。
1
Split函数
这个Split函数，软件中语法介绍是这样写的：返回基于 0 的一维数组，其中包含指定数目的子字符串。
简单一点讲，就是针对一维数组量身定制的函数。但是呢，它有一个很强大的功能，就是可以把一个变量拆分成一个数组，很cool有木有
软件语法介绍中的根据字母x把一个单词拆分成多部分，
MyString = Split("VBScriptXisXfun!", "x", -1, 1)
里面的参数后两个多数情况可以省略。
再举个其他的例子，比如我要把txt文本中的log日志，给分行提取出来：
Text = Plugin.File.ReadFileEx("C:record_log.txt")
MessageBox Text
MyArray = Split(Text, "|")
For i=0 to UBound(MyArray)-1
TracePrint "第 " & i+1 &" 行文本内容为："& MyArray(i)
Next
txt读取出来的结果会有个竖线分隔符，所以这里用弹窗输出一下看看：
txt中共4行内容，弹窗每行中间有个竖线分隔符，注意末尾的地方也有一个。换句话说，Text被竖线分隔符切割成了5段，只不过前面4段里有内容，最后一段为空。
so,我们循环下标i从0开始，剔除最后一行，就是UBound(MyArray)-1了。
不过呢，txt里面也经常会中间某行内容为空，我还是建议大家老老实实去判断一下元素值真假，挺有必要的
调试区的输出结果，我也贴一下：
具体的应用场景：
比如通讯录，或者配置表信息，代码复杂了，就需要把某些内容，存到本地文件中，运行代码的时候直接去调用。
这样的好处是：我们每次要补充通讯录信息，或者修改配置表参数时，直接去相应的本地文件里修改即可，而不是去源代码里面去改。。因为，一个不小心改到不应该改的内容，很容易出现什么意外神马的，那就呵呵呵呵了…………
于是，我们要把上述类似的信息，写到本地文件中。然后要去提取相应的信息，几乎都会用到Split函数。
比如一个通讯录：
可以直接Plugin.File.ReadFileEx函数读取所有内容，然后Split(Text, "|") 分割成一行一行的。接着，再Split(Text, ":") 分隔成姓名和号码。再通过判断语句，就找到了对应姓名的号码。
上一期我们有提到For Each i In的语法，可以替代For i=0 to UBound(MyArray)-1，这里为了大家熟悉数组的几个函数用法，暂时就这么用吧。我是更推荐试用Each In的语法，更好用
2
Filter函数
讲真，这个函数之前从未用过，自然也不知道该怎么用，网上介绍几乎木有。仅凭软件上语法介绍和案例，测试英文ok，中文出现一个未知bug，后来bug自己消失了，索性就来叨叨这个函数已知的用途吧。
先贴一下软件自带的语法示例：
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "Mon")
要注意的是，最后的MyIndex也是一个数组哦，必须用下标才能读取出来。
说白了，就是过滤筛选一下，含有关键字的值，有点类似excel中的“查找所有”功能。
那要如何使用呢？
上一段讲的Split最后一段的最后一句，通过判断语句，找到对应的姓名号码，可以直接用Filter来实现。代码如下：
Text = Plugin.File.ReadFileEx("C:UsersdellDesktop号码簿.txt")
MyArray = Split(Text, "|")
MyIndex = Filter(MyArray,"小明")
直接就能返回小明这行的信息，再提取出号码即可。But，有个问题，就像excel检索一下，包含“小明”二字的单元格，可能是干扰项，比如王小明、李小明、小明三，这些都不是我们想要的。
所以呢，这个Filter函数用于初步筛选是OK的，要想万无一失，还需要对筛选完的值进行二次校验，也就是再次使用判读语句，进行完全匹配。
隐隐的觉得Filter是一个非常牛逼的函数，因为Python中Filter是可以把过滤条件设置为函数名，比如写一个筛选偶数的函数，直接把“小明”替换成函数名，是可以直接过滤出数组中的偶数的。
可是按键精灵的Filter，调试了无数遍，很多Python的功能它并不适用。我知道它功能肯定是弱化了，已经失去了它该有的强大。不过也不排除潜在的隐藏功能没有被发掘，容我再好好思考一番，想到了再说吧