按键精灵1--6级答案

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,是则弹出对话框没有其他颜色,否则弹出第一