按键精灵怎么写循环a道具=1 b道具=2 c道具=3 怎么写可以得到abc相加的结果也就是6并且以，SayString输出。
点击联系发帖人
时间：2018-05-23 10:07
按键精灵 怎么样随机输出几个指定数字中的一个？_百度知道
按键精灵 怎么样随机输出几个指定数字中的一个？
我有更好的答案
dim a(26)a(1)=&a&a(2)=&b&a(3)=&c&a(4)=&d&a(5) =&e&a(6)=&f&a(7)=&g&a(8)=&h&a(9)=&i&a(10) = &j&a(11)=&k&a(12)=&l&a(13)=&m&a(14)=&n&a(15) = &o&a(16)=&p&a(17)=&q&a(18)=&r&a(19)=&s&a(20) = &t&a(21)=&u&a(22)=&v&a(23)=&w&a(24)=&x&a(25) = &y&a(26) = &z&Randomize
i = Int((26* Rnd) + 1)
n = a(i)SayString n上面是随机输出26个字母的其中1个，相信自己应该会改了吧！
采纳率：58%
x=1For 999
ElseIf y=2
SayString &A&&z&&EFGH&
Delay 10EndFor
为您推荐：
其他类似问题
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。(谷歌浏览器) chrome插件【支持Chrome 45+】 _ 插件界面 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 50892|回复: 1053
[插件下载]
chrome插件，支持chrome 45以上版本。暂不支持xp系统按键网页脚本交流群 方法说明bool launch(string path，string args)启动浏览器
path: chrome浏览器的路径
args: chrome浏览器的启动参数，多个参数可以用&||&分隔
返回值: 启动成功则返回 true， 否则返回 falsequit()退出浏览器 string get_ids()获得所有已创建标签的id
返回值: 返回所有id，id用&||&分隔string create()创建一个新的标签
返回值: 创建成功返回窗口id，否则返回空字符串close(string id)关闭一个标签
id: 标签idactivate(string id)激活一个标签
id: 标签idstring get_url(string id)获得窗口网页的地址
id: 标签id
返回值: 返回网页的地址load(string id, string url)载入指定的地址
id: 标签id
url: 要载入的地址reload(string id)重新载入网页
id: 窗口idback(string id)后退
id: 标签idforward(string id)前进
id: 标签idstop(string id)停止加载网页
id: 标签idbool is_loading(string id)网页是否加载中
id: 标签id
返回值: 如果网页正在加载中则返回 true，否则返回 falsestring exec_js(string id, string js_code)在网页执行一段javascript代码
id: 标签id
js_code: javascript代码
返回值: 如果代码成功执行则返回执行结果set_user_agent(string id, string ua)修改指定标签的user agent字符串
id: 标签id
ua: user agent 字符串bool is_dialog_open(string id)指定标签是否有对话框打开(alert, confirm, prompt)
id: 标签id
返回值: 如果有对话框打开则返回truestring get_dialog_message(string id)获取对话框的消息文本
id: 标签id
返回值: 如果有对话框打开则返回消息文本handle_dialog(string id, bool accept, string prompt_text)处理对话框
id: 标签id
accept: 参数为true则确定，否则取消
prompt_text:向prompt弹出的对话框写入内容clear_browser_cache(string id)清除缓存
id: 标签idclear_browser_cookies(string id)清除cookies
id: 标签idset_file_input_files(string id, string selector, string paths)设置 file input 的 value 值
id: 标签id
selector: 获取 file input 的css选择器
paths: 文件路径，多个文件用&||&分隔string dama2(string id, string selector, string name, string password, string type)上传图片验证码到打码兔
id: 标签id
selector: 获取图片验证码的css选择器
name: 打码兔用户名
password: 打码兔密码
type: 验证码类型
返回值: 如果失败返回以“-”为前缀的字符串，成功则返回验证码答案例子百度搜索// 浏览器路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
TracePrint &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到百度
Call Plugin.chrome.load(id, &https://www.baidu.com&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 输入搜索内容
Call Plugin.chrome.exec_js(id, &document.querySelector('#kw').value='按键精灵';&)
// 点击搜索按钮
Call Plugin.chrome.exec_js(id, &document.querySelector('#su').click();&)
MsgBox &脚本执行完毕&
// 退出浏览器（如果不退出浏览器下次执行&launch&方法用同一个&--user-data-dir&启动参数会启动失败）
Call Plugin.chrome.quit()
复制代码表单填写// 浏览器的路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
MsgBox &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到地址
Call Plugin.chrome.load(id, &http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
username = &用户名&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbUsername').value='& & username & &';&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbPassword').value='password';&)
// EMail地址
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbEMail').value='';&)
// 性别，$字符是CSS选择器的特殊字符，所以需要用反斜杆转义
Call Plugin.chrome.exec_js(id, &document.querySelectorAll('[name=ctl00\\$mainContent\\$rblGender')[0].checked=&)
// 省份城市，联动下拉列表需要触发change事件
change_event = &var ev = document.createEvent('HTMLEvents');& & _
&ev.initEvent('change', false, true);&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_ddlProvince').selectedIndex=1;&)
Call Plugin.chrome.exec_js(id, change_event & &document.querySelector('#ctl00_mainContent_ddlProvince').dispatchEvent(ev);&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_ddlCity').selectedIndex=2;&)
Call Plugin.chrome.exec_js(id, change_event & &document.querySelector('#ctl00_mainContent_ddlCity').dispatchEvent(ev);&)
// 求职意向
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[0].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[1].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[2].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cblHobies_0').checked=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cblHobies_1').checked=&)
// 自我评价
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbSelfAssement').value='aaaaa\nbbbbb\nccccc';&)
// 我已阅读并接受注册协议
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cbAcceptTerms').checked=&)
MsgBox &表单填写完成，点击确定继续&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_btnSubmit').click();&)
Delay 1000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 获取结果
rows_len =
CInt(Plugin.chrome.exec_js(id, &document.querySelector('table').rows.length&))
For i = 0 To rows_len - 1
cells_len = CInt(Plugin.chrome.exec_js(id, &document.querySelector('table').rows[& & i & &].cells.length&))
For j = 0 To cells_len - 1
str = str & Plugin.chrome.exec_js(id, &document.querySelector('table').rows[& & i & &].cells[& & j & &].innerText&)
str = str & &
TracePrint str
MsgBox &脚本执行完毕&
Call Plugin.chrome.quit()
复制代码同时启动多个浏览器path = &c:\chrome\chrome.exe&
Set chrome1 = CreateObject(<.chrome.1&)
Set chrome2 = CreateObject(<.chrome.1&)
If chrome1.launch(path, &--user-data-dir=c:\user_data_1&) = False Then
MsgBox &启动失败1&
ExitScript
If chrome2.launch(path, &--user-data-dir=c:\user_data_2&) = False Then
MsgBox &启动失败2&
ExitScript
id1 = chrome1.get_ids()
TracePrint id1
Call chrome1.load(id1, &https://www.baidu.com&)
id2 = chrome2.get_ids()
TracePrint id2
Call chrome2.load(id2, &http://bbs.anjian.com/&)
Delay 2000
TracePrint &...&
Loop While chrome1.is_loading(id1) or chrome2.is_loading(id2)
TracePrint chrome1.exec_js(id1, &document.&)
TracePrint chrome2.exec_js(id2, &document.&)
MsgBox &脚本执行完毕&
Call chrome1.quit()
Call chrome2.quit()
复制代码向打码兔提交验证码// 浏览器路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
MsgBox &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到地址
Call Plugin.chrome.load(id, &https://passport.game2.cn/login/&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 打码兔用户名
dm2Name = &xxxxx&
// 打码兔密码
dm2Password = &xxxxx&
// 向打码兔提交验证码
answer = Plugin.chrome.dama2(id, &#img_sec&, dm2Name, dm2Password, &4&)
TracePrint answer
If answer = &-406& Then
MsgBox &第一次使用需要打码兔后台允许&
ElseIf answer = &-303& Then
MsgBox &验证码尚未打码完成&
ElseIf answer = &-304& Then
MsgBox &打码兔题分不足&
ElseIf answer = &-9992& Then
MsgBox &打码兔用户名错误&
ElseIf answer = &-9993& Then
MsgBox &打码兔密码错误&
// 向网页写入验证码答案
Call Plugin.chrome.exec_js(id, &document.querySelector('[name=vcode]').value = `& & answer & &`;&)
MsgBox &脚本执行完毕&
Call Plugin.chrome.quit()
复制代码javascript控制网页元素1.获取控制的目标元素
document.querySelector、document.querySelectorAll提供了类似于JQuery的元素选择功能，两个方法都接收一个符合CSS选择器规范的字符串参数，前者返回第一个成功匹配的元素，后者返回所有成功匹配的元素集合。
这是百度搜索框的代码，接下来试下如何用document.querySelector来匹配到这个搜索框&span class=&bg s_ipt_wr quickdelete-wrap&&
&input id=&kw& name=&wd& class=&s_ipt& value=&& maxlength=&255& autocomplete=&off&&
复制代码基本匹配#id -- 根据给定的id匹配相应元素document.querySelector('#kw');
复制代码.class -- 根据给定的class匹配相应元素document.querySelector('.s_ipt');
复制代码element -- 根据给定的元素名匹配相应元素document.querySelector('input');
// 由于网页上可能不只一个input元素，所以上面的没选到正确的元素，但可以通过组合的方式进行更多的过滤
document.querySelector('input#kw');
document.querySelector('input.s_ipt#kw');
复制代码层级匹配ancestor descendant -- 给定祖先元素下匹配所有的后代元素document.querySelector('span #kw');
document.querySelector('.bg input#kw');
复制代码属性过滤[attribute] -- 匹配包含给定属性元素document.querySelector('[autocomplete]');
复制代码[attribute=value] -- 匹配给定属性是某个特定值的元素document.querySelector('[name=wd]');
复制代码[attribute^=value] -- 匹配给定属性是以某个值开始的元素document.querySelector('.bg [name^=w]');
复制代码[attribute$=value] -- 匹配给定属性是以某个值结束的元素document.querySelector('.bg [name$=d]');
复制代码[attribute*=value] -- 匹配给定属性含有某个值的元素document.querySelector('.bg [autocomplete*=f]');
复制代码通过上面的基本匹配、属性过滤、层级匹配以级组合匹配等方法，基本上大部分的网页元素都能匹配得到了。
更多匹配方法百度搜索&CSS选择器&2.控制目标元素
元素都有自己的属性和方法，可以通过对这属性和方法的读写和调用来完成控制的目的。元素的属性和方法可以到&w3school&网站查找读取属性值&a href=&./news& id=&news&&新.闻&/a&
复制代码TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').&)
TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').innerT&)
TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').outerHTML;&)
复制代码写入属性值&input type=&text& id=&username& value=&123&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#username').value='text';&)
复制代码调用方法
调用按钮的click方法&input type=&button& id=&btn& value=&按钮&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#btn').click();&)
复制代码选择编辑框内容&input type=&text& id=&username& value=&123&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#username').select();&)
复制代码触发change事件&select id=&select_list&&
&option value=&a&&选项1&/option&
&option value=&b&&选项2&/option&
复制代码js_code = &var ev = document.createEvent('HTMLEvents');& & _
&ev.initEvent('change', false, true);& & _
&document.querySelector('#select_list').dispatchEvent(ev);&
Call Plugin.chrome.exec_js(id, js_code)
复制代码插件下载(, 下载次数:1921)
&想要做图片上传该怎么做？&
兰天 最后编辑于
appcust.com
太好了。支持
按键会员（月）按键会员绑定账号后自动赠送兔年勋章（360天）兔年纪念勋章(360天)按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
必须来顶你。。
论坛只有这个插件基于chrome.赞一个
膜拜，大神。牛逼。
学习了，此贴必火，感谢楼主。
ensurf 最后编辑于
过大年勋章俩小福娃给大家拜年啦！按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 小红帽对论坛提出良好建议（可向管理员申请）
此帖必火！！！！
可以嵌入QUI界面就更完美了
在VB下测试，打开了chrome窗口,但init(path) = False，导致取不到id,不知道大家测试怎么样？楼主建个群，大家讨论下。
ensurf 最后编辑于
热心的围观群众
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。按键图书勋章尊贵的按键图书用户按键明星按键明星勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
顶帖来了！
楼主呢，给我们指导一下
楼主有联系方式吗
学习，太赞了
为什么脚本结束要把窗口关闭呢？那我后续手动的操作怎么办？
黄瓜勋章（永久）体验商业小精灵活动的奖励按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
好东西必须顶
孤独的嫖客
双十一绝版纪念勋章双十一绝版纪念勋章
不羁的醉与醒
huningli38
论坛只有这个插件基于chrome.赞一个
终于找到了
看到Chrome的插件超激动我，万分感谢楼主。膜拜啊
闽网文 (-037号按键精灵1--6级答案-海文库
您现在的位置：&>&&>&计算机硬件及网络
按键精灵1--6级答案
以下哪一个不是按键精灵的产品? 按键箱子录制的脚本没有以下哪个功能? 记录鼠标特征码下列哪一个命令不属于&全部命令&? 内核命令按键精灵自带的抓图工具是? 按键抓抓哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.按键精灵不可以在以下哪个系统中使用? Linux可以使用神盾功能的程序是? 小精灵商业版旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用&自动缩进&功能WaitClick命令的含义是? 按任意鼠标键继续哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Plugin目录下装有不是官方提供的插件引起的关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本 GetLastClick命令的含义是? 检测上次按过的鼠标键按键精灵生成的小精灵程序的后缀名是? EXE
按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享受版主资源网页按键精灵是下列哪一个程序? wqm.exe按键精灵的产品包括以下哪一个? 按键盒子按键精灵是下列哪一个程序? 按键精灵9.exe按键精灵会员卡注册码,没有以下哪一种? 天卡(1天)UnlockMouse命令的含义是? 解除锁定鼠标位置按键精灵会员不能享受的资源是? 免费小精灵的源代码RightUp命令的含义是? 右键弹起按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器按键精灵能兼容下列哪一种语言? VBS不能用抓抓工具直接获取的是? PID关于按键精灵的描述，以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作的软件脚本编辑界面上没有的按钮是?启动与取色判断命令没有直接关系的参数是? 按键码以下哪种方式可以在脚本编辑界面中获取到新的插件? 点击&资源库&按钮,然后导入需要的插件LeftClick命令的含义是? 左键单击按键精灵官方网站的网址是? http://www.anjian.com/RestoreMousePos命令的含义是? 恢复上次保存的鼠标位置如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾SaveMousePos命令的含义是? 保存当前鼠标所在位置GetCursorPos命令的含义是? 得到鼠标位置坐标键盘命令的类型不包括? 锁定按键精灵里运算符乘号是? *KeyPress命令的含义是? 按键MiddleClick命令的含义是? 中键单击LockMouse命令的含义是? 锁定鼠标位置按键精灵会员不能享受的功能是? 脚本编写服务GetCursorShape命令的含义是? 得到鼠标形状按键精灵自带的用户界面叫做什么? QUI界面RightClick命令的含义是? 右键单击按键精灵里运算符减号是?
-按键精灵默认的启动热键是? F10属于&全部命令&的是? 我的命令库“录制”功能不能录制的内容是? 记录鼠标指向的窗口句柄按键抓抓是下列哪一个程序? picker.exe想要知道脚本是否存在错误,应该使用下列哪个功能? 调试以下哪种方式不可以获得论坛银币? 发布大量无内容的主题贴按键精灵里运算符除号是?
/按键精灵会员不能享受的技术支持是? 技术人员上门服务按键精灵自带的功能不包括以下哪一个? 路由功能GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0 变量的定义，以下哪个是正确的? dim a下列哪一种方法不能够正确输入命令? 鼠标右键单击命令按键精灵的功能是？模拟鼠标键盘操作的工具MoveR命令的含义是? 相对移动关于小精灵去广告的描述，下列正确的是? 会员用户在“制作按键小精灵”界面上-&更多设置-&选择会员去广告（是）即可按键精灵里运算符加号是?
+对小精灵的描述，以下是正确的? 按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。LeftDown命令的含义是? 左键按下键鼠的模拟方式不包括以下哪一个? 虚拟模拟
3、区域找图的命令是? FindPic4、按键精灵语言大小写的描述哪一个是正确的? 按键精灵不区分大小写7、KeyPress命令有几个参数? 213、不能实现键盘按下&A&键的命令是? KeyPressW &A&,115、下列哪一个不是循环命令? Select Case颜色值为&000000&是什么颜色? 黑色以下哪一个不属于按键精灵的&全部命令&? 远程嗅探命令20、下列RGB颜色值，书写正确的是? &DD&23、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 的实际意义是? 使用硬件模拟
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、鼠标右键按下的命令是? RightDown10、以下哪一个命令不会暂停脚本? for...next11、下列哪一个是键盘命令? KeyPress12、鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为：100,15013、鼠标左键按下的命令是? LeftDown14、解除鼠标锁定是下列哪一个命令? UnlockMouse15、组合键&CTRL+C&的正确按键顺序是? 按下&CTRL&,点击&C&,弹起&CTRL&16、下列属于鼠标命令的是? RightClick17、以下哪一种方式不能无限循环? 在脚本开头加入&For 10000&,脚本尾部加入&Next&18、WaitKey命令有几个参数? 019、如何退出Do循环的命令? Exit Do20、下列哪一个是鼠标命令? LeftClick21、下列RGB颜色值，书写错误的是? &FFFFFFFF&22、以下哪一个KeyPress命令的路? 检测血条上某一点,如果此点不是血条的颜色则执行加血操作23、FindColor命令有几个参数? 724、哪一种不能正确调用KeyPress命令? KeyPress &FA&,125、延时的命令是? Delay26、取指定点颜色的命令是? GetPixelColor27、延迟2小时,以下哪一句代码是正确的? Delay *228、以下哪一个是自动打怪的思路? 检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作29、EndScript命令的意义是? 脚本停止运行30、以下哪一个是循环命令? for...next31、SetSimMode命令有几个参数? 132、鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为? 100,10033、区域找色的命令是? FindColor34、FindPic命令有几个参数? 835、按键精灵找图命令需要的图片格式是下列哪一个? *.BMP36、脚本停止运行命令是哪一个? EndScript37、延迟1天,以下哪一句代码是正确的? Delay *24*138、下列哪一个命令会暂停脚本? WaitClick39、不能正确调用KeyPress命令的写法是? KeyPress &FB&,140、鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为? 100,10041、代码KeyPress &A&，1 调试后提示出错,错误的原因是? 逗号使用了全角符号无法识别导致错误42、锁定鼠标位置是下列哪一个命令? LockMouse43、下面哪一个命令会暂停脚本? MsgBox44、鼠标左键单击的命令是? LeftClick45、鼠标左键双击的命令是? LeftDoubleClick46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号? &47、以下哪一个命令能够延时1个小时? delay 48、按键码105是下列哪一个按键? NUM 949、指定句柄进行截图，以下哪种情况不会导致截到的图是黑色？窗口标题动态变化50、空格键的按键码是?
4、以下哪一个函数返回值的数据类型与其他三个的不一样? FilterA. Instr
D. Filter5、以下哪一个函数返回值的数据类型与其他三个不一样?A. Array 错B. Filter 错C. SplitD. Replace18、以下哪一个返回值是字符串?CA. clng(&520&)B. &10&-1C. &anjian&&&vrbrothers&D. len(&anjian&)
Msgbox &anjian&&1 将会弹出什么内容? anjian1以下哪一个命令可以将表达式转化为字符串：Cstr10、假如“神盾”图像存在，以下无法识别到图像的命令是？FindPic 0, 0, , &神盾.jpg&, 0.9, intX, intY11、IsNumeric(n)，当n等于&VrBrothers&时返回什么？False12、Redim 命令的作用对象是? 数组
1、关于 GetLastKey 命令的描述哪一个是错误的?
D. 返回值是字符串2. 以下不属于按键命令的是？
OnThreadLoad3. 假如MyDate = &October 19, 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. 以下对函数的描述哪一个是错误的? 函数一定有返回值11. 以下命令哪个可以终止所有线程运行并停止脚本。ExitScript12. ExitOS命令中，以下描述错误的是？可执行待机13. 关于自定义变量的描述以下哪一个是错误的? 可以是数字或者字符串 错
数组？14. 以下哪一个函数的功能是指明表达式的值是否为数字?IsNumeric15、Set 语句的含义是? 将对象引用赋给变量或属性16.选出下列命令参数格式错误的选项。PutAttachment &\&, &*.*&？17.后台取色命令需要的参数为? 句柄和坐标18. 以下命令可以获取当前窗口所在屏幕位置精确坐标的是？Text = Plugin.Window.GetWindowRect(Hwnd)19. 选出以下命令参数错误的。 Import &Window&20.MsgBox命令最多可以使用几个参数? 5个21. GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？ 022. 以下选项中不符合调用规则的是？Asc(F1)23. 以下关于按键抓抓描述错误的是？支持后台找色找图效果测试24.Media.Play命令不支持哪个文件格式。Mp425.数组MyArray(5)的最大可用下标为?Ubound
526.数组MyArray(5)包含的元素个数为?627.字符串&&H22&用Clng命令转换后除以2再用Cstr命令转换,最后结果为?
‘‘17’’29.由RGB分量分别为(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.以下命令无法正常获取句柄的是？Active38.myarray=Array(1,2,3,4,5),那么myarray(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：检测上次按键，返回数字，键码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,下列描述哪一个是错误的?：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.以下对子程序的描述哪一个是正确的?：子程序没有返回值67. 对于按键精灵与VBS的描述正确的是?：按键可以直接调用VBS命令68. 132 Mod 13 的值为?:269.变量名称不合法：1MyArray70.str=mid(&234&,2,1)：&3&71.哪个事件最先响应：onscriptload72.以下哪一个命令的功能是设置屏幕分辨率?：setsc73.QUI输入框控件返回值的变量类型是?：字符串74.按键精灵的产品包括以下哪一个? ：按键盒子75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.76.关于加密脚本的描述，下列是错误的是?：只有会员输入密码可以解开加密脚本77.鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：50,10078.WaitKey命令有几个参数?答案：079.vbCrLf的值为?A Chr(13) & Chr(10)80.选出下列返回值类型不一样的选项。CA. InStr(str,str)B. Len(n)C. Join(arr)D. Asc(n)81.a = 10.05 Mod 2 ,那么a的值为? 082.Round(3.)返回值为什么？3.1415983.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. WriteFileEx87.下列语句中无法达到无限循环效果的是？C. For i = True To True : Next6、以下命令无法改变窗口大小的是？Call Plugin.Window.Move(Hwnd, 100, 100)18、选出下列非键鼠操作的命令。
22、以下关于按键抓抓描述错误的是？
1、当n=3.，以下语句返回值是绝对值的是？B. Abs(n)
4、以下哪一个变量不可能是数组? Const MyArray=25、假如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))等于多少？A &6&8、在脚本开头中加入代码 Msgbox Ture ,弹出的值为? 为空9、QUI输入框控件返回值的变量类型是? 字符串11、arr=array(0,1,2,3,4,5,6,7,8,9)，问Clng(arr(9))等于多少？B. 912、Round(3.)返回值为什么？3.1415913、GetCursorShape(0)该命令返回值类型为？整数类型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.5)Erase 语句的含义是? 重新初始化固定大小数组的元素，并释放动态数组的存储空间5、以下命令无法正常获取句柄的是？B错误！未找到引用源。 A. Hwnd = Plugin.Window.Search(&未命名 - 画图&)
错误！未找到引用源。 B. Hwnd = Plugin.Window.Find(耂&, -1)错误！未找到引用源。 C. Hwnd = Plugin.Window.Find(&MSPaintApp&, &未命名 - 画图&)错误！未找到引用源。 D. Hwnd = Plugin.Window.Find(&&, &未命名 - 画图&)7、关于自定义变量的描述以下哪一个是正确的? 自定义变量可以是数字或者字符串A. 自定义变量可以是数组D. 自定义变量可以是类10、关于后台坐标的描述哪一个是不正确的? 后台坐标在窗体内是不会变化的A. 后台坐标只针对窗体内生效B. 后台坐标是由后台横坐标和后台纵坐标构成的16、选出下列命令参数格式错误的选项。PutAttachment &\&,&*.*&17、Hex函数的返回值类型是? 字符串21、以下哪一个命令可以定义常数? Const23、以下不属于键鼠命令的是？Call Plugin.Bkgnd.SendString(Hwnd, 0)
前半部分为问答题 后半部分为选择题问答题只需要复制单道题到按键精灵中后调试就会看到效果了选择题是搜索的其他资料 并没有进行整理(紧供参考)只有自己读懂每句代码的含义后再答题 这样不仅完成答题 还能丰富自己的知识━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━问答题部分'六、1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码Dim 父窗口句柄, 子窗口句柄, 客户区大小大小Call RunApp(¬epad.exe&)Delay 1000父窗口句柄 = Plugin.Window.Find(&Notepad&, 0)子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, &Edit&, 0)TracePrint &查找到的父窗口句柄为：& & 父窗口句柄TracePrint &查找到的子窗口句柄为：& & 子窗口句柄Call 比例大小(父窗口句柄, 子窗口句柄, 0.9)EndScriptSub 比例大小(父窗口句柄, 子窗口句柄, 比例)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, bSwapRandomizeFor i1 = 0 To 9随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50)TracePrint i1 & &：& & 随即Int(i1)NextFor j = 0 To UBound(随即Int) - 1bSwap = FalseFor i1 = 0 To UBound(随即Int) - 1If 随即Int(i1) & 随即Int(i1 + 1) Then
'若是递增，则将 & 改为 &Cache = 随即Int(i1)随即Int(i1) = 随即Int(i1 + 1)随即Int(i1 + 1) = CachebSwap = TrueEnd IfNextIf bSwap = False Then Exit ForNextTracePrint &【冒泡排序后输出】&For i1 = 0 To UBound(随即Int)TracePrint i1 & &：& & 随即Int(i1)NextEndScript'六、2、利用文本(TXT)模拟一个&数据库&,数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果数据库路径 = &C:\档案.txt&InputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)Do While InputHome && &Q& And InputHome && &q&If InputHome = &H& Or InputHome = &h& ThenInputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)ElseIf InputHome = &1& ThenDo查询结果 = &&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 IfIf 查询结果 && && Then MsgBox 查询结果, 65, &查询结果&LoopElseIf InputHome = &2& ThenDo搜索返回 = && : 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 IfIf 搜索返回 && && Then搜索结果 = Split(搜索返回, &,&)For i = UBound(搜索结果) - 1 To 0 Step - 1Show搜索 = Show搜索 & 搜索结果(i) & vbCrLfNextMsgBox Show搜索, 65, &搜索结果&End IfLoopElseIf InputHome = &3& ThenDo查询结果 = && : 删除结果 = &&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 IfIf 查询结果 && && Then 删除结果 = MsgBox(查询结果, 68, &确定要删除此条数据？&)If 删除结果 = 6 Then 删除 数据库路径, Input删除LoopElseIf InputHome = &4& ThenDoInput增加 = 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 IfloopElseIf InputHome = &Q& Or InputHome && &q& Then : Exit DoElseInputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1 2
增加：4&, &主页?请输入对应字符进行相关操作&)End IfLoopEndScriptFunction 查询(文本路径, 编号)Dim fso, myfile, i, flag, temppflag = 1Set fso = CreateObject(&scripting.FileSystemObject&)If fso.FileExists(文本路径) ThenSet myfile = fso.openTextFile(文本路径, 1, false)Elseflag = 0End IfFor i = 1 To 编号 - 1If Not myfile.AtEndOfLine Thenmyfile.SkipLinetempp = myfile.LineEnd IfNextIf flag = 1 ThenIf Not myfile.AtEndOfLine Then查询 = myfile.ReadLineElse查询 = &编号不存在！&End Ifmyfile.closeElse查询 = &文件不存在！&End IfSet fso = NothingEnd FunctionFunction 搜索(文本路径, 关键字) 搜索：Dim ForReading, ForWritingForReading = 1 : ForWriting = 2 : 搜索 = &&Dim objFSO, objFile, strLine, strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlineIf Instr(1, strLine, 关键字) & 0 Then 搜索 = strLine & &,& & 搜索
TracePrint &搜索=& & 搜索strNewFile = strNewFile & strLine & vbcrlfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd FunctionSub 删除(文本路径, 编号)Dim ForReading ,ForWritingForReading = 1ForWriting = 2Dim objFSO,objFile,strLine,strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径,ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlineIf CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then
strNewFile = strNewFileElsestrNewFile = strNewFile & strLine & vbcrlfEnd IfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径,ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubSub 增加(文本路径, 文本内容)Dim ForReading ,ForWritingForReading = 1 : ForWriting = 2Dim objFSO, objFile, strLine, strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlinestrNewFile = strNewFile & strLine & vbcrlfLoopTracePrint objFile.LinestrNewFile = strNewFile & objFile.Line & &|& & 文本内容 & vbcrlfobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubEndScript'六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含&接收&关键字的文本(批量消息发送器),请写出代码'六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码'六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码'六、杨辉三角百度说明:http://baike.baidu.com/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 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&,是则弹出对话框&没有其他颜色&,否则弹出第一个点的颜色值并退出程序. 请写出代码Dim x, y, RtColorx = 100 : y = 150Do While y & 301For x = 100 To 200RtColor = Plugin.Color.GetPixelColor(x, y, 0)If RtColor && &FFFFFF& Then Exit doNext : y = y + 1LoopIf RtColor && &FFFFFF& ThenMessageBox X & & , & & Y & &坐标点颜色为：& & RtColorElseMessageBox &没有其他颜色&End IfEndScript'五：3、写一个函数，要求：返回一个数值范围内所有偶数之和。参数1、参数2：整数型，数字
提示：For循环与VBS命令函数应用。TracePrint 求偶数之和(1, 61)TracePrint 求偶数之和(3, 19)TracePrint 求偶数之和(0, 83)TracePrint 求偶数之和(2, 1)EndScriptFunction 求偶数之和(参数1, 参数2)Dim 差, i求偶数之和 = 0 : 差 = Abs(参数1 - 参数2)If 差 mod 2 = 1 Then : 差 = 差 - 1 : End IfFor i = 0 To 差 / 2 - 1求偶数之和 = 求偶数之和 + 差 - i * 2'TracePrint &i=& & i & &
求偶数之和=& & 求偶数之和 & &
差=& & 差 - i * 2NextEnd 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 IfNextTracePrint 新字符串'五：5、写一个脚本，要求：在画图工具中画一个渐变放大的多边形（大于4边）漩涡效果图。
提示：For循环的应用。Call 画多边漩涡(400, 200, 50, 7)
//五边形EndScriptSub 画多边漩涡(x, y, r, n)//x 圆心横坐标 y 圆心纵坐标//r 半径
n 多边形的边数Const PI = 3.1415926Dim x1, y1 //起点坐标dim x2, y2 //下一个点坐标x1 = xy1 = y - rDim tt = PIFor i = 1 To 30If i & 1 ThenMoveTo x1, y1Delay 20LeftUp 1End IfMoveTo x1, y1Delay 20LeftDown 1t = t - pi * 2 / nx2 = x + int(r * sin(t))y2 = y + int(r * cos(t))//更新起点坐标x1 = x2y1 = y2r = r + 2NextEnd Sub
'五：1、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos函数与sin函数应用。Call 画漩涡(420, 280)EndScriptFunction 画漩涡(起点X, 起点Y)Dim HX, HY, nn = 1While HX & 600MoveTo HX, HY : Delay 3HX = 起点X + cos(n) + n * sin(n)HY = 起点Y + sin(n) - n * cos(n)n = n + 0.1WendEnd Function'五：2、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： Dim 随机, 猜测, 下限, 上限, 次数Randomize随机 = Int(100 * Rnd + 1)TracePrint &随机=& & 随机下限 = 1 : 上限 = 100猜测 = Cint(InputBox(&请输入你的猜测&, &猜数字游戏&))For 次数 = 1 To 99 : Delay 100If 猜测 & 随机 and 猜测 & 下限 Then
: 下限 = 猜测ElseIf 猜测 & 随机 and 猜测 & 上限 Then : 上限 = 猜测ElseIf 猜测 = 随机 ThenMsgBox &总共& & 次数 & &次猜中了 八戒 看来今年你又要涨价了！&, 64, &程序?提示&Exit ForEnd If猜测 = Cint(InputBox(&答案范围为：& & 下限 & &~& & 上限, &程序?提示 还可再猜& & 100 - 次数 & &次 &))NextEndScript'五：3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码Dim Text, T, G, SFor T = 0 To 99G = T Mod 10S = Int(T / 10)If (G + S) = 10 and Text && && Then : Text = Text & &，& & TElseIf (G + S) = 10 and Text = && Then : Text = TEnd IfNextMsgBox &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&)EndScriptFunction 坐标最近判断(信息, 坐标)Dim Arr, Str, StrX, StrY, Ping, a, b, c, iArr = Split(信息, &|&)
'信息分离Str = Split(坐标, &,&)
'坐标分离StrX = Clng(Str(0)) : StrY = Clng(Str(1))
'提取坐标X与Y值For i = 0 To UBound(Arr)
'勾股定理计算每个坐标到指定坐标的平方值If i = 0 ThenPing = (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2ElsePing = Ping & &/& & (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2End IfNextTracePrint Pingb = Split(Ping, &/&) : a = 0 : c = b(0)TracePrint cFor i = 1 To UBound(b)TracePrint &b(& & i & &)=& & b(i)If Clng(b(i)) & Clng(c) Then : c = b(i) : a = i : End IfNext坐标最近判断 = Arr(a)End Function'五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如&8&-&&10&,请写出代码 Dim 十进数十进数 = InputBox(&输入你想转换的十进制数字&, &十转八进制?算法&, &&)MsgBox &十进制数：&&十进数 & &
八进制数：& & 十转八进制算法(十进数), 64, &程序?提示&EndScriptFunction 十转八进制算法(十进数)十转八进制算法 = &&While 十进数 & 0十转八进制算法 = 十进数 Mod 8 & 十转八进制算法十进数 = 十进数 \ 8WendEnd Function'四：1、切换所有标题包含&Internet Explorer&的窗口,请写出代码Dim HwndEx, MyArray, iHwndEx = &&HwndEx = Plugin.Window.Search(&Internet Explorer&)If HwndEx && && ThenMyArray = 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 1500Call Plugin.Window.Top(Clng(MyArray(i)), 1)NextElseCall Plugin.Msg.Tips(&当前没有包含“Internet Explorer”的窗口&)End IfEndScript'四：2、规定区域内随机输出一个日期,例如 &&到&&之间的某一天,请给出代码DoTracePrint &随机日期=& & 随机产生日期(&&, &&)Delay 1500loopEndScriptFunction 随机产生日期(起始年月日, 终止年月日)Dim 间隔, 随机数间隔 = DateDiff(&d&, 起始年月日, 终止年月日)随机数 = Int((间隔 + 1) * Rnd)随机产生日期 = DateAdd(&d&, 随机数, 起始年月日)End Function'四：3、生成[2,6]个[65，90]之间的偶数,并将生成的数转为与指定的ANSI 字符代码相对应的字符,最终合并结果MessageBox 弹出。请给出代码。Dim 字母个数DoRandomize字母个数 = Int((6 - 3 + 1) * Rnd + 3)MessageBox 随机偶数ANSI码(字母个数, 65, 90)Delay 500loopEndScriptFunction 随机偶数ANSI码(字符数, 下限, 上限)Dim 随机数值, 字母AscRandomizeFor 字符数随机数值 = int((上限 - 下限 + 1) * Rnd + 下限)If 随机数值 mod 2 = 1 Then 随机数值 = 随机数值 - 1If 随机数值 = 64 Then 随机数值 = 66字母Asc = 字母Asc & Chr(随机数值)Next随机偶数ANSI码 = 字母AscEnd Function'三：1、写出用goto命令循环十次的过程Dim a1a1 = 10Rem 从这里开始TracePrint &倒计次了！& & a1a1 = a1 - 1If a1 & 0 Then Goto 从这里开始EndScript'三：2、(前台)依次按下&AJJL&四个键,中间延迟100毫秒,循环10次Dim pFor p = 1 To 10KeyPress 65, 1Delay 100KeyPress 74, 1Delay 100KeyPress 74, 1Delay 100KeyPress 76, 1Delay 100NextEndScript'三：3、有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码 Dim a, ba = 4 : b = 2MessageBox a + bMessageBox a - bMessageBox a * bMessageBox a / b━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━以下是2、3、4级部分选择题 较乱没有整理
按键精灵支持jpg 格式截屏
按键精灵可以调用VBS8常数 VbOk 的值为?msgbox函数有以下返回值常数 值 按钮vbOK 1 确定vbCancel 2 取消vbAbort 3 放弃vbRetry 4 重试vbIgnore 5 忽略vbYes 6 是vbNo 7 否
11、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
-1TracePrint False
0TracePrint CBool(- 1 )
-1TracePrint CBool(1)
-1TracePrint CBool(0)
0TracePrint CBool(2)
-1TracePrint CBool(- 2 )
-1true,false是bool布尔型.个人认为这两个是代表对立的两面,如汉字的真,假.你说真假是几? 实体书上说true输出值-1,false是0
22、下列语句中无法达到无限循环效果的是？
24、由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为?Color = Plugin.Color.GetRGB(50, 50, 50)msgbox &得到16进制颜色值:& & color323232
3、Set 语句的含义是? D. 将对象引用赋给变量或属性4、以下命令哪个不属于按键命令？ D. StopScript6、以下无法获取句柄的命令是？bA. ForegroundB. ActiveC. SearchD. MousePoint
9、False的值是?
14、返回已添加指定时间间隔的日期应使用下列哪一个函数?cA. DatePart 函数
返回给定日期的指定部分。B. DateDiff 函数
返回两个日期之间的时间间隔C. DateAdd 函数
返回已添加指定时间间隔的日期D. Date 函数
返回表达式，此表达式已被转换为 Date 子类型的 Variant
7、以下哪1个返回值是字符串
len(&anjian&)b
&anjian&&&vrbrothers&c
clng(&520&)
20、以下无法获取句柄的命令是？ cA. 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 值指明表达式的值是否为数字。
TracePrint IsNumeric (VrBrothers)
-1MyTime1 = Second(Time)MyTime2=Hour(Time)MyTime3 = Minute(Time)MyTime4 = Now(Time)
now无效MsgBox MyTime1MsgBox MyTime2MsgBox MyTime34,以下哪个事件是最先响应的?A. OnScriptLoad
加载B. Form1.Label1.Click 角本不加载完成如何能实现界面点击后响应你的脚本你的脚本代码呢C. OnScriptExitD. OnThreadExit
5,PrintScreen命令支持那种格式截图。AA. jpgB. gifC. TIFD. png
1、下列语句中无法达到无限循环效果的是？BA. While True : Wend
只要指定的条件为 True，则会重复执行While和Wend之间的语句B. For i = True To True : NextC. Do : Loop
可以循环D. Do While True : Loop
Do While TrueMsgBox ALoop
按键精灵奇怪现象点的多了快了就不跳出来方框了！
3、VarType 函数的作用是? bA. 在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮B. 返回指示变量子类型的值C. 计算一个表达式的值并返回结果D. 返回一个字符串，提供有关变量的 Variant 子类型信息msgbox VarType(1)//整型子类型2msgbox VarType(1.1)//双精度子类型5msgbox VarType(&&)//字符串子类型8msgbox VarType(a)//初始化（默认）0vbEmpty
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查看下就知道了,返回的是字符串型在大型脚本的设计中,以下哪一个命令不推荐使用
\\\\\、判断数字a是否为3的倍数或者以3为尾数,是则弹出信息提示框,请给出代码 If a mod 3 =0 or (a-3) mod 10 = 0 thenmsgbox &zxc&end if
2、(后台)判断某句柄为hwnd的窗口的窗口坐标(50,100)处颜色是否为&FFFFFF&,是则在这个点按下鼠标左键,请给出代码
Hwnd=331814a = Plugin.BkgndColor.GetPixelColor(hwnd, 50,100)
b=hex(a)MsgBox bIf b = &FFFFFF& ThenMsgBox &颜色是FFFFFF&ElseMsgBox &颜色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自加到15intX = intX + 1
//这句是intX自加1
//当这两句一起发挥作用的时候，intX在每轮循环中就自加2了。intY = intY + 1Next
循环次数是8，x是16但是INTY的值是8.11、关于自定义变量的描述错误的是?
C//A. 自定义变量可以在脚本完全启动后读取//B. 自定义变量可以在脚本中重新赋值//C. 自定义变量可以在脚本载入事件中读取//D. 自定义变量可以在脚本退出事件中读取
13、GetCursorShape命令有几种获取鼠标形状的方式?var = GetCursorShape(1)var = GetCursorShape(0)是两种
8下列哪一个表示十六进制整数的方法是正确的？ CA. &&H0031D92A&B. 0031D92AC. &H0031D92AD. &0031D92A&10、创建一个对象需要用到的命令是? DA. GetObject 返回对文件中 Automation 对象的引用。B. IsObject
返回 Boolean 值指明表达式是否引用了有效的 Automation 对象。 语法
将对象引用赋给变量或属性。D. CreateObject 创建并返回对 Automation 对象的引用。4、关于字符串中存在字符引号的描述错误的是?AA. 可以用一个引号表示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?
DA. set Spk= CreateObject(&SAPI.SpVoice&)B. Set Spk= FalseC. Spk.CloseD. Set Spk= NothingNothing 停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。14、关于QUI描述错误的是?
DA. QUI内的控件值不可以在主线程内改变B. QUI内的控件值可以在控件事件内改变C. QUI经过设计可以有一个漂亮的界面D. QUI可以添加本身没有的控件2对网页插件和窗口插件描述错误的是
AA窗口插件不能再WQM中使用B网页插件只能在WQM中使用C窗口插件可以作用于任意窗口D网页插件和窗口插件可以配合使用
9、关于QUI输入框的描述哪个是错误的?AA. 可以在事件外修改输入框的背景颜色B. 可以在事件中修改输入框的是否显示
正确C. 可以在事件外获取输入框的值D. 可以在事件中修改输入框的是否有效
13、对于按键的功能扩展,不可以用以下哪个方式?aA. 调用函数接口未知的DLLB. 使用其他提供的插件
这个是可以调用的C. 使用VB/VC制作插件D. 使用CMD或VBS命令
以下对结构的描述哪一个是错误的? DA. 顺序结构是最基本的结构B. 跳转结构和子程序混用可能陷入消耗内存的死循环C. 控制结构和循环结构可以嵌套使用D. 控制结构和顺序结构混用可能陷入消耗内存的死循环
17、关于KeyPress命令第一个参数的描述哪个是正确的?
BA. 只能传递按键码B. 可以传递按键码或者字符串C. 不可以使用变量D. 只能传递字符串10、以下哪一个API命令可以运行指定路径的程序?cA. GetDesktopWindowB. ShowWindowC. ShellExecuteD. SetLayeredWindowAttributes15、关于数组与字符串描述错误的是?cA. 字符串和数组可以配合使用B. 数组元素可以是字符串C. 多维数组的元素只能是字符串D. 理论上数组元素的传递可以用字符串代替以下哪一种方式不能在 外部 自定义 脚本 内部 变量?BA. 使用OCX界面
可以自定义脚本内部变量B. 使用环境变量
环境变量仍然是在脚本内部改变的哦 环境变量SHI内部变量C. 使用QUI界面
可以自定义脚本内部变量D. 使用外部储存文件(例如文本/数据库等)
要调用API的话，必须能够接收返回值，也就是说要存在相应的数据类型来存放返回值。4、关于在按键中直接使用API,以下哪个说法是正确的?BA. 可以传指针B. 只能使用参数和返回值是数字或者字符串的APIC. 可以传地址D. 任意的API都可以使用
5、关于子程序的描述错误的是?CA. 函数可以代替子程序的作用B. 应用多线程时需要用到子程序C. 2个子程序之间可以任意跳转(goto)D. 子程序内定义的变量是局部变量7、判断一个字符串是否为数字可以使用以下哪个函数?AA. IsNumericB. IsArrayC. IsNullD. IsDate8、以下描述错误的是?AA. 脚本内子程序数量越少运行速度越快B. 脚本内增加注释可以提高代码的可读性C. 获得字符串长度的函数是len,获得数组最大可用下标的函数是UboundD. 程序内可以定义多个环境变量9、以下哪一种方法可以在线程中传递数组?CA. 其他三种方法都不可以B. 直接传递数组C. 将数组合成字符串,再把环境变量字符串传递到线程中D. 将数组定义成环境变量
不支持数组定义为环境变量23、以下哪个对Select命令的描述是错误的?AA. Select支持判断语句(例如:a&0)B. Select是一种选择结构C. Select可以有无数个分支D. Select可以嵌套其他判断语句使用24、关于后台坐标的描述,哪一个是不正确的?CA. 后台坐标可以在后台命令中使用B. 后台坐标指的是窗口内的某个坐标C. 后台坐标和前台坐标没有对应的计算关系D. 后台坐标的起点等同于窗口客户区的起点25、关于子程序描述错误的是?
DA. 子程序调用可以不使用Call关键字B. 子程序使用恰当可以优化程序结构C. 子程序使用恰当可以缩短代码D. 使用子程序的目的是让脚本更加智能
22、一般后台多开脚本是通过什么技术手段实现的?DA. 前台+APIB. 后台+API 是错误的C. 前台+多线程D. 后台+多线程
14.关于环境变量描述错误的是?
BA. 环境变量在程序未完全关闭前不会自动清空B. 环境变量推荐在各个线程序内同时任意使用
不推荐C. 环境变量可以跨线程序使用D. 环境变量可以在同一个按键精灵或者小精灵中跨脚本使用
15、关于环境变量的描述,哪个是错误的?AA. 环境变量的类型可以是数组
不支持数组定义为环境变量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的默认值为31、以下代码在事件触发时弹出的a的值为?
BUserVar a=0 &设置内容&Sub OnScriptLoad()MsgBox aEnd SubA. 不会弹出B. 空
脚本保存后退出C. 0
15、对Eval和Execute命令的描述以下哪一个是不正确的?AA. 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,那么这代表是星期几?CA. 4B. 7C. 5D. 6
关于线程停止事件子程序描述正确的是?DA. 线程停止事件子程序会在对应线程序停止时触发
选这个是错误的B. 线程停止事件子程序可以启动新的线程C. 线程停止事件子程序可以判断是哪个线程停止了D. 线程停止事件子程序会在任意线程停止时触发
这个是对的
【网游通用】技能循环释放写法（总结）
【写法一】思路：多线程独立循环，但不实用，如果技能多大几十个，十多个线程独立循环不解释...
那么，不用多线程不妨试试下面的写法！【写法二】思路：DateDiff技能1释放延时 = 1 '单位:秒技能2释放延时 = 3技能1时间初值 = time技能2时间初值 = timeDo技能1时间差 = DateDiff(&s&, 技能1时间初值, time)TracePrint 技能1时间差If 技能1时间差 = 技能1释放延时 Then技能1时间初值 = timeKeyPress &1&, 1
'技能键End If技能2时间差 = DateDiff(&s&, 技能2时间初值, time)TracePrint 技能2时间差If 技能2时间差 = 技能2释放延时 Then技能2时间初值 = timeKeyPress &2&, 1
'技能键End IfDelay 10Loop
【写法三】思路：Timer技能1释放延时 = 0.2 '单位:秒技能2释放延时 = 0.5技能1时间初值 = timer技能2时间初值 = timerDoIf Timer - 技能1时间初值 &= 技能1释放延时 Then技能1时间初值 = TimerKeyPress &1&, 1
'技能键End IfIf Timer - 技能2时间初值 &= 技能2释放延时 Then技能2时间初值 = TimerKeyPress &2&, 1
'技能键End IfDelay 10Loop
【写法四】思路：Timer 和 mod技能1释放延时 = 1 '单位:秒 要求:必须整数(非0)技能2释放延时 = 5技能1时间初值 = timer技能2时间初值 = timerDoIf (timer - 技能1时间初值 + 1) mod 技能1释放延时 = 技能1释放延时-1 Then
KeyPress &1&, 1
'技能键End IfIf (timer - 技能2时间初值 + 1) mod 技能2释放延时 = 技能2释放延时-1 Then
KeyPress &2&, 1
'技能键End IfDelay 100Loop1、生成[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是否是数字，并把返回值赋值给MycheckIf Mycheck = true ThenMsgBox &这是一个数字&
//如果是数字，则弹出信息提示框&这是一个数字& End If2.把字符串&520&转换为数值型,请给出代码Dim str,Mycheck
//定义str = &520&Mycheck=CInt(str)
//类型转换TracePrint Mycheck3、获取当前标题包含&Internet&的窗口句柄的数量,请给出代码HwndEx = Plugin.Window.Search(&Internet&) //遍历符合“Internet”窗口的标题的句柄保存到数组TracePrint HwndEx
//调试输出句柄数组dim MyArrayMyArray = 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&的值赋值给变量MyStringMyString = &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 + c1TracePrint dMessageBox 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,jC = 0D = UCase(&FF00FF&)For i = 1 To Len(D)j = Asc(Mid(D, i, 1)) - 48If j & 9 Then j = j - 7C = C * 16 + jNextTracePrint 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=0For UBound(myarray)+1myarray(i)=iTracePrint &myarray(& & i & &)=& & myarray(i)i=i+1Next//==============================================================================
好好利用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. 0B. 为空C. -1D. 13、MsgBox命令最多可以使用几个参数?(c)A. 4B. 3C. 5D. 64、以下哪一个值是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字符代码后继续循环执行返回值是？CA. -1B. 空值C. 0D. 最后一次获取的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&-1C. 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. 6C. 5D. &5&13、True的值是?AA. -1B. 0C. 1D. -214、以下哪一个命令可以将表达式转化为字符串?BA. ClngB. CstrC. CintD. Ccur15、下列哪一个函数可以取数组最大可用下标?DA. SplitB. ArrayC. LboundD. Ubound16、ExitOS命令中，以下描述错误的是？BA. 可执行注销B. 可执行待机C. 可执行关机D. 可执行重启17、FindMutiColorEx命令有几个参数？BA. 6个参数B. 8个参数C. 5个参数D. 7个参数18、返回已添加指定时间间隔的日期应使用下列哪一个函数?DA. Date 函数B. DateAdd 函数C. DatePart 函数D. DateDiff 函数19、以下哪一个命令可以得到变量的类型?AA. VarTypeB. UserVarC. TristateD. Chr20、以下哪一个命令的功能是设置屏幕分辨率?BA. GetScDepB. SetScC. GetScRYD. SetCLB21、myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?BA. 4B. 6C. 5D. 322、以下对函数的描述哪一个是错误的?bA. 函数一定有返回值B. 函数可以自行定义参数的个数C. 函数可以中途退出D. 函数可以嵌套使用23、选出以下命令参数错误的。A. SetSimMode 2B. Import &Window&C. RunApp ¬epad&D. PutAttachment &.\plugin&,&dll&24、以下哪一个函数返回值的数据类型与其他三个的不一样?AA. FilterB. InstrC. ClngD. Ubound25、以下哪一个变量不可能是数组?CA. Dim MyArray()B. Dim MyArrayC. Const MyArray=2D. 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 、以下哪个直为TrueA：CSTR(false)B：not(false)C：clng(talse)D：not(TRUE)
2、以下哪个命令不能调试内容输出A
TracePruntC
showScrTXT
3、set语句含义是？A
用于过程级声明动态数组变量并分配或从新存储空间B
初始化随机数生成器C
声明 Funchon 过程名称。参数以及构成其主体代码D
将对象引用赋给变量或属性
4 、以下哪个时间是最先响应的？A
onThreadExitB
OnScriptExitC
OnScriptLoadD
Fom1.Labell.Click5 、常数VBOK的直为？A
26、返回已添加指定时间间隔的日期应使用下列哪个函数A
DatePart函数C
DateAdd函数D
DateDiff函数7、以下哪1个返回值是字符串A
len(&anjian&)b
&anjian&&&vrbrothers&c
clng(&520&)8、RGB直分解为红绿蓝分量，分量直的范围是A
1-2559、以下哪个命令可以得到变量的类型A：VarType
B：chrC：Tristate
D：UserVar
10、关于延迟命令描述错误的是A
在模拟按键过程中加入适当岩石可以更准确B
使用延时命令可以停止脚本C
延时命令的参数是毫秒D
在脚本中适当加如延时命令可以降低CPU使用率11、 对函数的描述错误的是A
函数1定有返回值B
函数可以使用任意格数参数C
函数可以嵌套使用D
函数可以中途退出12、以下哪个变量名不合法？A
MyArray_1 题目13、 str=Mid(&234&,2,1)
那么str直为A
“34”C“3”D
3414、文本不存在以下哪个命令会新建文本A
ReadFileEXB
wrlteFileExc
ReadFile15、以下语句无法返回时间信息的是？A. MyTime=Second(Time)B. MyTime=Hour(Time)C. MyTime=Minute(Time)D. MyTime=Now(Time)16、选出返回值与其他三种不一样的选项。A. FindPicB. GetPixelColorC. FindColorD. FindCenterColor17、Call Plugin.Window.Close(参数)命令需要以下哪种参数？A. 窗口句柄B. 窗口标题C. 窗口类名D. 进程ID18、Text = Plugin.File.ReadINI(&小节名&, &键值&, &文件路径&)，读取文件格式为？A. *.QB. *.iniC. *.txtD. *.xls19、以下哪一个函数返回值的数据类型与其他三个的不一样?A. FilterB. UboundC. InstrD. Clng 20、以下无法获取句柄的命令是？A. MousePointB. SearchC. ActiveD. Foreground21、IsNumeric(n)，当n等于&VrBrothers&时返回什么？A. FalseB. 1C. TrueD. -122、str=Clng(Mid(&234&,2,1)),那么str的值为?A. &4&B. 34C. 3D. &34&23、以下哪一个对Date 函数的描述是正确的?A. 返回当前系统日期。B. 返回给定日期的指定部分。C. 返回已添加指定时间间隔的日期。D. 返回两个日期之间的时间间隔。24、 以下哪一个命令的功能是设置屏幕分辨率?A. SetCLBB. GetScRYC. SetScD. GetScDep25、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.D
1、以下哪一个不是变量名的命名规则?BA. 不能以数字开头B. 变量名不能包含下划线C. 不能包含嵌入的句点或类型声明字符D. 最多只能有 255 个字符2、以下哪一个命令输出的值与其他三个不同?AA. TracePrint round(3.5)B. TracePrint fix(3.5)C. TracePrint Clng(3.5)D. TracePrint cint(3.5)3、Join命令的参数类型是?CA. 字符串B. 数字C. 数组D. 对象4、假如MyDate = &October 19, 1962&: YourDate = #10/19/62#: NoDate = &Hello&，返回值为False的是？BA. IsDate(time)B. IsDate(NoDate)C. IsDate(YourDate)D. IsDate(MyDate)5、str=Mid(&234&,2,1),那么str的值为?AA. &3&B. &34&C. 4D. 346、以下命令可以获取当前窗口所在屏幕位置精确坐标的是？AA. 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)包含的元素个数为?AA. 5B. 0C. 1D. 68、数组MyArray(5)的最大可用下标为?AA. 6B. 1C. 5D. 09、数组MyArray(5)的最小可用下标为?DA. 1B. 5C. 6D. 0FindMutiColorEx命令有几个参数？AA. 8个参数B. 5个参数C. 7个参数D. 6个参数11、Media.Play命令不支持哪个文件格式。AA. Mp4B. MidC. Mp3D. Wav12、以下不属于键鼠命令的是？CA. Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)B. Call Plugin.Bkgnd.RightClick(Hwnd, 0, 0)C. Call Plugin.Bkgnd.KeyPress(Hwnd, 65)D. Call }
按键精灵 怎么样随机输出几个指定数字中的一个？
我有更好的答案
dim a(26)a(1)=&a&a(2)=&b&a(3)=&c&a(4)=&d&a(5) =&e&a(6)=&f&a(7)=&g&a(8)=&h&a(9)=&i&a(10) = &j&a(11)=&k&a(12)=&l&a(13)=&m&a(14)=&n&a(15) = &o&a(16)=&p&a(17)=&q&a(18)=&r&a(19)=&s&a(20) = &t&a(21)=&u&a(22)=&v&a(23)=&w&a(24)=&x&a(25) = &y&a(26) = &z&Randomize
i = Int((26* Rnd) + 1)
n = a(i)SayString n上面是随机输出26个字母的其中1个，相信自己应该会改了吧！
采纳率：58%
x=1For 999
ElseIf y=2
SayString &A&&z&&EFGH&
Delay 10EndFor
为您推荐：
其他类似问题
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。(谷歌浏览器) chrome插件【支持Chrome 45+】 _ 插件界面 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 50892|回复: 1053
[插件下载]
chrome插件，支持chrome 45以上版本。暂不支持xp系统按键网页脚本交流群 方法说明bool launch(string path，string args)启动浏览器
path: chrome浏览器的路径
args: chrome浏览器的启动参数，多个参数可以用&||&分隔
返回值: 启动成功则返回 true， 否则返回 falsequit()退出浏览器 string get_ids()获得所有已创建标签的id
返回值: 返回所有id，id用&||&分隔string create()创建一个新的标签
返回值: 创建成功返回窗口id，否则返回空字符串close(string id)关闭一个标签
id: 标签idactivate(string id)激活一个标签
id: 标签idstring get_url(string id)获得窗口网页的地址
id: 标签id
返回值: 返回网页的地址load(string id, string url)载入指定的地址
id: 标签id
url: 要载入的地址reload(string id)重新载入网页
id: 窗口idback(string id)后退
id: 标签idforward(string id)前进
id: 标签idstop(string id)停止加载网页
id: 标签idbool is_loading(string id)网页是否加载中
id: 标签id
返回值: 如果网页正在加载中则返回 true，否则返回 falsestring exec_js(string id, string js_code)在网页执行一段javascript代码
id: 标签id
js_code: javascript代码
返回值: 如果代码成功执行则返回执行结果set_user_agent(string id, string ua)修改指定标签的user agent字符串
id: 标签id
ua: user agent 字符串bool is_dialog_open(string id)指定标签是否有对话框打开(alert, confirm, prompt)
id: 标签id
返回值: 如果有对话框打开则返回truestring get_dialog_message(string id)获取对话框的消息文本
id: 标签id
返回值: 如果有对话框打开则返回消息文本handle_dialog(string id, bool accept, string prompt_text)处理对话框
id: 标签id
accept: 参数为true则确定，否则取消
prompt_text:向prompt弹出的对话框写入内容clear_browser_cache(string id)清除缓存
id: 标签idclear_browser_cookies(string id)清除cookies
id: 标签idset_file_input_files(string id, string selector, string paths)设置 file input 的 value 值
id: 标签id
selector: 获取 file input 的css选择器
paths: 文件路径，多个文件用&||&分隔string dama2(string id, string selector, string name, string password, string type)上传图片验证码到打码兔
id: 标签id
selector: 获取图片验证码的css选择器
name: 打码兔用户名
password: 打码兔密码
type: 验证码类型
返回值: 如果失败返回以“-”为前缀的字符串，成功则返回验证码答案例子百度搜索// 浏览器路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
TracePrint &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到百度
Call Plugin.chrome.load(id, &https://www.baidu.com&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 输入搜索内容
Call Plugin.chrome.exec_js(id, &document.querySelector('#kw').value='按键精灵';&)
// 点击搜索按钮
Call Plugin.chrome.exec_js(id, &document.querySelector('#su').click();&)
MsgBox &脚本执行完毕&
// 退出浏览器（如果不退出浏览器下次执行&launch&方法用同一个&--user-data-dir&启动参数会启动失败）
Call Plugin.chrome.quit()
复制代码表单填写// 浏览器的路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
MsgBox &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到地址
Call Plugin.chrome.load(id, &http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
username = &用户名&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbUsername').value='& & username & &';&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbPassword').value='password';&)
// EMail地址
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbEMail').value='';&)
// 性别，$字符是CSS选择器的特殊字符，所以需要用反斜杆转义
Call Plugin.chrome.exec_js(id, &document.querySelectorAll('[name=ctl00\\$mainContent\\$rblGender')[0].checked=&)
// 省份城市，联动下拉列表需要触发change事件
change_event = &var ev = document.createEvent('HTMLEvents');& & _
&ev.initEvent('change', false, true);&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_ddlProvince').selectedIndex=1;&)
Call Plugin.chrome.exec_js(id, change_event & &document.querySelector('#ctl00_mainContent_ddlProvince').dispatchEvent(ev);&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_ddlCity').selectedIndex=2;&)
Call Plugin.chrome.exec_js(id, change_event & &document.querySelector('#ctl00_mainContent_ddlCity').dispatchEvent(ev);&)
// 求职意向
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[0].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[1].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_lbObjectives').options[2].selected=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cblHobies_0').checked=&)
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cblHobies_1').checked=&)
// 自我评价
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_tbSelfAssement').value='aaaaa\nbbbbb\nccccc';&)
// 我已阅读并接受注册协议
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_cbAcceptTerms').checked=&)
MsgBox &表单填写完成，点击确定继续&
Call Plugin.chrome.exec_js(id, &document.querySelector('#ctl00_mainContent_btnSubmit').click();&)
Delay 1000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 获取结果
rows_len =
CInt(Plugin.chrome.exec_js(id, &document.querySelector('table').rows.length&))
For i = 0 To rows_len - 1
cells_len = CInt(Plugin.chrome.exec_js(id, &document.querySelector('table').rows[& & i & &].cells.length&))
For j = 0 To cells_len - 1
str = str & Plugin.chrome.exec_js(id, &document.querySelector('table').rows[& & i & &].cells[& & j & &].innerText&)
str = str & &
TracePrint str
MsgBox &脚本执行完毕&
Call Plugin.chrome.quit()
复制代码同时启动多个浏览器path = &c:\chrome\chrome.exe&
Set chrome1 = CreateObject(<.chrome.1&)
Set chrome2 = CreateObject(<.chrome.1&)
If chrome1.launch(path, &--user-data-dir=c:\user_data_1&) = False Then
MsgBox &启动失败1&
ExitScript
If chrome2.launch(path, &--user-data-dir=c:\user_data_2&) = False Then
MsgBox &启动失败2&
ExitScript
id1 = chrome1.get_ids()
TracePrint id1
Call chrome1.load(id1, &https://www.baidu.com&)
id2 = chrome2.get_ids()
TracePrint id2
Call chrome2.load(id2, &http://bbs.anjian.com/&)
Delay 2000
TracePrint &...&
Loop While chrome1.is_loading(id1) or chrome2.is_loading(id2)
TracePrint chrome1.exec_js(id1, &document.&)
TracePrint chrome2.exec_js(id2, &document.&)
MsgBox &脚本执行完毕&
Call chrome1.quit()
Call chrome2.quit()
复制代码向打码兔提交验证码// 浏览器路径
path = &c:\chrome\chrome.exe&
// 启动浏览器
If Plugin.chrome.launch(path, &--user-data-dir=c:\user_data&) = False Then
MsgBox &启动失败&
ExitScript
// 获取启动浏览器后的默认标签
id = Plugin.chrome.get_ids()
If id = && Then
TracePrint &获取标签id失败&
ExitScript
// 跳转到地址
Call Plugin.chrome.load(id, &https://passport.game2.cn/login/&)
// 等待载入完成
Delay 2000
TracePrint &...&
Loop While Plugin.chrome.is_loading(id)
// 打码兔用户名
dm2Name = &xxxxx&
// 打码兔密码
dm2Password = &xxxxx&
// 向打码兔提交验证码
answer = Plugin.chrome.dama2(id, &#img_sec&, dm2Name, dm2Password, &4&)
TracePrint answer
If answer = &-406& Then
MsgBox &第一次使用需要打码兔后台允许&
ElseIf answer = &-303& Then
MsgBox &验证码尚未打码完成&
ElseIf answer = &-304& Then
MsgBox &打码兔题分不足&
ElseIf answer = &-9992& Then
MsgBox &打码兔用户名错误&
ElseIf answer = &-9993& Then
MsgBox &打码兔密码错误&
// 向网页写入验证码答案
Call Plugin.chrome.exec_js(id, &document.querySelector('[name=vcode]').value = `& & answer & &`;&)
MsgBox &脚本执行完毕&
Call Plugin.chrome.quit()
复制代码javascript控制网页元素1.获取控制的目标元素
document.querySelector、document.querySelectorAll提供了类似于JQuery的元素选择功能，两个方法都接收一个符合CSS选择器规范的字符串参数，前者返回第一个成功匹配的元素，后者返回所有成功匹配的元素集合。
这是百度搜索框的代码，接下来试下如何用document.querySelector来匹配到这个搜索框&span class=&bg s_ipt_wr quickdelete-wrap&&
&input id=&kw& name=&wd& class=&s_ipt& value=&& maxlength=&255& autocomplete=&off&&
复制代码基本匹配#id -- 根据给定的id匹配相应元素document.querySelector('#kw');
复制代码.class -- 根据给定的class匹配相应元素document.querySelector('.s_ipt');
复制代码element -- 根据给定的元素名匹配相应元素document.querySelector('input');
// 由于网页上可能不只一个input元素，所以上面的没选到正确的元素，但可以通过组合的方式进行更多的过滤
document.querySelector('input#kw');
document.querySelector('input.s_ipt#kw');
复制代码层级匹配ancestor descendant -- 给定祖先元素下匹配所有的后代元素document.querySelector('span #kw');
document.querySelector('.bg input#kw');
复制代码属性过滤[attribute] -- 匹配包含给定属性元素document.querySelector('[autocomplete]');
复制代码[attribute=value] -- 匹配给定属性是某个特定值的元素document.querySelector('[name=wd]');
复制代码[attribute^=value] -- 匹配给定属性是以某个值开始的元素document.querySelector('.bg [name^=w]');
复制代码[attribute$=value] -- 匹配给定属性是以某个值结束的元素document.querySelector('.bg [name$=d]');
复制代码[attribute*=value] -- 匹配给定属性含有某个值的元素document.querySelector('.bg [autocomplete*=f]');
复制代码通过上面的基本匹配、属性过滤、层级匹配以级组合匹配等方法，基本上大部分的网页元素都能匹配得到了。
更多匹配方法百度搜索&CSS选择器&2.控制目标元素
元素都有自己的属性和方法，可以通过对这属性和方法的读写和调用来完成控制的目的。元素的属性和方法可以到&w3school&网站查找读取属性值&a href=&./news& id=&news&&新.闻&/a&
复制代码TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').&)
TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').innerT&)
TracePrint Plugin.chrome.exec_js(id, &document.querySelector('#news').outerHTML;&)
复制代码写入属性值&input type=&text& id=&username& value=&123&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#username').value='text';&)
复制代码调用方法
调用按钮的click方法&input type=&button& id=&btn& value=&按钮&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#btn').click();&)
复制代码选择编辑框内容&input type=&text& id=&username& value=&123&&
复制代码Call Plugin.chrome.exec_js(id, &document.querySelector('#username').select();&)
复制代码触发change事件&select id=&select_list&&
&option value=&a&&选项1&/option&
&option value=&b&&选项2&/option&
复制代码js_code = &var ev = document.createEvent('HTMLEvents');& & _
&ev.initEvent('change', false, true);& & _
&document.querySelector('#select_list').dispatchEvent(ev);&
Call Plugin.chrome.exec_js(id, js_code)
复制代码插件下载(, 下载次数:1921)
&想要做图片上传该怎么做？&
兰天 最后编辑于
appcust.com
太好了。支持
按键会员（月）按键会员绑定账号后自动赠送兔年勋章（360天）兔年纪念勋章(360天)按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
必须来顶你。。
论坛只有这个插件基于chrome.赞一个
膜拜，大神。牛逼。
学习了，此贴必火，感谢楼主。
ensurf 最后编辑于
过大年勋章俩小福娃给大家拜年啦！按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 小红帽对论坛提出良好建议（可向管理员申请）
此帖必火！！！！
可以嵌入QUI界面就更完美了
在VB下测试，打开了chrome窗口,但init(path) = False，导致取不到id,不知道大家测试怎么样？楼主建个群，大家讨论下。
ensurf 最后编辑于
热心的围观群众
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。按键图书勋章尊贵的按键图书用户按键明星按键明星勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
顶帖来了！
楼主呢，给我们指导一下
楼主有联系方式吗
学习，太赞了
为什么脚本结束要把窗口关闭呢？那我后续手动的操作怎么办？
黄瓜勋章（永久）体验商业小精灵活动的奖励按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
好东西必须顶
孤独的嫖客
双十一绝版纪念勋章双十一绝版纪念勋章
不羁的醉与醒
huningli38
论坛只有这个插件基于chrome.赞一个
终于找到了
看到Chrome的插件超激动我，万分感谢楼主。膜拜啊
闽网文 (-037号按键精灵1--6级答案-海文库
您现在的位置：&>&&>&计算机硬件及网络
按键精灵1--6级答案
以下哪一个不是按键精灵的产品? 按键箱子录制的脚本没有以下哪个功能? 记录鼠标特征码下列哪一个命令不属于&全部命令&? 内核命令按键精灵自带的抓图工具是? 按键抓抓哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.按键精灵不可以在以下哪个系统中使用? Linux可以使用神盾功能的程序是? 小精灵商业版旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用&自动缩进&功能WaitClick命令的含义是? 按任意鼠标键继续哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Plugin目录下装有不是官方提供的插件引起的关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本 GetLastClick命令的含义是? 检测上次按过的鼠标键按键精灵生成的小精灵程序的后缀名是? EXE
按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享受版主资源网页按键精灵是下列哪一个程序? wqm.exe按键精灵的产品包括以下哪一个? 按键盒子按键精灵是下列哪一个程序? 按键精灵9.exe按键精灵会员卡注册码,没有以下哪一种? 天卡(1天)UnlockMouse命令的含义是? 解除锁定鼠标位置按键精灵会员不能享受的资源是? 免费小精灵的源代码RightUp命令的含义是? 右键弹起按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器按键精灵能兼容下列哪一种语言? VBS不能用抓抓工具直接获取的是? PID关于按键精灵的描述，以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作的软件脚本编辑界面上没有的按钮是?启动与取色判断命令没有直接关系的参数是? 按键码以下哪种方式可以在脚本编辑界面中获取到新的插件? 点击&资源库&按钮,然后导入需要的插件LeftClick命令的含义是? 左键单击按键精灵官方网站的网址是? http://www.anjian.com/RestoreMousePos命令的含义是? 恢复上次保存的鼠标位置如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾SaveMousePos命令的含义是? 保存当前鼠标所在位置GetCursorPos命令的含义是? 得到鼠标位置坐标键盘命令的类型不包括? 锁定按键精灵里运算符乘号是? *KeyPress命令的含义是? 按键MiddleClick命令的含义是? 中键单击LockMouse命令的含义是? 锁定鼠标位置按键精灵会员不能享受的功能是? 脚本编写服务GetCursorShape命令的含义是? 得到鼠标形状按键精灵自带的用户界面叫做什么? QUI界面RightClick命令的含义是? 右键单击按键精灵里运算符减号是?
-按键精灵默认的启动热键是? F10属于&全部命令&的是? 我的命令库“录制”功能不能录制的内容是? 记录鼠标指向的窗口句柄按键抓抓是下列哪一个程序? picker.exe想要知道脚本是否存在错误,应该使用下列哪个功能? 调试以下哪种方式不可以获得论坛银币? 发布大量无内容的主题贴按键精灵里运算符除号是?
/按键精灵会员不能享受的技术支持是? 技术人员上门服务按键精灵自带的功能不包括以下哪一个? 路由功能GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0 变量的定义，以下哪个是正确的? dim a下列哪一种方法不能够正确输入命令? 鼠标右键单击命令按键精灵的功能是？模拟鼠标键盘操作的工具MoveR命令的含义是? 相对移动关于小精灵去广告的描述，下列正确的是? 会员用户在“制作按键小精灵”界面上-&更多设置-&选择会员去广告（是）即可按键精灵里运算符加号是?
+对小精灵的描述，以下是正确的? 按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。LeftDown命令的含义是? 左键按下键鼠的模拟方式不包括以下哪一个? 虚拟模拟
3、区域找图的命令是? FindPic4、按键精灵语言大小写的描述哪一个是正确的? 按键精灵不区分大小写7、KeyPress命令有几个参数? 213、不能实现键盘按下&A&键的命令是? KeyPressW &A&,115、下列哪一个不是循环命令? Select Case颜色值为&000000&是什么颜色? 黑色以下哪一个不属于按键精灵的&全部命令&? 远程嗅探命令20、下列RGB颜色值，书写正确的是? &DD&23、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 的实际意义是? 使用硬件模拟
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、鼠标右键按下的命令是? RightDown10、以下哪一个命令不会暂停脚本? for...next11、下列哪一个是键盘命令? KeyPress12、鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为：100,15013、鼠标左键按下的命令是? LeftDown14、解除鼠标锁定是下列哪一个命令? UnlockMouse15、组合键&CTRL+C&的正确按键顺序是? 按下&CTRL&,点击&C&,弹起&CTRL&16、下列属于鼠标命令的是? RightClick17、以下哪一种方式不能无限循环? 在脚本开头加入&For 10000&,脚本尾部加入&Next&18、WaitKey命令有几个参数? 019、如何退出Do循环的命令? Exit Do20、下列哪一个是鼠标命令? LeftClick21、下列RGB颜色值，书写错误的是? &FFFFFFFF&22、以下哪一个KeyPress命令的路? 检测血条上某一点,如果此点不是血条的颜色则执行加血操作23、FindColor命令有几个参数? 724、哪一种不能正确调用KeyPress命令? KeyPress &FA&,125、延时的命令是? Delay26、取指定点颜色的命令是? GetPixelColor27、延迟2小时,以下哪一句代码是正确的? Delay *228、以下哪一个是自动打怪的思路? 检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作29、EndScript命令的意义是? 脚本停止运行30、以下哪一个是循环命令? for...next31、SetSimMode命令有几个参数? 132、鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为? 100,10033、区域找色的命令是? FindColor34、FindPic命令有几个参数? 835、按键精灵找图命令需要的图片格式是下列哪一个? *.BMP36、脚本停止运行命令是哪一个? EndScript37、延迟1天,以下哪一句代码是正确的? Delay *24*138、下列哪一个命令会暂停脚本? WaitClick39、不能正确调用KeyPress命令的写法是? KeyPress &FB&,140、鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为? 100,10041、代码KeyPress &A&，1 调试后提示出错,错误的原因是? 逗号使用了全角符号无法识别导致错误42、锁定鼠标位置是下列哪一个命令? LockMouse43、下面哪一个命令会暂停脚本? MsgBox44、鼠标左键单击的命令是? LeftClick45、鼠标左键双击的命令是? LeftDoubleClick46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号? &47、以下哪一个命令能够延时1个小时? delay 48、按键码105是下列哪一个按键? NUM 949、指定句柄进行截图，以下哪种情况不会导致截到的图是黑色？窗口标题动态变化50、空格键的按键码是?
4、以下哪一个函数返回值的数据类型与其他三个的不一样? FilterA. Instr
D. Filter5、以下哪一个函数返回值的数据类型与其他三个不一样?A. Array 错B. Filter 错C. SplitD. Replace18、以下哪一个返回值是字符串?CA. clng(&520&)B. &10&-1C. &anjian&&&vrbrothers&D. len(&anjian&)
Msgbox &anjian&&1 将会弹出什么内容? anjian1以下哪一个命令可以将表达式转化为字符串：Cstr10、假如“神盾”图像存在，以下无法识别到图像的命令是？FindPic 0, 0, , &神盾.jpg&, 0.9, intX, intY11、IsNumeric(n)，当n等于&VrBrothers&时返回什么？False12、Redim 命令的作用对象是? 数组
1、关于 GetLastKey 命令的描述哪一个是错误的?
D. 返回值是字符串2. 以下不属于按键命令的是？
OnThreadLoad3. 假如MyDate = &October 19, 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. 以下对函数的描述哪一个是错误的? 函数一定有返回值11. 以下命令哪个可以终止所有线程运行并停止脚本。ExitScript12. ExitOS命令中，以下描述错误的是？可执行待机13. 关于自定义变量的描述以下哪一个是错误的? 可以是数字或者字符串 错
数组？14. 以下哪一个函数的功能是指明表达式的值是否为数字?IsNumeric15、Set 语句的含义是? 将对象引用赋给变量或属性16.选出下列命令参数格式错误的选项。PutAttachment &\&, &*.*&？17.后台取色命令需要的参数为? 句柄和坐标18. 以下命令可以获取当前窗口所在屏幕位置精确坐标的是？Text = Plugin.Window.GetWindowRect(Hwnd)19. 选出以下命令参数错误的。 Import &Window&20.MsgBox命令最多可以使用几个参数? 5个21. GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？ 022. 以下选项中不符合调用规则的是？Asc(F1)23. 以下关于按键抓抓描述错误的是？支持后台找色找图效果测试24.Media.Play命令不支持哪个文件格式。Mp425.数组MyArray(5)的最大可用下标为?Ubound
526.数组MyArray(5)包含的元素个数为?627.字符串&&H22&用Clng命令转换后除以2再用Cstr命令转换,最后结果为?
‘‘17’’29.由RGB分量分别为(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.以下命令无法正常获取句柄的是？Active38.myarray=Array(1,2,3,4,5),那么myarray(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：检测上次按键，返回数字，键码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,下列描述哪一个是错误的?：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.以下对子程序的描述哪一个是正确的?：子程序没有返回值67. 对于按键精灵与VBS的描述正确的是?：按键可以直接调用VBS命令68. 132 Mod 13 的值为?:269.变量名称不合法：1MyArray70.str=mid(&234&,2,1)：&3&71.哪个事件最先响应：onscriptload72.以下哪一个命令的功能是设置屏幕分辨率?：setsc73.QUI输入框控件返回值的变量类型是?：字符串74.按键精灵的产品包括以下哪一个? ：按键盒子75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.76.关于加密脚本的描述，下列是错误的是?：只有会员输入密码可以解开加密脚本77.鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：50,10078.WaitKey命令有几个参数?答案：079.vbCrLf的值为?A Chr(13) & Chr(10)80.选出下列返回值类型不一样的选项。CA. InStr(str,str)B. Len(n)C. Join(arr)D. Asc(n)81.a = 10.05 Mod 2 ,那么a的值为? 082.Round(3.)返回值为什么？3.1415983.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. WriteFileEx87.下列语句中无法达到无限循环效果的是？C. For i = True To True : Next6、以下命令无法改变窗口大小的是？Call Plugin.Window.Move(Hwnd, 100, 100)18、选出下列非键鼠操作的命令。
22、以下关于按键抓抓描述错误的是？
1、当n=3.，以下语句返回值是绝对值的是？B. Abs(n)
4、以下哪一个变量不可能是数组? Const MyArray=25、假如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))等于多少？A &6&8、在脚本开头中加入代码 Msgbox Ture ,弹出的值为? 为空9、QUI输入框控件返回值的变量类型是? 字符串11、arr=array(0,1,2,3,4,5,6,7,8,9)，问Clng(arr(9))等于多少？B. 912、Round(3.)返回值为什么？3.1415913、GetCursorShape(0)该命令返回值类型为？整数类型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.5)Erase 语句的含义是? 重新初始化固定大小数组的元素，并释放动态数组的存储空间5、以下命令无法正常获取句柄的是？B错误！未找到引用源。 A. Hwnd = Plugin.Window.Search(&未命名 - 画图&)
错误！未找到引用源。 B. Hwnd = Plugin.Window.Find(耂&, -1)错误！未找到引用源。 C. Hwnd = Plugin.Window.Find(&MSPaintApp&, &未命名 - 画图&)错误！未找到引用源。 D. Hwnd = Plugin.Window.Find(&&, &未命名 - 画图&)7、关于自定义变量的描述以下哪一个是正确的? 自定义变量可以是数字或者字符串A. 自定义变量可以是数组D. 自定义变量可以是类10、关于后台坐标的描述哪一个是不正确的? 后台坐标在窗体内是不会变化的A. 后台坐标只针对窗体内生效B. 后台坐标是由后台横坐标和后台纵坐标构成的16、选出下列命令参数格式错误的选项。PutAttachment &\&,&*.*&17、Hex函数的返回值类型是? 字符串21、以下哪一个命令可以定义常数? Const23、以下不属于键鼠命令的是？Call Plugin.Bkgnd.SendString(Hwnd, 0)
前半部分为问答题 后半部分为选择题问答题只需要复制单道题到按键精灵中后调试就会看到效果了选择题是搜索的其他资料 并没有进行整理(紧供参考)只有自己读懂每句代码的含义后再答题 这样不仅完成答题 还能丰富自己的知识━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━问答题部分'六、1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码Dim 父窗口句柄, 子窗口句柄, 客户区大小大小Call RunApp(¬epad.exe&)Delay 1000父窗口句柄 = Plugin.Window.Find(&Notepad&, 0)子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, &Edit&, 0)TracePrint &查找到的父窗口句柄为：& & 父窗口句柄TracePrint &查找到的子窗口句柄为：& & 子窗口句柄Call 比例大小(父窗口句柄, 子窗口句柄, 0.9)EndScriptSub 比例大小(父窗口句柄, 子窗口句柄, 比例)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, bSwapRandomizeFor i1 = 0 To 9随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50)TracePrint i1 & &：& & 随即Int(i1)NextFor j = 0 To UBound(随即Int) - 1bSwap = FalseFor i1 = 0 To UBound(随即Int) - 1If 随即Int(i1) & 随即Int(i1 + 1) Then
'若是递增，则将 & 改为 &Cache = 随即Int(i1)随即Int(i1) = 随即Int(i1 + 1)随即Int(i1 + 1) = CachebSwap = TrueEnd IfNextIf bSwap = False Then Exit ForNextTracePrint &【冒泡排序后输出】&For i1 = 0 To UBound(随即Int)TracePrint i1 & &：& & 随即Int(i1)NextEndScript'六、2、利用文本(TXT)模拟一个&数据库&,数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果数据库路径 = &C:\档案.txt&InputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)Do While InputHome && &Q& And InputHome && &q&If InputHome = &H& Or InputHome = &h& ThenInputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)ElseIf InputHome = &1& ThenDo查询结果 = &&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 IfIf 查询结果 && && Then MsgBox 查询结果, 65, &查询结果&LoopElseIf InputHome = &2& ThenDo搜索返回 = && : 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 IfIf 搜索返回 && && Then搜索结果 = Split(搜索返回, &,&)For i = UBound(搜索结果) - 1 To 0 Step - 1Show搜索 = Show搜索 & 搜索结果(i) & vbCrLfNextMsgBox Show搜索, 65, &搜索结果&End IfLoopElseIf InputHome = &3& ThenDo查询结果 = && : 删除结果 = &&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 IfIf 查询结果 && && Then 删除结果 = MsgBox(查询结果, 68, &确定要删除此条数据？&)If 删除结果 = 6 Then 删除 数据库路径, Input删除LoopElseIf InputHome = &4& ThenDoInput增加 = 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 IfloopElseIf InputHome = &Q& Or InputHome && &q& Then : Exit DoElseInputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1 2
增加：4&, &主页?请输入对应字符进行相关操作&)End IfLoopEndScriptFunction 查询(文本路径, 编号)Dim fso, myfile, i, flag, temppflag = 1Set fso = CreateObject(&scripting.FileSystemObject&)If fso.FileExists(文本路径) ThenSet myfile = fso.openTextFile(文本路径, 1, false)Elseflag = 0End IfFor i = 1 To 编号 - 1If Not myfile.AtEndOfLine Thenmyfile.SkipLinetempp = myfile.LineEnd IfNextIf flag = 1 ThenIf Not myfile.AtEndOfLine Then查询 = myfile.ReadLineElse查询 = &编号不存在！&End Ifmyfile.closeElse查询 = &文件不存在！&End IfSet fso = NothingEnd FunctionFunction 搜索(文本路径, 关键字) 搜索：Dim ForReading, ForWritingForReading = 1 : ForWriting = 2 : 搜索 = &&Dim objFSO, objFile, strLine, strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlineIf Instr(1, strLine, 关键字) & 0 Then 搜索 = strLine & &,& & 搜索
TracePrint &搜索=& & 搜索strNewFile = strNewFile & strLine & vbcrlfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd FunctionSub 删除(文本路径, 编号)Dim ForReading ,ForWritingForReading = 1ForWriting = 2Dim objFSO,objFile,strLine,strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径,ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlineIf CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then
strNewFile = strNewFileElsestrNewFile = strNewFile & strLine & vbcrlfEnd IfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径,ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubSub 增加(文本路径, 文本内容)Dim ForReading ,ForWritingForReading = 1 : ForWriting = 2Dim objFSO, objFile, strLine, strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlinestrNewFile = strNewFile & strLine & vbcrlfLoopTracePrint objFile.LinestrNewFile = strNewFile & objFile.Line & &|& & 文本内容 & vbcrlfobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubEndScript'六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含&接收&关键字的文本(批量消息发送器),请写出代码'六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码'六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码'六、杨辉三角百度说明:http://baike.baidu.com/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 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&,是则弹出对话框&没有其他颜色&,否则弹出第一个点的颜色值并退出程序. 请写出代码Dim x, y, RtColorx = 100 : y = 150Do While y & 301For x = 100 To 200RtColor = Plugin.Color.GetPixelColor(x, y, 0)If RtColor && &FFFFFF& Then Exit doNext : y = y + 1LoopIf RtColor && &FFFFFF& ThenMessageBox X & & , & & Y & &坐标点颜色为：& & RtColorElseMessageBox &没有其他颜色&End IfEndScript'五：3、写一个函数，要求：返回一个数值范围内所有偶数之和。参数1、参数2：整数型，数字
提示：For循环与VBS命令函数应用。TracePrint 求偶数之和(1, 61)TracePrint 求偶数之和(3, 19)TracePrint 求偶数之和(0, 83)TracePrint 求偶数之和(2, 1)EndScriptFunction 求偶数之和(参数1, 参数2)Dim 差, i求偶数之和 = 0 : 差 = Abs(参数1 - 参数2)If 差 mod 2 = 1 Then : 差 = 差 - 1 : End IfFor i = 0 To 差 / 2 - 1求偶数之和 = 求偶数之和 + 差 - i * 2'TracePrint &i=& & i & &
求偶数之和=& & 求偶数之和 & &
差=& & 差 - i * 2NextEnd 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 IfNextTracePrint 新字符串'五：5、写一个脚本，要求：在画图工具中画一个渐变放大的多边形（大于4边）漩涡效果图。
提示：For循环的应用。Call 画多边漩涡(400, 200, 50, 7)
//五边形EndScriptSub 画多边漩涡(x, y, r, n)//x 圆心横坐标 y 圆心纵坐标//r 半径
n 多边形的边数Const PI = 3.1415926Dim x1, y1 //起点坐标dim x2, y2 //下一个点坐标x1 = xy1 = y - rDim tt = PIFor i = 1 To 30If i & 1 ThenMoveTo x1, y1Delay 20LeftUp 1End IfMoveTo x1, y1Delay 20LeftDown 1t = t - pi * 2 / nx2 = x + int(r * sin(t))y2 = y + int(r * cos(t))//更新起点坐标x1 = x2y1 = y2r = r + 2NextEnd Sub
'五：1、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos函数与sin函数应用。Call 画漩涡(420, 280)EndScriptFunction 画漩涡(起点X, 起点Y)Dim HX, HY, nn = 1While HX & 600MoveTo HX, HY : Delay 3HX = 起点X + cos(n) + n * sin(n)HY = 起点Y + sin(n) - n * cos(n)n = n + 0.1WendEnd Function'五：2、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： Dim 随机, 猜测, 下限, 上限, 次数Randomize随机 = Int(100 * Rnd + 1)TracePrint &随机=& & 随机下限 = 1 : 上限 = 100猜测 = Cint(InputBox(&请输入你的猜测&, &猜数字游戏&))For 次数 = 1 To 99 : Delay 100If 猜测 & 随机 and 猜测 & 下限 Then
: 下限 = 猜测ElseIf 猜测 & 随机 and 猜测 & 上限 Then : 上限 = 猜测ElseIf 猜测 = 随机 ThenMsgBox &总共& & 次数 & &次猜中了 八戒 看来今年你又要涨价了！&, 64, &程序?提示&Exit ForEnd If猜测 = Cint(InputBox(&答案范围为：& & 下限 & &~& & 上限, &程序?提示 还可再猜& & 100 - 次数 & &次 &))NextEndScript'五：3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码Dim Text, T, G, SFor T = 0 To 99G = T Mod 10S = Int(T / 10)If (G + S) = 10 and Text && && Then : Text = Text & &，& & TElseIf (G + S) = 10 and Text = && Then : Text = TEnd IfNextMsgBox &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&)EndScriptFunction 坐标最近判断(信息, 坐标)Dim Arr, Str, StrX, StrY, Ping, a, b, c, iArr = Split(信息, &|&)
'信息分离Str = Split(坐标, &,&)
'坐标分离StrX = Clng(Str(0)) : StrY = Clng(Str(1))
'提取坐标X与Y值For i = 0 To UBound(Arr)
'勾股定理计算每个坐标到指定坐标的平方值If i = 0 ThenPing = (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2ElsePing = Ping & &/& & (Abs(Clng(Split(Arr(i), &,&)(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), &,&)(1)) - StrY)) ^ 2End IfNextTracePrint Pingb = Split(Ping, &/&) : a = 0 : c = b(0)TracePrint cFor i = 1 To UBound(b)TracePrint &b(& & i & &)=& & b(i)If Clng(b(i)) & Clng(c) Then : c = b(i) : a = i : End IfNext坐标最近判断 = Arr(a)End Function'五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如&8&-&&10&,请写出代码 Dim 十进数十进数 = InputBox(&输入你想转换的十进制数字&, &十转八进制?算法&, &&)MsgBox &十进制数：&&十进数 & &
八进制数：& & 十转八进制算法(十进数), 64, &程序?提示&EndScriptFunction 十转八进制算法(十进数)十转八进制算法 = &&While 十进数 & 0十转八进制算法 = 十进数 Mod 8 & 十转八进制算法十进数 = 十进数 \ 8WendEnd Function'四：1、切换所有标题包含&Internet Explorer&的窗口,请写出代码Dim HwndEx, MyArray, iHwndEx = &&HwndEx = Plugin.Window.Search(&Internet Explorer&)If HwndEx && && ThenMyArray = 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 1500Call Plugin.Window.Top(Clng(MyArray(i)), 1)NextElseCall Plugin.Msg.Tips(&当前没有包含“Internet Explorer”的窗口&)End IfEndScript'四：2、规定区域内随机输出一个日期,例如 &&到&&之间的某一天,请给出代码DoTracePrint &随机日期=& & 随机产生日期(&&, &&)Delay 1500loopEndScriptFunction 随机产生日期(起始年月日, 终止年月日)Dim 间隔, 随机数间隔 = DateDiff(&d&, 起始年月日, 终止年月日)随机数 = Int((间隔 + 1) * Rnd)随机产生日期 = DateAdd(&d&, 随机数, 起始年月日)End Function'四：3、生成[2,6]个[65，90]之间的偶数,并将生成的数转为与指定的ANSI 字符代码相对应的字符,最终合并结果MessageBox 弹出。请给出代码。Dim 字母个数DoRandomize字母个数 = Int((6 - 3 + 1) * Rnd + 3)MessageBox 随机偶数ANSI码(字母个数, 65, 90)Delay 500loopEndScriptFunction 随机偶数ANSI码(字符数, 下限, 上限)Dim 随机数值, 字母AscRandomizeFor 字符数随机数值 = int((上限 - 下限 + 1) * Rnd + 下限)If 随机数值 mod 2 = 1 Then 随机数值 = 随机数值 - 1If 随机数值 = 64 Then 随机数值 = 66字母Asc = 字母Asc & Chr(随机数值)Next随机偶数ANSI码 = 字母AscEnd Function'三：1、写出用goto命令循环十次的过程Dim a1a1 = 10Rem 从这里开始TracePrint &倒计次了！& & a1a1 = a1 - 1If a1 & 0 Then Goto 从这里开始EndScript'三：2、(前台)依次按下&AJJL&四个键,中间延迟100毫秒,循环10次Dim pFor p = 1 To 10KeyPress 65, 1Delay 100KeyPress 74, 1Delay 100KeyPress 74, 1Delay 100KeyPress 76, 1Delay 100NextEndScript'三：3、有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码 Dim a, ba = 4 : b = 2MessageBox a + bMessageBox a - bMessageBox a * bMessageBox a / b━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━以下是2、3、4级部分选择题 较乱没有整理
按键精灵支持jpg 格式截屏
按键精灵可以调用VBS8常数 VbOk 的值为?msgbox函数有以下返回值常数 值 按钮vbOK 1 确定vbCancel 2 取消vbAbort 3 放弃vbRetry 4 重试vbIgnore 5 忽略vbYes 6 是vbNo 7 否
11、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
-1TracePrint False
0TracePrint CBool(- 1 )
-1TracePrint CBool(1)
-1TracePrint CBool(0)
0TracePrint CBool(2)
-1TracePrint CBool(- 2 )
-1true,false是bool布尔型.个人认为这两个是代表对立的两面,如汉字的真,假.你说真假是几? 实体书上说true输出值-1,false是0
22、下列语句中无法达到无限循环效果的是？
24、由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为?Color = Plugin.Color.GetRGB(50, 50, 50)msgbox &得到16进制颜色值:& & color323232
3、Set 语句的含义是? D. 将对象引用赋给变量或属性4、以下命令哪个不属于按键命令？ D. StopScript6、以下无法获取句柄的命令是？bA. ForegroundB. ActiveC. SearchD. MousePoint
9、False的值是?
14、返回已添加指定时间间隔的日期应使用下列哪一个函数?cA. DatePart 函数
返回给定日期的指定部分。B. DateDiff 函数
返回两个日期之间的时间间隔C. DateAdd 函数
返回已添加指定时间间隔的日期D. Date 函数
返回表达式，此表达式已被转换为 Date 子类型的 Variant
7、以下哪1个返回值是字符串
len(&anjian&)b
&anjian&&&vrbrothers&c
clng(&520&)
20、以下无法获取句柄的命令是？ cA. 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 值指明表达式的值是否为数字。
TracePrint IsNumeric (VrBrothers)
-1MyTime1 = Second(Time)MyTime2=Hour(Time)MyTime3 = Minute(Time)MyTime4 = Now(Time)
now无效MsgBox MyTime1MsgBox MyTime2MsgBox MyTime34,以下哪个事件是最先响应的?A. OnScriptLoad
加载B. Form1.Label1.Click 角本不加载完成如何能实现界面点击后响应你的脚本你的脚本代码呢C. OnScriptExitD. OnThreadExit
5,PrintScreen命令支持那种格式截图。AA. jpgB. gifC. TIFD. png
1、下列语句中无法达到无限循环效果的是？BA. While True : Wend
只要指定的条件为 True，则会重复执行While和Wend之间的语句B. For i = True To True : NextC. Do : Loop
可以循环D. Do While True : Loop
Do While TrueMsgBox ALoop
按键精灵奇怪现象点的多了快了就不跳出来方框了！
3、VarType 函数的作用是? bA. 在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮B. 返回指示变量子类型的值C. 计算一个表达式的值并返回结果D. 返回一个字符串，提供有关变量的 Variant 子类型信息msgbox VarType(1)//整型子类型2msgbox VarType(1.1)//双精度子类型5msgbox VarType(&&)//字符串子类型8msgbox VarType(a)//初始化（默认）0vbEmpty
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查看下就知道了,返回的是字符串型在大型脚本的设计中,以下哪一个命令不推荐使用
\\\\\、判断数字a是否为3的倍数或者以3为尾数,是则弹出信息提示框,请给出代码 If a mod 3 =0 or (a-3) mod 10 = 0 thenmsgbox &zxc&end if
2、(后台)判断某句柄为hwnd的窗口的窗口坐标(50,100)处颜色是否为&FFFFFF&,是则在这个点按下鼠标左键,请给出代码
Hwnd=331814a = Plugin.BkgndColor.GetPixelColor(hwnd, 50,100)
b=hex(a)MsgBox bIf b = &FFFFFF& ThenMsgBox &颜色是FFFFFF&ElseMsgBox &颜色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自加到15intX = intX + 1
//这句是intX自加1
//当这两句一起发挥作用的时候，intX在每轮循环中就自加2了。intY = intY + 1Next
循环次数是8，x是16但是INTY的值是8.11、关于自定义变量的描述错误的是?
C//A. 自定义变量可以在脚本完全启动后读取//B. 自定义变量可以在脚本中重新赋值//C. 自定义变量可以在脚本载入事件中读取//D. 自定义变量可以在脚本退出事件中读取
13、GetCursorShape命令有几种获取鼠标形状的方式?var = GetCursorShape(1)var = GetCursorShape(0)是两种
8下列哪一个表示十六进制整数的方法是正确的？ CA. &&H0031D92A&B. 0031D92AC. &H0031D92AD. &0031D92A&10、创建一个对象需要用到的命令是? DA. GetObject 返回对文件中 Automation 对象的引用。B. IsObject
返回 Boolean 值指明表达式是否引用了有效的 Automation 对象。 语法
将对象引用赋给变量或属性。D. CreateObject 创建并返回对 Automation 对象的引用。4、关于字符串中存在字符引号的描述错误的是?AA. 可以用一个引号表示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?
DA. set Spk= CreateObject(&SAPI.SpVoice&)B. Set Spk= FalseC. Spk.CloseD. Set Spk= NothingNothing 停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。14、关于QUI描述错误的是?
DA. QUI内的控件值不可以在主线程内改变B. QUI内的控件值可以在控件事件内改变C. QUI经过设计可以有一个漂亮的界面D. QUI可以添加本身没有的控件2对网页插件和窗口插件描述错误的是
AA窗口插件不能再WQM中使用B网页插件只能在WQM中使用C窗口插件可以作用于任意窗口D网页插件和窗口插件可以配合使用
9、关于QUI输入框的描述哪个是错误的?AA. 可以在事件外修改输入框的背景颜色B. 可以在事件中修改输入框的是否显示
正确C. 可以在事件外获取输入框的值D. 可以在事件中修改输入框的是否有效
13、对于按键的功能扩展,不可以用以下哪个方式?aA. 调用函数接口未知的DLLB. 使用其他提供的插件
这个是可以调用的C. 使用VB/VC制作插件D. 使用CMD或VBS命令
以下对结构的描述哪一个是错误的? DA. 顺序结构是最基本的结构B. 跳转结构和子程序混用可能陷入消耗内存的死循环C. 控制结构和循环结构可以嵌套使用D. 控制结构和顺序结构混用可能陷入消耗内存的死循环
17、关于KeyPress命令第一个参数的描述哪个是正确的?
BA. 只能传递按键码B. 可以传递按键码或者字符串C. 不可以使用变量D. 只能传递字符串10、以下哪一个API命令可以运行指定路径的程序?cA. GetDesktopWindowB. ShowWindowC. ShellExecuteD. SetLayeredWindowAttributes15、关于数组与字符串描述错误的是?cA. 字符串和数组可以配合使用B. 数组元素可以是字符串C. 多维数组的元素只能是字符串D. 理论上数组元素的传递可以用字符串代替以下哪一种方式不能在 外部 自定义 脚本 内部 变量?BA. 使用OCX界面
可以自定义脚本内部变量B. 使用环境变量
环境变量仍然是在脚本内部改变的哦 环境变量SHI内部变量C. 使用QUI界面
可以自定义脚本内部变量D. 使用外部储存文件(例如文本/数据库等)
要调用API的话，必须能够接收返回值，也就是说要存在相应的数据类型来存放返回值。4、关于在按键中直接使用API,以下哪个说法是正确的?BA. 可以传指针B. 只能使用参数和返回值是数字或者字符串的APIC. 可以传地址D. 任意的API都可以使用
5、关于子程序的描述错误的是?CA. 函数可以代替子程序的作用B. 应用多线程时需要用到子程序C. 2个子程序之间可以任意跳转(goto)D. 子程序内定义的变量是局部变量7、判断一个字符串是否为数字可以使用以下哪个函数?AA. IsNumericB. IsArrayC. IsNullD. IsDate8、以下描述错误的是?AA. 脚本内子程序数量越少运行速度越快B. 脚本内增加注释可以提高代码的可读性C. 获得字符串长度的函数是len,获得数组最大可用下标的函数是UboundD. 程序内可以定义多个环境变量9、以下哪一种方法可以在线程中传递数组?CA. 其他三种方法都不可以B. 直接传递数组C. 将数组合成字符串,再把环境变量字符串传递到线程中D. 将数组定义成环境变量
不支持数组定义为环境变量23、以下哪个对Select命令的描述是错误的?AA. Select支持判断语句(例如:a&0)B. Select是一种选择结构C. Select可以有无数个分支D. Select可以嵌套其他判断语句使用24、关于后台坐标的描述,哪一个是不正确的?CA. 后台坐标可以在后台命令中使用B. 后台坐标指的是窗口内的某个坐标C. 后台坐标和前台坐标没有对应的计算关系D. 后台坐标的起点等同于窗口客户区的起点25、关于子程序描述错误的是?
DA. 子程序调用可以不使用Call关键字B. 子程序使用恰当可以优化程序结构C. 子程序使用恰当可以缩短代码D. 使用子程序的目的是让脚本更加智能
22、一般后台多开脚本是通过什么技术手段实现的?DA. 前台+APIB. 后台+API 是错误的C. 前台+多线程D. 后台+多线程
14.关于环境变量描述错误的是?
BA. 环境变量在程序未完全关闭前不会自动清空B. 环境变量推荐在各个线程序内同时任意使用
不推荐C. 环境变量可以跨线程序使用D. 环境变量可以在同一个按键精灵或者小精灵中跨脚本使用
15、关于环境变量的描述,哪个是错误的?AA. 环境变量的类型可以是数组
不支持数组定义为环境变量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的默认值为31、以下代码在事件触发时弹出的a的值为?
BUserVar a=0 &设置内容&Sub OnScriptLoad()MsgBox aEnd SubA. 不会弹出B. 空
脚本保存后退出C. 0
15、对Eval和Execute命令的描述以下哪一个是不正确的?AA. 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,那么这代表是星期几?CA. 4B. 7C. 5D. 6
关于线程停止事件子程序描述正确的是?DA. 线程停止事件子程序会在对应线程序停止时触发
选这个是错误的B. 线程停止事件子程序可以启动新的线程C. 线程停止事件子程序可以判断是哪个线程停止了D. 线程停止事件子程序会在任意线程停止时触发
这个是对的
【网游通用】技能循环释放写法（总结）
【写法一】思路：多线程独立循环，但不实用，如果技能多大几十个，十多个线程独立循环不解释...
那么，不用多线程不妨试试下面的写法！【写法二】思路：DateDiff技能1释放延时 = 1 '单位:秒技能2释放延时 = 3技能1时间初值 = time技能2时间初值 = timeDo技能1时间差 = DateDiff(&s&, 技能1时间初值, time)TracePrint 技能1时间差If 技能1时间差 = 技能1释放延时 Then技能1时间初值 = timeKeyPress &1&, 1
'技能键End If技能2时间差 = DateDiff(&s&, 技能2时间初值, time)TracePrint 技能2时间差If 技能2时间差 = 技能2释放延时 Then技能2时间初值 = timeKeyPress &2&, 1
'技能键End IfDelay 10Loop
【写法三】思路：Timer技能1释放延时 = 0.2 '单位:秒技能2释放延时 = 0.5技能1时间初值 = timer技能2时间初值 = timerDoIf Timer - 技能1时间初值 &= 技能1释放延时 Then技能1时间初值 = TimerKeyPress &1&, 1
'技能键End IfIf Timer - 技能2时间初值 &= 技能2释放延时 Then技能2时间初值 = TimerKeyPress &2&, 1
'技能键End IfDelay 10Loop
【写法四】思路：Timer 和 mod技能1释放延时 = 1 '单位:秒 要求:必须整数(非0)技能2释放延时 = 5技能1时间初值 = timer技能2时间初值 = timerDoIf (timer - 技能1时间初值 + 1) mod 技能1释放延时 = 技能1释放延时-1 Then
KeyPress &1&, 1
'技能键End IfIf (timer - 技能2时间初值 + 1) mod 技能2释放延时 = 技能2释放延时-1 Then
KeyPress &2&, 1
'技能键End IfDelay 100Loop1、生成[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是否是数字，并把返回值赋值给MycheckIf Mycheck = true ThenMsgBox &这是一个数字&
//如果是数字，则弹出信息提示框&这是一个数字& End If2.把字符串&520&转换为数值型,请给出代码Dim str,Mycheck
//定义str = &520&Mycheck=CInt(str)
//类型转换TracePrint Mycheck3、获取当前标题包含&Internet&的窗口句柄的数量,请给出代码HwndEx = Plugin.Window.Search(&Internet&) //遍历符合“Internet”窗口的标题的句柄保存到数组TracePrint HwndEx
//调试输出句柄数组dim MyArrayMyArray = 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&的值赋值给变量MyStringMyString = &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 + c1TracePrint dMessageBox 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,jC = 0D = UCase(&FF00FF&)For i = 1 To Len(D)j = Asc(Mid(D, i, 1)) - 48If j & 9 Then j = j - 7C = C * 16 + jNextTracePrint 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=0For UBound(myarray)+1myarray(i)=iTracePrint &myarray(& & i & &)=& & myarray(i)i=i+1Next//==============================================================================
好好利用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. 0B. 为空C. -1D. 13、MsgBox命令最多可以使用几个参数?(c)A. 4B. 3C. 5D. 64、以下哪一个值是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字符代码后继续循环执行返回值是？CA. -1B. 空值C. 0D. 最后一次获取的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&-1C. 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. 6C. 5D. &5&13、True的值是?AA. -1B. 0C. 1D. -214、以下哪一个命令可以将表达式转化为字符串?BA. ClngB. CstrC. CintD. Ccur15、下列哪一个函数可以取数组最大可用下标?DA. SplitB. ArrayC. LboundD. Ubound16、ExitOS命令中，以下描述错误的是？BA. 可执行注销B. 可执行待机C. 可执行关机D. 可执行重启17、FindMutiColorEx命令有几个参数？BA. 6个参数B. 8个参数C. 5个参数D. 7个参数18、返回已添加指定时间间隔的日期应使用下列哪一个函数?DA. Date 函数B. DateAdd 函数C. DatePart 函数D. DateDiff 函数19、以下哪一个命令可以得到变量的类型?AA. VarTypeB. UserVarC. TristateD. Chr20、以下哪一个命令的功能是设置屏幕分辨率?BA. GetScDepB. SetScC. GetScRYD. SetCLB21、myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?BA. 4B. 6C. 5D. 322、以下对函数的描述哪一个是错误的?bA. 函数一定有返回值B. 函数可以自行定义参数的个数C. 函数可以中途退出D. 函数可以嵌套使用23、选出以下命令参数错误的。A. SetSimMode 2B. Import &Window&C. RunApp ¬epad&D. PutAttachment &.\plugin&,&dll&24、以下哪一个函数返回值的数据类型与其他三个的不一样?AA. FilterB. InstrC. ClngD. Ubound25、以下哪一个变量不可能是数组?CA. Dim MyArray()B. Dim MyArrayC. Const MyArray=2D. 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 、以下哪个直为TrueA：CSTR(false)B：not(false)C：clng(talse)D：not(TRUE)
2、以下哪个命令不能调试内容输出A
TracePruntC
showScrTXT
3、set语句含义是？A
用于过程级声明动态数组变量并分配或从新存储空间B
初始化随机数生成器C
声明 Funchon 过程名称。参数以及构成其主体代码D
将对象引用赋给变量或属性
4 、以下哪个时间是最先响应的？A
onThreadExitB
OnScriptExitC
OnScriptLoadD
Fom1.Labell.Click5 、常数VBOK的直为？A
26、返回已添加指定时间间隔的日期应使用下列哪个函数A
DatePart函数C
DateAdd函数D
DateDiff函数7、以下哪1个返回值是字符串A
len(&anjian&)b
&anjian&&&vrbrothers&c
clng(&520&)8、RGB直分解为红绿蓝分量，分量直的范围是A
1-2559、以下哪个命令可以得到变量的类型A：VarType
B：chrC：Tristate
D：UserVar
10、关于延迟命令描述错误的是A
在模拟按键过程中加入适当岩石可以更准确B
使用延时命令可以停止脚本C
延时命令的参数是毫秒D
在脚本中适当加如延时命令可以降低CPU使用率11、 对函数的描述错误的是A
函数1定有返回值B
函数可以使用任意格数参数C
函数可以嵌套使用D
函数可以中途退出12、以下哪个变量名不合法？A
MyArray_1 题目13、 str=Mid(&234&,2,1)
那么str直为A
“34”C“3”D
3414、文本不存在以下哪个命令会新建文本A
ReadFileEXB
wrlteFileExc
ReadFile15、以下语句无法返回时间信息的是？A. MyTime=Second(Time)B. MyTime=Hour(Time)C. MyTime=Minute(Time)D. MyTime=Now(Time)16、选出返回值与其他三种不一样的选项。A. FindPicB. GetPixelColorC. FindColorD. FindCenterColor17、Call Plugin.Window.Close(参数)命令需要以下哪种参数？A. 窗口句柄B. 窗口标题C. 窗口类名D. 进程ID18、Text = Plugin.File.ReadINI(&小节名&, &键值&, &文件路径&)，读取文件格式为？A. *.QB. *.iniC. *.txtD. *.xls19、以下哪一个函数返回值的数据类型与其他三个的不一样?A. FilterB. UboundC. InstrD. Clng 20、以下无法获取句柄的命令是？A. MousePointB. SearchC. ActiveD. Foreground21、IsNumeric(n)，当n等于&VrBrothers&时返回什么？A. FalseB. 1C. TrueD. -122、str=Clng(Mid(&234&,2,1)),那么str的值为?A. &4&B. 34C. 3D. &34&23、以下哪一个对Date 函数的描述是正确的?A. 返回当前系统日期。B. 返回给定日期的指定部分。C. 返回已添加指定时间间隔的日期。D. 返回两个日期之间的时间间隔。24、 以下哪一个命令的功能是设置屏幕分辨率?A. SetCLBB. GetScRYC. SetScD. GetScDep25、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.D
1、以下哪一个不是变量名的命名规则?BA. 不能以数字开头B. 变量名不能包含下划线C. 不能包含嵌入的句点或类型声明字符D. 最多只能有 255 个字符2、以下哪一个命令输出的值与其他三个不同?AA. TracePrint round(3.5)B. TracePrint fix(3.5)C. TracePrint Clng(3.5)D. TracePrint cint(3.5)3、Join命令的参数类型是?CA. 字符串B. 数字C. 数组D. 对象4、假如MyDate = &October 19, 1962&: YourDate = #10/19/62#: NoDate = &Hello&，返回值为False的是？BA. IsDate(time)B. IsDate(NoDate)C. IsDate(YourDate)D. IsDate(MyDate)5、str=Mid(&234&,2,1),那么str的值为?AA. &3&B. &34&C. 4D. 346、以下命令可以获取当前窗口所在屏幕位置精确坐标的是？AA. 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)包含的元素个数为?AA. 5B. 0C. 1D. 68、数组MyArray(5)的最大可用下标为?AA. 6B. 1C. 5D. 09、数组MyArray(5)的最小可用下标为?DA. 1B. 5C. 6D. 0FindMutiColorEx命令有几个参数？AA. 8个参数B. 5个参数C. 7个参数D. 6个参数11、Media.Play命令不支持哪个文件格式。AA. Mp4B. MidC. Mp3D. Wav12、以下不属于键鼠命令的是？CA. Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)B. Call Plugin.Bkgnd.RightClick(Hwnd, 0, 0)C. Call Plugin.Bkgnd.KeyPress(Hwnd, 65)D. Call }
我要回帖
更多推荐
- ·铁路订单班有哪些学校是什么意思
- ·交易猫客服电话人工24小时人工服务电话是多少
- ·因为比较胖，多 囊 多囊卵巢综合症越来越胖怎么办不孕吗？
- ·卖的很火的乔妃恋清养餐是干嘛的？奢恋减肥产品有效果吗怎样谁吃过怎么样？
- ·南京南站大巴21号检票口哪些城市D2113是几号检票口？
- ·拳皇命运手游坂琦琢磨秘籍怎么选 坂琦琢磨秘籍选择
- ·倩女幽魂手游画魂绝技天赋技能是什么 画魂天赋怎么加点
- ·现在821玩吃鸡类的游戏开全特效会卡吗
- ·双人对战游戏哪个版本好玩
- ·暖暖环游世界圣杯套装怎么获得 塔罗牌圣杯套装获得
- ·这世界还相当有秩序怎么接着往下讲呀？
- ·九州修仙梦新手攻略大全 新手怎么玩
- ·王者荣耀抽到5折，到底英雄买不买
- ·鬼语迷城万象神墓怎么玩 万象神墓通关攻略
- ·求问steam版怎么联机
- ·终结者2三界套装怎么获取 三界套装获得方法一览
- ·王者荣耀同类型手游裴擒虎定位什么类型 裴擒虎怎么分路
- ·vr滑雪大冒险在线玩怎么玩
- ·雷影什么时候出的是今晚还是明晚啊，今晚出还得去吧30刷
- ·按键精灵怎么写循环a道具=1 b道具=2 c道具=3 怎么写可以得到abc相加的结果也就是6并且以，SayString输出。
- ·全法对这么样 拜松值得练吗吗
- ·堡垒之夜怎么打开背包PVP模式背包物品怎么搭配 堡垒之
- ·比较好玩的卡牌手游类手游有哪些 好玩的卡牌类手游分享
- ·天天爱消除给有人打到跳上海门关的最高处关
- ·小丑e技能介绍的技能不算一刀斩吗
- ·姬魔恋战纪华佗怎么收攻略 华佗值得培养吗
- ·明日电脑方舟闪退怎么解决方法办 明日方舟闪退解决方法
- ·家家新余麻将将规则是什么
- ·使命召唤二战 很失望有没有懂的老哥来
- ·LOL当狮子狗出了中娅会怎样
- ·中单男刀新版符文s8怎么搭配
- ·瑞欧丽莎瑞士护肤品品牌大全好不好
- ·千佳行加盟化妆品店要多少钱加盟要多少钱
- ·臀部较宽的女生适合穿背带裤吗
- ·安史之乱的战争影响有哪些
