按键精灵 脚本-学习VBS的一个不错的教程
字体：[ ] 类型：转载 时间：
现在看到很多朋友都不明白VBS，但我也没有时间全部写完，所以一天写一些，边写边和大家交流，也希望有朋友能接着写或指出我的错误。
今天我就从总体上对VBS进行介绍，希望能给大家一个直观的印象。另外，讲解与按键官网的按键精灵教程（李悦制作）相结合，帮大家看懂这个东东。 一、概述 要让计算机做事情就必须由人给它指令。原来的指令很复杂，都是些0011001之类的东西，后来逐渐简化，指令也更接近于人类的语言。VBS(Microsoft(R)&Visual&Basic(R)&Scripting)也是高级语言的一种，和其他高级语言相比，它有简单易学的特点，是电脑初学者涉足编程领域的良好入口。 如果说从低级语言进化到高级语言是人类控制计算机的战略问题，那么具体的设置变量、循环就是控制计算机的具体战术问题。我们现在学习的也就是用VBS让计算机为我们工作的战术。 二、从最简单的东西入手。 网络叫卖脚本： vbs&i vbs&i=10 while&i&0 SayString&卖XXX，价格面议。 vbs&i=i-1 delay&10000 endfor 看到这个脚本很多人就嗤之以鼻了，实现不断叫卖的方法很多，有的比这个脚本简单几倍。但随着讲解的进行，我们会发觉VBS提供给我们的是一个强大的工具。下面先来这几行都是什么意思。 vbs&i&//告诉计算机有个叫i的变量。 vbs&i=10&//这个变量为10 while&i&0&//当这个变量大于0的时候就执行下面直到看见第一个endfor的地方。 SayString&卖XXX，价格面议。&//按键语句：输出文字 vbs&i=i-1&//这个变量减去1，然后又把减1后的数作为i的值。 delay&10000&//按键语句：暂停10秒（10000毫秒） endfor&//回到while处 效果：叫卖10次后就结束。 现在我要花点力气解释一下为什么要折腾出这么多麻烦的东西。 变量的用处和重要性 其实这个程序完全可以写成 SayString&卖XXX，价格面议。 delay&10000 SayString&卖XXX，价格面议。 delay&10000 ……重复N次 SayString&卖XXX，价格面议。 delay&10000 其实再复杂的程序段都能被还原成顺序的程序，用很多复杂的东东不是为了显示编程能力，而是为了给自己方便。 当我们一直卖XXX的时候可能没有什么感觉，但当我们卖YYY的时候呢？要全部改过吗？或者我们要重复1000次，后来只重复500次了，难道要认真地数500下，然后删除后面的吗？当然，我们编这个小程序改起来还比较惬意。但要提高发展就得做大程序，还必须要依靠我们的变量朋友。 变量其实是一个字符代号，象你我的名字一样，为的是把各个变量区别开来，让他们分头工作。为变量取名字的时候可以用数字、字符、和下划线，但不可以用汉字、空格和其它奇奇怪怪的符号，另外数字不能用于第一个字符。 在使用变量之前要先写一个象vbs&i这样的语句，意思是现在本人指派一变量，取名为i，参加到这个程序运行中。其实你可以不用履行这样的报名程序，直接在程序的某处使用i，但实践证明这是一个不好的习惯，让你写大程序的时候寸步难行。 然后vbs&i=10则告诉程序，这个变量i现在的值为10，以后凡是用到i的地方，就相当于是10在那里。比如vbs&j=i+1其实就相当于j=10+1，所以j的值为11。 变量的魅力不仅在于它可以代替数字，而且还可以代替字符，但和数字比起来，字符有其特殊性。 比如： vbs&i="字符" vbs&j="串接" vbs&a=i&&&j 此时a就是字符串接。注意这里出现的两个新符号："号和&符号。可能有人已经猜出来他们的作用了。"号之间的内容为字符。电脑对vbs&i=10和vbs&i="10"有着截然不容的理解。&号为字符串接号。如果a=j&&&i，那么a就是串接字符。 知道了变量的用法后，我们就可以把叫卖程序改得更有趣。比如我们想让程序说不同的话，先说10次卖XXX，再说10次卖YYY。那我们就可以写成： vbs&i vbs&i=10 while&i&0 ifexpression&i&=5 SayString&卖XXX，价格面议。 endif ifexpression&i&5 SayString&卖YYY，价格面议。 endif vbs&i=i-1 delay&10000 endfor 其实我们用了个编程的小技巧，就是用变量i的大小控制程序的走向。可见前5次卖YYY，后5次卖XXX。 或者我们先叫XXX一次，再叫YYY一次，然后重复前面的动作： vbs&i vbs&i=10 while&i&0 ifexpression&i&mod&2&=&0 SayString&卖XXX，价格面议。 endif ifexpression&i&mod&2&=&1 SayString&卖YYY，价格面议。 endif vbs&i=i-1 delay&10000 endfor 这里也用了一个用i控制程序运行的方法。mod是和+、-、*一样的运算符号，作用是取余数。如10&mod&2&=&0的意思是10除以2，其余数是0。同样9&mod&2&=&1，8&mod&2&=&0，7&mod&2&=&1，6&mod&2&=&0，5&mod&2&=&1…… 哎呀，暂时写到这里。 其实这个脚本是按键精灵下的脚本，没有写清楚，不好意思啊，如果想看vbs教程，建议下载一份 ，然后看脚本之家的vbs栏目的前期发的文章。开始的时候基础发的多一些。
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具您好，欢迎来到！
[64546]求一个按键精灵编写的传奇能自动打怪拣东西的脚本
悬赏已经到期，等待雇主评标
赏金分配：单人中标，一人独享赏金。
雇主选一人中标，一人独享中标金！
雇主已托管全部赏金，中标者可得到悬赏金的80%。
求一个传奇私服用的按键精灵脚本，能自动打怪然后能识别地上掉的元宝并拣起来用掉。
需要使用在一个私服上，相关资料请与我Q***联系 [补充于
页面加载中...
评论加载中...
分享可赚钱，赶快告诉您的朋友吧大神们，小弟发现一个很奇怪的问题，求指导 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.6软件大小：62.5M更新时间：09-27
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 81|回复: 0
Dim a, x, ya = 1x = 2y = 4RunApp &C:\Program Files (x86)\Internet Explorer\iexplore.exe &//查找窗口类名(&IEFrame&)或者标题(0),返回找到的句柄HwndHwnd = Plugin.Window.Find(&IEFrame&, 0)Call Plugin.Window.Max(Hwnd)Delay 1000//账号输入——————————————————————————————————FindPic 0,0,,&Attachment:\账号输入.bmp&,0.9,intX,intY//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。If intX & 0 And intY & 0 Then &&&&MoveTo intX + 150, intYLeftClick 1SayString &fangy0477@bhg.&End If//密码输入——————————————————————————————————FindPic 0,0,,&Attachment:\密码输入.bmp&,0.9,intX,intY//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。If intX & 0 And intY & 0 Then
MoveTo intX + 150, intY
LeftClick 1&&&&SayString &123456&&&&&KeyPress &Enter&, 1End IfDelay 2000//获取浏览器内的句柄llq = Plugin.Window.MousePoint()//找到全局导航菜单并点击——————————————XY = Plugin.Bkgnd.FindMultiPicEx(llq, 0, 0, , &C:\Users\admin\Desktop\数据质量提升脚本\修改客户证件号码脚本\识图图像\全局导航.bmp&, 0, 0.9)iNum = Split(XY, &|&)For n = 0 To UBound(iNum)
iZB = InStr(iNum(n), &,&)
X = CLng(Left(iNum(n), iZB - 1))
Y = CLng(Right(iNum(n), Len(iNum(n)) - iZB))Next//向后台窗口句柄(变量：llq)发送一个鼠标移动到客户区域(坐标：X, Y)处Call Plugin.Bkgnd.MoveTo(llq, X, Y)Call Plugin.Bkgnd.LeftDown(llq, X, Y)Delay 500Call Plugin.Bkgnd.LeftUp(llq, X, Y)Delay 1000//找到业扩————————————————————————————FindPic 0,0,,&Attachment:\业扩.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1Delay 1000End If//找到客户信息维护————————————————————————FindPic 0,0,,&Attachment:\客户信息维护.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1End IfDelay 1000//进入客户一般资料变更——————————————————————FindPic 0,0,,&Attachment:\客户一般资料变更.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then &&&&Delay 2000&&&&MoveTo intX, intY&&&&LeftClick 1End IfDelay 1000//判断是否存在弹窗————————————————————————//查找类名是#32770且标题是&来自网页的消息&的窗口，查找方式1HwndEx = Plugin.Window.SearchEx(&#32770&,&来自网页的消息&,1)If HwndEx && llq ThenKeyPress &Enter&, 1End If//进入档案信息查询获取用户编号————————————————XY = Plugin.Bkgnd.FindMultiPicEx(llq, 0, 0, , &C:\Users\admin\Desktop\数据质量提升脚本\修改客户证件号码脚本\识图图像\全局导航.bmp&, 0, 0.9)iNum = Split(XY, &|&)For n = 0 To UBound(iNum)
iZB = InStr(iNum(n), &,&)
X = CLng(Left(iNum(n), iZB - 1))
Y = CLng(Right(iNum(n), Len(iNum(n)) - iZB))Next//向后台窗口句柄(变量：llq)发送一个鼠标移动到客户区域(坐标：X, Y)处Call Plugin.Bkgnd.MoveTo(llq, X, Y)Call Plugin.Bkgnd.LeftDown(llq, X, Y)Delay 500Call Plugin.Bkgnd.LeftUp(llq, X, Y)Delay 1000//点击业扩————————————————————————FindPic 0,0,,&Attachment:\业扩.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1Delay 1000End If//点击查询功能————————————————FindPic 0,0,,&Attachment:\查询功能.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1End IfDelay 1000//点击查询功能——————————————————FindPic 0,0,,&Attachment:\客户档案信息查询.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1End IfDelay 500//客户综合档案查询————————————————FindPic 0,0,,&Attachment:\客户综合档案查询.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1End IfDelay 1000//利用客户编号查询用户编号FindPic 0,0,,&Attachment:\点点点.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX - 100, intYLeftClick 1End IfDelay 1000//读取excel表格数据————————————————————————For i=1 To 10//打开Excel文档工作表Call Plugin.Office.OpenXls(&C:\Users\admin\Desktop\北海数据.xlsx&)Text = Plugin.Office.ReadXls(1, x, y)Call Plugin.Sys.SetCLB(Text)MessageBox TextCall Plugin.Office.CloseXls()MessageBox TextNext源码到此为止~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这里面的//读取excel表格数据————————————————————————For i=1 To 10//打开Excel文档工作表Call Plugin.Office.OpenXls(&C:\Users\admin\Desktop\北海数据.xlsx&)Text = Plugin.Office.ReadXls(1, x, y) x=x+1Call Plugin.Sys.SetCLB(Text)Call Plugin.Office.CloseXls()MessageBox TextNext这段代码单独测试的时候能正常提取excel表格里面的数据，但是不知道为什么在整段程序里面运行的时候，就不能读取到EXCEL表格里面的数据了，求大神指导 为嘛按键精灵1--6级答案_甜梦文库
按键精灵1--6级答案
以下哪一个不是按键精灵的产品? 按键箱子 录制的脚本没有以下哪个功能? 记录鼠标特征码 下列哪一个命令不属于&全部命令&? 内核命令 按键精灵自带的抓图工具是? 按键抓抓 哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明 会出现在编辑器下方. 按键精灵不可以在以下哪个系统中使用? Linux 可以使用神盾功能的程序是? 小精灵商业版 旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用&自动 缩进&功能 WaitClick 命令的含义是? 按任意鼠标键继续 哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版 只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Plugin 目录下装有不是官方提供的插件引起的 关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本 GetLastClick 命令的含义是? 检测上次按过的鼠标键 按键精灵生成的小精灵程序的后缀名是? EXE 按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享 受版主资源 网页按键精灵是下列哪一个程序? wqm.exe 按键精灵的产品包括以下哪一个? 按键盒子 按键精灵是下列哪一个程序? 按键精灵 9.exe 按键精灵会员卡注册码,没有以下哪一种? 天卡(1 天) UnlockMouse 命令的含义是? 解除锁定鼠标位置 按键精灵会员不能享受的资源是? 免费小精灵的源代码 RightUp 命令的含义是? 右键弹起 按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器 按键精灵能兼容下列哪一种语言? VBS 不能用抓抓工具直接获取的是? PID 关于按键精灵的描述， 以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作 的软件 脚本编辑界面上没有的按钮是?启动 与取色判断命令没有直接关系的参数是? 按键码 以下哪种方式可以在脚本编辑界面中获取到新的插件? 点击&资源库&按钮,然后 导入需要的插件 LeftClick 命令的含义是? 左键单击 按键精灵官方网站的网址是? / RestoreMousePos 命令的含义是? 恢复上次保存的鼠标位置 如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾 SaveMousePos 命令的含义是? 保存当前鼠标所在位置 GetCursorPos 命令的含义是? 得到鼠标位置坐标 键盘命令的类型不包括? 锁定 按键精灵里运算符乘号是? *KeyPress 命令的含义是? 按键 MiddleClick 命令的含义是? 中键单击 LockMouse 命令的含义是? 锁定鼠标位置 按键精灵会员不能享受的功能是? 脚本编写服务 GetCursorShape 命令的含义是? 得到鼠标形状 按键精灵自带的用户界面叫做什么? QUI 界面 RightClick 命令的含义是? 右键单击 按键精灵里运算符减号是? 按键精灵默认的启动热键是? F10 属于&全部命令&的是? 我的命令库 “录制”功能不能录制的内容是? 记录鼠标指向的窗口句柄 按键抓抓是下列哪一个程序? picker.exe 想要知道脚本是否存在错误,应该使用下列哪个功能? 调试 以下哪种方式不可以获得论坛银币? 发布大量无内容的主题贴 按键精灵里运算符除号是? / 按键精灵会员不能享受的技术支持是? 技术人员上门服务 按键精灵自带的功能不包括以下哪一个? 路由功能 GetLastKey 命令在获取一次 ANSI 字符代码后继续循环执行返回值是？0 变量的定义，以下哪个是正确的? dim a 下列哪一种方法不能够正确输入命令? 鼠标右键单击命令 按键精灵的功能是？模拟鼠标键盘操作的工具 MoveR 命令的含义是? 相对移动 关于小精灵去广告的描述， 下列正确的是? 会员用户在“制作按键小精灵”界面 上-&更多设置-&选择会员去广告（是）即可 按键精灵里运算符加号是? + 对小精灵的描述， 以下是正确的? 按键小精灵是把按键精灵的脚本打包成一个可 单独执行的 EXE 程序，便于传播以及提供给新手使用。 LeftDown 命令的含义是? 左键按下 键鼠的模拟方式不包括以下哪一个? 虚拟模拟 3、区域找图的命令是? FindPic 4、按键精灵语言大小写的描述哪一个是正确的? 按键精灵不区分大小写 7、KeyPress 命令有几个参数? 2 13、不能实现键盘按下&A&键的命令是? KeyPressW &A&,1 15、下列哪一个不是循环命令? Select Case 颜色值为&000000&是什么颜色? 黑色 以下哪一个不属于按键精灵的&全部命令&? 远程嗅探命令 20、下列 RGB 颜色值，书写正确的是? &DD& 23、GetPixelColor 命令有几个参数? 2 25、以下哪一段命令能正确执行&如果(70,416)的颜色等于&FFFFFF&则鼠标移动 到点(100,200)&? IfColor 70, 416, &FFFFFF&, 0 Then:MoveTo 100,200:End If 26、以下哪一个写法不能点击&shift&键? KeyPress 60, 1 28、下列哪一个不是逻辑运算符? Const33、FindColorEx 命令有几个参数? 9 36、下列哪一段代码不能输出&L&键? Keyup &L&, 1 44、SetSimMode 1 的实际意义是? 使用硬件模拟 1、鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为： D50,100 2、&F10&的按键码是? B. 121 3、下列哪一个不是键盘命令?A KeyClick 4、循环可以使用下列哪个语句? B. For 语句 5、回车键的按键码是? A. 13 6、默认情况下某些特定窗口模拟按键可能失效,以下哪种方法可能可以解决? D. 在脚本开头增加代码:SetSimMode 2 7、如何退出 For 循环的命令? D. Exit For 8、 得到一个按键的按键码,以下哪一个方法是完全正确的? 在按键精灵编辑界面 的基本命令的键盘命令部分查询 9、鼠标右键按下的命令是? RightDown 10、以下哪一个命令不会暂停脚本? for...next 11、下列哪一个是键盘命令? KeyPress 12、鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为： 100,150 13、鼠标左键按下的命令是? LeftDown 14、解除鼠标锁定是下列哪一个命令? UnlockMouse 15、组合键&CTRL+C&的正确按键顺序是? 按下&CTRL&,点击&C&,弹起&CTRL& 16、下列属于鼠标命令的是? RightClick 17、以下哪一种方式不能无限循环? 在脚本开头加入&For 10000&,脚本尾部加入 &Next& 18、WaitKey 命令有几个参数? 0 19、如何退出 Do 循环的命令? Exit Do 20、下列哪一个是鼠标命令? LeftClick 21、下列 RGB 颜色值，书写错误的是? &FFFFFFFF& 22、 以下哪一个 KeyPress 命令的路? 检测血条上某一点,如果此点不是血条的颜 色则执行加血操作 23、FindColor 命令有几个参数? 7 24、哪一种不能正确调用 KeyPress 命令? KeyPress &FA&,1 25、延时的命令是? Delay 26、取指定点颜色的命令是? GetPixelColor 27、延迟 2 小时,以下哪一句代码是正确的? Delay *2 28、以下哪一个是自动打怪的思路? 检测怪物血条上某一点,如果此点是血条的 颜色则执行打怪操作 29、EndScript 命令的意义是? 脚本停止运行 30、以下哪一个是循环命令? for...next 31、SetSimMode 命令有几个参数? 1 32、鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为? 100,10033、区域找色的命令是? FindColor 34、FindPic 命令有几个参数? 8 35、按键精灵找图命令需要的图片格式是下列哪一个? *.BMP 36、脚本停止运行命令是哪一个? EndScript 37、延迟 1 天,以下哪一句代码是正确的? Delay *24*1 38、下列哪一个命令会暂停脚本? WaitClick 39、不能正确调用 KeyPress 命令的写法是? KeyPress &FB&,1 40、鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为? 100,100 41、代码 KeyPress &A&，1 调试后提示出错,错误的原因是? 逗号使用了全角符 号无法识别导致错误 42、锁定鼠标位置是下列哪一个命令? LockMouse 43、下面哪一个命令会暂停脚本? MsgBox 44、鼠标左键单击的命令是? LeftClick 45、鼠标左键双击的命令是? LeftDoubleClick 46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号? & 47、以下哪一个命令能够延时 1 个小时? delay
48、按键码 105 是下列哪一个按键? NUM 9 49、 指定句柄进行截图， 以下哪种情况不会导致截到的图是黑色？窗口标题动态 变化 50、空格键的按键码是? 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&) Msgbox &anjian&&1 将会弹出什么内容? anjian1 以下哪一个命令可以将表达式转化为字符串：Cstr 10、假如“神盾”图像存在，以下无法识别到图像的命令是？ FindPic 0, 0, , &神盾.jpg&, 0.9, intX, intY 11、IsNumeric(n)，当 n 等于&VrBrothers&时返回什么？False 12、Redim 命令的作用对象是? 数组 1、关于 GetLastKey 命令的描述哪一个是错误的? 2. 以下不属于按键命令的是？ OnThreadLoad D. 返回值是字符串3. 假如 MyDate = &October 19, 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. 选出以下命令参数错误的。 Import &Window& 20.MsgBox 命令最多可以使用几个参数? 5 个 21. GetLastKey 命令在获取一次 ANSI 字符代码后继续循环执行返回值是？ 0 22. 以下选项中不符合调用规则的是？Asc(F1) 23. 以下关于按键抓抓描述错误的是？支持后台找色找图效果测试 24.Media.Play 命令不支持哪个文件格式。Mp4 25.数组 MyArray(5)的最大可用下标为?Ubound 5 26.数组 MyArray(5)包含的元素个数为?6 27.字符串&&H22&用 Clng 命令转换后除以 2 再用 Cstr 命令转换,最后结果为? ‘‘17’’ 29.由 RGB 分量分别为(50,50,50)的颜色值得到的 16 进制颜色值为? .当 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.以下哪个不是数学函数：ccur 55.以下哪个的值是 true：not（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. 132 Mod 13 的值为?:2 69.变量名称不合法：1MyArray 70.str=mid(&234&,2,1)：&3& 71.哪个事件最先响应：onscriptload 72.以下哪一个命令的功能是设置屏幕分辨率?：setsc 73.QUI 输入框控件返回值的变量类型是?：字符串 74.按键精灵的产品包括以下哪一个? ：按键盒子 75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助 说明会出现在编辑器下方. 76.关于加密脚本的描述， 下列是错误的是?：只有会员输入密码可以解开加密脚本 77.鼠标所在位置为(50,50),经过命令 MoveTo 50,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.05 Mod 2 ,那么 a 的值为? 0 82.Round(3.)返回值为什么？3.14159 83.Int(3\2)返回值等于多少？ 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 To True : Next 6、以下命令无法改变窗口大小的是？ Call Plugin.Window.Move(Hwnd, 100, 100) 18、选出下列非键鼠操作的命令。 22、以下关于按键抓抓描述错误的是？ 1、当 n=3.，以下语句返回值是绝对值的是？B. Abs(n) 4、以下哪一个变量不可能是数组? Const MyArray=2 5、假如 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 &6& 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.)返回值为什么？3.14159 13、GetCursorShape(0)该命令返回值类型为？整数类型 17 、 执 行 Call Plugin.File.WriteINI(&Command&, &Val&, & 内 容 &, &.\Config.ini&)命令后，IsFile = Plugin.File.IsFileExit(&.\Config.ini&) 返回值是？true 1、PrintScreen 命令支持那种格式截图。D jpg 2、以下命令哪个不属于按键命令？StopScript 10、FindMutiColor 命令的颜色特征点最少为几个？2 个？ 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&) Delay 1000 父窗口句柄 = 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 = 0 To 9 随即 Int(i1) = Int((100 - 50 + 1) * Rnd + 50) TracePrint i1 & &：& & 随即 Int(i1) Next For 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 Then Exit For Next TracePrint &【冒泡排序后输出】& For i1 = 0 To 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 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 查询 = InputBox(&退出：Q 编号&) 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 搜索返回 = && : 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(搜索返回, &,&) 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 删除 = &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 主页：H&, &查询?请输入编号进行查询&, &Do Input 增加 = InputBox(&退出：Q 主页：H& & vbcrlf & vbcrlf & &格式：姓名 |年龄|身高& & vbcrlf & &例如：李雷|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(&退出：Q 主页：H& & vbcrlf & vbcrlf & &查询：1 搜索： 2 删除：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 = 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 = 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 Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 关键字) & 0 Then 搜索 = 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 Until objFile.AtEndOfStream strLine = objFile.Readline If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then 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 Until objFile.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、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码 '六、杨辉三角百度说明:/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 While y & 301 For x = 100 To 200 RtColor = Plugin.Color.GetPixelColor(x, y, 0) If RtColor && &FFFFFF& Then Exit do Next : y = y + 1 Loop If RtColor && &FFFFFF& Then MessageBox X & & , & & Y & &坐标点颜色为：& & RtColor Else MessageBox &没有其他颜色& End If EndScript '五：3、写一个函数，要求：返回一个数值范围内所有偶数之和。参数 1、参数 2：整数型， 数字 提示：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 差 mod 2 = 1 Then : 差 = 差 - 1 : End If For i = 0 To 差 / 2 - 1 求偶数之和 = 求偶数之和 + 差 - i * 2 'TracePrint &i=& & i & & 求偶数之和=& & 求偶数之和 & & 差=& & 差 i*2 Next End Function '五：4、遍历字符串&A1a2d5m8Qz&,取出所有小写字母及数字,并按照与原来相反的顺序拼接 成新的字符串,请写出代码 Dim Str, k, XiaoXie, 新字符串 Str = &A1a2d5m8Qz& For k = 1 To 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 = 1 To 30 If i & 1 Then MoveTo x1, y1 Delay 20 LeftUp 1 End If MoveTo x1, y1 Delay 20 LeftDown 1 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 HX & 600 MoveTo HX, HY : Delay 3 HX = 起点 X + cos(n) + n * sin(n) HY = 起点 Y + sin(n) - n * cos(n) n = n + 0.1 Wend End Function'五：2、随机生成一个 1~100 之间的整数,玩家可以通过函数 InputBox 命令输入数字来猜测 那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： Dim 随机, 猜测, 下限, 上限, 次数 Randomize 随机 = Int(100 * Rnd + 1) TracePrint &随机=& & 随机 下限 = 1 : 上限 = 100 猜测 = Cint(InputBox(&请输入你的猜测&, &猜数字游戏&)) For 次数 = 1 To 99 : Delay 100 If 猜测 & 随机 and 猜测 & 下限 Then : 下限 = 猜测 ElseIf 猜测 & 随机 and 猜测 & 上限 Then : 上限 = 猜测 ElseIf 猜测 = 随机 Then MsgBox &总共& & 次数 & &次猜中了 八戒 看来今年你又要涨价了！&, 64, &程 序?提示& Exit For End If 猜测 = Cint(InputBox(&答案范围为： & 下限 & &~& & 上限, &程序? & 提示 还可再猜& & 100 - 次数 & &次 &)) Next EndScript '五：3、筛选出 100 以内所有个位数加十位数等于 10 的数,例如 82,8+2=10 满足条件,请写出 代码 Dim Text, T, G, S For T = 0 To 99 G = T Mod 10 S = Int(T / 10) If (G + S) = 10 and Text && && Then : Text = Text & &，& & T ElseIf (G + S) = 10 and Text = && Then : Text = T End If Next MsgBox &100 以内所有个位数加十位数等于 10 的数：& & VbCrlf & VbCrlf & Text, 64, &程 序?提示& EndScript ' 五 ： 4 、 写 一 个 函 数 ， 已 知 一 段 坐 标 信 息 的 字 符 串 为 ： &260,270|290,260|310,230|320,200,10|300,150|280,150,10|270,130|250,130& ， 计 算 得 出 离 185,246 坐标最近的一组坐标。提示：For 循环与数组应用。 TracePrint 坐标最近判断(&260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130&, &185,246&) EndScript Function 坐标最近判断(信息, 坐标) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, &|&) '信息分离 Str = Split(坐标, &,&) '坐标分离 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标 X 与 Y 值For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的 平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2 Else Ping = Ping & &/& & (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, &/&) : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint &b(& & i & &)=& & b(i) If Clng(b(i)) & Clng(c) Then : c = b(i) : a = i : End If Next 坐标最近判断 = Arr(a) End Function '五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如&8&-&&10&,请写出代码 Dim 十进数 十进数 = InputBox(&输入你想转换的十进制数字&, &十转八进制?算法&, &&) MsgBox &十进制数：&&十进数 & & → 八进制数：& & 十转八进制算法(十进数), 64, &程 序?提示& EndScript Function 十转八进制算法(十进数) 十转八进制算法 = && While 十进数 & 0 十转八进制算法 = 十进数 Mod 8 & 十转八进制算法 十进数 = 十进数 \ 8 Wend End Function '四：1、切换所有标题包含&Internet Explorer&的窗口,请写出代码 Dim HwndEx, MyArray, i HwndEx = && HwndEx = Plugin.Window.Search(&Internet Explorer&) If HwndEx && && Then MyArray = Split(HwndEx, &|&) For i = 0 To UBound(MyArray) - 1 '模糊搜索最后一个值是空的所以忽略 Call Plugin.Window.Top(Clng(MyArray(i)), 0) Call Plugin.Msg.Tips(&当前共有& & UBound(MyArray) & &个窗口包含“Internet Explorer”& & VbCrlf & &切换为第& & i + 1 & &个窗口&) Delay 1500 Call Plugin.Window.Top(Clng(MyArray(i)), 1)Next Else Call Plugin.Msg.Tips(&当前没有包含“Internet Explorer”的窗口&) End If EndScript '四：2、规定区域内随机输出一个日期,例如 &&到&&之间的某一天,请给 出代码 Do TracePrint &随机日期=& & 随机产生日期(&&, &&) Delay 1500 loop EndScript Function 随机产生日期(起始年月日, 终止年月日) Dim 间隔, 随机数 间隔 = DateDiff(&d&, 起始年月日, 终止年月日) 随机数 = Int((间隔 + 1) * Rnd) 随机产生日期 = DateAdd(&d&, 随机数, 起始年月日) End Function '四：3、生成[2,6]个[65，90]之间的偶数,并将生成的数转为与指定的 ANSI 字符代码相对应 的字符,最终合并结果 MessageBox 弹出。请给出代码。 Dim 字母个数 Do Randomize 字母个数 = Int((6 - 3 + 1) * Rnd + 3) MessageBox 随机偶数 ANSI 码(字母个数, 65, 90) Delay 500 loop EndScript Function 随机偶数 ANSI 码(字符数, 下限, 上限) Dim 随机数值, 字母 Asc Randomize For 字符数 随机数值 = int((上限 - 下限 + 1) * Rnd + 下限) If 随机数值 mod 2 = 1 Then 随机数值 = 随机数值 - 1 If 随机数值 = 64 Then 随机数值 = 66 字母 Asc = 字母 Asc & Chr(随机数值) Next 随机偶数 ANSI 码 = 字母 Asc End Function '三：1、写出用 goto 命令循环十次的过程 Dim a1 a1 = 10 Rem 从这里开始 TracePrint &倒计次了！& & a1a1 = a1 - 1 If a1 & 0 Then Goto 从这里开始 EndScript '三：2、(前台)依次按下&AJJL&四个键,中间延迟 100 毫秒,循环 10 次 Dim p For p = 1 To 10 KeyPress 65, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 76, 1 Delay 100 Next EndScript '三：3、有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设 a=4,b=2),请给出代码 Dim a, b a=4:b=2 MessageBox a + b MessageBox a - b MessageBox a * b MessageBox a / b ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ━━━━━━━━━━━━━━━━━━ 以下是 2、3、4 级部分选择题 较乱没有整理 按键精灵支持 jpg 格式截屏 8 常数 VbOk 的值为? msgbox 函数有以下返回值 常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 按键精灵可以调用 VBS11、 UserVar Var1=DropList{&选项 1&:&值 1&|&选项 2&:&值 2&|&选项 3&:&值 3&|&选项 4&:&值 4&}=n &设置内容&，问初始参数 Var1=&值 2&时，n 是多少？ 解释://格式: UserVar 变量=DropList{选项 0:值 0|选项 1:值 1|选项 2:值 2}=默认显示的选项编号 {注释} 这个命令预先设定多个变量值，用户可在基面通过下拉方式进行选择 ， 特别提醒：默认 显示的选项编号从 0 开始。 14、 以下命令可以获取当前窗口所在屏幕位置精确坐标的是？GetClientRect 字符串型， 客户 区大小注 返回为： 客户区窗口左角 X 坐标|客户区窗口左上角 Y 坐标|客户区窗口宽度|客户区窗口高度 15、假如 a=&123abc456&，b=&abc123def&，c=&abc，d=&123&，以下返回值正确的是？ 17、以下哪一个函数返回值数据类型与其他三个不一样? 18、关于自定义变量的描述以下哪一个是正确的? 19、Join 命令的参数类型是? Join(list[，delimiter]) list 必选。包含要联接的子字符串一维数组。 delimiter 可选。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 (&&)。 如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。20、选出返回值与其他三种不一样的选项。 21、True 的值是? TracePrint True -1 TracePrint False 0 TracePrint CBool(- 1 ) -1 TracePrint CBool(1) -1 TracePrint CBool(0) 0 TracePrint CBool(2) -1 TracePrint CBool(- 2 ) -1 true,false 是 bool 布尔型.个人认为这两个是代表对立的两面,如汉字的真,假.你说真假是几? 实体书上说 true 输出值-1,false 是 0 22、下列语句中无法达到无限循环效果的是？ 24、由 RGB 分量分别为(50,50,50)的颜色值得到的 16 进制颜色值为? Color = Plugin.Color.GetRGB(50, 50, 50) msgbox &得到 16 进制颜色值:& & color 、Set 语句的含义是? D. 将对象引用赋给变量或属性 4、以下命令哪个不属于按键命令？ D. StopScript 6、以下无法获取句柄的命令是？bA. Foreground B. Active C. Search D. MousePoint 9、False 的值是? A. 014、返回已添加指定时间间隔的日期应使用下列哪一个函数?c A. DatePart 函数 返回给定日期的指定部分。 B. DateDiff 函数 返回两个日期之间的时间间隔 C. DateAdd 函数 返回已添加指定时间间隔的日期 D. Date 函数 返回表达式，此表达式已被转换为 Date 子类型的 Variant 7、以下哪 1 个返回值是字符串 b A len(&anjian&) b &anjian&&&vrbrothers& c &10&-1 d clng(&520&) 20、以下无法获取句柄的命令是？ c A. MousePoint 得到鼠标指向的窗口句柄返 回 值 整数型，窗口句柄 B. Search 遍历符合窗口标题的句柄保存到数值串里返 回 值 字符串型，句柄数值串 C. Active 激活窗口 返 回 值 无 D. Foreground 得到当前最前面的窗口句柄返 回 值 整数型，窗口句柄 23.Text = Plugin.File.ReadINI(&Command&, &Val&, &C:Config.ini&) 24、 以下哪一个命令的功能是设置屏幕分辨率? A. SetCLB 设置剪切板内容 B. GetScRY 获得屏幕分辨率高度 C. SetSc 命令功能 设置屏幕分辨率/颜色质量 D. GetScDep 命令功能 获得屏幕色深度(颜色质量) TracePrint IsNumeric (&VrBrothers&)返回 Boolean 值指明表达式的值是否为数字。 0 flase TracePrint IsNumeric (VrBrothers) -1 MyTime1 = Second(Time) MyTime2=Hour(Time) MyTime3 = Minute(Time) MyTime4 = Now(Time) now 无效 MsgBox MyTime1 MsgBox MyTime2 MsgBox MyTime3 4,以下哪个事件是最先响应的? A. OnScriptLoad 加载B. Form1.Label1.Click 角本不加载完成如何能实现界面点击后响应你的脚本你的脚本代 码呢 C. OnScriptExit D. OnThreadExit 5,PrintScreen 命令支持那种格式截图。A A. jpg B. gif C. TIF D. png 1、下列语句中无法达到无限循环效果的是？B A. While True : Wend 只要指定的条件为 True， 则会重复执行 While 和 Wend 之间的语句 B. For i = True To True : Next C. Do : Loop 可以循环 D. Do While True : Loop Do While True MsgBox A Loop 按键精灵奇怪现象点的多了快了就不跳出来方框了！ 3、VarType 函数的作用是? b A. 在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮 B. 返回指示变量子类型的值 C. 计算一个表达式的值并返回结果 D. 返回一个字符串，提供有关变量的 Variant 子类型信息 msgbox VarType(1)//整型子类型 2 msgbox VarType(1.1)//双精度子类型 5 msgbox VarType(&&)//字符串子类型 8 msgbox VarType(a)//初始化（默认）0 vbEmpty 0 未初始化（默认） vbNull 1 不包含任何有效数据 vbInteger 2 整型子类型 vbLong 3 长整型子类型 vbSingle 4 单精度子类型 vbDouble 5 双精度子类型 vbCurrency 6 货币子类型 vbDate 7 日期子类型 vbString 8 字符串子类型 vbObject 9 对象 vbError 10 错误子类型 vbBoolean 11 Boolean 子类型 vbVariant 12 Variant （仅用于变量数组）vbDataObject 13 数据访问对象 vbDecimal 14 十进制子类型 vbByte 17 字节子类型 vbArray 8192 数组4.QUI 输入框控件返回值的变量类型是什么类型?变体型?字符串? 你用 typename 查看下就知道了,返回的是字符串型 在大型脚本的设计中,以下哪一个命令不推荐使用 GOTO \\\\\、判断数字 a 是否为 3 的倍数或者以 3 为尾数,是则弹出信息提示框,请给出代码 If a mod 3 =0 or (a-3) mod 10 = 0 then msgbox &zxc& end if2、(后台)判断某句柄为 hwnd 的窗口的窗口坐标(50,100)处颜色是否为&FFFFFF&,是则在这个 点按下鼠标左键,请给出代码 Hwnd=331814 a = Plugin.BkgndColor.GetPixelColor(hwnd, 50,100) b=hex(a) MsgBox b If b = &FFFFFF& Then MsgBox &颜色是 FFFFFF& Else MsgBox &颜色 BU 是 FFFFFF& End If//下面这句在屏幕区域范围内截图保存到(内存)里，以备后面调用。 Call Plugin.ColorEx.PrintScreen(0, 0, ) //下面这句在屏幕区域范围内按方式 0，查找颜色,返回左上角第一点颜色位置坐标 XY = Plugin.ColorEx.FindColor(0, 0, , &0000FF&, 1, 0) //下面这句用于分割字符串 ZB = InStr(XY, &|&) //下面这句将字符串转换成数值 X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) //释放屏幕截图信息时请使用以下命令Call Plugin.ColorEx.Free() 1. 线程只能用线程 ID 结束 2 我的命令库&可以使用 API 函数 3 &我的命令库&中不可以使用环境变量 A. 一个子程序一般不可以改成函数,与调用规则有关 (可以改成函数) D.函数可以进行递归运算 B. 子程序和函数可以嵌套使用 C. 一个函数一般不可以改成子程序,与调用规则有关 ( 有返回值的不可以改成函数) 4.任何注释在编译时都会被去除For intX = 0 To 15 //这句是 intX 从 0 自加到 15 intX = intX + 1 //这句是 intX 自加 1 //当这两句一起发挥作用的时候，intX 在每 轮循环中就自加 2 了。 intY = intY + 1 Next 循环次数是 8，x 是 16 但是 INTY 的值是 8. 11、关于自定义变量的描述错误的是? C //A. 自定义变量可以在脚本完全启动后读取 //B. 自定义变量可以在脚本中重新赋值 //C. 自定义变量可以在脚本载入事件中读取 //D. 自定义变量可以在脚本退出事件中读取 13、GetCursorShape 命令有几种获取鼠标形状的方式? var = GetCursorShape(1) var = GetCursorShape(0) 是两种 8 下列哪一个表示十六进制整数的方法是正确的？ C A. &&H0031D92A& B. 0031D92A C. &H0031D92A D. &0031D92A& 10、创建一个对象需要用到的命令是? D A. GetObject 返回对文件中 Automation 对象的引用。 B. IsObject 返回 Boolean 值指明表达式是否引用了有效的 Automation 对象。 语法C. Set 将对象引用赋给变量或属性。 D. CreateObject 创建并返回对 Automation 对象的引用。 4、关于字符串中存在字符引号的描述错误的是?A A. 可以用一个引号表示 B. 可以用两个引号表示 若字符串中有双引号， 例如 ABD&XYZ , & & 则用连续两个双 引号表示，即：&ABD&&XYZ& , &&& &&&。 C. 可以用 chr(34)拼接表示 chr(34)是双引号 & chr(34)是连接双引号 chr(34)chr(34)& & chr(34)chr(34) D. 可以用 chr(&H22)拼接表示 十六进制的 chr(&H22) 十进制的 chr(34) 都是双引号4、以下哪一个命令可以清空对象 Spk? D A. set Spk= CreateObject(&SAPI.SpVoice&) B. Set Spk= False C. Spk.Close D. Set Spk= Nothing Nothing 停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引 用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。 14、关于 QUI 描述错误的是? D A. QUI 内的控件值不可以在主线程内改变 B. QUI 内的控件值可以在控件事件内改变 C. QUI 经过设计可以有一个漂亮的界面 D. QUI 可以添加本身没有的控件 2 对网页插件和窗口插件描述错误的是 A A 窗口插件不能再 WQM 中使用 B 网页插件只能在 WQM 中使用 C 窗口插件可以作用于任意窗口 D 网页插件和窗口插件可以配合使用 9、关于 QUI 输入框的描述哪个是错误的?A A. 可以在事件外修改输入框的背景颜色 B. 可以在事件中修改输入框的是否显示 正确 C. 可以在事件外获取输入框的值 D. 可以在事件中修改输入框的是否有效 正确 13、对于按键的功能扩展,不可以用以下哪个方式?a A. 调用函数接口未知的 DLL B. 使用其他提供的插件 这个是可以调用的 C. 使用 VB/VC 制作插件 D. 使用 CMD 或 VBS 命令以下对结构的描述哪一个是错误的? DA. B. C. D.顺序结构是最基本的结构 跳转结构和子程序混用可能陷入消耗内存的死循环 控制结构和循环结构可以嵌套使用 控制结构和顺序结构混用可能陷入消耗内存的死循环17、关于 KeyPress 命令第一个参数的描述哪个是正确的? B A. 只能传递按键码 B. 可以传递按键码或者字符串 C. 不可以使用变量 D. 只能传递字符串 10、以下哪一个 API 命令可以运行指定路径的程序?c A. GetDesktopWindow B. ShowWindow C. ShellExecute D. SetLayeredWindowAttributes 15、关于数组与字符串描述错误的是?c A. 字符串和数组可以配合使用 B. 数组元素可以是字符串 C. 多维数组的元素只能是字符串 D. 理论上数组元素的传递可以用字符串代替 以下哪一种方式不能在 外部 自定义 脚本 内部 变量?B A. 使用 OCX 界面 可以自定义脚本内部变量 B. 使用环境变量 环境变量仍然是在脚本内部改变的哦 环境变量 SHI 内部变 量 C. 使用 QUI 界面 可以自定义脚本内部变量 D. 使用外部储存文件(例如文本/数据库等) 要调用 API 的话，必须能够接收返回值，也就是说要存在相应的数据类型来存放返回值。 4、关于在按键中直接使用 API,以下哪个说法是正确的?B A. 可以传指针 B. 只能使用参数和返回值是数字或者字符串的 API C. 可以传地址 D. 任意的 API 都可以使用 5、关于子程序的描述错误的是?C A. 函数可以代替子程序的作用 B. 应用多线程时需要用到子程序 C. 2 个子程序之间可以任意跳转(goto) D. 子程序内定义的变量是局部变量 7、判断一个字符串是否为数字可以使用以下哪个函数?A A. IsNumeric B. IsArray C. IsNullD. IsDate 8、以下描述错误的是?A A. 脚本内子程序数量越少运行速度越快 B. 脚本内增加注释可以提高代码的可读性 C. 获得字符串长度的函数是 len,获得数组最大可用下标的函数是 Ubound D. 程序内可以定义多个环境变量 9、以下哪一种方法可以在线程中传递数组?C A. 其他三种方法都不可以 B. 直接传递数组 C. 将数组合成字符串,再把环境变量字符串传递到线程中 D. 将数组定义成环境变量 不支持数组定义为环境变量 23、以下哪个对 Select 命令的描述是错误的?A A. Select 支持判断语句(例如:a&0) B. Select 是一种选择结构 C. Select 可以有无数个分支 D. Select 可以嵌套其他判断语句使用 24、关于后台坐标的描述,哪一个是不正确的?C A. 后台坐标可以在后台命令中使用 B. 后台坐标指的是窗口内的某个坐标 C. 后台坐标和前台坐标没有对应的计算关系 D. 后台坐标的起点等同于窗口客户区的起点 25、关于子程序描述错误的是? D A. 子程序调用可以不使用 Call 关键字 B. 子程序使用恰当可以优化程序结构 C. 子程序使用恰当可以缩短代码 D. 使用子程序的目的是让脚本更加智能22、一般后台多开脚本是通过什么技术手段实现的?D A. 前台+API B. 后台+API 是错误的 C. 前台+多线程 D. 后台+多线程 14.关于环境变量描述错误的是? B A. 环境变量在程序未完全关闭前不会自动清空 B. 环境变量推荐在各个线程序内同时任意使用 C. 环境变量可以跨线程序使用 D. 环境变量可以在同一个按键精灵或者小精灵中跨脚本使用不推荐15、关于环境变量的描述,哪个是错误的?A A. 环境变量的类型可以是数组不支持数组定义为环境变量B. 环境变量的值可以改变 C. 环境变量可以传入到线程中 D. 环境变量可以赋值给一般变量 命令参数 变量名 不支持数组定义为环境变量DimEnv 定义环境变量 命令功能 定义环境变量 备注 1、 在子程序里定义变量不可以为环境变量 2、2、脚本中只有一行代码 DimEnv a:MsgBox a,弹出的值为 3,可能的原因是?B A. 程序出错 B. 其他脚本中给环境变量 a 赋值了 将两个脚本 DIMENV A:A=3 另一个调试 DimEnv a:MsgBox a 环境变量仍然是在脚本内部改变的哦 C. 这种情况不会出现 D. a 的默认值为 3 1、以下代码在事件触发时弹出的 a 的值为? B UserVar a=0 &设置内容& Sub OnScriptLoad() MsgBox a End Sub A. 不会弹出 B. 空 脚本保存后退出 C. 0 15、对 Eval 和 Execute 命令的描述以下哪一个是不正确的?A A. Eval 命令可以用 Execute 命令代替 B. 两个命令都可以执行字符串表达式 C. Eval 命令的描述为:计算一个表达式的值并返回结果 D. Execute 命令的描述为:对指定的字符串执行正则表达式搜索[result = ]Eval(expression)参数 result 可选项。 是一个变量，用于接受返回的结果。如果未指 定结果，应考虑使用 Execute 语句代替。 在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二 种解释是测试 x 和 y 是否相等。 如果相等， result 为 True； 否则 result 为 False。 Eval 方法总是采用第二种解释， Execute 而 语句总是采用第一种。Eval 函数 计算一个表达式的值并返回结果。 Execute 方法 对指定的字符串执行正则表达式搜索 21、默认情况下假设 Weekday 函数的返回值为 6,那么这代表是星期几?C A. 4 B. 7C. 5 D. 6关于线程停止事件子程序描述正确的是?D A. 线程停止事件子程序会在对应线程序停止时触发 选这个是错误的 B. 线程停止事件子程序可以启动新的线程 C. 线程停止事件子程序可以判断是哪个线程停止了 D. 线程停止事件子程序会在任意线程停止时触发 这个是对的 【网游通用】技能循环释放写法（总结）【写法一】 思路：多线程独立循环，但不实用，如果技能多大几十个，十多个线程独立循环不解释...那么，不用多线程不妨试试下面的写法！ 【写法二】 思路：DateDiff 技能 1 释放延时 = 1 '单位:秒 技能 2 释放延时 = 3 技能 1 时间初值 = time 技能 2 时间初值 = time Do 技能 1 时间差 = DateDiff(&s&, 技能 1 时间初值, time) TracePrint 技能 1 时间差 If 技能 1 时间差 = 技能 1 释放延时 Then 技能 1 时间初值 = time KeyPress &1&, 1 '技能键 End If 技能 2 时间差 = DateDiff(&s&, 技能 2 时间初值, time) TracePrint 技能 2 时间差 If 技能 2 时间差 = 技能 2 释放延时 Then 技能 2 时间初值 = time KeyPress &2&, 1 '技能键 End If Delay 10 Loop【写法三】 思路：Timer 技能 1 释放延时 = 0.2 '单位:秒 技能 2 释放延时 = 0.5 技能 1 时间初值 = timer 技能 2 时间初值 = timer Do If Timer - 技能 1 时间初值 &= 技能 1 释放延时 Then 技能 1 时间初值 = Timer KeyPress &1&, 1 '技能键 End If If Timer - 技能 2 时间初值 &= 技能 2 释放延时 Then 技能 2 时间初值 = Timer KeyPress &2&, 1 '技能键 End If Delay 10 Loop 【写法四】 思路：Timer 和 mod 技能 1 释放延时 = 1 '单位:秒 要求:必须整数(非 0) 技能 2 释放延时 = 5 技能 1 时间初值 = timer 技能 2 时间初值 = timer Do If (timer - 技能 1 时间初值 + 1) mod 技能 1 释放延时 = 技能 1 释放延时-1 Then KeyPress &1&, 1 '技能键 End If If (timer - 技能 2 时间初值 + 1) mod 技能 2 释放延时 = 技能 2 释放延时-1 Then KeyPress &2&, 1 '技能键 End If Delay 100 Loop 1、生成[2,6]个[65，90]之间的偶数,并将生成的数转为与指定的 ANSI 字符代码相对应的字 符,最终合并结果 MessageBox 弹出。请给出代码。 2、切换所有标题包含&Internet Explorer&的窗口,请写出代码 3、规定区域内随机输出一个日期,例如 &&到&&之间的某一天,请给出代 码1、写一个算法可以将十进制的字符串转成八进制的字符串.例如&8&-&&10&,请写出代码 2 、 写 一 个 函 数 ， 已 知 一 段 坐 标 信 息 的 字 符 串 为 ： &260,270|290,260|310,230|320,200,10|300,150|280,150,10|270,130|250,130& ， 计 算 得 出 离185,246 坐标最近的一组坐标。 提示：For 循环与数组应用。 3、筛选出 100 以内所有个位数加十位数等于 10 的数,例如 82,8+2=10 满足条件,请写出代码 4、随机生成一个 1~100 之间的整数,玩家可以通过函数 InputBox 命令输入数字来猜测那未 知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： 例如: 随机数为:60，用户输入 20，程序提示&答案范围为:20~100&。 用户再次输入 75，程序提示&答案范围为:20~75&。 用户再次输入 60，程序提示&猜中&，然后退出程序。 5、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos 函数 与 sin 函数应用。 1、判断字符串 str 是否为数字,是则弹出信息提示框&这是一个数字&,请给出代码 Dim str,Mycheck //定义 str = “123456” Mycheck=IsNumeric(str) //判断 str 是否是数字，并把返回值赋值给 Mycheck If Mycheck = true Then MsgBox &这是一个数字& //如果是数字，则弹出信息提示框&这是一个数字& End If 2.把字符串&520&转换为数值型,请给出代码 Dim str,Mycheck //定义 str = &520& Mycheck=CInt(str) //类型转换 TracePrint Mycheck 3、获取当前标题包含&Internet&的窗口句柄的数量,请给出代码 HwndEx = Plugin.Window.Search(&Internet&) //遍历符合“Internet”窗口的标题的句柄保存到 数组 TracePrint HwndEx //调试输出句柄数组 dim MyArray MyArray = Split(HwndEx, &|&) //下面这句用于分割字符串,将获得的句柄组分割 i=UBound(MyArray) //取数组最大可用下标 TracePrint i //输出窗口句柄数量//请写出运行一个程序的命令,例如运行按键精灵主程序,请给出代码 //Dim exePath //程序路径 //exePath = &D:\Program Files\按键精灵 9\按键精灵 9.exe & //如果路径不是变量，必须加上双引号 //RunApp exePath //运行指定程序.//===================================================================== ========= //字符号串&1+2+3&,请返回这个字符串表达式的值(返回值为 6),请给出代码 //定义变量 Dim MyString, a, b, c,，a1,b1,c1, d //将字符串&1+2+3&的值赋值给变量 MyString MyString = &1+2+3& //用 Mid 函数返回 MyString 中的的指定值 a = Mid(MyString, 1, 1)'a 包含 &1& b = Mid(MyString, 3, 1)'b 包含 &2& c = Mid(MyString, 5, 1)'c 包含 &3& //用 Int 函数返回字符串的整数数值 a1 = int(a) b1 = int(b) c1 = int(c) d = a1 + b1 + c1 TracePrint d MessageBox d //===================================================================== ========= //将字符串&12345&倒序排列成&54321&,请给出代码 //定义变量 zfc，把&12345&的值赋值给 zfc //用 Len 函数返回 zfc 中的字符个数 //循环读取 zfc 中的字符，并赋值给 b //弹出窗口，字符串&12345&倒序排列成&54321& //Dim zfc，i,a,b //zfc=&12345& //geshu = Len(zfc)//用 Len 返回字符串中的个数 //i=geshu //For geshu //a = Mid(zfc, i, 1) //b = b & a //i=i-1 //Next //TracePrint b&&之前的字符串为&&zfc //MessageBox b //===================================================================== ========= 1、 已知窗口句柄为 Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给 出代码 Hwnd = Plugin.Window.MousePoint() Call Plugin.Window.Move(Hwnd, 0, 50)MoveTo 0 + 50, 50 + 100 LeftClick 1 //===================================================================== ========= 2、替换字符串&12X34X56X&中的&X&为&|&,请给出代码 Dim MyString MyString = Replace(&12X34X56X&, &X&, &|&) TracePrint MyString //===================================================================== ========= 3、请将 16 进制颜色值&FF00FF&转成十进制并赋值给变量 C,请给出代码 Dim C,D,i,j C=0 D = UCase(&FF00FF&) For i = 1 To Len(D) j = Asc(Mid(D, i, 1)) - 48 If j & 9 Then j = j - 7 C = C * 16 + j Next TracePrint C //===================================================================== ========= 1、写出带两个数值型参数 x 和 y 的子函数,调用子函数得到 x+y 的值 Function sum(x,y) sum=cint(x)+cint(y) End Function TracePrint sum(1,3) //===================================================================== ========= 2、判断字符串 str 是否存在空格,存在则弹出信息提示框,请给出代码 Dim str, SearchChar str = &XXX XXX XXX& SearchChar = & & If Instr(str, SearchChar) && 0 ThenMessageBox &存在空格& End If //===================================================================== ========= 3 、 定 义 一 个 数 组 myarray(10) , 从 myarray(0)=0 开 始 赋 值 到 myarray(10)=10( 提 示:myarray(i)=i) ,请给出代码 Dim myarray(10) i=0 For UBound(myarray)+1 myarray(i)=i TracePrint &myarray(& & i & &)=& & myarray(i) i=i+1 Next //===================================================================== ========= 好好利用 ctrl+f 键 有些是错题，看清楚再答哈。1、以下语句无法返回时间信息的是？(c) A. MyTime=Hour(Time) B. MyTime=Minute(Time) C. MyTime=Now(Time) D. MyTime=Second(Time) 2、在脚本开头中加入代码 Msgbox Ture ,弹出的值为?(b) A. 0 B. 为空 C. -1 D. 1 3、MsgBox 命令最多可以使用几个参数?(c) A. 4 B. 3 C. 5 D. 6 4、以下哪一个值是 True?(b) A. not(true) B. not(false) C. cstr(false) D. clng(false) 5、在大型脚本的设计中,以下哪一个命令不推荐使用?(a)A. goto 命令 B. 循环命令 C. 判断条件命令 D. 调用子程序命令 6、当 n=3.，以下语句返回值是绝对值的是？(a) A. Abs(n) 3.141592 (Abs 函数返回 number 的绝对值) B. Int(n) -4 (Int 函数返回小于或等于 number 的第一个负整数) C. CLng(n)-4 (CLng 函数通常向与此数最接近的偶数取整) D. Fix(n) -3 (Fix 函数返回大于或等于 number 参数的第一个负整数) 7、GetLastKey 命令在获取一次 ansi 字符代码后继续循环执行返回值是？C A. -1 B. 空值 C. 0 D. 最后一次获取的 ANSI 字符代码 8、以下哪个方法不能关闭窗体?(a) A. sWindow = Plugin.Window.IsWindow(Hwnd) (判断窗体是否存在) B. Call Plugin.Window.CloseEx(Hwnd) (调用窗口插件完全关闭窗口) C. Call Plugin.Memory.TerminateProc(Hwnd) (调用内存\进程插件结束窗口) D. Call Plugin.Window.Close(Hwnd) (窗口插件关闭窗口) //9、以下哪一个函数返回值数据类型与其他三个不一样? (a) A. Instr 返回某字符串在另一字符串中第一次出现的位置。 B. Replace 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。 C. Right 从字符串右边返回指定数目的字符。 D. Mid 从字符串中返回指定数目的字符。 MID(text,start_num,num_chars) 10、以下哪一个返回值是字符串? (a) A. len(&anjian&) B. &10&-1 C. clng(&520&) D. &anjian&&&vrbrothers& 11、以下关于按键抓抓描述错误的是？(B) A. 按键“PrintScreen”键截图内容可在图像选项界面中显示。 B. 支持后台找色找图效果测试。 C. 支持区域找色、模糊找色、中心找色、区域找图等效果测试。 D. 放大镜可查询当前屏幕相应坐标的坐标值与颜色值。 12、arr=Split(&1,2,3,4,5,6,7,8,9&, &,&)，问 arr(5)等于多少？(a) A. &6& B. 6 C. 5 D. &5&13、True 的值是?A A. -1 B. 0 C. 1 D. -2 14、以下哪一个命令可以将表达式转化为字符串?B A. Clng B. Cstr C. Cint D. Ccur 15、下列哪一个函数可以取数组最大可用下标?D A. Split B. Array C. Lbound D. Ubound 16、ExitOS 命令中，以下描述错误的是？B A. 可执行注销 B. 可执行待机 C. 可执行关机 D. 可执行重启 17、FindMutiColorEx 命令有几个参数？B A. 6 个参数 B. 8 个参数 C. 5 个参数 D. 7 个参数 18、返回已添加指定时间间隔的日期应使用下列哪一个函数?D A. Date 函数 B. DateAdd 函数 C. DatePart 函数 D. DateDiff 函数 19、以下哪一个命令可以得到变量的类型?A A. VarType B. UserVar C. Tristate D. Chr 20、以下哪一个命令的功能是设置屏幕分辨率?B A. GetScDep B. SetSc C. GetScRY D. SetCLB 21、myarray=Array(1,2,3,4,5),那么 Ubound(myarray)的值为?B A. 4 B. 6 C. 5D. 3 22、以下对函数的描述哪一个是错误的?b A. 函数一定有返回值 B. 函数可以自行定义参数的个数 C. 函数可以中途退出 D. 函数可以嵌套使用 23、选出以下命令参数错误的。 A. SetSimMode 2 B. Import &Window& C. RunApp &notepad& D. PutAttachment &.\plugin&,&dll& 24、以下哪一个函数返回值的数据类型与其他三个的不一样?A A. Filter B. Instr C. Clng D. Ubound 25、以下哪一个变量不可能是数组?C A. Dim MyArray() B. Dim MyArray C. Const MyArray=2 D. Dim MyArray(5,5) 这些题上面的错题。 2、在脚本开头中加入代码 Msgbox Ture ,弹出的值为? 7、GetLastKey 命令在获取一次 ANSI 字符代码后继续循环执行返回值是？ 9、以下哪一个函数返回值数据类型与其他三个不一样? 12、arr=Split(&1,2,3,4,5,6,7,8,9&, &,&)，问 arr(5)等于多少？ 15、下列哪一个函数可以取数组最大可用下标? 17、FindMutiColorEx 命令有几个参数？ 20、以下哪一个命令的功能是设置屏幕分辨率? 21、myarray=Array(1,2,3,4,5),那么 Ubound(myarray)的值为? 22、以下对函数的描述哪一个是错误的? 24、以下哪一个函数返回值的数据类型与其他三个的不一样? 25、以下哪一个变量不可能是数组?答案在下面 1 、以下哪个直为 True A：CSTR(false) B：not(false) C：clng(talse) D：not(TRUE) 2、以下哪个命令不能调试内容输出 A Tips B TracePrunt C Beep D showScrTXT 3、set 语句含义是？ A 用于过程级声明动态数组变量并分配或从新存储空间 B 初始化随机数生成器 C 声明 Funchon 过程名称。参数以及构成其主体代码 D 将对象引用赋给变量或属性 4 、以下哪个时间是最先响应的？ A onThreadExit B OnScriptExit C OnScriptLoad D Fom1.Labell.Click 5 、常数 VBOK 的直为？ A -1 B 1 C 0D 2 6、返回已添加指定时间间隔的日期应使用下列哪个函数 A Date 函数 B DatePart 函数 C DateAdd 函数 D DateDiff 函数 7、以下哪 1 个返回值是字符串 A len(&anjian&) b &anjian&&&vrbrothers& c &10&-1 d clng(&520&) 8、RGB 直分解为红绿蓝分量，分量直的范围是 A 1-256 B 0-256 C 0-255 D 1-255 9、以下哪个命令可以得到变量的类型 A：VarType B：chr C：Tristate D：UserVar 10、关于延迟命令描述错误的是 A 在模拟按键过程中加入适当岩石可以更准确 B 使用延时命令可以停止脚本 C 延时命令的参数是毫秒 D 在脚本中适当加如延时命令可以降低 CPU 使用率 11、 对函数的描述错误的是 A 函数 1 定有返回值 B 函数可以使用任意格数参数 C 函数可以嵌套使用 D 函数可以中途退出 12、以下哪个变量名不合法？ A MyArray_ B 1MyArray C MyArray D MyArray_1 题目 13、 str=Mid(&234&,2,1) 那么 str 直为 A 4 B “34” C“3” D 34 14、文本不存在以下哪个命令会新建文本 A ReadFileEX B wrlteFileEx c WrneFile D ReadFile15、以下语句无法返回时间信息的是？ A. MyTime=Second(Time) B. MyTime=Hour(Time) C. MyTime=Minute(Time) D. MyTime=Now(Time) 16、选出返回值与其他三种不一样的选项。 A. FindPic B. GetPixelColor C. FindColor D. FindCenterColor 17、Call Plugin.Window.Close(参数)命令需要以下哪种参数？ A. 窗口句柄 B. 窗口标题 C. 窗口类名 D. 进程 ID 18、Text = Plugin.File.ReadINI(&小节名&, &键值&, &文件路径&)，读取文件格式为？ A. *.Q B. *.ini C. *.txt D. *.xls 19、以下哪一个函数返回值的数据类型与其他三个的不一样? A. Filter B. Ubound C. Instr D. Clng 20、以下无法获取句柄的命令是？ A. MousePoint B. Search C. Active D. Foreground 21、IsNumeric(n)，当 n 等于&VrBrothers&时返回什么？ A. False B. 1 C. True D. -1 22、str=Clng(Mid(&234&,2,1)),那么 str 的值为? A. &4& B. 34 C. 3 D. &34& 23、以下哪一个对 Date 函数的描述是正确的? A. 返回当前系统日期。 B. 返回给定日期的指定部分。 C. 返回已添加指定时间间隔的日期。 D. 返回两个日期之间的时间间隔。24、 以下哪一个命令的功能是设置屏幕分辨率? A. SetCLB B. GetScRY C. SetSc D. GetScDep 25、DateDiff 命令有几个必选参数？且返回值类型是？ A. 4 个必选参数，返回值类型为：字符串 B. 3 个必选参数，返回值类型为：字符串 C. 5 个必选参数，返回值类型为：整数 D. 3 个必选参数，返回值类型为：整数1.B2.C3.D4. 不 知 道 5.B6.C7.B8.C9.A10.B11.A12.B13.C14.B15.D16.B17.A18.B19.A20.B21.A22.C23.A24.C25.D1、以下哪一个不是变量名的命名规则?B A. 不能以数字开头 B. 变量名不能包含下划线 C. 不能包含嵌入的句点或类型声明字符 D. 最多只能有 255 个字符 2、以下哪一个命令输出的值与其他三个不同?A A. TracePrint round(3.5) B. TracePrint fix(3.5)C. TracePrint Clng(3.5) D. TracePrint cint(3.5) 3、Join 命令的参数类型是?C A. 字符串 B. 数字 C. 数组 D. 对象 4、假如 MyDate = &October 19, 1962&: YourDate = #10/19/62#: NoDate = &Hello&，返回值为 False 的是？B A. IsDate(time) B. IsDate(NoDate) C. IsDate(YourDate) D. IsDate(MyDate) 5、str=Mid(&234&,2,1),那么 str 的值为?A A. &3& B. &34& C. 4 D. 34 6、以下命令可以获取当前窗口所在屏幕位置精确坐标的是？A A. Text = Plugin.Window.GetWindowRect(Hwnd) B. Text = Plugin.Window.GetExePath(Hwnd) C. Text = Plugin.Window.IsWindow(Hwnd) D. Text = Plugin.Window.GetClientRect(Hwnd) 7、数组 MyArray(5)包含的元素个数为?A A. 5 B. 0 C. 1 D. 6 8、数组 MyArray(5)的最大可用下标为?A A. 6 B. 1 C. 5 D. 0 9、数组 MyArray(5)的最小可用下标为?D A. 1 B. 5 C. 6 D. 0 FindMutiColorEx 命令有几个参数？A A. 8 个参数 B. 5 个参数 C. 7 个参数 D. 6 个参数 11、Media.Play 命令不支持哪个文件格式。AA. Mp4 B. Mid C. Mp3 D. Wav 12、以下不属于键鼠命令的是？C A. Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0) B. Call Plugin.Bkgnd.RightClick(Hwnd, 0, 0) C. Call Plugin.Bkgnd.KeyPress(Hwnd, 65) D. Call Plugin.Bkgnd.SendString(Hwnd, 0) 13、字符串&Vrbrothers&的长度为?A A. 10 B. 12 C. 0 D. 3 15、假如“神盾”图像存在，以下无法识别到图像的命令是？B A. FindPic 0, 0, , &神盾.bmp&, 0.9, intX, intY B. FindPic 0, 0, , &.\神盾.bmp&, 0.9, intX, intY C. FindPic 0, 0, , &神盾.jpg&, 0.9, intX, intY D. FindPic 0, 0, , &Attachment:\神盾.bmp&, 0.9, intX, intY 16、以下哪一个命令的功能是设置屏幕分辨率?C A. GetScDep B. GetScRY C. SetSc D. SetCLB 17、以下语句无法返回时间信息的是？D A. MyTime=Minute(Time) B. MyTime=Hour(Time) C. MyTime=Second(Time) D. MyTime=Now(Time) 18、PrintScreen 命令支持那种格式截图。A A. jpg B. png C. gif D. TIF 19、arr=array(1,2,3,4,5,6,7,8,9)，问 CStr(arr(5))等于多少？C A. 6 B. &5& C. &6& D. 5 20、关于延时命令描述错误的是?A A. 使用延时命令时可以停止脚本 B. 在模拟按键过程中加入适当延时可以使模拟更准确 C. 延时命令的参数单位是毫秒 D. 在脚本中适当加入延时命令可以降低 CPU 使用率21、 UserVar Var1=DropList{&选项 1&:&值 1&|&选项 2&:&值 2&|&选项 3&:&值 3&|&选项 4&:&值 4&}=n &设置内容&，问初始参数 Var1=&值 2&时，n 是多少？ A. 2 B. 4 C. 3 D. 1 23、RGB 值分解为红绿蓝分量,分量值的范围是?C A. 0~256 B. 0~255 C. 1~255 D. 1~256 24、以下对子程序和函数的描述哪一个是正确的?C A. 函数等价于子程序 B. 函数和子程序不能够嵌套使用 C. 函数的参数可以是一个子程序 D. 函数可以替代子程序 25、关于自定义变量的描述以下哪一个是正确的?A A. 自定义变量可以是类 B. 自定义变量可以是数组 C. 自定义变量可以是对象 D. 自定义变量可以是数字或者字符串2、以下哪一个命令输出的值与其他三个不同?B 7、数组 MyArray(5)包含的元素个数为?C 8、数组 MyArray(5)的最大可用下标为? 5 12、以下不属于键鼠命令的是？ 15、假如“神盾”图像存在，以下无法识别到图像的命令是？C 21、 UserVar Var1=DropList{&选项 1&:&值 1&|&选项 2&:&值 2&|&选项 3&:&值 3&|&选项 4&:&值 4&}=n &设置内容&，问初始参数 Var1=&值 2&时，n 是多少？ 22 、 使 用 WQM 的 脚 本 代 码 第 一 步 应 该 做 什 么 ? 绑 定 脚 本 {PID=Plugin.Web.Bind(&wqm.exe&)} 24、以下对子程序和函数的描述哪一个是正确的? 25、关于自定义变量的描述以下哪一个是正确的?上面的错题 1、arr=Split(&1,2,3,4,5,6,7,8,9&, &,&)，问 arr(5)等于多少？B A. 5 B. &6& C. 6 D. &5& ~~组 MyArray(5)的最大可用 2、以下哪一