按键16级认证总结(全包过).doc

按键16级认证总结(全包过) 按键1-6级认证总结(全包过)?以下哪一个不是按键精灵的产品?按键箱子?录制的脚本没有以下哪个功能?记录鼠标特征码?下列哪一个命令不属于全部命令?内核命令?按键精灵自带的抓图工具是?按键抓抓?哪一种方法能够找到命令的帮助说明?在全部命令中搜索命令,点击后帮助说明会出现在器下方.?按键精灵不可以在以下哪个系统中使用?Linux?可以使用神盾功能的程序是?小精灵商业版?旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误?使用自动缩进功能?WaitClick命令的含义是?按任意鼠标键继续?哪一类脚本程序是按键精灵官方授予销售权的?小精灵商业版?只要在脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因?Plugin目录下装有不是官方提供的插件引起的?关于加密脚本的描述，下列是错误的是?只有会员输入密码可以解开加密脚本GetLastClick命令的含义是?检测上次按过的鼠标键?按键精灵生成的小精灵程序的后缀名是?EXE?按键精灵会员不能享受的论坛权限是?可以访问按键精灵“版版家园”专区享受版主资源?网页按键精灵是下列哪一个程序?wqm.exe?按键精灵的产品包括以下哪一个?按键盒子?按键精灵是下列哪一个程序?按键精灵9.exe?按键精灵会员卡注册码,没有以下哪一种?天卡(1天)?UnlockMouse命令的含义是?解除锁定鼠标位置?按键精灵会员不能享受的资源是?小精灵的源代码?RightUp命令的含义是?右键弹起?按键精灵的功能不包括?自动发明汽车、飞机、火箭等机器?按键精灵能兼容下列哪一种语言?VBS?不能用抓抓工具直接获取的是?PID?关于按键精灵的描述，以下正确的是?按键精灵是一款绿色的模拟键盘鼠标操作的软件?脚本界面上没有的按钮是?启动?与取色判断命令没有直接关系的参数是?按键码?以下哪种方式可以在脚本界面中获取到新的插件?点击资源库按钮,然后导入需要的插件?LeftClick命令的含义是?左键单击?按键精灵官方网站的网址是?.anjian./?RestoreMousePos命令的含义是?恢复上次保存的鼠标位置?如果按键精灵在某些环境失效,可以使用下列哪个工具?神盾?SaveMousePos命令的含义是?保存当前鼠标所在位置?GetCursorPos命令的含义是?得到鼠标位置坐标?键盘命令的类型不包括?锁定?按键精灵里运算符乘号是?*?KeyPress命令的含义是?按键?MiddleClick命令的含义是?中键单击?LockMouse命令的含义是?锁定鼠标位置?按键精灵会员不能享受的功能是?脚本编写服务?GetCursorShape命令的含义是?得到鼠标形状?按键精灵自带的用户界面叫做什么?QUI界面?RightClick命令的含义是?右键单击?按键精灵里运算符减号是?-?按键精灵默认的启动热键是?F10?属于全部命令的是?我的命令库?“录制”功能不能录制的/?按键精灵会员不能享受的技术支持是?技术人员上门服务?按键精灵自带的功能不包括以下哪一个?路由功能?GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0变量的定义，以下哪个是正确的?dim a?下列哪一种方法不能够正确输入命令?鼠标右键单击命令?按键精灵的功能是？模拟鼠标键盘操作的工具?MoveR命令的含义是?相对移动?关于小精灵去广告的描述，下列正确的是?会员用户在“制作按键小精灵”界面上-更多设置-选择会员去广告（是）即可?按键精灵里运算符加号是?+?对小精灵的描述，以下是正确的?按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。 ?LeftDown命令的含义是?左键按下?键鼠的模拟方式不包括以下哪一个?虚拟模拟? 3、区域找图的命令是?FindPic? 4、按键精灵语言大小写的描述哪一个是正确的?按键精灵不区分大小写? 7、KeyPress命令有几个参数?2? 13、不能实现键盘按下A键的命令是?KeyPressWA,1? 15、下列哪一个不是循环命令?Select Case?颜色值为000000是什么颜色?黑色?以下哪一个不属于按键精灵的全部命令?远程嗅探命令? 20、下列RGB颜色值，书写正确的是?DD? 23、GetPixelColor命令有几个参数?2? 25、以下哪一段命令能正确执行如果(70,416)的颜色等于FFFFFF则鼠标移动到点(100,200)?IfColor70,416,FFFFFF,0Then:MoveTo100,200:End If? 26、以下哪一个写法不能点击shift键?KeyPress60,1? 28、下列哪一个不是逻辑运算符?Const? 33、FindColorEx命令有几个参数?9? 36、下列哪一段代码不能输出L键?KeyupL,1? 44、SetSimMode1的实际意义是?使用硬件模拟? 1、鼠标所在位置为(50,50),经过命令MoveTo50,100后鼠标所在位置为D50,100? 2、F10的按键码是?B.121? 3、下列哪一个不是键盘命令?A KeyClick? 4、循环可以使用下列哪个语句?B.For语句? 5、回车键的按键码是?A.13? 6、默认情况下某些特定窗口模拟按键可能失效,以下哪种方法可能可以解决?D.在脚本开头增加代码:SetSimMode2? 7、如何退出For循环的命令?D.Exit For? 8、得到一个按键的按键码,以下哪一个方法是完全正确的?在按键精灵界面的基本命令的键盘命令部分查询? 9、鼠标右键按下的命令是?RightDown? 10、以下哪一个命令不会暂停脚本?for.next? 11、下列哪一个是键盘命令?KeyPress? 12、鼠标所在位置为(50,50),经过命令MoveR50,100后鼠标所在位置为100,150? 13、鼠标左键按下的命令是?LeftDown? 14、解除鼠标锁定是下列哪一个命令?UnlockMouse? 15、组合键CTRL+C的正确按键顺序是?按下CTRL,点击C,弹起CTRL? 16、下列属于鼠标命令的是?RightClick? 17、以下哪一种方式不能无限循环?在脚本开头加入For10000,脚本尾部加入Next? 18、WaitKey命令有几个参数?0? 19、如何退出Do循环的命令?Exit Do? 20、下列哪一个是鼠标命令?LeftClick? 21、下列RGB颜色值，书写错误的是?FFFFFFFF? 22、以下哪一个是自动补血的思路?检测血条上某一点,如果此点不是血条的颜色则执行加血操作? 23、FindColor命令有几个参数?7? 24、哪一种不能正确调用KeyPress命令?KeyPressFA,1? 25、延时的命令是?Delay? 26、取指定点颜色的命令是?GetPixelColor? 27、延迟2小时,以下哪一句代码是正确的?Delay1000*60*60*2? 28、以下哪一个是自动打怪的思路?检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作? 29、EndScript命令的意义是?脚本停止运行? 30、以下哪一个是循环命令?for.next? 31、SetSimMode命令有几个参数?1? 32、鼠标所在位置为(100,50),经过命令MoveToS50+50,100后鼠标所在位置为?100,100? 33、区域找色的命令是?FindColor? 34、FindPic命令有几个参数?8? 35、按键精灵找图命令需要的图片格式是下列哪一个?*.BMP? 36、脚本停止运行命令是哪一个?EndScript? 37、延迟1天,以下哪一句代码是正确的?Delay1000*60*60*24*1? 38、下列哪一个命令会暂停脚本?WaitClick? 39、不能正确调用KeyPress命令的写法是?KeyPressFB,1? 40、鼠标所在位置为(0,50),经过命令MoveTo50+50,100后鼠标所在位置为?100,100? 41、代码KeyPressA，1调试后提示出错,错误的原因是?逗号使用了全角符号无法识别导致错误? 42、锁定鼠标位置是下列哪一个命令?LockMouse? 43、下面哪一个命令会暂停脚本?MsgBox? 44、鼠标左键单击的命令是?LeftClick? 45、鼠标左键双击的命令是?LeftDoubleClick? 46、文本32? 4、以下哪一个函数返回值的数据类型与其他三个的不一样?Filter?A.Instr B.Ubound C.Clng D.Filter? 5、以下哪一个函数返回值的数据类型与其他三个不一样?A.Array错?B.Filter错?C.Split?D.Replace? 18、以下哪一个返回值是字符串?C?A.clng(520)?B.10-1?C.anjian&vrbrothers?D.len(anjian)?Msgboxanjian&1将会弹出什么D.返回值是字符串?2.以下不属于按键命令的是？OnThreadLoad?3.假如MyDate=October19,1962:YourDate=#10/19/62#:NoDate=Hello，返回值为False的是？D.IsDate(NoDate)?4.字符串Vrbrothers的长度为?10?5.GetOSType()返回值描述正确的是？返回当前系统类型?6.Text=Plugin.File.ReadINI(小节名,键值,文件路径)，读取文件格式为？?A.*.ini?7.常数VbOk的值为?1?8.以下语句无法返回时间信息的是？B.MyTime=Now(Time)?9.下列哪一个函数可以取数组最大可用下标?Ubound?10.以下对函数的描述哪一个是错误的?函数一定有返回值?11.以下命令哪个可以终止所有线程运行并停止脚本。 ExitScript?12.ExitOS命令中，以下描述错误的是？可执行待机?13.关于自定义变量的描述以下哪一个是错误的?可以是数字或者字符串错数组？?14.以下哪一个函数的功能是指明表达式的值是否为数字?IsNumeric? 15、Set语句的含义是?将对象引用赋给变量或属性?16.选出下列命令参数格式错误的选项。 PutAttachment,*.*？?17.后台取色命令需要的参数为?句柄和坐标?18.以下命令可以获取当前窗口所在屏幕位置精确坐标的是？?Text=Plugin.Window.GetWindowRect(Hwnd)?19.选出以下命令参数错误的。 ImportWindow?20.MsgBox命令最多可以使用几个参数?5个?21.GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0?22.以下选项中不符合调用规则的是？Asc(F1)?23.以下关于按键抓抓描述错误的是？支持后台找色找图效果测试?24.Media.Play命令不支持哪个文件格式。 Mp4?25.数组MyArray (5)的最大可用下标为?Ubound5?26.数组MyArray (5)包含的元素个数为?6?27.字符串&H22用Clng命令转换后除以2再用Cstr命令转换,最后结果为?17?29.由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为?323232?30.当str=(1+2*3-1)/2，Eval(str)返回值为？3?31.RGB值分解为红绿蓝分量,分量值的范围是?0-255?32.Call Plugin.Window.Close(参数)命令需要以下哪种参数？窗口句柄?33.True的值是?-1?34.以下哪一个是类型转换函数?clng?35.使用WQM的脚本代码第一步应该做什么?绑定WQM?36.以下对子程序和函数的描述哪一个是正确的?函数可以代替子程序?37.以下命令无法正常获取句柄的是？Active?38.myarray=Array(1,2,3,4,5),那么myarray (4)的值为?5?39.如果有多个重复标题的窗口,以下哪个命令能够直接获取到所有对应窗口的句柄?HwndEx=Plugin.Window.Search(记事本)?HwndEx=Plugin.Window.SearchEx(0,记事本,0)?40.DateDiff命令有几个必选参数？且返回值类型是？3个?41.FindMutiColorEx命令有几个参数？8?42.myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?4?43.Xor运算符描述正确的是?用于对两个表达式进行逻辑异或运算。 ?44.GetLastKey检测上次按键，返回数字，键码?45.Const语句定义常量?46.以下哪一个命令不能用于调试内容输出?beep?47.关于事件描述错误的是事件子程序的参数可以是任意多个?48.以下哪个命令需要绑定WQM使用Call Plugin.Web.ScrollTo(0,0)?49.常数vbok的值为1?50.以下哪种情况可能导致获取不到网页元素网页未完全加载?51.Join?命令的参数类型是?数组?52.VarType函数返回指示变量子类型的值?53.下列对按键精灵变量描述正确的是?不定义可以直接使用变量?54.以下哪个不是数学函数ur?55.以下哪个的值是truenot（false）?56.a=34,b=&H22,下列描述哪一个是错误的?cstr（b）的值为“&H22”?57.vbcrlf-回车换行符?58.以下哪一个命令可以得到变量的类型?VarType?59.关于延时命令描述错误的是?可以停止脚本?60.str=Clng(Mid(234,2,1),那么str的值为?3?61.以下哪个方法不能关闭窗体?sWindow=Plugin.Window.IsWindow(Hwnd)?62.双引号的ANSI字符代码是?34?63.关于找图找色描述错误的是?找图比找色更准确?错误从思路上来说找图等同于找多点颜色?64.大型脚步中不推荐使用goto命令?65.发送字符串sendstring?66.以下对子程序的描述哪一个是正确的?子程序没有返回值?67.对于按键精灵与VBS的描述正确的是?按键可以直接调用VBS命令?68.132Mod13的值为?:2?69.变量名称不合法1MyArray?70.str=mid(234,2,1)3?71.哪个事件最先响应onscriptload?72.以下哪一个命令的功能是设置屏幕分辨率?setsc?73.QUI输入框控件返回值的变量类型是?字符串?74.按键精灵的产品包括以下哪一个?按键盒子?75.哪一种方法能够找到命令的帮助说明?在全部命令中搜索命令,点击后帮助说明会出现在器下方.?76.关于加密脚本的描述，下列是错误的是?只有会员输入密码可以解开加密脚?本?77.鼠标所在位置为(50,50),经过命令MoveTo50,100后鼠标所在位置为50,100?78.WaitKey命令有几个参数?答案0?79.vbCrLf的值为?A Chr (13)&Chr (10)?80.选出下列返回值类型不一样的选项。 C?A.InStr(str,str)?B.Len(n)?C.Join(arr)?D.Asc(n)?81.a=10.05Mod2,那么a的值为?0?82.Round(3.141592,5)返回值为什么？3.14159?83.Int(32)返回值等于多少？Int(3/2)?84.返回已添加指定时间间隔的日期应使用下列哪一个函数?DateAdd函数?85.arr=Split(1,2,3,4,5,6,7,8,9,)，问arr (5)等于多少？“6”?86.文本不存在,以下哪一个命令会新建立文本?C.WriteFileEx?87.下列语句中无法达到无限循环效果的是？C.For i=True ToTrue:Next? 6、以下命令无法改变窗口大小的是？?Call Plugin.Window.Move(Hwnd,100,100)? 18、选出下列非键鼠操作的命令。 ? 22、以下关于按键抓抓描述错误的是？? 1、当n=3.141592*-1，以下语句返回值是绝对值的是？B.Abs(n)? 4、以下哪一个变量不可能是数组?Const MyArray=2? 5、假如a=123abc456，b=abc123def，c=abc，d=123，以下返回值正确的是？IsNumeric(d)=True? 6、arr=array(1,2,3,4,5,6,7,8,9)，问CStr(arr (5)等于多少？A6? 8、在脚本开头中加入代码Msgbox Ture,弹出的值为?为空? 9、QUI输入框控件返回值的变量类型是?字符串? 11、arr=array(0,1,2,3,4,5,6,7,8,9)，问Clng(arr (9)等于多少？B.9? 12、Round(3.141592,5)返回值为什么？3.14159? 13、GetCursorShape (0)该命令返回值类型为？整数类型? 17、执行Call Plugin.File.WriteINI(Command,Val,3个错? 20、以下哪一个命令会出错?TracePrint Cint (32768)? 9、以下哪一个命令输出的值与其他三个不同?TracePrint fix(3.5)?Erase语句的含义是?重新初始化固定大小数组的元素，并释放动态数组的存储空间? 5、以下命令无法正常获取句柄的是？B?错误！未找到引用源。 A.Hwnd=Plugin.Window.Search(未命名-画图)错误！未找到引用源。 B.Hwnd=Plugin.Window.Find(#32770,-1)?错误！未找到引用源。 C.Hwnd=Plugin.Window.Find(MSPaintApp,未命名-画图)?错误！未找到引用源。 D.Hwnd=Plugin.Window.Find(,未命名-画图)? 7、关于自定义变量的描述以下哪一个是正确的?自定义变量可以是数字或者字符串?A.自定义变量可以是数组?D.自定义变量可以是类? 10、关于后台坐标的描述哪一个是不正确的?后台坐标在窗体内是不会变化的?A.后台坐标只针对窗体内生效?B.后台坐标是由后台横坐标和后台纵坐标构成的? 16、选出下列命令参数格式错误的选项。 PutAttachment,*.*? 17、Hex函数的返回值类型是?字符串? 21、以下哪一个命令可以定义常数?Const? 23、以下不属于键鼠命令的是？Call Plugin.Bkgnd.SendString(Hwnd,0)?前半部分为问答题后半部分为选择题?问答题只需要复制单道题到按键精灵中后调试就会看到效果了?选择题是搜索的其他资料并没有进行(紧供参考)?只有自己读懂每句代码的含义后再答题这样不仅完成答题还能丰富自己的知识?问答题部分? 六、 1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码?Dim父窗口句柄,子窗口句柄,客户区大小大小?Call RunApp(notepad.exe)?Delay1000?父窗口句柄=Plugin.Window.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=Clng(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,bSwap?Randomize?For i1=0To9?随即Int(i1)=Int(100-50+1)*Rnd+50)?TracePrint i1&随即Int(i1)?Next?For j=0To UBound(随即Int)-1?bSwap=False?For i1=0To 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 Then Exit For?Next?TracePrint【冒泡排序后输出】?For i1=0To UBound(随即Int)?TracePrint i1&随即Int(i1)?Next?EndScript? 六、 2、利用文本(TXT)模拟一个数据库,数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现查询/搜索/删除/增加等功能(伪数据库),请写出代码?Dim数据库路径,InputHome,Input查询,Input搜索,Input删除,Input增加,查询结果,搜索返回,搜索结果,Show搜索,删除结果?数据库路径=C:档案.txt?InputHome=InputBox(退出Q主页H&vbcrlf&vbcrlf&查询1搜索2删除3增加4,主页请输入对应字符进行相关操作)?Do WhileInputHomeQAnd InputHomeq?If InputHome=HOr InputHome=hThen?InputHome=InputBox(退出Q主页H&vbcrlf&vbcrlf&查询1搜索2删除3增加4,主页请输入对应字符进行相关操作)?ElseIf InputHome=1Then?Do?查询结果=?Input查询=InputBox(退出Q主页H,查询请输入编号进行查询,编号)?If Input查询=QOr Input查询=qThen:InputHome=Q:Exit DoElseIf Input查询=HOr Input查询=hThen:InputHome=H:Exit DoElseIf IsNumeric(Input查询)=True Then?查询结果=查询(数据库路径,Input查询)?End If?If查询结果Then MsgBox查询结果,65,查询结果?Loop?ElseIf InputHome=2Then?Do?搜索返回=:Show搜索=?Input搜索=InputBox(退出Q主页H&vbcrlf&vbcrlf&可模糊搜索到编号、姓名、年龄、身高字段,搜索请输入关键字进行搜索,关键字)?If Input搜索=QOr Input搜索=qThen:InputHome=Q:Exit DoElseIf Input搜索=HOr Input搜索=hThen:InputHome=H:Exit DoElse?搜索返回=搜索(数据库路径,Input搜索)?End If?If搜索返回Then?搜索结果=Split(搜索返回,)?For i=UBound(搜索结果)-1To0Step-1?Show搜索=Show搜索&搜索结果(i)&vbCrLf?Next?MsgBox Show搜索,65,搜索结果?End If?Loop?ElseIf InputHome=3Then?Do?查询结果=:删除结果=?Input删除=InputBox(退出Q主页H,删除请输入编号进行删除,编号)?If Input删除=QOr Input删除=qThen:InputHome=Q:Exit DoElseIf Input删除=HOr Input删除=hThen:InputHome=H:Exit DoElseIf IsNumeric(Input删除)=True Then?查询结果=查询(数据库路径,Input删除)?End If?If查询结果Then删除结果=MsgBox(查询结果,68,确定要删除此条数据？)?If删除结果=6Then删除数据库路径,Input删除?Loop?ElseIf InputHome=4Then?Do?Input增加=InputBox(退出Q主页H&vbcrlf&vbcrlf&格式姓名|年龄|身高&vbcrlf&例如李雷|18|1.52,增加请输入要增加的一条数据)?If Input增加=QOr Input增加=qThen:InputHome=Q:Exit DoElseIf Input增加=HOr Input增加=hThen:InputHome=H:Exit DoElseIf UBound(Split(Input增加,|)=2Then?增加数据库路径,Input增加?End If?loop?ElseIf InputHome=QOr InputHomeqThen:Exit Do?Else?InputHome=InputBox(退出Q主页H&vbcrlf&vbcrlf&查询12删除3增加4,主页请输入对应字符进行相关操作)?End If?Loop?EndScript?Function查询(文本路径,编号)?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 i=1To编号-1?If Notmyfile.AtEndOfLine Then?myfile.SkipLine?tempp=myfile.Line?End If?Next?If flag=1Then?If Notmyfile.AtEndOfLine Then?查询=myfile.ReadLine?Else?查询=编号不存在！?End If?myfile.close?Else?查询=文件不存在！?End If?Set fso=Nothing?End Function?Function搜索(文本路径,关键字)搜索?Dim ForReading,ForWriting?ForReading=1:ForWriting=2:搜索=?Dim objFSO,objFile,strLine,strNewFile?Set objFSO=CreateObject(Scripting.FileSystemObject)?Set objFile=objFSO.OpenTextFile(文本路径,ForReading)?Do UntilobjFile.AtEndOfStream?strLine=objFile.Readline?If Instr(1,strLine,关键字)0Then搜索=strLine&,&搜索TracePrint搜索=&搜索?strNewFile=strNewFile&strLine&vbcrlf?Loop?objFile.Close?Set objFile=objFSO.OpenTextFile(文本路径,ForWriting)?objFile.Write strNewFile?objFile.Close?Set objFSO=Nothing?End Function?Sub删除(文本路径,编号)?Dim ForReading,ForWriting?ForReading=1?ForWriting=2?Dim objFSO,objFile,strLine,strNewFile?Set objFSO=CreateObject(Scripting.FileSystemObject)?Set objFile=objFSO.OpenTextFile(文本路径,ForReading)?Do UntilobjFile.AtEndOfStream?strLine=objFile.Readline?If CInt(编号)=objFile.Line-1or CInt(编号)=0Then strNewFile=strNewFile?Else?strNewFile=strNewFile&strLine&vbcrlf?End If?Loop?objFile.Close?Set objFile=objFSO.OpenTextFile(文本路径,ForWriting)?objFile.Write strNewFile?objFile.Close?Set objFSO=Nothing?End Sub?Sub增加(文本路径,文本内容)?Dim ForReading,ForWriting?ForReading=1:ForWriting=2?Dim objFSO,objFile,strLine,strNewFile?Set objFSO=CreateObject(Scripting.FileSystemObject)?Set objFile=objFSO.OpenTextFile(文本路径,ForReading)?Do UntilobjFile.AtEndOfStream?strLine=objFile.Readline?strNewFile=strNewFile&strLine&vbcrlf?Loop?TracePrint objFile.Line?strNewFile=strNewFile&objFile.Line&|&文本内容&vbcrlf?objFile.Close?Set objFile=objFSO.OpenTextFile(文本路径,ForWriting)?objFile.Write strNewFile?objFile.Close?Set objFSO=Nothing?End Sub?EndScript? 六、 3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含接收关键字的文本(批量消息发送器),请写出代码? 六、 4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码? 六、 5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码? 六、杨辉三角百度说明:baike.baidu./view/7804.htm?五 1、写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码?MsgBox颜色相似度1(Fffffa,FFFFFF),64,颜色相似度1?MsgBox颜色相似度2(Fffffa,FFFFFF),64,颜色相似度2?MsgBox颜色相似度3(Fffffa,FFFFFF),64,颜色相似度3?Function颜色相似度1(当前颜色,对比颜色)?Call Plugin.Color.ColorToRGB(当前颜色,R1,G1,B1)?Call Plugin.Color.ColorToRGB(对比颜色,R2,G2,B2)?颜色相似度1=1-round(abs(R1-R2)/255)+abs(G1-G2)/255)+abs(B1-B2)/255)/3,3)?End Function?Function颜色相似度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 Function?Function颜色相似度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,是则弹出对话框没有其他颜色,否则弹出第一个点的颜色值并退出程序.请写出代码?Dim x,y,RtColor?x=100:y=150?Do Whiley301?For x=100To200?RtColor=Plugin.Color.GetPixelColor(x,y,0)?If RtColorFFFFFFThenExitdo?Next:y=y+1?Loop?If RtColorFFFFFFThen?MessageBox X&,&Y&坐标点颜色为&RtColor?Else?MessageBox没有其他颜色?End If?EndScript?五 3、写一个函数，要求返回一个数值范围提示For循环与VBS命令函数应用。 ?TracePrint求偶数之和(1,61)?TracePrint求偶数之和(3,19)?TracePrint求偶数之和(0,83)?TracePrint求偶数之和(2,1)?EndScript?Function求偶数之和(参数1,参数2)?Dim差,i?求偶数之和=0:差=Abs(参数1-参数2)?If差mod2=1Then:差=差-1:End If?For i=0To差/2-1?求偶数之和=求偶数之和+差-i*2?TracePrinti=&i&求偶数之和=&求偶数之和&差=&差-i*2?Next?End Function?五 4、遍历字符串A1a2d5m8Qz,取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码?Dim Str,k,XiaoXie,新字符串?Str=A1a2d5m8Qz?For k=1To Len(Str)?XiaoXie=LCase(mid(Str,k,1)?If XiaoXie=mid(Str,k,1)Then?新字符串=XiaoXie&新字符串?End If?Next?TracePrint新字符串?五 5、写一个脚本，要求在画图工具中画一个渐变放大的多边形（大于4边）漩涡效果图。 提示For循环的应用。 ?Call画多边漩涡(400,200,50,7)/五边形?EndScript?Sub画多边漩涡(x,y,r,n)?/x圆心横坐标y圆心纵坐标?/r半径n多边形的边数?Const PI=3.1415926?Dim x1,y1/起点坐标?dim x2,y2/下一个点坐标?x1=x?y1=y-r?Dim t?t=PI?For i=1To30?If i1Then?MoveTo x1,y1?Delay20?LeftUp1?End If?MoveTo x1,y1?Delay20?LeftDown1?t=t-pi*2/n?x2=x+int(r*sin(t)?y2=y+int(r*cos(t)?/更新起点坐标?x1=x2?y1=y2?r=r+2?Next?End Sub?五 1、写一个脚本，要求在画图工具中画一个渐变放大的圆形漩涡效果图。 提示cos函数与sin函数应用。 ?Call画漩涡(420,280)?EndScript?Function画漩涡(起点X,起点Y)?Dim HX,HY,n?n=1?While HX600?MoveTo HX,HY:Delay3?HX=起点X+cos(n)+n*sin(n)?HY=起点Y+sin(n)-n*cos(n)?n=n+0.1?Wend?End Function?五 2、随机生成一个1100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码Dim随机,猜测,下限,上限,次数?Randomize?随机=Int(100*Rnd+1)?TracePrint随机=&随机?下限=1:上限=100?猜测=Cint(InputBox(请输入你的猜测,猜数字游戏)?For次数=1To99:Delay100?If猜测下限Then:下限=猜测?ElseIf猜测随机and猜测10,请写出代码Dim十进数?十进数=InputBox(输入你想转换的十进制数字,十转八进制算法,)?MsgBox十进制数&十进数&八进制数&十转八进制算法(十进数),64,程序提示?EndScript?Function十转八进制算法(十进数)?十转八进制算法=?While十进数0?十转八进制算法=十进数Mod8&十转八进制算法?十进数=十进数8?Wend?End Function?四 1、切换所有标题包含Inter Explorer的窗口,请写出代码?Dim HwndEx,MyArray,i?HwndEx=?HwndEx=Plugin.Window.Search(Inter Explorer)?If HwndExThen?MyArray=Split(HwndEx,|)?For i=0To UBound(MyArray)-1?模糊搜索最后一个值是空的所以忽略?Call Plugin.Window.Top(Clng(MyArray(i),0)?Call Plugin.Msg.Tips(当前共有&UBound(MyArray)&个窗口包含“Inter Explorer”&VbCrlf&切换为第&i+1&个窗口)?Delay1500?Call Plugin.Window.Top(Clng(MyArray(i),1)?Next?Else?Call Plugin.Msg.Tips(当前没有包含“Inter Explorer”的窗口)?End If?EndScript?四 2、规定区域内随机输出一个日期,例如xx-01-01到xx-03-31之间的某一天,请给出代码?Do?TracePrint随机日期=&随机产生日期(xx-01-01,xx-03-31)?Delay1500?loop?EndScript?Function随机产生日期(起始年月日,终止年月日)?Dim间隔,随机数?间隔=DateDiff(d,起始年月日,终止年月日)?随机数