赞
踩
题目:(前台)区域范围为(100,150)到(200,300)内的所有点是否均为"FFFFFF",是则弹出对话框"没有其他颜色",否则弹出第一个点的颜色值并退出程序. 请写出代码 答案: x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y < 300) x=100 While (x < 200) If RtColor = "FFFFFF" Then x = x + 1 Else MessageBox RtColor1 ExitScript End If RtColor = Plugin.Color.GetPixelColor(x, y, 0) Wend y=y+1 Wend MessageBox "没有其他颜色" 题目:筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码 答案: s="" For i = 1 To 99 a = i mod 10 b = int(i / 10) If (a + b) = 10 Then s=s&i&"|" End If Next MessageBox s 题目:写一个算法可以将十进制的字符串转成八进制的字符串.例如"8"->"10",请写出代码 答案: Public Function DEC_to_OCT(Dec) DEC_to_OCT = "" Do While Dec > 0 DEC_to_OCT = Dec Mod 8 & DEC_to_OCT Dec = Dec \ 8 Loop End Function a=DEC_to_OCT("8") MessageBox a 题目:随机生成一个1~100之间的整数,玩家可以通过inputbox输入数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请写出代码 例如: 随机数为:60,用户输入20,程序提示"答案范围为:20~100". 用户再次输入75,程序提示"答案范围为:20~75". 用户再次输入60,程序提示"猜中",然后退出程序. 答案: Randomize 答案 = int(Rnd * 100) + 1 最小数 = 1 最大数 = 100 数字 = InputBox("(猜数游戏),输入1~100之间的整数,玩家可以通过输入数字,猜对则退出游戏,猜错则提示答案的范围") 数字=int(数字) Do If 数字 = 答案 Then MessageBox 数字 & ",恭喜答对了" EndScript ElseIf 数字 > 答案 Then 最大数 = 数字 ElseIf 数字 < 答案 Then 最小数 = 数字 End If 数字 = InputBox("答案范围为:" & 最小数 & "~" & 最大数) 数字 = int(数字) Loop 题目:写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出代码 答案: Function moveWin(Hwnd) Dim ary, h, w, maxh, maxw, fa, fb ScreenW = Plugin.GetSysInfo.GetScreenResolutionX() ScreenH = Plugin.GetSysInfo.GetScreenResolutionY() sRect = Plugin.Window.GetWindowRect(Hwnd) ary = Split(sRect, "|") W1 = Clng(ary(0)): H1 = Clng(ary(1)) W2 = Clng(ary(2)) : H2 = Clng(ary(3)) w = W2 - W1 : h = H2 - H1 fa = true : fa = true Call Plugin.Window.Active(Hwnd) Call Plugin.Window.Show(Hwnd) Do Randomize If fa Then W1 = Round(Rnd * 5) + W1 Else W1 = W1 - Round(Rnd * 5) End If If fb Then H1 = Round(Rnd * 5) + H1 Else H1 = H1 - Round(Rnd * 5) End If maxw = w + W1 : maxh = h + H1 If W1 <= 0 Then W1 = 0 fa = true End If If H1 <= 0 Then H1 = 0 fb = true End If If maxw >= ScreenW Then W1 = ScreenW - w fa = false End If If maxh >= ScreenH Then H1 = ScreenH - h fb = false End If Call Plugin.Window.Move(Hwnd, W1, H1) Delay 10 Loop End Function //Call RunApp("notepad.exe") //Delay 1000 //Hwnd = Plugin.Window.Find("Notepad", 0) //If Hwnd > 0 Then // moveWin(Hwnd) //Else // MessageBox "记事本未找到!" //End If '题目:(API)利用 SetWindowPos 函数将窗口置前,相关说明请百度,请写出代码 答案: Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Function 窗口层次(hwnd, mode) 窗口层次 = SetWindowPos(hwnd, mode, 0, 0, 0, 0, 3) End Function hwnd = 661156 Call Lib.API.窗口层次(hwnd, -1) 题目:生成[2,6]个[65,90]之间的偶数,并将生成的数转为与指定的ANSI 字符代码相对应的字符,最终合并结果MessageBox 弹出。请给出代码。 答案: Dim d(99) Randomize a = Int((6 - 2 + 1) * Rnd + 2) For a Do Do b=Int((90 - 65 + 1) * Rnd + 65) Loop While b MOD 2 <> 0 For UBound(d) + 1 If b = d(i) Then b = 1 Exit For End If i = i + 1 If d(i) = "" Then Exit For End If Next Loop While b = 1 d(ii) = b c = C & Chr(b) ii = ii + 1 Next MessageBox c 题目:让鼠标随机移动到3个坐标,请写出代码 答案: Randomize Delay 100 m = Int((3 * Rnd) + 1)//m 是随机数,有可能是1 也有可能是2 TracePrint m If m = 1 Then MoveTo 76,55 End If If m = 2 Then MoveTo 453,57 End If If m = 3 Then MoveTo 690,61 End If 题目:如下代码,c的值为? a = 1 : b = - 1 c = a xor b 答案:-2 题目:以下对颜色插件增强版描述错误的是?答案:颜色插件增强版可以获取到所有颜色 题目:请问脚本执行完后,intY的值是多少(For循环了几次)? Dim intX Dim intY For intX = 0 To 15 intX = intX + 1 intY = intY + 1 Next 答案: 8 题目:一般后台多开脚本是通过什么技术手段来实现的?答案:后台+多线程 题目:关于数组和字符串描述错误的是?答案:维数组的元素只能是字符串 题目:请问以下脚本a的弹出值是多少? Dimenv a a = 30 Call xfun(a) MessageBox a Function xfun(x1) x1 = 15 a = 5 x1 = x1 + a End Function 答案: 5 题目:IfColor命令有几种判断条件方式?答案: 3 题目:关于Mosbox命令描述错误的是?答案:Mosbox命令一定没有返回值 题目:环境变量的的描述,错误:答案:可以是数组 题目:直接使用API正确:答案:返回值是数字或者字符串 题目:如下代码,c的值为? a = 1 : b = - 1?c = a and b 答案: 1 题目:如下代码,c的值为?a = 1 : b = - 1?c = a or b 答案: -1 True? 题目:以下哪种方式不能在外部自定义脚本内部变量?答案: 使用环境变量 题目:以下哪个命令可以清空对象Spk ?答案:Set Spk= Nothing 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容"Sub OnScriptLoad()MessageBox aEnd Sub 答案:弹出空 题目:以下哪一个返回值是字符串? A. clng("520") B. "10"-1 C. "anjian"&"vrbrothers" D. len("anjian") 答案:C. "anjian"&"vrbrothers" 题目: 以下不属于按键命令的是?答案: OnThreadLoad 题目: 假如MyDate = "October 19, 1962": YourDate = #10/19/62#: NoDate = "Hello",返回值为False的是?答案: D. IsDate(NoDate) 题目: 字符串"Vrbrothers"的长度为?答案: 10 题目: GetOSType()返回值描述正确的是?答案:返回当前系统类型 题目: Text = Plugin.File.ReadINI("小节名", "键值", "文件路径"),读取文件格式为?答案:A. *.ini 题目: 常数 VbOk 的值为?答案: 1 题目: 以下语句无法返回时间信息的是?答案:B. MyTime=Now(Time) 题目: 下列哪一个函数可以取数组最大可用下标?答案: Ubound 题目: 以下对函数的描述哪一个是错误的?答案: 函数一定有返回值 题目: 以下命令哪个可以终止所有线程运行并停止脚本。答案:ExitScript 题目: ExitOS命令中,以下描述错误的是?答案:可执行待机 题目: 关于自定义变量的描述以下哪一个是错误的?答案: 可以是数字或者字符串 错 数组? 题目: 以下哪一个函数的功能是指明表达式的值是否为数字?答案:IsNumeric 题目:后台取色命令需要的参数为?答案: 句柄和坐标 题目: 以下命令可以获取当前窗口所在屏幕位置精确坐标的是?答案: Text = Plugin.Window.GetWindowRect(Hwnd) 题目: 选出以下命令参数错误的。 答案:Import "Window" 题目: GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是?答案: 0 题目: 以下选项中不符合调用规则的是?答案:Asc(F1) 题目: 以下关于按键抓抓描述错误的是?答案:支持后台找色找图效果测试 题目:RGB值分解为红绿蓝分量,分量值的范围是?答案: 0-255 题目:Call Plugin.Window.Close(参数)命令需要以下哪种参数?答案:窗口句柄 题目:使用WQM的脚本代码第一步应该做什么?答案: 绑定WQM 题目:myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?答案:4 题目: 以下哪一个命令不能用于调试内容输出?答案:beep 题目:以下哪个命令需要绑定WQM使用:答案:Call Plugin.Web.ScrollTo(0,0) 题目:以下哪种情况可能导致获取不到网页元素:答案:网页未完全加载 题目:以下哪个不是数学函数:答案:Ccur 题目:以下哪个的值是true:答案:not(false) 题目: a=34,b=&H22,下列描述哪一个是错误的?答案:cstr(b)的值为“&H22” 题目: 以下哪一个命令可以得到变量的类型?答案:VarType 题目: 关于延时命令描述错误的是?答案:可以停止脚本 题目: 以下哪个方法不能关闭窗体?答案:sWindow = Plugin.Window.IsWindow(Hwnd) 题目:大型脚步中不推荐使用:答案:goto命令 题目: 对于按键精灵与VBS的描述正确的是?答案:按键可以直接调用VBS命令 题目: 132 Mod 13 的值为?答案:2 题目:变量名称不合法:答案:1MyArray 题目:哪个事件最先响应:答案:onscriptload 题目:选出下列返回值类型不一样的选项。 A. InStr(str,str) B. Len(n) C. Join(arr) D. Asc(n) 答案:C. Join(arr) 题目:Int(3\2)返回值等于多少?答案: Int(3/2) 题目:以下命令无法正常获取句柄的是? Hwnd = Plugin.Window.Search("未命名 - 画图")?B. Hwnd = Plugin.Window.Find("#32770", -1)?C. Hwnd = Plugin.Window.Find("MSPaintApp", "未命名 - 画图")?D. Hwnd = Plugin.Window.Find("", "未命名 - 画图") 答案:Hwnd = Plugin.Window.Find("#32770", -1) 题目:关于按键精灵的描述,以下正确的是? 答案:按键精灵是一款绿色的模拟键盘鼠标操作的软件 题目:不能用抓抓工具直接获取的是? 答案:PID 题目:按键精灵的产品包括以下哪一个? 答案:按键盒子 题目:UnlockMouse命令的含义是? 答案:解除锁定鼠标位置 题目:LeftDown命令的含义是? 答案:左键按下 笠淮位袢〉腁NSI字符代码 题目:按键精灵默认的启动热键是? 答案:F10 题目:按键精灵自带的程序不包括下列哪一个? 答案:iexplore.exe 题目:下列哪一种方法不能够正确输入命令? 答案:鼠标右键单击命令 题目:SaveMousePos命令的含义是? 答案:保存当前鼠标所在位置 题目:按键精灵自带的抓图工具是? 答案:按键抓抓 题目:按键精灵里运算符乘号是? 答案:* 题目:哪一种方法能够找到命令的帮助说明? 答案:在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 题目:RightUp命令的含义是? 答案:右键弹起 题目:SetSimMode命令的含义是? 答案:设置模拟方式 题目:GetLastClick命令的含义是? 答案:检测上次按过的鼠标键 题目:MoveTo命令的含义是? 答案:移动 题目:录制脚本之后需要重新运行这段脚本,下列哪个做法是正确的? 答案:保存脚本之后点击"运行"按钮 题目:与取色判断命令没有直接关系的参数是? 答案:按键码 题目:哪一类脚本程序是按键精灵官方授予销售权的? 答案:小精灵商业版 题目:KeyUp命令的含义是? 答案:弹起 题目:MouseWheel命令的含义是? 答案:鼠标滚动 题目:想要知道脚本是否存在错误,应该使用下列哪个功能? 答案:调试 题目:键盘命令的类型不包括? 答案:锁定 题目:按键精灵的功能是? 答案:模拟鼠标键盘操作的工具 题目:GetCursorPos命令的含义是? 答案:得到鼠标位置坐标 题目:只要在编辑脚本,切换输入法时,按键精灵就卡住了,可能是下列哪一个原因? 答案:Plugin目录下装有不是官方提供的插件引起的 题目:按键盒子主要功能特点是什么? 答案:游戏通用 题目:按键精灵自带的功能不包括以下哪一个? 答案:路由功能 题目:按键抓抓是下列哪一个程序? 答案:picker.exe 题目:录制的脚本没有以下哪个功能? 答案:记录鼠标特征码 题目:哪一个不是学习脚本的正确方法? 答案:伸手要脚本 题目:下列哪一个命令不属于"基本命令"? 答案:封包命令 题目:KeyPress命令的含义是? 答案:按键 题目:可以使用神盾功能的程序是? 答案:小精灵商业版 题目:脚本编辑界面上没有的按钮是? 答案:启动 题目:按键精灵里运算符减号是? 答案:- 题目:变量的定义,以下哪个是正确的? 答案:dim a 题目:按键精灵会员不能享受的论坛权限是? 答案:可以访问按键精灵“版版家园”专区享受版主资源 题目:以下哪种方式不可以获得论坛银币? 答案:发布大量无内容的主题贴 题目:按键精灵的功能不包括? 答案:自动发明汽车、飞机、火箭等机器 题目:按键精灵自带的用户界面叫做什么? 答案:QUI界面 题目:哪种方法不能打开一个已经存在的脚本? 答案:选中脚本,单击鼠标左键 题目:下列网址可以访问按键精灵论坛的是? 答案:http://bbs.anjian.com/ 题目:以下哪种方式可以在脚本编辑界面中获取到新的插件? 答案:点击"资源库"按钮,然后导入需要的插件 题目:属于"全部命令"的是? 答案:我的命令库 题目:LeftDoubleClick命令的含义是? 答案:左键双击 题目:旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 答案:使用"自动缩进"功能 题目:如果按键精灵在某些环境失效,可以使用下列哪个工具? 答案:神盾 题目:RightClick命令的含义是? 答案:右键单击 题目:按键精灵里运算符除号是? 答案:/ 题目:网页按键精灵是下列哪一个程序? 答案:wqm.exe 题目:以下哪一个不是按键精灵的产品? 答案:按键箱子 题目:键鼠的模拟方式不包括以下哪一个? 答案:虚拟模拟 题目:按键精灵会员不能享受的功能是? 答案:脚本编写服务 题目:对小精灵的描述,以下是正确的? 答案:按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序,便于传播以及提供给新手使用。 题目:按键精灵生成的小精灵程序的后缀名是? 答案:EXE 题目:关于按键精灵注册码的描述,下列是不正确的是? 答案:在按键精灵9中充值过会员后,无法再在按键精灵8上享受会员服务 题目:按键精灵能兼容下列哪一种语言? 答案:VBS 题目:关于小精灵去广告的描述,下列正确的是? 答案:会员用户在“制作按键小精灵”界面上->更多设置->选择会员去广告(是)即可 题目:关于加密脚本的描述,下列是错误的是? 答案:只有会员输入密码可以解开加密脚本 题目:按键精灵会员卡注册码,没有以下哪一种? 答案:天卡(1天) 题目:MoveTo命令含义是? 答案:鼠标移动 题目:按键精灵默认的终止热键是? 答案:F12 题目:RestoreMousePos命令的含义是? 答案:恢复上次保存的鼠标位置 题目:按键精灵不可以在以下哪个系统中使用? 答案:linux 题目:下列哪一个命令不属于"全部命令"? 答案:内核命令 题目:按键精灵官方网站的网址是? 答案:http://www.anjian.com/ 题目:MiddleClick命令的含义是? 答案:中键单击 题目:GetCursorShape命令的含义是? 答案:得到鼠标形状 题目:按键精灵会员不能享受的资源是? 答案:免费小精灵的源代码 题目:RightDown命令的含义是? 答案:右键按下 题目:按键精灵会员不能享受的技术支持是? 答案:技术人员上门服务 题目:MoveR命令的含义是? 答案:相对移动 题目:第一个新建脚本默认名字是? 答案:"我的脚本1" 题目:WaitClick命令的含义是? 答案:按任意鼠标键继续 题目:“录制”功能不能录制的内容是? 答案:记录鼠标指向的窗口句柄 题目:KeyDown命令的含义是? 答案:按下 题目:LeftClick命令的含义是? 答案:左键单击 题目:按键精灵里运算符加号是? 答案:+ 题目:下列SetSimMode命令参数的描述哪一个是正确的? 答案:0普通|1硬件|2超级 题目:WaitKey命令有几个参数?答案:0 题目:颜色值为"FFFFFF"是什么颜色?答案:白色 题目:鼠标左键弹起的命令是?答案:LeftUp 题目:按键码53是下列哪一个按键? 答案:5 题目:Delay命令有几个参数?答案:1 题目:延迟1天,以下哪一句代码是正确的? 答案:Delay 1000*60*60*24*1 题目:判断条件应该使用下列哪个语句?答案:If语句 题目:以下哪一个不属于按键精灵的"全部命令"?答案:远程嗅探命令 题目:鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为?答案:100,100 题目:鼠标右键单击的命令是?答案:RightClick 题目:"F10"的按键码是?答案:121 题目:以下哪一个命令能够延时1个小时?答案:delay 1000*60*60 题目:下列RGB颜色值,书写正确的是?答案:"DD" 题目:循环可以使用下列哪个语句?答案:For语句 题目:锁定鼠标位置是下列哪一个命令?答案:LockMouse 题目:脚本停止运行命令是哪一个?答案:EndScript 题目:鼠标左键双击的命令是?答案:LeftDoubleClick 题目:解除鼠标锁定是下列哪一个命令?答案:UnlockMouse 题目:下列哪一个是鼠标命令?答案:LeftClick 题目:以下哪一个是自动补血的思路?答案:检测血条上某一点,如果此点不是血条的颜色则执行加血操作 题目:SetSimMode命令有几个参数?答案:1 题目:下列哪一个不是键盘命令?答案:KeyClick 题目:按键码76是下列哪一个按键?答案:L 题目:空格键的按键码是?答案:32 题目:延时的命令是?答案:Delay 题目:下列属于键盘命令的是?答案:KeyUp 题目:如何退出Do循环的命令?答案:Exit Do 题目:得到一个按键的按键码,以下哪一个方法是完全正确的?答案:在按键精灵编辑界面的基本命令的键盘命令部分查询 题目:EndScript命令的意义是?答案:脚本停止运行 题目:延迟3秒,以下哪一句代码是正确的?答案:Delay 3000 题目:下列哪一个命令会暂停脚本?答案:WaitClick 题目:按键精灵找图命令需要的图片格式是下列哪一个?答案:*.BMP 题目:以下哪一个不属于按键精灵基本命令?答案:压缩命令 题目:取指定点颜色的命令是?答案:GetPixelColor 题目:FindPic命令有几个参数?答案:8 题目:区域找图的命令是?答案:FindPic 题目:下列哪一个不是循环命令?答案:Select Case 题目:鼠标相对移动的命令是? 答案:MoveR 题目:下面哪一个是循环命令?答案:Do...Loop 题目:鼠标右键按下的命令是?答案:RightDown 题目:鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为?答案:100,100 题目:下列哪一段代码不能输出"L"键?答案:Keyup "L", 1 题目:下列RGB颜色值,书写错误的是?答案:"FFFFFFFF" 题目:FindColor命令有几个参数?答案:7 题目:延时命令 Delay 1000,以下的解释哪一个是正确的?答案:延迟1秒 题目:LeftDown命令有几个参数?答案:1 题目:延迟2小时,以下哪一句代码是正确的?答案:Delay 1000*60*60*2 题目:颜色值为"000000"是什么颜色?答案:黑色 题目:下列属于鼠标命令的是?答案:RightClick 题目:下列哪一个是循环命令?答案:While...Wend 题目:文本内容和数字连接在一起(连接符)应使用下列哪一个符号?答案:& 题目:下列哪一个不是逻辑运算符?答案:Const 题目:以下哪一个不是按键精灵可以使用的界面?答案:GUI界面 题目:KeyPress命令有几个参数?答案:2 题目:以下哪一段命令能正确执行"当a=1时点击A键,否则点击B键"?答案:If a=1 Then:KeyPress "A",1:Else:KeyPress "B",1:End If 题目:以下哪一个写法不能点击"shift"键?答案:KeyPress 60, 1 题目:如何退出For循环的命令?答案:Exit For 题目:以下哪一段命令能正确执行"如果(70,416)的颜色等于"FFFFFF"则鼠标移动到点(100,200)"?答案:IfColor 70, 416, "FFFFFF", 0 Then:MoveTo 100,200:End If 题目:鼠标右键弹起的命令是?答案:RightUp 题目:区域找色的命令是?答案:FindColor 题目:下列哪一种写法是错误的?答案:If Goto a Then :End If 题目:延迟3分钟,以下哪一句代码是正确的?答案:Delay 1000*60*3 题目:附件中哪一种文件可以不经过释放直接使用?答案:BMP 题目:鼠标中键单击的命令是?答案:MiddleClick 题目:键盘按下的命令是?答案:KeyDown 题目:按键精灵语言大小写的描述哪一个是正确的?答案:按键精灵不区分大小写 题目:SetSimMode 1 的实际意义是?答案:使用硬件模拟 题目:以下哪一种方式不能无限循环?答案:在脚本开头加入"For 10000",脚本尾部加入"Next" 题目:代码KeyPress "A",1 调试后提示出错,错误的原因是?答案:逗号使用了全角符号无法识别导致错误 题目:不能正确调用KeyPress命令的写法是?答案:KeyPress "FB",1 题目:下列哪一个不是鼠标命令?答案:LeftThreeClick 题目:键盘弹起的命令是?答案:KeyUp 题目:以下哪一个是循环命令?答案:for...next 题目:不能实现键盘按下"A"键的命令是?答案:KeyPressW "A",1 题目:鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为:答案:100,150 题目:默认情况下某些特定窗口模拟按键可能失效,以下哪种方法可能可以解决?答案:在脚本开头增加代码:SetSimMode 2 题目:GetPixelColor命令有几个参数?答案:2 题目:FindColorEx命令有几个参数?答案:9 题目:下面哪一个命令会暂停脚本?答案:MessageBox 题目:不属于按键精灵基本命令是?答案:启动命令 题目:哪一种不能正确调用KeyPress命令?答案:KeyPress "FA",1 题目:MoveTo命令有几个参数?答案:2 题目:以下哪一个是自动打怪的思路?答案:检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作 题目:以下哪一个命令不会暂停脚本?答案:for...next 题目:指定句柄进行截图,以下哪种情况不会导致截到的图是黑色?答案:窗口标题动态变化 题目:组合键"CTRL+C"的正确按键顺序是?答案:按下"CTRL",点击"C",弹起"CTRL" 题目:鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为:答案:50,100 题目:哪一种写法不能循环5次?答案:For i=1 To 9 :Next 题目:以下哪一个命令会暂停脚本?答案:WaitKey 题目:UserVar Var1=DropList{"选项1":"值1"|"选项2":"值2"|"选项3":"值3"|"选项4":"值4"}=n "设置内容",问初始参数Var1="值2"时,n是多少? 答案:1 2是错的 题目:以下无法获取句柄的命令是? 答案:C. Active 激活窗口 题目:数组MyArray(5)的最大可用下标为? 答案:5 题目:DateDiff命令有几个必选参数?且返回值类型是? 答案:3整数 题目:双引号的ANSI 字符代码是? 答案:34 题目:arr=array(1,2,3,4,5,6,7,8,9),问CStr(arr(5))等于多少? 答案:“6”字符串 题目:下列语句中无法达到无限循环效果的是? A. Do While True : Loop B. While True : Wend C. For i = True To True : Next D. Do : Loop 答案:C. For i = True To True : Next 题目:以下哪一个函数返回值的数据类型与其他三个的不一样? A.Filter B. Ubound C. Instr D. Clng 答案:A.Filter 题目:假如a="123abc456",b="abc123def",c="abc,d="123",以下返回值正确的是? 答案:d.d="123" 题目:以下哪一个变量不可能是数组? A. Dim MyArray B. Dim MyArray(5,5) C. Const MyArray=2 D. Dim MyArray() 答案:C. Const MyArray=2 题目:True的值是? A. 1 B. -1 C. -2 D. 0 答案:B. -1 题目:以下命令无法改变窗口大小的是? A. Call Plugin.Window.Move(Hwnd, 100, 100) B. Call Plugin.Window.Min(Hwnd) C. Call Plugin.Window.Restore(Hwnd) D. Call Plugin.Window.Max(Hwnd) 答案:A. Call Plugin.Window.Move(Hwnd, 100, 100) 题目:下列哪一个命令可以发送字符串? A. SendKeyDown B. SendKeyPress C. SendKeyUp D. SendString 答案:D. SendString 题目:返回已添加指定时间间隔的日期应使用下列哪一个函数? A. Date 函数 B. DateDiff 函数 C. DateAdd 函数 D. DatePart 函数 答案:C. DateAdd 函数 题目:以下哪一个命令会出错? A. TracePrint Cstr(32768) B. TracePrint Cint(32768) C. TracePrint Clng(32768) D. TracePrint Cos(32768) 答案: B. TracePrint Cint(32768) 最多只能有 255 个字符 C. 不能包含嵌入的句点或类型声明字符 D. 变量名不能包含下划线 答案:C.不能包含嵌入的句点或类型声明字符? 题目:以下哪一个不是数学函数? A. Ccur B. Sgn C. Rnd D. Abs 答案:A. Ccur 题目:Join命令的参数类型是? A. 对象 B. 数组 C. 字符串 D. 数字 答案:B. 数组 题目:下列哪一个常数是回车换行符? A. vbNullChar B. vbLf C. vbCrLf D. vbCr 答案:C. vbCrLf 题目:Hex函数的返回值类型是? A. 短整型 B. 字符串 C. 长整型 D. 数组 答案:B. 字符串 题目:关于自定义变量的描述以下哪一个是正确的? A. 自定义变量可以是类 B. 自定义变量可以是对象 C. 自定义变量可以是数字或者字符串 D. 自定义变量可以是数组 答案: C. 自定义变量可以是数字或者字符串 题目:数组MyArray(5)包含的元素个数为? A. 0 B. 6 C. 1 D. 5 答案:B. 6 题目:关于后台坐标的描述哪一个是不正确的? A. 后台坐标是由后台横坐标和后台纵坐标构成的 B. 后台坐标只针对窗体内生效 C. 后台坐标可以通过前台坐标减去窗体客户区起点坐标得出 D. 后台坐标在窗体内是不会变化的 答案:D. 后台坐标在窗体内是不会变化的 //** 题目:关于事件描述错误的是? A. 事件子程序会在事件触发时被调用 B. 事件子程序可以调用其他子程序 C. 事件子程序的参数可以是任意多个 D. 事件子程序可以当作普通子程序调用 答案:C. 事件子程序的参数可以是任意多个 题目:MessageBox "anjian"&1 将会弹出什么内容? A. anjian B. anjian1 C. "anjian"1 D. "anjian"&1 答案:B. anjian1 题目:以下哪一种情况可能导致获取不到网页元素? A. 网页大小发生变化 B. 网页未完全加载 C. 网页内含有Flash动画 D. 网页颜色发生变化 答案:B. 网页未完全加载 题目: 以下哪个命令不能调试内容输出? A Tips B TracePrunt C Beep D showScrTXT 答案:C Beep 题目: set语句含义是? A 用于过程级声明动态数组变量并分配或从新存储空间 B 初始化随机数生成器 C 声明 Funchon 过程名称。参数以及构成其主体代码 D 将对象引用赋给变量或属性 答案:D 将对象引用赋给变量或属性 题目:常数VBOK的直为? A -1 B 1 C 0 D 2 答案:B 1 题目: RGB直分解为红绿蓝分量,分量直的范围是? A 1-256 B 0-256 C 0-255 D 1-255 答案:C 0-255 题目: 关于延迟命令描述错误的是? A 在模拟按键过程中加入适当岩石可以更准确 B 使用延时命令可以停止脚本 C 延时命令的参数是毫秒 D 在脚本中适当加如延时命令可以降低CPU使用率 答案:B 使用延时命令可以停止脚本 题目: 以下哪个变量名不合法? A MyArray_ B 1MyArray C MyArray D MyArray_1 答案:B 1MyArray 的操作 B. 找图比找色更准确 C. 从思路上来说找图等同于找多点颜色 D. 从思路上来说找动图等同于找多张图 答案: B. 找图比找色更准确 题目:以下哪一个返回值是字符串? A. len("anjian") B. "10"-1 C. clng("520") D. "anjian"&"vrbrothers" 答案: D. "anjian"&"vrbrothers" 题目:vbCrLf的值为? A. Chr(0) B. Chr(13) C. Chr(13) & Chr(10) D. Chr(10) 答案: C. Chr(13) & Chr(10) 题目:FindMutiColorEx命令有几个参数? A. 6个参数 B. 5个参数 C. 8个参数 D. 7个参数 答案: C. 8个参数 题目:以下哪一个对Date 函数的描述是正确的? A. 返回给定日期的指定部分。 B. 返回当前系统日期。 C. 返回两个日期之间的时间间隔。 D. 返回已添加指定时间间隔的日期。 答案: B. 返回当前系统日期。 题目:IsNumeric(n),当n等于"VrBrothers"时返回什么? A. 1 B. -1 C. False D. True 答案: C. False 题目:以下哪一个命令会出错? A. TracePrint Clng(32768) B. TracePrint Cstr(32768) C. TracePrint Cint(32768) D. TracePrint Cos(32768) 答案: C. TracePrint Cint(32768) 题目:鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码. 答案:Dim a, x, y MoveTo 100, 200 For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3.14/180) MoveTo x, y Delay 5 Next EndScript 题目:获取鼠标无动作的时间,返回值是鼠标无动作的时间(鼠标监控),请写出代码 答案:Dim x, y, a, b DimEnv time1,time2 time1 = now GetCursorPos x, y a = x b = y BeginThread 等待按键 Do GetCursorPos x, y If x <> a or y <> b Then time2 = DateDiff("s",time1,Now ) TracePrint time2 ExitScript End If Loop Sub 等待按键 WaitClick time2 = DateDiff("s",time1,Now) traceprint time2 ExitScript End sub 题目:随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请写出代码: 例如: 随机数为:60,用户输入20,程序提示"答案范围为:20~100"。 用户再次输入75,程序提示"答案范围为:20~75"。 用户再次输入60,程序提示"猜中",然后退出程序。 答案: Randomize b = int(rnd * 100) + 1 zuida = 100 zuixiao=1 Do a=InputBox("请输入猜测的" & zuixiao & "-" & zuida & "数字","猜数游戏") a=int(a) If a=b then MessageBox b & ",恭喜你,答对了" ExitScript elseif a < b zuixiao = a else zuida=a End if Loop 题目:已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给出代码 答案: Hwnd = Plugin.Window.MousePoint() Call Plugin.Window.Move(Hwnd, 0, 50) MoveTo 0 + 50, 50 + 100 LeftClick 1 题目:写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值 答案: Function sum(x,y) sum=cint(x)+cint(y) End Function TracePrint sum(1,3) 题目:判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码 答案: Dim str, SearchChar str = "XXX XXX XXX" SearchChar = " " If Instr(str, SearchChar) <> 0 Then MessageBox "存在空格" End If 题目:定义一个数组 myarray(10) , 从 myarray(0)=0 开始赋值 到myarray(10)=10(提示:myarray(i)=i) ,请给出代码 答案: Dim myarray(10) i=0 For UBound(myarray)+1 myarray(i)=i TracePrint "myarray(" & i & ")=" & myarray(i) i=i+1 Next 题目:(前台)区域范围为(100,150)到(200,300)内的所有点是否均为"FFFFFF",是则弹出对话框"没有其他颜色",否则弹出第一个点的颜色值并退出程序请写出代码 答案: x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y < 300) x=100 While (x < 200) If RtColor = "FFFFFF" Then x = x + 1 Else MessageBox RtColor1 ExitScript End If RtColor = Plugin.Color.GetPixelColor(x, y, 0) Wend y=y+1 Wend MessageBox "没有其他颜色" 题目:利用多线程对多个记事本的窗口位置进行随机移动请写出代码 答案: RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" Delay 2000 DimEnv Hwnd1 HwndEx = Plugin.Window.Search("记事本") Hwnd = Split(HwndEx,"|") If UBound(Hwnd) >= 0 Then For i = 0 To UBound(Hwnd) - 1 wnd = Clng(Hwnd(i)) Hwnd1 = wnd BeginThread 移动 Delay 100 Next End If Do Delay 1000 Loop Sub 移动 Hwnd2 = Hwnd1 Randomize x = Int(Rnd * 500) Randomize y = Int(Rnd*500) MessageBox x&","&y Call Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Sub 题目:关于自定义变量的描述错误的是? A. 自定义变量可以在脚本完全启动后读取 B. 自定义变量可以在脚本中重新赋值 C. 自定义变量可以在脚本载入事件中读取 D. 自定义变量可以在脚本退出事件中读取 答案:C. 自定义变量可以在脚本载入事件中读取 etCursorShape(1) var = GetCursorShape(0) 答案:两种 题目:下列哪一个表示十六进制整数的方法是正确的? A. "&H0031D92A" B. 0031D92A C. &H0031D92A D. "0031D92A" 答案:C. &H0031D92A 题目:创建一个对象需要用到的命令是? A. GetObject 返回对文件中 Automation 对象的引用。 B. IsObject 返回 Boolean 值指明表达式是否引用了有效的 Automation 对象。 C. Set 将对象引用赋给变量或属性。 D. CreateObject 创建并返回对 Automation 对象的引用。 答案:D. CreateObject 题目:关于字符串中存在字符引号的描述错误的是? A. 可以用一个引号表示 B. 可以用两个引号表示 若字符串中有双引号,例如ABD"XYZ , " " 则用连续两个双引号表示,即:"ABD""XYZ" , """ """。 C. 可以用chr(34)拼接表示 chr(34)是双引号 & chr(34)是连接双引号chr(34)chr(34)" " chr(34)chr(34) D. 可以用chr(&H22)拼接表示 十六进制的chr(&H22) 十进制的chr(34) 都是双引号 答案:A. 可以用一个引号表示 题目:以下哪一个命令可以清空对象Spk? A. set Spk= CreateObject("SAPI.SpVoice") B. Set Spk= False C. Spk.Close D. Set Spk= Nothing 答案:D. Set Spk= Nothing 题目:关于QUI描述错误的是? A. QUI内的控件值不可以在主线程内改变 B. QUI内的控件值可以在控件事件内改变 C. QUI经过设计可以有一个漂亮的界面 D. QUI可以添加本身没有的控件 答案:D. QUI可以添加本身没有的控件 题目:对网页插件和窗口插件描述错误的是? A窗口插件不能再WQM中使用 B网页插件只能在WQM中使用 C窗口插件可以作用于任意窗口 D网页插件和窗口插件可以配合使用 答案:A窗口插件不能再WQM中使用 题目:关于QUI输入框的描述哪个是错误的? A. 可以在事件外修改输入框的背景颜色 B. 可以在事件中修改输入框的是否显示 正确 C. 可以在事件外获取输入框的值 D. 可以在事件中修改输入框的是否有效 正确 答案:A. 可以在事件外修改输入框的背景颜色 题目:对于按键的功能扩展,不可以用以下哪个方式? A. 调用函数接口未知的DLL B. 使用其他提供的插件 这个是可以调用的 C. 使用VB/VC制作插件 D. 使用CMD或VBS命令 答案: A. 调用函数接口未知的DLL 题目:以下对结构的描述哪一个是错误的? A. 顺序结构是最基本的结构 B. 跳转结构和子程序混用可能陷入消耗内存的死循环 C. 控制结构和循环结构可以嵌套使用 D. 控制结构和顺序结构混用可能陷入消耗内存的死循环 答案:D. 控制结构和顺序结构混用可能陷入消耗内存的死循环 题目:关于KeyPress命令第一个参数的描述哪个是正确的? A. 只能传递按键码 B. 可以传递按键码或者字符串 C. 不可以使用变量 D. 只能传递字符串 答案:B. 可以传递按键码或者字符串 题目:以下哪一个API命令可以运行指定路径的程序? A. GetDesktopWindow B. ShowWindow C. ShellExecute D. SetLayeredWindowAttributes 答案:C. ShellExecute 题目:关于数组与字符串描述错误的是? A. 字符串和数组可以配合使用 B. 数组元素可以是字符串 C. 多维数组的元素只能是字符串 D. 理论上数组元素的传递可以用字符串代替 答案: C. 多维数组的元素只能是字符串 题目:以下哪一种方式不能在 外部 自定义 脚本 内部 变量? A. 使用OCX界面可以自定义脚本内部变量 B. 使用环境变量环境变量仍然是在脚本内部改变的哦 环境变量SHI内部变量 C. 使用QUI界面可以自定义脚本内部变量 D. 使用外部储存文件(例如文本/数据库等) 答案:B. 使用环境变量环境变量仍然是在脚本内部改变的哦 环境变量SHI内部变量 题目:关于在按键中直接使用API,以下哪个说法是正确的? A. 可以传指针 B. 只能使用参数和返回值是数字或者字符串的API C. 可以传地址 D. 任意的API都可以使用 答案:B. 只能使用参数和返回值是数字或者字符串的API 题目:关于子程序的描述错误的是? A. 函数可以代替子程序的作用 B. 应用多线程时需要用到子程序 C. 2个子程序之间可以任意跳转(goto) D. 子程序内定义的变量是局部变量 答案: C. 2个子程序之间可以任意跳转(goto) 题目:判断一个字符串是否为数字可以使用以下哪个函数? A. IsNumeric B. IsArray C. IsNull D. IsDate 答案: A. IsNumeric 题目:以下描述错误的是? A. 脚本内子程序数量越少运行速度越快 B. 脚本内增加注释可以提高代码的可读性 C. 获得字符串长度的函数是len,获得数组最大可用下标的函数是Ubound D. 程序内可以定义多个环境变量 答案:A. 脚本内子程序数量越少运行速度越快 题目:以下哪一种方法可以在线程中传递数组? A. 其他三种方法都不可以 B. 直接传递数组 C. 将数组合成字符串,再把环境变量字符串传递到线程中 D. 将数组定义成环境变量不支持数组定义为环境变量 答案:C. 将数组合成字符串,再把环境变量字符串传递到线程中 题目:以下哪个对Select命令的描述是错误的? A. Select支持判断语句(例如:a>0) B. Select是一种选择结构 C. Select可以有无数个分支 D. Select可以嵌套其他判断语句使用 答案:A. Select支持判断语句(例如:a>0) 题目:关于子程序描述错误的是? A. 子程序调用可以不使用Call关键字 B. 子程序使用恰当可以优化程序结构 C. 子程序使用恰当可以缩短代码 D. 使用子程序的目的是让脚本更加智能 答案: D. 使用子程序的目的是让脚本更加智能 题目:一般后台多开脚本是通过什么技术手段实现的? A. 前台+API B. 后台+API 是错误的 C. 前台+多线程 D. 后台+多线程 答案: D. 后台+多线程 题目:关于环境变量描述错误的是? A. 环境变量在程序未完全关闭前不会自动清空 B. 环境变量推荐在各个线程序内同时任意使用 C. 环境变量可以跨线程序使用 D. 环境变量可以在同一个按键精灵或者小精灵中跨脚本使用 答案:B. 环境变量推荐在各个线程序内同时任意使用 题目:关于环境变量的描述,哪个是错误的? A. 环境变量的类型可以是数组 B. 环境变量的值可以改变 C. 环境变量可以传入到线程中 D. 环境变量可以赋值给一般变量 答案:A. 环境变量的类型可以是数组 题目:脚本中只有一行代码DimEnv a:MessageBox a,弹出的值为3,可能的原因是? A. 程序出错 B. 其他脚本中给环境变量a赋值了 将两个脚本DIMENV A:A=3 另一个调试DimEnv a:MessageBox a 环境变量仍然是在脚本内部改变的哦 C. 这种情况不会出现 D. a的默认值为3 答案:B. 其他脚本中给环境变量a赋值了 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容" Sub OnScriptLoad() MessageBox a End Sub A. 不会弹出 B. 空 C. 0 答案:B. 空 题目:对Eval和Execute命令的描述以下哪一个是不正确的? A. Eval命令可以用Execute命令代替 B. 两个命令都可以执行字符串表达式 C. Eval命令的描述为:计算一个表达式的值并返回结果 D. Execute命令的描述为:对指定的字符串执行正则表达式搜索 答案:A. Eval命令可以用Execute命令代替 题目:默认情况下假设Weekday函数的返回值为6,那么这代表是星期几? A. 4 B. 7 C. 5 D. 6 答案: C. 5 题目:关于线程停止事件子程序描述正确的是? A. 线程停止事件子程序会在对应线程序停止时触发 B. 线程停止事件子程序可以启动新的线程 C. 线程停止事件子程序可以判断是哪个线程停止了 D. 线程停止事件子程序会在任意线程停止时触发 答案:D. 线程停止事件子程序会在任意线程停止时触发 这个是对的 题目:数组MyArray(5)的最小可用下标为? A. 1 B. 5 C. 0 D. 6 答案: C. 0 题目:str=Clng(Mid("234",2,1)),那么str的值为? A. "4" B. "34" C. 34 D. 3 答案:D 3 题目:GetCursorShape(0)该命令返回值类型为? A. 数组类型 B. 字符串类型 C. ANSI字符代码 D. 整数类型 答案:D. 整数类型 题目:以下对子程序的描述哪一个是正确的? A. 子程序没有返回值 B. 子程序中不能调用其他子程序 C. 子程序不能带参数 D. 子程序中途不能退出子程序 答案:A子程序没有返回值 题目:Redim 命令的作用对象是? A. 数组 B. 字符串 C. 长整型 D. 整行 答案:A. 数组 题目:字符串"&H22"用Clng命令转换后除以2再用Cstr命令转换,最后结果为? A. &H11 B. "&H11" C. 17 D. "17" 答案:D. "17" 题目:以下哪个事件是最先响应的? A. Form1.Label1.Click B. OnThreadExit C. OnScriptExit D. OnScriptLoad 答案:D. OnScriptLoad 题目:以下哪一个命令可以定义常数? A. Const B. Dim C. Call D. Redim 答案: A. Const 题目:a = 10.05 Mod 2 ,那么a的值为? A. 0.05 B. 5 C. 0 D. 5.025 答案: C. 0 题目:延迟命令 Delay 1000,以下的解释哪一个是正确的? A. 延时1000秒 B. 延时1000分钟 C. 延时1000小时 D. 延时1000毫秒 答案:D. 延时1000毫秒 题目:按键码34是下列哪一个按键? A. Pageup B. PageDown C. End D. Home 答案: B. PageDown 题目:回车键的按键码是? A. 14 B. 12 C. 11 D. 13 答案: D. 13 题目:鼠标左键单击的命令是? A. LeftDown B. LeftClick C. LeftDoubleClick D. LeftUp 答案: B. LeftClick 题目:区域中心找色的命令是? A. GetPixelColor B. FindCenterColor C. FindPic D. FindColor 答案:B. FindCenterColor 题目:在大型脚本的设计中,以下哪一个命令不推荐使用? A. 循环命令 B. 调用子程序命令 C. 判断条件命令 D. goto命令 答案: D. goto命令 题目:VarType 函数的作用是? A. 返回一个字符串,提供有关变量的 Variant 子类型信息 B. 计算一个表达式的值并返回结果 C. 在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮 D. 返回指示变量子类型的值 答案: D. 返回指示变量子类型的值 题目:MessageBox命令最多可以使用几个参数? A. 3 B. 4 C. 6 D. 5 答案: D. 5 题目:以下命令哪个不属于按键命令? A. StopScript B. EndScript C. ExitScript D. RestartScript 答案:A. StopScript 题目:Erase 语句的含义是? A. 重新初始化固定大小数组的元素,并释放动态数组的存储空间 B. 声明用于代替文字值的常数 C. 声明变量并分配存储空间 D. 将控制权传递给 Sub 过程或 Function 过程 答案: A. 重新初始化固定大小数组的元素,并释放动态数组的存储空间 题目:文本不存在,以下哪一个命令会新建立文本? A. WriteFileEx B. ReadFile C. WriteFile D. ReadFileEx 答案: A. WriteFileEx 题目:选出下列代码中无法实现循环效果的选项。 A. For i = 0 To 19 Step 2 : Delay 100 : Next B. For i = 9 To 0 : Delay 100 : Next C. For i = 0 To 9 : Delay 100 : Next D. For 10 : Delay 100 : Next 答案:B. For i = 9 To 0 : Delay 100 : Next 题目:以下哪一个值是True? A. clng(false) B. not(true) C. cstr(false) D. not(false) 答案: D. not(false) 题目:以下不属于按键命令(无效命令)的是? A. OnScriptLoad B. OnThreadExit C. OnScriptExit D. OnThreadLoad 答案: D. OnThreadLoad 题目:有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码 答案: DIM a,b a=4:b=2 c=a+b MessageBox "a+b="&c c=a-b MessageBox "a-b="&c c=a*b MessageBox "a*b="&c c=a/b MessageBox "a/b="&c 题目:以下哪一个函数返回值数据类型与其他三个不一样? A. Instr B. Replace C. Right D. Mid 答案: A. Instr 题目:在脚本开头中加入代码 MessageBox Ture ,弹出的值为? A. 0 B. 为空 C. -1 D. 1 答案:-1 题目:str=Mid("234",2,1),那么str的值为? A. "3" B. "34" C. 4 D. 34 答案: A. "3" 题目:以下哪一个命令输出的值与其他三个不同? A. TracePrint round(3.5) B. TracePrint fix(3.5) C. TracePrint Clng(3.5) D. TracePrint cint(3.5) 答案: B. TracePrint fix(3.5) 题目:下面哪句可以正确的将坐标字符串“200,300"分割并保存在数组变量arr中? A. arr=split("200,300","|") B. arr=MID("200,300",1,3) C. arr=split("200,300",",") D. arr=MID("200,300",",") 答案:C. arr=split("200,300",",") 题目:如下代码,c的值为? a = 1 : b = - 1 c = a and b A. -1 B. 1 C. 0 D. -2 答案:B. 1 题目:For a=1 To 5...Next循环结束后变量a的最终值。 A. 5 B. 6 C. 3 D. 4 答案: B. 6 题目:以下哪一个类型的取值范围最大? A. 布尔型 B. 整型 C. 长整型 D. 货币型 答案: D. 货币型 题目:以下对子程序和函数描述错误的是? A. 调用时,子程序和函数可以嵌套使用。 B. 函数可以进行递归运算 C. 一个子程序一般不可以改成函数,与调用规则有关 D. 一个函数一般不可以改成子程序,与调用规则有关 答案:D. 一个子程序一般不可以改成函数,与调用规则有关 题目:关于各个变量类型的取值范围错误的是? A. Boolean:True 或 False B. Integer:-32,768 到 32,767 C. String:可变长度字符串,字符串长度从 0 到 255个字符 D. Long:-2,147,483,648 到 2,147,483,647 答案:C. String:可变长度字符串,字符串长度从 0 到 255个字符 题目:如下代码,c的值为? a = 1 : b = - 1 c = a or b A. False B. Null C. True D. 0 答案: C. True 题目:关于记录日志描述正确的是? A. 日志在脚本不运行的状态也可以记录 B. 记录日志功能没有其他替代方法 C. 记录日志保存的载体为后缀名为MDF的文件 D. 记录日志需要用LogStart来启动 答案:D. 记录日志需要用LogStart来启动 题目:a = 1 : execute ("a=2*a"),a的值为? A. 2 B. 3 C. 1 D. 4 答案: A. 2 题目:TypeName返回值的数据类型是? A. 短整型 B. 数组 C. 长整型 D. 字符串 答案: D. 字符串 题目:哪一种情况最有可能造成程序崩溃? A. 用热键启动程序 B. 代码调试不通过 C. 程序陷入消耗内存的死循环中 D. 手动点击启动程序 答案:C. 程序陷入消耗内存的死循环中 题目:如下代码,c的值为? a = 1 : b = - 1 c = a xor b A. 0 B. -1 C. True D. -2 答案:D. -2 题目:未经过初始化随机种子的rnd值为? 答案:C. 0~1之间的值 题目:关于MessageBox命令描述错误的是? 答案:B. MessageBox命令一定没有返回值 题目:请问脚本执行完后,intY的值是多少(For循环了几次)? 答案:A. 8 题目:关于多线程的描述错误的是? 答案:B. 可以通过对应的子程序名来停止线程 题目:以下哪一个不是注释符? 答案:B. \\ 题目:假始起点窗口坐标:X=5 Y=5 前台鼠标要移动到窗口相对起点的坐标(5,5)上,请问哪个移动鼠标命令是正确的? 答案:D. moveto X+5,Y+5 题目:请问以下脚本a的弹出值是多少? 答案:A. 5 题目:以下哪一个API可以判断程序是否无响应? 答案:B. IsHungAppWindow 题目:要控制单位时间内的操作需要用到下列哪个命令(例如每5秒执行一下按"A"键)? 答案:A. DateDiff 题目:PrintScreen命令支持那种格式截图。 A. jpg B. gif C. TIF D. png 答案: A. jpg 题目:当str = "(1+2*3-1)/2",Eval(str)返回值为? A. 0 B. False C. True D. 3 答案: D. 3 题目:如果有多个重复标题的窗口,以下哪个命令能够直接获取到所有对应窗口的句柄? A. Plugin.Window.MousePoint B. Plugin.Window.FindEx C. Plugin.Window.Search D. Plugin.Window.Foreground 答案: C. Plugin.Window.Search 题目:下列命令中,无法改变鼠标指针位置的是? A. MoveR B. MoveRH C. MouseWheel D. MoveTo 答案: C. MouseWheel 题目:关于 GetLastKey 命令的描述哪一个是错误的? A. 返回值是数字 B. 返回值是按键码 C. 返回值是字符串 D. 获取一次后未重新按键之前返回值为0 答案: C. 返回值是字符串 题目:选出下列非键鼠操作的命令。 A. Call Plugin.Window.SendKeyDown(Hwnd, x) B. Call Plugin.Window.SendKeyUp(Hwnd, x) C. Call Plugin.Window.SendKeyPress(Hwnd, x) D. Call Plugin.Window.SendString(Hwnd, x) 答案: D. Call Plugin.Window.SendString(Hwnd, x) 题目:假如“神盾”图像存在,以下无法识别到图像的命令是? A. FindPic 0, 0, 1024, 768, "Attachment:\神盾.bmp", 0.9, intX, intY B. FindPic 0, 0, 1024, 768, ".\神盾.bmp", 0.9, intX, intY C. FindPic 0, 0, 1024, 768, "神盾.bmp", 0.9, intX, intY D. FindPic 0, 0, 1024, 768, "神盾.jpg", 0.9, intX, intY 答案:D. FindPic 0, 0, 1024, 768, "神盾.jpg", 0.9, intX, intY 题目:以下不属于键鼠命令的是? A. Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0) B. Call Plugin.Bkgnd.SendString(Hwnd, 0) C. Call Plugin.Bkgnd.RightClick(Hwnd, 0, 0) D. Call Plugin.Bkgnd.KeyPress(Hwnd, 65) 答案: B. Call Plugin.Bkgnd.SendString(Hwnd, 0) 题目:Set 语句的含义是? A. 初始化随机数生成器 B. 声明 Function 过程的名称、参数以及构成其主体的代码 C. 将对象引用赋给变量或属性 D. 用于过程级声明动态数组变量并分配或重新分配存储空间 答案: C. 将对象引用赋给变量或属性 题目:以下哪一个函数返回值的数据类型与其他三个不一样? A. Split B. Array C. Replace D. Filter 答案: C. Replace 题目:选出下列函数参数格式错误的选项。 A. MessageBox ("消息字符串") B. Text = MessageBox("消息字符串", vbOKCancel) C. MessageBox 0, vbOKCancel, "这个是个弹窗" D. MessageBox vbOKOnly, "这个是个弹窗" 答案:D. MessageBox vbOKOnly, "这个是个弹窗" 题目:读出句柄为135540的窗口 ,内存地址为&H400FF 的32位数值,请给出代码 答案:Hwnd = 135540 Val = Plugin.Memory.Read32Bit(Hwnd, &H400FF) MessageBox Val 题目:假设需要使用InputBox函数来得到数值型的变量,以下哪个做法是正确的? A. 返回值默认为数值型变量 B. 将得到的返回值用Cdate函数来转换 C. 将得到的返回值用Cstr函数来转换 D. 将得到的返回值用Ccur函数来转换 答案:D. 将得到的返回值用Ccur函数来转换 题目:以下关于注释的描述哪一个是错误的? A. 注释能使自己更了解代码,特别在大型脚本的编写过程中 B. 注释的内容不影响脚本运行 C. 注释内容会被编译在脚本中,但不运行 D. 注释能使别人更容易看懂自己的代码 答案: C. 注释内容会被编译在脚本中,但不运行 题目:随机生成[2,6]个[65,90]之间的偶数,并将生成的数转为与指定的ANSI 字符代码相对应的字符,最终结果返回弹窗显示,请给出代码。 答案:Dim d(99) Randomize a = Int((6 - 2 + 1) * Rnd + 2) For a Do Do b=Int((90 - 65 + 1) * Rnd + 65) Loop While b MOD 2 <> 0 For UBound(d) + 1 If b = d(i) Then b = 1 Exit For End If i = i + 1 If d(i) = "" Then Exit For End If Next Loop While b = 1 d(ii) = b c = C & Chr(b) ii = ii + 1 Next MessageBox c 题目:让鼠标移动到3个随机坐标,请写出代码。 答案:Dim 随机数, c For 3 Call 取随机数字(1024) x = 随机数 Call 取随机数字(768) y = 随机数 MoveTo x, y Delay 200 //MessageBox x&","&y Next Sub 取随机数字(c) Randomize a = Rnd() a=a*c 随机数 = Int(a) End Sub 题目:请用代码计算当月天数,例如"2007-02-12"的当月天数是28,请给出代码 答案:Dim 年,月,日,n t = DateValue(now) 年 =Year(t) 月 =Month(t) 日 =Day(t) t0 = Cstr(年 & "/" & 月 & "/" & 1) If 月 = 12 Then 年 = 年 + 1 t1 = Cstr(年 & "/" & 1 & "/" & 1) Else n = 月 + 1 t1 = Cstr(年 & "/" & 月 + 1 & "/" & 1) End If m = DateDiff("d", t0, t1) MessageBox "这个月有"&m&"天" 题目:根据系统时间生成一个0~1之间的小数点数字,需要写出生成的过程(伪随机数),请写出代码 答案:MessageBox 伪随机() Function 伪随机() 时间 = Split(Time, ':') Randomize 时 = Int(int(时间(0)) * Rnd + 1) / 24 * 100 Randomize 分 = Int(int(时间(1)) * Rnd + 1) / 60 * 10000 Randomize 秒 = Int(int(时间(2)) * Rnd + 1) / 60 * 1000000 伪随机 = round((时 + 分 + 秒) / 100, 6) End Function 题目:筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码 答案:For i = 10 To 99 If int(Mid(i, 1, 1)) + int(Mid(i, 2, 1)) = 10 Then MessageBox i End If Next 题目:写一个算法可以将十进制的字符串转成八进制的字符串.例如'8'->'10',请写出代码 答案:Call 子程序十转八("44") MessageBox 十转八 Function 子程序十转八(数值) If 数值 > 7 Then 十转八=数值 Mod 8 + int(数值 / 8) *10 Else 十转八 = 数值 End If End Function 题目:在路径为: C:\ajjl.txt文本的每行内容后加上对应的行数,例如:ajjl-第1 行.请写出代码 答案:nr = Plugin.File.ReadFileEx("c:\ajjl.txt") hs = Split(nr, "|") i = 0:ii = 1 fileLen = Plugin.File.GetFileLength("c:\ajjl.txt") handle = Plugin.File.OpenFile("c:\ajjl.txt") Call Plugin.File.SeekFile(handle, 0) For UBound(hs) Call Plugin.File.WriteFile(handle,hs(i)&"-第"&ii&"行"& vbcrlf) i = i + 1:ii = ii + 1 Next Call Plugin.File.CloseFile(handle) Delay 500 RunApp "c:\ajjl.txt" EndScript 题目:/*随即生成一个1~100之间的整数,玩家可以通过inputbox输入数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请 写出代码 例如: 随机数为:60,用户输入20,程序提示"答案范围为:20~100". 用户再次输入75,程序提示"答案范围为:20~75". 用户再次输入60,程序提示"猜中",然后退出程序.*/ 答案:Randomize 答案 = int(Rnd * 100) + 1 最小数 = 1 最大数 = 100 数字 = InputBox("(猜数游戏),输入1~100之间的整数,玩家可以通过输入数字,猜对则退出游戏,猜错则提示答案的范围") 数字=int(数字) Do If 数字 = 答案 Then MessageBox 数字 & ",恭喜答对了" EndScript ElseIf 数字 > 答案 Then 最大数 = 数字 ElseIf 数字 < 答案 Then 最小数 = 数字 End If 数字 = InputBox("答案范围为:" & 最小数 & "~" & 最大数) 数字 = int(数字) Loop 题目://锁定鼠标位置在(200,300)到(500,600)之间,超出范围则回到边界(鼠标范围锁定),请写出代码 答案:Call 锁范围(200,300,500,600) Function 锁范围(x1,y1,x2,y2) Do GetCursorPos x, y If x < x1 or x > x2 or y < y1 or y > y2 Then If x < x1 Then x = x1 ElseIf x > x2 Then x=x2 End If If y < y1 Then y = y1 ElseIf y > y2 Then y=y2 End If MoveTo x, y End If Loop End Function 题目:/*写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出 代码*/ 答案:Call 泡泡屏保("记事本") Function 泡泡屏保(模糊标题) Hwnd = Split(Plugin.Window.Search(模糊标题), "|") If UBound(Hwnd)>=0 = 0 Then EndScript End If iii = 3 i = iii : ii = iii 最大宽 = Plugin.Sys.GetScRX():最大高 = Plugin.Sys.GetScRY() 边框 = Split(Plugin.Window.GetWindowRect(Hwnd(0)), "|") W1 = Clng(边框(0)) : H1 = Clng(边框(1)) : W2 = Clng(边框(2)) : H2 = Clng(边框(3)) W0 = W2 - W1 : H0 = H2 - H1 do If W1 <= 0 Then i = 1 * iii ElseIf W1 + W0 >= 最大宽 Then i = -1 * iii End If If H1 <= 0 Then ii = 1 * iii ElseIf H1 + H0 >= 最大高 Then ii = -1 * iii End If W1 = W1 + i : H1 = H1 + ii Call Plugin.Window.Move(Hwnd(0), W1, H1 ) Delay 50 Loop End Function 题目://获取数组array(10,9,1,5,2,3,4,5,6,11)中最接近平均数的值,请写出代码 答案:a = array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11) i=0 For UBound(a) + 1 ii = ii + a(i) i = i + 1 Next 均值 = ii /( UBound(a) + 1) i=0 For UBound(a) If Abs(均值 - a(i)) > Abs(均值 - a(i + 1)) Then ii = a(i + 1) ElseIf Abs(均值 - a(i)) < Abs(均值 - a(i + 1)) Then ii = a(i) End If i=i+1 Next MessageBox ii 题目:/*有一个字符串,里面包含一些数字,写一个函数,把这些数字加起来。比如“我30你40他50”结果就是120。请写出代码*/ 答案:a = "我30你40他50ni" For i = 1 To Len(a) + 1 If IsNumeric(Mid(a, i, 1)) = True Then ii = ii & Mid(a, i, 1) Else b = b + ii ii = 0 End If Next MessageBox b 题目:/*遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码*/ 答案:MessageBox 反提取小写数字("A1a2d5m8Qz") Function 反提取小写数字(字符) i = Len(字符) For Len(字符) If (Asc(mid(字符,i,1)) > 96 and Asc(mid(字符,i,1)) < 123 ) or (Asc(mid(字符,i,1)) > 47 and Asc(mid(字符,i,1)) < 58 ) Then 反提取小写数字 = 反提取小写数字 & mid(字符, i, 1) End If i = i - 1 Next End Function 题目:/*请按以下叙述编写一个函数 要求:已知一维数组a(100), a(1)=1 : a(2)=2 (假设下标从1开始) 从数组的第三项(a(3)开始):后面的每一个元素等于前二个元素之和 例如:a(3)=a(2)+a(1) : a(20)=a(19)+a(18) : a(100) = a(99) + a(98) 现:要求编写一个具有 一个参数的函数:这个参数是指定数组的下标,函数返回值是数组下标的对应值 例如:我编写的函数为名 f(x) , 那么当我带入f(50) 的时候,函数的返回值应该是a(50)的值*/ 答案:Dim a(100),x a(1) = 1 : a(2) = 2 x=3 For n=3 to 100 step 1 a(n) = a(n - 1) + a(n - 2) next Call f(5) Function f(x) MessageBox a(x) End Function 题目:写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码 答案:MessageBox 颜色相似度1("Fffffa", "FFFFFF"),64,"颜色相似度1" MessageBox 颜色相似度2("Fffffa", "FFFFFF"),64,"颜色相似度2" MessageBox 颜色相似度3("Fffffa", "FFFFFF"),64,"颜色相似度3" Function 颜色相似度1(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度1 = 1 - round((abs((R1 - R2) / 255) + abs((G1 - G2) / 255) + abs((B1 - B2) / 255)) / 3, 3) End Function Function 颜色相似度2(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度2 = 1 - round((abs(R1 - R2) + abs(G1 - G2) + abs(B1 - B2)) / 255 / 3, 3) End Function Function 颜色相似度3(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度3 = 1 - round((abs(R1 / 255 - R2 / 255) + abs(G1 / 255 - G2 / 255) + abs(B1 / 255 - B2 / 255)) / 3, 3) End Function 题目://写一个函数,要求:返回一个数值范围内所有偶数之和。参数1、参数2:整数型,数字 提示:For循环与VBS命令函数应用。 答案:TracePrint 求偶数之和(1, 61) TracePrint 求偶数之和(3, 19) TracePrint 求偶数之和(0, 83) TracePrint 求偶数之和(2, 6) EndScript Function 求偶数之和(参数1, 参数2) Dim i If 参数1 mod 2 = 0 Then 参数1 = 参数1 + 2 If 参数1 mod 2 = 1 Then 参数1 = 参数1 + 1 If 参数2 mod 2 = 0 Then 参数2 = 参数2 - 2 If 参数2 mod 2 = 1 Then 参数2 = 参数2 - 1 For i = 参数1 To 参数2 step 2 求偶数之和 = 求偶数之和 + i TracePrint "求偶数之和=" & 求偶数之和&"并且i="&i next End Function 题目://写一个脚本,要求:在画图工具中画一个渐变放大的多边形(大于4边)漩涡效果图。 提示:For循环的应用。 答案:Call 画多边漩涡(400, 400, 50, 7) //五边形 EndScript Sub 画多边漩涡(x, y, r, n) //x 圆心横坐标 y 圆心纵坐标 //r 半径 n 多边形的边数 Const PI = 3.1415926 Dim x1, y1 //起点坐标 dim x2, y2 //下一个点坐标 x1 = x y1 = y - r Dim t t = PI For i = 1 To 30 If i > 1 Then MoveTo x1, y1 Delay 20 LeftUp 1 End If MoveTo x1, y1 Delay 20 LeftDown 1 t = t - pi * 2 / n x2 = x + int(r * sin(t)) y2 = y + int(r * cos(t)) //更新起点坐标 x1 = x2 y1 = y2 r = r + 2 Next End Sub 题目://写一个脚本,要求:在画图工具中画一个渐变放大的圆形漩涡效果图。提示:cos函数与sin函数应用。 答案:Call 画漩涡(420, 400) EndScript Function 画漩涡(起点X, 起点Y) Dim HX, HY, n n = 1 While HX < 600 MoveTo HX, HY LeftClick 1 HX = 起点X + cos(n) + n * sin(n) HY = 起点Y + sin(n) - n * cos(n) n = n + 0.2 Wend End Function 题目:/*写一个函数,已知一段坐标信息的字符串为:"260,270|290,260|310,230|320,200|300,150|280,150|270,130| 250,130",计算得出离185,246坐标最近的一组坐标。提示:For循环与数组应用。*/ 答案:TracePrint 坐标最近判断("260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130", "185,246") EndScript Function 坐标最近判断(信息, 坐标) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, "|") '信息分离 Str = Split(坐标, ",") '坐标分离 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标X与Y值 For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 Else Ping = Ping & "/" & (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, "/") : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint "b(" & i & ")=" & b(i) If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next 坐标最近判断 = Arr(a) End Function 题目://切换所有标题包含"Internet Explorer"的窗口,请写出代码 答案:Dim HwndEx, MyArray, i HwndEx = "" HwndEx = Plugin.Window.Search("Internet Explorer") If HwndEx <> "" Then MyArray = Split(HwndEx, "|") For i = 0 To UBound(MyArray) - 1 '模糊搜索最后一个值是空的所以忽略 Call Plugin.Window.Top(Clng(MyArray(i)), 0) Call Plugin.Msg.Tips("当前共有" & UBound(MyArray) & "个窗口包含“Internet Explorer”" & VbCrlf & "切换为第" & i + 1 & "个窗口") Delay 1500 Call Plugin.Window.Top(Clng(MyArray(i)), 1) Next Else Call Plugin.Msg.Tips("当前没有包含“Internet Explorer”的窗口") End If EndScript 题目://写出用goto命令循环十次的过程 答案:Dim a1 a1 = 10 Rem 从这里开始 TracePrint "倒计次了!" & a1 a1 = a1 - 1 If a1 > 0 Then Goto 从这里开始 EndScript 题目:(前台)依次按下"AJJL"四个键,中间延迟100毫秒,循环10次 答案:Dim p For p = 1 To 10 KeyPress 65, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 76, 1 Delay 100 Next EndScript 题目://随机输出10个50到100正整数,并从大到小排列(冒泡排序),请写出代码 答案:Dim 随即Int(9), i1, j, Cache, bSwap Randomize For i1 = 0 To 9 随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50) TracePrint i1 & ":" & 随即Int(i1) Next For j = 0 To UBound(随即Int) - 1 bSwap = False For i1 = 0 To UBound(随即Int) - 1 If 随即Int(i1) < 随即Int(i1 + 1) Then '若是递增,则将 < 改为 > Cache = 随即Int(i1) 随即Int(i1) = 随即Int(i1 + 1) 随即Int(i1 + 1) = Cache bSwap = True End If Next If bSwap = False Then Exit For Next TracePrint "【冒泡排序后输出】" For i1 = 0 To UBound(随即Int) TracePrint i1 & ":" & 随即Int(i1) Next EndScript 题目:以下哪个常数可能是MessageBox的返回值? A. 其他三项都不是 B. vbRed C. vbAbort D. vbCrlf 答案: C. vbAbort 题目:IfColor 命令有几种判断条件方式? A. 3 B. 1 C. 0 D. 2 答案: A. 3 题目:关于"我的命令库"哪一个描述是错误的? A. 自带的命令库都可以看到源代码 B. "我的命令库"不可以使用API函数 C. "我的命令库"可以加入自己的代码 D. "我的命令库"中不可以使用环境变量 答案: B. "我的命令库"不可以使用API函数 题目:下列哪一个是键盘命令? A. Rem B. Goto C. KeyPress D. LeftClick 答案: C. KeyPress 题目:按键码105是下列哪一个按键? A. NUM 7 B. NUM 9 C. NUM 8 D. NUM 0 答案: B. NUM 9 题目:、"F1"的按键码是? A. 113 B. 110 C. 111 D. 112 答案: D. 112 题目:鼠标左键按下的命令是? A. LeftDown B. LeftUp C. LeftClick D. LeftDoubleClick 答案: A. LeftDown 题目:Xor 运算符描述正确的是? A. 用于计算两个数值的差或表示数值表达式的负值 B. 用于对表达式执行逻辑非运算 C. 用于对两个表达式进行逻辑异或运算 D. 用于对两个表达式进行逻辑或运算 答案: C. 用于对两个表达式进行逻辑异或运算 题目:Media.Play命令不支持哪个文件格式。 A. Mp4 B. Mp3 C. Wav D. Mid 答案: A. Mp4 题目:QUI输入框控件返回值的变量类型是? A. 字符串 B. 长整型 C. 货币型 D. 变体 答案: A. 字符串 题目:以下对子程序和函数的描述哪一个是正确的? A. 函数和子程序不能够嵌套使用 B. 函数等价于子程序 C. 函数的参数可以是一个子程序 D. 函数可以替代子程序 答案: D. 函数可以替代子程序 题目:下列对按键精灵变量描述正确的是? A. 可以在定义变量的时候定义类型 //错误 B. 变量只能定义一次 C. 变量只能在开头定义 D. 不定义可以直接使用变量 答案: D. 不定义可以直接使用变量 题目:FindMutiColor命令的颜色特征点最少为几个? A. 4个 B. 1个 C. 3个 D. 2个 答案: D. 2个 题目:以下哪一个命令需要绑定WQM使用? A. Call Plugin.Web.ClearTemp() B. Call Plugin.Web.ClearCookie() C. Call Plugin.Web.ScrollTo(0,0) D. Call Plugin.Web.ClearHistory() 答案: C. Call Plugin.Web.ScrollTo(0,0) 题目:Round(3.141592,5)返回值为什么? A. 3.14 B. 3.141592 C. 3.1415 D. 3.14159 答案: D. 3.14159 题目:以下哪一个不是数学函数? A. Sgn B. Ccur C. Rnd D. Abs 答案: B. Ccur 题目:以下哪一个变量名是不合法的? A. MyArray_1 B. MyArray C. 1MyArray D. MyArray_ 答案: C. 1MyArray 题目:请问以下脚本a的弹出值是多少? DimEnv a a = 30 Call xfun(a) MessageBox a Function xfun(x1) x1=15 a=5 x1=x1+a End Function A. 20 B. 15 C. 30 D. 5 答案: D. 5 题目:一般后台多开脚本是通过什么技术手段实现的? A. 后台+API B. 后台+多线程 C. 前台+API D. 前台+多线程 答案:B. 后台+多线程 题目:关于环境变量描述错误的是? A. 环境变量可以跨线程序使用 B. 环境变量推荐在各个线程序内同时任意使用 C. 环境变量可以在同一个按键精灵或者小精灵中跨脚本使用 D. 环境变量在程序未完全关闭前不会自动清空 答案:B. 环境变量推荐在各个线程序内同时任意使用 题目:关于KeyPress命令第一个参数的描述哪个是正确的? A. 不可以使用变量 B. 只能传递字符串 C. 只能传递按键码 D. 可以传递按键码或者字符串 答案:D. 可以传递按键码或者字符串 题目:以下对结构的描述哪一个是错误的? A. 顺序结构是最基本的结构 B. 跳转结构和子程序混用可能陷入消耗内存的死循环 C. 控制结构和循环结构可以嵌套使用 D. 控制结构和顺序结构混用可能陷入消耗内存的死循环 答案:D. 控制结构和顺序结构混用可能陷入消耗内存的死循环 题目:假始起点窗口坐标:X=5 Y=5 前台鼠标要移动到窗口相对起点的坐标(5,5)上,请问哪个移动鼠标命令是正确的? A. moveto X+5,Y+5 B. moveR 10,10 C. moveR 5,5 D. moveR X+10,Y+10 答案: A. moveto X+5,Y+5 题目:关于子程序描述错误的是? A. 子程序使用恰当可以缩短代码 B. 子程序使用恰当可以优化程序结构 C. 使用子程序的目的是让脚本更加智能 D. 子程序调用可以不使用Call关键字 答案:C. 使用子程序的目的是让脚本更加智能 题目:以下哪一个API可以判断程序是否无响应? A. IsHungAppWindow B. ShellExecute C. SetLayeredWindowAttributes D. ShowWindow 答案: A. IsHungAppWindow 题目:以下哪个对Select命令的描述是错误的? A. Select可以嵌套其他判断语句使用 B. Select是一种选择结构 C. Select支持判断语句(例如:a>0) D. Select可以有无数个分支 答案: C. Select支持判断语句(例如:a>0) 题目:关于环境变量的描述,哪个是错误的? A. 环境变量的类型可以是数组 B. 环境变量的值可以改变 C. 环境变量可以赋值给一般变量 D. 环境变量可以传入到线程中 答案: A. 环境变量的类型可以是数组 题目:关于QUI描述错误的是? A. QUI内的控件值不可以在主线程内改变 B. QUI内的控件值可以在控件事件内改变 C. QUI可以添加本身没有的控件 D. QUI经过设计可以有一个漂亮的界面 答案: C. QUI可以添加本身没有的控件 题目:以下哪一个不是注释符? A. // B. \\ C. ' D. /* */ 答案: B. \\ 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容" Sub OnScriptLoad() MessageBox a End Sub A. 根据保存的值来确定 B. 0 C. 空 D. 不会弹出 答案: C. 空 题目:关于后台坐标的描述,哪一个是不正确的? A. 后台坐标可以在后台命令中使用 B. 后台坐标的起点等同于窗口客户区的起点 C. 后台坐标和前台坐标没有对应的计算关系 D. 后台坐标指的是窗口内的某个坐标 答案: C. 后台坐标和前台坐标没有对应的计算关系 题目:关于ExitScript和EndScript的描述错误的是? A. EndScript可以退出当前线程 B. ExitScript可以退出所有线程 C. EndScript可以退出所有线程 D. ExitScript可以退出当前线程 答案: C. EndScript可以退出所有线程 题目:对Eval和Execute命令的描述以下哪一个是不正确的? A. 两个命令都可以执行字符串表达式 B. Execute命令的描述为:对指定的字符串执行正则表达式搜索 C. Eval命令可以用Execute命令代替 D. Eval命令的描述为:计算一个表达式的值并返回结果 答案: C. Eval命令可以用Execute命令代替 题目:弹出对话框 a, b 的值分别是多少? a=0 Call 值 BeginThread 值 MessageBox a MessageBox b Sub 值 a = a + 1 b = a + 1 End Sub A. a=1,b=2 B. a=2,b=3 C. a=0,b=1 D. a=2,b=2 答案: A. a=1,b=2 题目:执行下列程序后,会弹出几个窗体,每个窗体对应的值分别是多少? A=BeginThread(线程1) delay 1000 StopThread A MessageBox "1" Sub 线程1() delay 2000 MessageBox "10" end sub 答案:会弹出一个窗体,值是"1" 题目:规定区域内随机输出一个日期,例如 "2005-01-01"到"2012-03-31"之间的某一天,请给出代码 答案:Call 随机产生日期("2005-01-01", "2012-03-31") TracePrint "随机日期=" & 随机日期 EndScript Function 随机产生日期(起始年月日, 终止年月日) Dim 间隔, 随机数 Randomize 间隔 = DateDiff("d", 起始年月日, 终止年月日) 随机数 = Int((间隔 + 1) * Rnd) 随机日期 = DateAdd("d", 随机数, 起始年月日) End Function 题目:要求利用系统时间随机生成一个0~1之间的伪随机数(包括小数),不能使用Randomize命令,可保留8位小数。 答案:MessageBox 伪随机() Function 伪随机() 时间 = Split(Time, ":") Randomize 时 = Int(int(时间(0)) * Rnd + 1) / 24 * 100 Randomize 分 = Int(int(时间(1)) * Rnd + 1) / 60 * 10000 Randomize 秒 = Int(int(时间(2)) * Rnd + 1) / 60 * 1000000 伪随机 = round((时 + 分 + 秒) / 100, 6) End Function 题目:写一个脚本,要求:在画图工具中画一个渐变放大的圆形漩涡效果图。 提示:cos函数与sin函数应用。 答案:Call 画漩涡(420, 400) EndScript Function 画漩涡(起点X, 起点Y) Dim HX, HY, n n = 1 While HX < 600 MoveTo HX, HY LeftClick 1 HX = 起点X + cos(n) + n * sin(n) HY = 起点Y + sin(n) - n * cos(n) n = n + 0.2 Wend End Function 题目:写一个脚本,要求生成一个动态数组,最大下标数为5~10,每个元素值范围是100以内随机偶数,计算返回值为数组类型,数组元素排列顺序从大到小。 提示:For循环与Rnd函数的应用。 答案:Dim d(10) Randomize a = Int((10 - 5 + 1) * Rnd + 5) For i=0 to a b=Int((100 - 2 + 1) * Rnd + 2) If b mod 2 = 1 Then b = b + 1 d(i) = b //TracePrint d(i) Next For i = 0 To UBound(d) - 1 bSwap = False For i1 = 0 To UBound(d) - 1 If d(i1) < d(i1 + 1) Then '若是递增,则将 < 改为 > Cache = d(i1) d(i1) = d(i1 + 1) d(i1 + 1) = Cache bSwap = True End If Next If bSwap = False Then Exit For Next TracePrint "【冒泡排序后输出】从大到小" For i1 = 0 To a TracePrint i1 & ":" & d(i1) Next EndScript 题目:写一个函数,要求:获取区域范围内单个或多个颜色的全部坐标数值。 参数1 整数型,屏幕左上角X坐标 参数2 整数型,屏幕左上角Y坐标 参数3 整数型,屏幕右下角X坐标 参数4 整数型,屏幕右下角Y坐标 参数5 字符串型,16进制颜色值(支持多个颜色,格式:FFFFFF|FF00FF) 返回值:字符串 格式:x1,x2,x3,x4,x5|y1,y2,y3,y4,y5(5个坐标信息) 提示:Color插件。请写出完善的代码结构即可。 答案:MessageBox searchcolor(23,22, 25, 25, "E9E4D6|FDFCFC") Function searchcolor(x1, y1, x2, y2, myfindcolor) mycolorX = "" : mycolorY = "" mycolor1 = split(myfindcolor, "|") mycolorstring = "" For colornum = 0 To UBound(mycolor1) colormore = instr(1, mycolorstring, mycolor1(colornum), 1) If colormore < 1 Then mycolorstring = mycolorstring & mycolor1(colornum) & "|" End If Next mycolorstring = left(mycolorstring, len(mycolorstring) - 1) mycolor = split(mycolorstring, "|") For myY = int(y1) To int(y2) For myX = int(x1) To int(x2) GetColor = GetPixelColor(myX, myY) For times = 0 to UBound(mycolor) If GetColor = mycolor(times) Then mycolorX = mycolorX & myX & "," : mycolorY = mycolorY & myY & "," End If Next Next Next If len(mycolorX) > 0 Then searchcolor = left(mycolorX, len(mycolorX) - 1) & "|" & left(mycolorY, len(mycolorY) - 1) Else searchcolor = "|" End If End Function 题目:、(API)利用 SendMessage 函数向QQ对话窗口发送文本里的所有内容(QQ消息发送器),请写出代码 答案:Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As string) As Long Hwnd = Plugin.Window.Find("TXGuiFoundation", "麻辣江湖") TracePrint Hwnd Text = Plugin.File.ReadFileEx("D:\11.txt") TracePrint Text Call Plugin.Sys.SetCLB(Text) SendMessage hwnd, &H302, 0, 0 Call Plugin.Window.SendKeyPress(Hwnd, 13) 题目:选出返回值与其他三种不一样的选项。 A. FindPic B. FindCenterColor C. FindColor D. GetPixelColor 答案: D. GetPixelColor 题目:以下哪一个是类型转换函数? A. moveto B. time C. Eval D. clng 答案: D. clng 题目:以下哪一个函数返回值数据类型与其他三个不一样? A. Instr B. Replace C. Right D. Mid 答案: A. Instr 题目:假如a="123abc456",b="abc123def",c="abc,d="123",以下返回值正确的是? A. IsNumeric(a) = True B. IsNumeric(b) = True C. IsNumeric(d) = True D. IsNumeric(c) = True 答案: C. IsNumeric(d) = True 题目:以下哪一个命令的功能是设置屏幕分辨率? A. GetScDep B. GetScRY C. SetCLB D. SetSc 答案: D. SetSc 题目:myarray=Array(1,2,3,4,5),那么myarray(4)的值为? A. 4 B. 6 C. 3 D. 5 答案: D. 5 题目:执行Call Plugin.File.WriteINI("Command", "Val", "内容", ".\Config.ini")命令后,IsFile = Plugin.File.IsFileExit(".\Config.ini")返回值是? A. 1 B. 0 C. False D. True 答案: D. True 题目:关于事件描述错误的是? A. 事件子程序可以调用其他子程序 B. 事件子程序的参数可以是任意多个 C. 事件子程序可以当作普通子程序调用 D. 事件子程序会在事件触发时被调用 答案: B. 事件子程序的参数可以是任意多个 题目:以下哪一个命令可以将表达式转化为字符串? A. Clng B. Cstr C. Ccur D. Cint 答案: B. Cstr 题目:arr=Split("1,2,3,4,5,6,7,8,9", ","),问arr(5)等于多少? 答案:“6” 文本 题目:arr=array(0,1,2,3,4,5,6,7,8,9),问Clng(arr(9))等于多少? 答案:9 数值 题目:、(后台) 判断某句柄为hwnd的窗口内是否存在颜色为"FFFFFF"的点,存在即显示其坐标,请给出代码 答案:Dim x,y Hwnd = 133026 sRect = Plugin.Window.GetClientRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)): B = Clng(MyArray(3)) XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, R-L, B-T, "FFFFFF") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) MessageBox "后台窗口颜色FFFFFF对应的X坐标=" & x & " Y坐标=" & y 题目:请将16进制颜色值"FF00FF"转成十进制并赋值给变量C,请给出代码 答案:Dim C, D, i, j C = 0 D = UCase("FF00FF") For i = 1 To Len(D) j = Asc(Mid(D, i, 1)) - 48 If j > 9 Then j = j - 7 C = C * 16 + j Next TracePrint C 题目:判断数字a是否为3的倍数或者以3为尾数,是则弹出信息提示框,请给出代码 答案:If a mod 3 =0 or (a-3) mod 10 = 0 then MessageBox "数字a是3的倍数或者数字a以3为尾数" Else MessageBox "数字a不是3的倍数也不是以3为尾数" end if 题目:替换字符串"12X34X56X"中的"X"为"|",请给出代码 答案:Dim a a = "12X34X56X" a = Replace(a, "X", "|") MessageBox a 题目:、(前台)定义一个字符串str, str为任意字母或数字,依次按下这些字符,例如str="vrbrothers",请给出代码 答案:dim str,LeftString str = "vrbrothers" i = 1 Do Until i=len(str)+1 LeftString = Mid(str, i, 1) i = i + 1 KeyPress LeftString, 1 Loop 题目:请将字符串"123"和"456"连接在一起,两个字符串需分行显示,显示使用MessageBox。请给出代码 答案:MessageBox "123"&vbCrLf&"456" 题目:请提供至少两种判断程序卡死(无响应)的思路,请写出关键代码.请写出代码 答案://游戏辅助中根据右上角小地图取色判断 Do GetColor1 = GetPixelColor(960, 130) Delay 30000 GetColor2 = GetPixelColor(960, 130) If GetColor1 = GetColor2 Then MessageBox "卡死" Loop //根据游戏窗口标题是否含有“无响应”,判断 Hwnd = Plugin.Window.MousePoint() Do Delay 30000 sText = Plugin.Window.GetText(Hwnd) n = InStr(sText, "无响应") If n>0 Then MessageBox "卡死" Loop 题目:写一个脚本,要求:启动脚本后,手动移动鼠标,然后放开操作,根据移动的最后方向继续移动鼠标,并慢慢减速,碰到边缘完全静止等待下次移动。 提示:命令GetCursorPos的应用。 答案:Hwnd = Plugin.Window.MousePoint() sRect = Plugin.Window.GetClientRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)): B = Clng(MyArray(3)) TracePrint "左" & L & ",右 " & R & ",上" & T & ",下" & B TracePrint "左" & L & ",右 "& L + R & ",上" & T & ",下" & T + B GetCursorPos x0, y0 Delay 3000 Rem 移动 GetCursorPos x, y x1 = x : y1 = y Delay 1000 GetCursorPos x, y If x <> x1 or y <> y1 Then Goto 移动 角度 = 角度计算(x0,y0, x,y) TracePrint 角度 pi = 3.14159 n = 10 i=0 While i=0 MoveTo x, y Delay n // LeftClick 1 // Delay n x = x + Round(30*cos(角度 * pi / 180)) y = y - Round(30 * sin(角度 * pi / 180)) TracePrint x & "|" & y TracePrint "左" & L & ",右 "& L + R & ",上" & T & ",下" & T + B If x <= L or x >= L + R or y <= T or y >= T + B Then i = 1 n=n+30 Wend Function 角度计算(中心点x坐标,中心点y坐标,移动点x坐标,移动点y坐标) //上为90°,右为0°,下为270°,左为180° Dim x, y, a, b x = abs(移动点x坐标 - 中心点x坐标) y = abs(移动点y坐标 - 中心点y坐标) If x<>0 Then a = atn(y / x) If 移动点x坐标=中心点x坐标 Then If 移动点y坐标>中心点y坐标 Then //↑ 角度计算 = 90 Else //↓ 角度计算 = 270 End If ElseIf 移动点y坐标=中心点y坐标 Then If 移动点x坐标>中心点x坐标 Then //→ 角度计算 = 0 Else //← 角度计算 = 180 End If ElseIf 移动点x坐标>中心点x坐标 and 移动点y坐标>中心点y坐标 Then //↘ 角度计算 =360- fix(a * 57.3) ElseIf 移动点x坐标>中心点x坐标 and 移动点y坐标<中心点y坐标 Then //↗ 角度计算 =fix(a * 57.3) ElseIf 移动点x坐标<中心点x坐标 and 移动点y坐标<中心点y坐标 Then //↖ 角度计算 =180- fix(a * 57.3) ElseIf 移动点x坐标<中心点x坐标 and 移动点y坐标>中心点y坐标 Then //↙ 角度计算 =180+fix(a * 57.3) Else End If End Function 题目:自定义间隔时间按技能键1,请给出代码 答案:UserVar CD=3 "技能键1间隔时间" Do If DateDiff("s", t1, now) >= CD Then KeyPress "1", 1 t1=now End If Loop 题目:请补全下面的获取随机数的函数 Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower low = upper End If Randomize randomNumber = Int((___________) * Rnd + low) GetRandomNumber = randomNumber End Function 答案:Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower low = upper End If Randomize randomNumber = Int((high - low + 1) * Rnd + low) '产生指定范围的随机整数,high是此范围的上界,而low是此范围内的下界 GetRandomNumber = randomNumber End Function 题目:按键精灵是下列哪一个程序? A. wqm.exe B. Importer.exe C. 按键精灵9.exe D. picker.exe 答案: C. 按键精灵9.exe 题目:以下哪一个产品是纯硬件模拟键盘鼠标操作的? A. 按键盒子 B. 按键精灵 C. 网页按键精灵 D. 小精灵商业版 答案: A. 按键盒子 题目:LockMouse命令的含义是? A. 保存当前鼠标所在位置 B. 恢复上次保存的鼠标位置 C. 解除锁定鼠标位置 D. 锁定鼠标位置 答案: D. 锁定鼠标位置 题目:Round(3.141592,5)返回值为什么? A. 3.1415 B. 3.14 C. 3.14159 D. 3.141592 答案: C. 3.14159 题目:以下哪一种方式不能在外部自定义脚本内部变量? A. 使用环境变量 B. 使用外部储存文件(例如文本/数据库等) C. 使用OCX界面 D. 使用QUI界面 答案: A. 使用环境变量 题目:判断字符串str长度是否大于等于6,如果小于6则在字符串str 后补”A” 以达到长度为6,请写出代码 答案:Dim str str = "abc" a=Len(str) If a < 6 Then For 6-a str=str&"A" Next End If MessageBox str 题目:利用多线程对多个记事本的窗口位置进行随机移动.请写出代码 答案:RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" Delay 2000 DimEnv Hwnd1 HwndEx = Plugin.Window.Search("记事本") Hwnd = Split(HwndEx,"|") If UBound(Hwnd) >= 0 Then Do For i = 0 To UBound(Hwnd) - 1 wnd = Clng(Hwnd(i)) Hwnd1 = wnd BeginThread 移动 Delay 100 Next Loop End If Do Delay 1000 Loop Sub 移动 Hwnd2 = Hwnd1 Randomize x = Int(Rnd * 500) Randomize y = Int(Rnd*500) //MessageBox x&","&y Call Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Sub 题目:写一个函数,已知一段坐标信息的字符串为:"260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130",计算得出离185,246坐标最近的一组坐标。 提示:For循环与数组应用。 答案:TracePrint 坐标最近判断("260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130", "185,246") EndScript Function 坐标最近判断(信息, 坐标) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, "|") '信息分离 Str = Split(坐标, ",") '坐标分离 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标X与Y值 For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 Else Ping = Ping & "/" & (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, "/") : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint "b(" & i & ")=" & b(i) If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next 坐标最近判断 = Arr(a) End Function 题目:写一个脚本,要求:下载按键精灵首页(http://www.anjian.com/)左上角的logo图标到本地,下载完毕使用画图工具开启展示图片。 提示:插件Web的应用。 答案:ProcessID=Plugin.Web.Bind("WQM.exe") Delay 1000 If ProcessID=0 then MessageBox "网页按键精灵没有运行" EndScript End If Hwnd=Plugin.Web.GetHwnd() Call Plugin.Web.Tips("脚本开始运行") Call Plugin.Web.SetSize(1024,784) Call Plugin.Web.Go("http://www.anjian.com/") Call Plugin.Web.ScrollTo(0,0) Delay 1000 MoveTo 60, 189 Delay 200 RightClick 1 Delay 1000 MoveTo 119, 344 Delay 200 LeftClick 1 Delay 1000 Call Plugin.Sys.SetCLB("D:\logo.bmp") KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 KeyPress "Enter", 1 Delay 1000 KeyPress "Y", 1 Delay 1000 RunApp "mspaint.exe D:\logo.bmp" Sub OnScriptExit() Call Plugin.Web.Tips("脚本停止运行") End Sub 题目:写一个函数,要求:获取一个文件夹中都包含什么格式文件,并获取每种格式的数量。 参数1:字符串,文件路径 返回值:字符串 格式:*.txt=10|*.bmp=10|*.jpg=30…… 提示:我的命令库 答案:MessageBox myfile("D:\") Function myfile(filepath) Dim myobject,myobj Set myobject = CreateObject("Scripting.FileSystemObject") Set myobj = myobject.Getfolder(filepath) set myfiles = myobj.files Allfiles = "" For Each element In myfiles Allfiles = Allfiles & element.name & "|" Next Set myobject = nothing Allfiles = left(Allfiles, len(Allfiles) - 1) myallfile = split(Allfiles, "|") myfile = "" For i = 0 To UBound(myallfile) point = instr(1, myallfile(i), ".", 1) Do anotherpoint = instr(point + 1, myallfile(i), ".", 1) If anotherpoint > 1 Then point = anotherpoint Else Exit Do End If Loop myfiletype = right(myallfile(i), len(myallfile(i)) - point) myanswer = instr(1, myfile, "*." & myfiletype & "=", 1) If myanswer >= 1 Then filebegin = instr(myanswer, myfile, "=", 1) + 1 fileend = instr(myanswer, myfile, "|", 1) filelenth = fileend - filebegin filenumber = int(mid(myfile, filebegin, filelenth)) filenumber = filenumber + 1 myfile = left(myfile, filebegin - 1) & filenumber & right(myfile, len(myfile) - fileend + 1) Else myfile = myfile & "*." & myfiletype & "=1|" End If Next myfile = left(myfile, len(myfile) - 1) End Function 题目:写一个函数,要求:使用单点找色功能写出多点找色效果。 提示:多点找色命令:FindMutiColorEx 答案:x0=240:y0=405:x1=250:y1=410//整数型,找色区域 809,213 颜色值="00B8FA"//参数5 字符串型,第一点16进制颜色值 符合偏移点颜色组 = "1|0|00B8FA,3|0|00B8FA" Call 单点找色功能写出多点找色效果(240,405,250,410, "00B8FA", "1|0|00B8FA,3|0|00B8FA") Function 单点找色功能写出多点找色效果(x0, y0, x1, y1, 第一点16进制颜色值, 符合偏移点颜色组) Dim xy, 坐标加颜色, a, b xy = "-1|-1" 坐标加颜色 = split(符合偏移点颜色组, ",") For y = y0 To y1 Delay 5 For x = x0 To x1 Delay 5 IfColor x, y, 颜色值, 0 Then xy = x & "|" & y For i = 0 To Ubound(坐标加颜色) Delay 5 a = InStr(坐标加颜色(i), "|") : b = InStrRev(坐标加颜色(i), "|") x = x + Clng(Mid(坐标加颜色(i), 1, a - 1)) : y = y + Clng(Mid(坐标加颜色(i), a + 1, b - a - 1)) IfColor x, y, 颜色值, 1 Then xy = "-1|-1" Exit For End If Next End If If xy <> "-1|-1" Then Exit For Next If xy <> "-1|-1" Then Exit For Next MessageBox xy End Function 题目:写一个脚本,在画图工具中画圆半径不小于100,而后在圈内画正方形四角必须与圈重合。 提示:推荐使用Bkgnd命令来键鼠操作。(可选) 答案:Dim x,y Const pi = 3.14159 Hwnd = Plugin.Window.MousePoint() Call 画圆(550, 280, 150) y0 = 280 x0 = 550 r = 150 temp = Round(r * (cos(45 * pi / 180))) x1 = x0 + temp : y1 = y0 - temp x2 = x0 + temp : y2 = y0 + temp x3 = x0 - temp : y3 = y0 + temp x4 = x0 - temp : y4 = y0 - temp x = x1 For y = y1 To y2 Step 1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 15 Next y= y2 For x2-x3 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 15 x=x-1 Next x= x3 For y3-y4 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 15 y=y-1 Next y= y4 For x = x4 To x1 Step 1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 15 Next EndScript Function 画圆(x0, y0, r) For a = 0 To 360 x = x0 - r * cos(a*3.14/180) y = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 5 Next End Function 题目:写一个脚本,要求识别特点窗口是否存在,不存在则提示,至少给出三种方式,请写出代码 答案://第1种 Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") If Hwnd = 0 Then MessageBox "特点窗口不存在" //第2种 HwndEx = Plugin.Window.Search("无标题 - 记事本") If HwndEx="" Then MessageBox "特点窗口不存在" //第3种 Window = Plugin.Window.IsWindow(Hwnd) If Window <> 1 Then MessageBox "特点窗口不存在" 题目:有N个窗口,第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 答案:n = 8 For n RunApp "notepad.exe" Delay 50 Next HwndEx = Plugin.Window.Search("记事本") Hwndx = Split(HwndEx, "|") ScreenX = Plugin.Sys.GetScRX()//屏幕宽度 ScreenY = Plugin.Sys.GetScRY()//屏幕高度 h=0 For i = 0 To n hwnd=Hwndx(i) Call Plugin.Window.Active(Hwnd) Call Plugin.Window.Move(Hwnd, 0, h) Call Plugin.Window.Size(Hwnd, ScreenX, Int(ScreenY / n)) h = h + Int(ScreenY / n) Delay 100 Next 题目:写一个子程序,模拟鼠标以屏幕中心为坐标轴原点循环画f(x)=k*sin(x/k)的图像(基本数学函数的使用,k为子程序的参数),请写出代码 答案:Call 画一个函数(30) Sub 画一个函数(k) Screenx = Plugin.Sys.GetScRX() Screeny = Plugin.Sys.GetScRY() x0 = Int(Screenx / 2) : y0 = Int(Screeny / 2) x = 0 Do For x=0 to x0-200 y = -Round(k * sin(x / k)) x=x+1 TracePrint x&"|"&y MoveTo x0+x, y0+y Delay 1 LeftClick 1 Delay 1 x = x + 1 Next Loop End Sub 题目:利用文本(TXT)模拟一个"数据库",数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码 答案:Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果 数据库路径 = "C:\档案.txt" InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页·请输入对应字符进行相关操作") Do While InputHome <> "Q" And InputHome <> "q" If InputHome = "H" Or InputHome = "h" Then InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页·请输入对应字符进行相关操作") ElseIf InputHome = "1" Then Do 查询结果 = "" Input查询 = InputBox("退出:Q 主页:H", "查询·请输入编号进行查询", "编号") If Input查询 = "Q" Or Input查询 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input查询 = "H" Or Input查询 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input查询) = True Then 查询结果 = 查询(数据库路径, Input查询) End If If 查询结果 <> "" Then MessageBox 查询结果, 65, "查询结果" Loop ElseIf InputHome = "2" Then Do 搜索返回 = "" : Show搜索 = "" Input搜索 = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "可模糊搜索到编号、姓名、年龄、身高字段", " 搜索·请输入关键字进行搜索", "关键字") If Input搜索 = "Q" Or Input搜索 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input搜索 = "H" Or Input搜索 = "h" Then : InputHome = "H" : Exit Do Else 搜索返回 = 搜索(数据库路径, Input搜索) End If If 搜索返回 <> "" Then 搜索结果 = Split(搜索返回, ",") For i = UBound(搜索结果) - 1 To 0 Step - 1 Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next MessageBox Show搜索, 65, "搜索结果" End If Loop ElseIf InputHome = "3" Then Do 查询结果 = "" : 删除结果 = "" Input删除 = InputBox("退出:Q 主页:H", "删除·请输入编号进行删除", "编号") If Input删除 = "Q" Or Input删除 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input删除 = "H" Or Input删除 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input删除) = True Then 查询结果 = 查询(数据库路径, Input删除) End If If 查询结果 <> "" Then 删除结果 = MessageBox(查询结果, 68, "确定要删除此条数据?") If 删除结果 = 6 Then Call 删除(数据库路径,Input删除) Loop ElseIf InputHome = "4" Then Do Input增加 = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "格式:姓名|年龄|身高" & vbcrlf & "例如:李 雷|18|1.52", "增加·请输入要增加的一条数据") If Input增加 = "Q" Or Input增加 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input增加 = "H" Or Input增加 = "h" Then : InputHome = "H" : Exit Do ElseIf UBound(Split(Input增加, "|")) = 2 Then 增加 数据库路径, Input增加 End If loop ElseIf InputHome = "Q" Or InputHome <> "q" Then : Exit Do Else InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页· 请输入对应字符进行相关操作") End If Loop EndScript Function 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1 Set fso = CreateObject("scripting.FileSystemObject") If fso.FileExists(文本路径) Then Set myfile = fso.openTextFile(文本路径, 1, false) Else flag = 0 End If For i = 1 To 编号 - 1 If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then 查询 = myfile.ReadLine Else 查询 = "编号不存在!" End If myfile.close Else 查询 = "文件不存在!" End If Set fso = Nothing End Function Function 搜索(文本路径, 关键字) Dim ForReading, ForWriting ForReading = 1 : ForWriting = 2 : 搜索 = "" Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 关键字) > 0 Then 搜索 = strLine & "," & 搜索 TracePrint "搜索=" & 搜索 strNewFile = strNewFile & strLine & vbcrlf Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Function Sub 删除(文本路径, 编号) Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2 Dim objFSO,objFile,strLine,strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径,ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile Else strNewFile = strNewFile & strLine & vbcrlf End If Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径,ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub Sub 增加(文本路径, 文本内容) Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2 Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline strNewFile = strNewFile & strLine & vbcrlf Loop TracePrint objFile.Line strNewFile = strNewFile & objFile.Line & "|" & 文本内容 & vbcrlf objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub EndScript 题目:利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码 杨辉三角百度说明:http://baike.baidu.com/view/7804.htm 答案:Call 函数输出杨辉三角(10) Function 函数输出杨辉三角(n) Dim i, j Dim a(100,100) x = 600:y = 300 For i = 1 To n x=500-20*i For j = 1 To i a(1, 1) = 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) a(1, 1) = 1 Call Plugin.Msg.ShowScrTXT(x, y, x+30,y+20, a(i, j), "0000FF") x=x+40 Next y=y+20 Next End Function 题目:如果一个渔夫从2000年1月1日开始工作,三天在打鱼,两天在晒网,编写一个脚本,计算出今后任何的一天,渔夫是在打渔还是晒网,请写出代码。 答案:Call 三天打鱼两天晒网("2013-9-9") Function 三天打鱼两天晒网(t)//参数t时间格式"2013-9-7" p = DateDiff("d", "2000年1月1日",t ) p = p Mod 5 If p = 3 or p = 4 Then MessageBox "渔夫在晒网" Else MessageBox "渔夫在打渔" End If End Function 题目:建立多线程a和多线程b,当系统时间的小时数为奇数时启动a关闭b,为偶数时启动b关闭a,请写出代码 答案:Dimenv IDA, IDB Do t0=Hour(now) If Hour(now) mod 2 = 1 Then IDA = BeginThread(a) IDB = 0 Else IDB = BeginThread(b) IDA = 0 End If Delay 1000 Rem 时辰判断 Delay 3000 t1 = Hour(now) If t1=t0 Then Goto 时辰判断 Loop Sub a Do TracePrint "线程a" Delay 3000 loop Until IDA = 0 End Sub Sub b Do TracePrint "线程b" Delay 3000 loop Until IDB = 0 End Sub 题目:写一个函数可以使鼠标做扇形运动(圆弧移动+移动到圆心+移动到起始位置),请写出代码 答案:Call 扇形运动(200, 500, 500, 0, 120)//参数格式:半径, 圆心x坐标, 圆心y坐标, 起始角度, 终点角度 Function 扇形运动(半径, 圆心x坐标, 圆心y坐标, 起始角度, 终点角度) Dim 起点x0, 起点y0r r = 半径 x0 = 圆心x坐标 y0 = 圆心y坐标 v0 = 起始角度 v1 = 终点角度 起点x0 = Round(x0 + r * cos(v0 * 3.14159 / 180)) 起点y0 = Round(y0 - r * sin(v0 * 3.14159 / 180)) MoveTo 起点x0, 起点y0//起点 // Delay 100 // LeftDown 1 // Delay 1000 For a = v To v1 step 0.5 x = Round(x0 + r * cos(a*3.14159/180)) y = Round(y0 - r * sin(a * 3.14159 / 180)) MoveTo x,y Delay 3 Next MoveTo x0, y0//圆心 Delay 1000 MoveTo 起点x0, 起点y0//起点 Delay 1000 // LeftUp 1 Delay 1000 End Function 题目:随机出4个1~10(含1和10)的整数,这四个数字的顺序是一定的,求是否可以经过四则运算得到结果为24,例如(1,3,7,2) -> 1+3*7+2=24 (简化24点),请写出代码 答案:Dim 得数,算式,n,随机数1,随机数2 Call 简化24点(1,3,7,2) Sub 简化24点(随机整数1,随机整数2,随机整数3,随机整数4) d=0 For a = 1 To 4 For b = 1 To 4 For c = 1 To 4 算式=随机整数1&Mid("+-*/", a,1) &随机整数2&Mid("+-*/",b,1) &随机整数3&Mid("+-*/", c,1) &随机整数4 原算式 = 算式 // SayString 算式 For 3 m1 = InStr(算式, "+") m2 = InStr(算式, "-") m3 = InStr(算式, "*") m4 = InStr(算式, "/") Call 运算优先原则 c1 = Len(随机数1) c2 = Len(随机数2) c3 = Len(算式) c4=c3-c1-c2-1 得数 = Round(得数, 3) If Mid(算式, 1, 1) = "-" Then 算式 = 得数 & Mid(算式, n +c2+1, c4) Else 算式 = Mid(算式, 1, n -c1-1) & 得数 & Mid(算式, n + c2 + 1, c4) End If Next // SayString "="&得数&Vbcrlf d=d+1 If 得数 = 24 Then MessageBox 原算式 & "=" & 24 Exit Sub End If Next Next Next MessageBox "不能得到24" End Sub Sub 运算优先原则 If Mid(算式, 1, 1) = "-" Then For n = 3 To Len(算式) If IsNumeric(Mid(算式,n,1)) =0 Then Exit For Next Call 取符号前后随机数 If Mid(算式,n,1) = "+" Then 得数 = 随机数2 - 随机数1 Exit Sub End If If Mid(算式,n,1) = "-" Then 得数 = - 随机数2 - 随机数1 Exit Sub End If Exit Sub End If If m1 = 0 and m2 =0 and m4=0 and m3>0 Then n=m3 Call 取符号前后随机数 得数 = 随机数1*随机数2 Exit Sub End If If m1 = 0 and m2 =0 and m3=0 and m4>0 Then n=m4 Call 取符号前后随机数 得数 = 随机数1/随机数2 Exit Sub End If If m3 > 0 and m4 > 0 and m3 < m4 Then n=m3 Call 取符号前后随机数 得数 = 随机数1 * 随机数2 Exit Sub End If If m3 > 0 and m4 > 0 and m3 > m4 Then n=m4 Call 取符号前后随机数 得数 = 随机数1 / 随机数2 Exit Sub End If If m3 > 0 and m4 =0 Then n=m3 Call 取符号前后随机数 得数 = 随机数1 * 随机数2 Exit Sub End If If m3 = 0 and m4 >0 Then n=m4 Call 取符号前后随机数 得数 = 随机数1 / 随机数2 Exit Sub End If If m3 = 0 and m4 =0 and m2=0 and m1>0 Then n=m1 Call 取符号前后随机数 得数 = 随机数1 + 随机数2 Exit Sub End If If m3 = 0 and m4 = 0 and m1 > 0 and m2 > 0 and m1 < m2 Then n = m1 Call 取符号前后随机数 得数 = 随机数1 + 随机数2 Exit Sub End If If m3 = 0 and m4 =0 and m1=0 and m2>0 Then n=m2 Call 取符号前后随机数 得数 = 随机数1-随机数2 Exit Sub End If If m3 = 0 and m4 = 0 and m1 > 0 and m2 > 0 and m1 > m2 Then n = m2 Call 取符号前后随机数 得数 = 随机数1 - 随机数2 Exit Sub End If End Sub Sub 取符号前后随机数 随机数1 = "" 随机数2 = "" For i = 1 To n - 1 If IsNumeric(Mid(算式,(n-i),1)) = -1 Then 随机数1 = Mid(算式, n - i, 1) & 随机数1 ElseIf Mid(算式, n - i, 1) = "." Then 随机数1="."&随机数1 Else Exit For End If Next 随机数1 = Round(随机数1, 3) For i = 1 To Len(算式)-n If IsNumeric(Mid(算式,n+i,1)) = -1 Then 随机数2 = 随机数2 & Mid(算式, n + i, 1) ElseIf Mid(算式, n + i, 1) = "." Then 随机数2=随机数2&"." Else Exit For End If Next 随机数2 = Round(随机数2,3) End Sub 题目:简单游不允许发布哪些脚本? A:脚本说明与界面中写有淘宝链接 B:发布修改了游戏文件与内存代码的脚本 C:发布使用了简单游答题插件的脚本 D:脚本附件中含有病毒、木马程序 答案:abd 题目:脚本说明与界面中不允许放置哪些信息? A:私人QQ群、YY群、电话号码 B:私人QQ、脚本图片、视频链接 C:网盘、淘宝、拍拍等链接 D:脚本设置说明与系统设置要求 答案:ac 题目:怎么在简单游上使用自行编写的界面文件(.ocx)或者插件文件(.dll)? A:自己制作的插件/界面可直接打包进脚本附件中使用。 B:自己制作的插件/界面文件需用QQ发给作者专员审核后打包进附件。 C:在上传的插件/界面通过审核后,在“我的插件”中下载后打包进脚本附件。 D:上传的插件/界面通过审核后,原文件可直接打包脚本附件中使用。 答案:c 题目:使用收费插件制作的脚本是如何扣费的? A:下载收费插件需要扣费 B:用收费插件制作的脚本发布后按周收费 C:当含有收费插件的免费脚本被用户使用后,需要扣费 D:当用户订购了含有收费插件的脚本,需要扣费 答案:d 题目:以下关于调试脚本的描述,哪些是正确的? A:可以帮助作者测试脚本在简单游软件上运行的情况 B:可以进行人工代答服务的答题测试 C:只有与作者帐号绑定的简单游帐号才可以使用调试中的脚本 D:任何ocx/dll文件都可以在调试脚本中使用 答案:abc 题目:更新脚本是日常维护脚本的必要手段。我们不允许以下哪些更新操作? A:更新时将原脚本更换成不同功能的脚本 B:提交脚本文件、说明、价格等没有任何修改的更新请求 C:将原脚本文件优化后进行更新 D:在脚本说明中加上无意义的字符,进行更新 答案:abd 题目:作者平台账号与简单游账号绑定描述正确的有哪些? A:简单游帐号与作者帐号绑定后无法直接获得作者论坛权限 B:简单游帐号与作者帐号绑定后可以直接进入作者论坛 C:简单游帐号与作者帐号绑定后需联系专员开启作者论坛权限 D:简单游帐号与作者帐号绑定后才可以免费使用自己发布的脚本 答案:acd 题目:脚本说明中的图片是否能直接上传?如何在脚本说明中添加图片? A:能,直接将需要的图片复制,黏贴进脚本说明中 B:能,可直接将需要图片进行截图,并放入脚本说明中 C:不能,需要将图片上传至网盘,将网盘链接复制进脚本说明中 D:不能,需要将图片上传至简单游论坛的对应位置,使用该图片的地址添加进脚本说明中 答案:d 题目:作者在简单游的收入在什么时间结算,如何结算? A:每月最后一天进行结算,清空当月收入 B:每月15日进行结算,清空当月收入 C:每月21日进行结算,作者账号上达到2000简单币时才能结算 D:作者可以随时申请简单币结算 答案:c 题目:作者在简单游的收入需要缴纳个人所得税中的哪项所得,收入达到多少才需要缴税? A:工资、薪金所得,达到800元以上需要缴税 B:稿酬所得,无论多少收入都需要缴税 C:企事业单位的承包经营、承租经营所得,无论多少收入都需要缴税 D:劳务报酬所得,达到800元以上需要缴税 答案:d 题目:以下关于调试脚本的描述,哪些是正确的? A:可以帮助作者测试脚本在简单游软件上运行的情况 B:可以进行人工代答服务的答题测试 C:只有与作者帐号绑定的简单游帐号才可以使用调试中的脚本 D:任何ocx/dll文件都可以在调试脚本中使用 答案:abc 题目:当n=3.141592*-1,以下语句返回值是绝对值的是? A. Int(n) B. Fix(n) C. Abs(n) D. CLng(n) 答案:C:Abs(n) 题目:DateDiff命令有几个必选参数?且返回值类型是? A. 3个必选参数,返回值类型为:整数 B. 5个必选参数,返回值类型为:整数 C. 4个必选参数,返回值类型为:字符串 D. 3个必选参数,返回值类型为:字符串 答案:A. 3个必选参数,返回值类型为:整数 题目:得到字母A的ANSI 字符代码并赋值给变量B,请写出代码 答案:B = Asc("A") TracePrint B 题目:输出100个"*"字符,请写出两种方法,给出代码 答案://第一种 For 100 SayString "*" Delay 5 Next //第二种 i=1 Do until i=100 SayString "*" Delay 50 i = i + 1 Loop 题目:后台)判断某句柄为hwnd的窗口的窗口坐标(50,100)处颜色是否为"FFFFFF",是则在这个点按下鼠标左键,请给出代码 答案:GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 50, 100) If GetColor = "FFFFFF" Then Call Plugin.Bkgnd.LeftDown(Hwnd, 50, 100) 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容" Sub OnScriptLoad() MessageBox a End Sub A. 不会弹出 B. 根据保存的值来确定 C. 0 D. 空 答案: D. 空 题目:请问脚本执行完后,intY的值是多少(For循环了几次)? Dim intX Dim intY For intX = 0 To 15 intX = intX + 1 intY = intY + 1 Next A. 15 B. 16 C. 8 D. 0 答案: C. 8 题目:请补全下面的获取随机数的函数: Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower low = upper End If Randomize randomNumber = Int((___________) * Rnd + low) GetRandomNumber = randomNumber End Function 请作答。 答案:Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower low = upper End If Randomize randomNumber = Int((high - low + 1) * Rnd + low) //产生指定范围的随机整数,high是此范围的上界,而low是此范围内的下界 GetRandomNumber = randomNumber End Function 题目:随机生成2~6个65~90之间的偶数,并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果返回弹窗显示,请作答。 答案:Dim d(99) Randomize a = Int((6 - 2 + 1) * Rnd + 2) For a Do Do b=Int((90 - 65 + 1) * Rnd + 65) Loop While b MOD 2 <> 0 For UBound(d) + 1 If b = d(i) Then b = 1 Exit For End If i = i + 1 If d(i) = "" Then Exit For End If Next Loop While b = 1 d(ii) = b c = C & Chr(b) ii = ii + 1 Next MessageBox c 题目:返回值=Int(3\2),求以下选项返回值相等的是? 答案:A、Int(3/2) 题目:已知xxx.dll为插件文件,请解释命令作用:PutAttachment ".\plugin","xxx.dll" 请作答。 答案:将附件中的文件"xxx.dll"释放到当前文件夹的plugin目录下 题目:(前台)定义一个字符串str,str为任意字母或数字,依次按下这些字符按键,例如:str="vrbrothers",请作答。 答案:str="vrbrothers" For i = 1 to Len(str) temp = Mid(str,i,1) KeyPress temp,1 Delay 10 TracePrint temp Next 题目:已知变量a=4、b=2,分别弹出其“加减乘除”四个结果,请作答。 答案:Dim a,b a = 4 : b = 2 MessageBox "a+b="&(a+b) MessageBox "a-b="&(a-b) MessageBox "a*b="&(a*b) MessageBox "a/b="&(a/b) 题目:(后台)判断某句柄为hwnd的窗口的窗口坐标(50,100)处颜色是否为"FFFFFF",是则在这个点按下鼠标左键,请给出代码。 答案:GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 50, 100) If GetColor = "FFFFFF" Then Call Plugin.Bkgnd.LeftDown(Hwnd, 50, 100) 题目:UserVar为用户自定义的变量设置 UserVar A="3,5" "这里是手动输入的两个值" 然后赋给B和C,让B=3,C=5,请作答。 答案:UserVar A="3,5" "这里是手动输入的两个值" Dim array array=split(A,",") B = Int(array(0)) : C = Int(array(1)) //MessageBox B //MessageBox C 题目:随机生成3~9个60~91之间的奇数,并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果返回弹窗显示,请作答。 答案:m = GetRandomNumber(3, 9) TracePrint m a = 61 For 100 If a> 91 Then Exit For b=b&","&a a = a + 2 Next temp = Split(b, ",") For m n = temp(GetRandomNumber(1, UBound(temp))) TracePrint n n=Chr(n) c=c&n Next MessageBox c Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower low =upper End If Randomize GetRandomNumber = Int((high - low + 1) * Rnd + low) End Function 题目:请补全下面的获取随机数的函数: Function GetRandomNumber(upper, lower) Dim high, low, randomNumber If upper > lower Then high = upper low = lower Else high = lower 答案: low =upper End If Randomize GetRandomNumber = Int((high - low + 1) * Rnd + low) 题目:启动四个记事本,将四个窗口分别放到屏幕四个角,记事本不能超出屏幕范围,请写出代码 答案:RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" HwndEx = Plugin.Window.Search("无标题 - 记事本") dim Array Array = split(HwndEx, "|") TracePrint UBound(Array) sRect = Plugin.Window.GetWindowRect(Array(0)) dim MyArray MyArray = Split(sRect, "|") W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3)) W = W2 - W1 : H = H2 - H1 ScreenW = Plugin.Sys.GetScRX() ScreenH = Plugin.Sys.GetScRY() Call Plugin.Window.Move(Array(0), 0, 0) Delay 100 Call Plugin.Window.Move(Array(1), ScreenW - W, 0) Delay 100 Call Plugin.Window.Move(Array(2), 0, ScreenH - H) Delay 100 Call Plugin.Window.Move(Array(3), ScreenW - W, ScreenH - H) Delay 100 题目:根据以下游戏写一个脚本,要求:赢得比赛。提示:坐标寻路的应用,使用单点颜色判断来定位。 答案:Dim x0,y0,x1,y1,xx,yy FindColor 0,0,2000,2000,"006699",intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 243, intY + 252 Delay 50 LeftClick 1 Delay 100 TracePrint "游戏开始" End If x0 = intX : y0 = intY//599,193 x1 = intX + 536 : y1 = intY + 516//1135,709 KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 / KeyDown "Right", 1 Delay 30 Rem 标记2 FindColor x0,y0,x1,y1,"C4714D",intX,intY If intX > 0 And intY > 0 Then If intX<x0+330 Then Goto 标记2 End If KeyUp "Right", 1 Delay 30 // KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 // KeyDown "Left", 1 Delay 30 Call 移动 KeyUp "Left", 1 Delay 30 // KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 //MessageBox 1 // KeyDown "Right", 1 KeyDown "Up", 1 Delay 30 Call 移动 KeyUp "Right", 1 KeyUp "Up", 1 Delay 30 // KeyDown "Right", 1 KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Right", 1 KeyUp "Down", 1 Delay 30 /// KeyDown "Right", 1 KeyDown "Up", 1 Delay 30 Call 移动 KeyUp "Right", 1 KeyUp "Up", 1 Delay 30 KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 /// KeyDown "Left", 1 Delay 30 Call 移动 KeyUp "Left", 1 Delay 30 /// KeyDown "Down", 1 Call 移动 KeyUp "Down", 1 Delay 30 // KeyDown "Right", 1 Call 移动 KeyUp "Right", 1 Delay 30 /// KeyDown "Up", 1 Delay 30 Call 移动 KeyUp "Up", 1 Delay 30 /// KeyDown "Right", 1 Delay 30 Call 移动 KeyUp "Right", 1 Delay 30 /// KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 // KeyDown "Right", 1 Delay 30 Call 移动 KeyUp "Right", 1 Delay 30 // KeyDown "Up", 1 Delay 30 Call 移动 KeyUp "Up", 1 Delay 30 / KeyDown "Right", 1 Delay 30 Call 移动 KeyUp "Right", 1 Delay 30 // KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 // KeyDown "Right", 1 Delay 30 Call 移动 KeyUp "Right", 1 Delay 30 // KeyDown "Up", 1 Delay 30 Call 移动 KeyUp "Up", 1 Delay 30 / KeyDown "Right", 1 Delay 30 Call 移动 KeyUp "Right", 1 Delay 30 // KeyDown "Down", 1 Delay 30 Call 移动 KeyUp "Down", 1 Delay 30 /// KeyDown "Left", 1 Delay 30 Call 移动 KeyUp "Left", 1 Delay 30 /// Sub 移动 i = 0 While i=0 FindColor x0,y0,x1,y1,"C4714D",intX,intY If intX > 0 And intY > 0 Then xx=intX:yy=intY End If Delay 50 FindColor x0,y0,x1,y1,"C4714D",intX,intY If intX > 0 And intY > 0 Then If intX=xx and intY=yy Then i=1 End If Wend End Sub 题目:以下哪件商品或服务能在淘宝上发布? 答案:正规出版的企业黄页 题目:以下选项中哪个属于违规出价行为? 答案:之前有交易纠纷,卖家关闭了交易,于是拍光了他的商品 题目:下列哪种方式可以更好地保护自己实拍的图片,防止被他人盗用? 答案:在图片中添加自己的特色水印,并保存好当时实拍的原始图片 题目:能够通过正确的路径购买到商品是? 答案:MP3类目下购买纽曼MP3 题目:淘宝网禁止出售保护动植物及其制品,以下哪种饰品可以在淘宝上出售? 答案:钻石 题目:请选择商品没有错放类目的情况? 答案:表带放在手表配件下 题目:在我付款之后,卖家提高了商品价格,拒绝进行发货,我要发起什么投诉? 答案:付款未发货 题目:手机类目下,下面哪个宝贝标题描述没有乱用关键字? 答案:三星I8510,一口价2300元 题目:下列不属于流通硬币的是? 答案:背面长城一元硬币 题目:以下哪件商品是禁止在淘宝网上发布的? 答案:子弹壳做成的模型 题目:买家可以依据以下哪个情况,向淘宝发起“未履行承诺之服务”的投诉 答案:退货后卖家拒绝退款,淘宝介入后还是不同意 题目:以下哪件商品属于淘宝禁售商品? 答案:Cosplay金属制品的日本刀道具 题目:女装/女士精品类目下,以下哪种行为属于重复铺货? 答案:不同组合的孕妇装分别发布 题目:以下哪类商品仅限淘宝商城卖家出售? 答案:酒类 题目:以下哪种手机可以在淘宝上发布? 答案:发布店铺三包手机 题目:淘宝网禁止出售保护动植物及其制品,以下哪些不可以出售? 答案:蜥蜴 题目:淘宝网上禁止发布的商品是? 答案:枪用瞄准镜 题目:以下商品哪类允许发布? 答案:办公票据打印机 题目:下列哪种属于网上描述不符? 答案:qq类业务,描述中表示开1个月,不会掉但实际给买家开通业务后,买家使用3天就出现业务掉的情况,并提供了有效的凭证 题目:下列商品中哪个是淘宝禁止发布的? 答案:我国的军服 题目:以下那种情况属于类目错放? 答案:不锈钢蒸锅放在餐具类目 题目:下面哪些商品允许在淘宝网上发布? 答案:闹钟 题目:淘宝网禁止出售有毒化学物,下列不属于有毒化学物的商品是? 答案:食用香精 题目:警用和军用商品信息、设备,如监视、监听类设备、()、手铐、警灯、警笛、电击器、警用器械等,禁止在淘宝网出售。 答案:警服、警徽 题目:以下哪种行为不属于乱用关键字商品? 答案:商品标题提及的信誉度与实际信誉度相符的关键字:冲冠特卖,冲钻甩卖 题目:下列哪件商品不属于标题、图片、描述不一致的情况? 答案:某商品标题是五分袖衬衫、图片显示商品袖长在手臂中间位置 题目:以下哪种商品是属于信用炒作商品? 答案:电子书 题目:居家类目下将商品放置在正确类目下的是? 答案:收纳凳放置在收纳/储存类目下 题目:被投诉付款未发货的时候,卖家应该在申诉中提供怎么样的凭证? 答案:提供聊天记录截图,买家表示不买了 题目:美容护肤/美体/精油类目下,宝贝发布合理的是? 答案:中草药调理去黑头鼻膜~超神奇祛黑头 题目:小李想买一条黄金手链,那么他应该去哪个类目购买呢? 答案:黄金类目下 题目:以下不允许出售的是? 答案:烟斗丝 题目:某卖家,先在淘宝上开店,现在已经是皇冠卖家了,所以开了家实体店。店铺招牌写“淘宝特约授权皇冠精品实体店”。关于这个问题的说法正确的是? 答案:这样是侵犯淘宝商标或其它权益的,在未经允许的情况下是不行的 题目:以下商品发布正确的是? 答案:DISNEY迪士尼维尼熊靠垫 题目:以下哪种配件属于淘宝禁售商品? 答案:用于制作弹弓用品的皮筋 题目:以下各项中可以购买到实际商品的是? 答案:出售琥珀饰品特价30元 题目:硬币制作的“硬币戒指”是否允许出售? 答案:不允许出售 题目:下列商品中,哪一个商品不是违规广告商品? 答案:商品标价5元,商品描述中写由于年终搞促销,原价15元,现特价5元销售 题目:因不知道规则,盗用了别人的图片,现在被举报了,下列哪个做法是错误的? 答案:无所谓,被处理了再说 题目:以下哪类消费券允许出售? 答案:肯德基现金券 题目:6.10上线的新淘规则里,将违规行为分为几类 答案:2 题目:运动/游泳/健身/球迷用品类目下,价格、邮费相符的宝贝是? 答案:健身器械发布的快递费35元,所在地为江浙沪 题目:以下选项中哪种行为属于付款未发货? 答案:卖家表示之前跟买家有交易纠纷,怀疑买家现在为了报复要给差评,拒绝发货 题目:以下哪些宠物活体下卖家发布商品不属于违规现象? 答案:兔子一口价20元 题目:非名牌国产手机放在哪里? 答案:国货精品手机类目下 题目:在以下四个选项中,不属于付款未发货的是哪项? 答案:买家主动表示拍错了,不要购买了 题目:以下哪些属于发布违法商品或信息? 答案:山寨机放在品牌二手类目 题目:下列哪项属于卖家 答案:故意在未发货的情况下点发货,被买家发现后,表示点击发货为了让买家退款 题目:以下哪种情况没有违反商品管理规则的 答案:进口雅培,爱尔兰产 题目:买家收到东西后,说东西一般般,要不减10元,不降价就给差评。此种情况属于违反什么规则? 答案:恶意评价 题目:下列描述哪个是不可以出现在商品或者店铺中的? 答案:SM 题目:违反交通法规的商品淘宝网禁止出售,以下哪些不可以出售? 答案:汽车电子狗 题目:以下哪些商品属于乱用关键字? 答案:芭比娃娃淘宝最低价 题目:以下哪种情况不属于广告形式发布商品的是? 答案:定做MP3类商品 题目:以下哪些折扣券商品不属于商品图片标题描述不符的? 答案:商品为游泳券,放游泳池的图片 题目:淘宝网禁止出售药方,以下属于药方的是? 答案:治鼻炎秘方 题目:办公设备/文具/耗材类目下商品发布正确的是? 答案:小园丁电子词典发布在:电子词典/学习机 题目:以下哪种情况,不属于泄露个人信息? 答案:在社区发贴提供了旺旺聊天对话,将对方会员名隐去 题目:以下哪张地图不允许出售? 答案:军队作战绝密地图 题目:在以下描述中找出商品描述一致的正确答案? 答案:标题、图片都是长袖衬衫 题目:买家给了一个差评,多次沟通无果,卖家将其收货地址和姓名发布在评价解释中。此行为违反哪条规则? 答案:泄露他人信息 蜗? 题目:所发布的商品信息缺乏或者多种信息相互不一致的商品是? 答案:商品发布的图片是书包,标题是一本书 题目:下列哪些行为和言论在阿里旺旺上是被禁止的? 答案:侮辱、诽谤或攻击他人,侵害他人合法权益的 题目:下列内衣类目商品中,哪个是正确发布的? 答案:黛安芬一片式文胸功能属性选择了无痕功能 题目:淘宝以下哪部影片允许出售? 答案:科幻片 题目:下列哪个商品是不允许发布的? 答案:传奇私服 题目:以下哪些商品可以在淘宝网上出售? 答案:铅球 题目:淘宝禁止发布的商品是? 答案:外挂 题目:女士内衣/男士内衣/家居服类目下,以下哪种行为不是重复铺货行为? 答案:同种商品按照不同颜色展示出来 题目:出售仿象牙饰品需注明哪点? 答案:材质 题目:以下哪种不属于泄露个人信息? 答案:在注册为淘宝网用户或者支付宝用户时,用户自行上传到淘宝网的个人注册信息 题目:哪种成交行为是淘宝规则所禁止的? 答案:宝贝说明中说可以使用支付宝,但是说必须先确认付款再发货 题目:淘宝网禁止出售兴奋剂,以下属于兴奋剂的是? 答案:地塞米松 题目:以下哪种属于无效交易凭证? 答案:QQ聊天记录截图 题目:下列旅游景点门票商品中,哪一个商品不是违规广告商品? 答案:海底世界门票标价10元,商品描述中写原价是100元,现特价10元销售 题目:以下不属于淘宝网禁售的商品是? 答案:化肥 题目:下列哪种情况没有违反 答案:还没有发货,就要求买家确认 题目:以下哪种行为不当? 答案:未经淘宝授权,宝贝包装上有淘宝LOGO标识 题目:以下哪种是在靠垫抱枕类目下错误发布? 答案:优质颈椎修复保健枕 题目:户外/登山/野营/涉水用品类目下,以下放错类目发布的宝贝是? 答案:高尔夫球杆发布在户外/登山/野营/涉水类目 题目:请你挑选出价格正确的凤凰牌自行车? 答案:一口价1000元,快递30元 题目:女装/女士精品类目下,以下哪种情况不属于广告商品? 答案:韩国代购正品服饰时尚女装T恤 题目:哪种情况不属于恶意评价的受理范围? 答案:买家说我骂了他,给我差评 题目:下列哪些商品不允许出售? 答案:第四套人民币 题目:对于炒作信用度规则描述正确的是? 答案:交易双方以一方或双方增加“会员积累信用”为目的,虚构交易事实或实施其它足以影响他人“会员积累信用”的行为 题目:以下哪类单据,不允许出售? 答案:EMS邮政空白包裹单 题目:以下哪个商品不允许在淘宝上出售? 答案:无线隐形耳机 题目:女士内衣/男士内衣/家居服类目下,以下发布的宝贝价格/邮费相符的是? 答案:江浙沪卖家发布T恤80元,邮费8元 题目:以下商品中哪个不属于警用器材? 答案:轮滑头盔 题目:以下哪类跑腿服务允许发布? 答案:代送午餐、书信 题目:下面是属于类目错放的是? 答案:诺基亚5800原装电池放在诺基亚5800下 题目:销售摩托车,自行车等商品,哪种成交行为是淘宝禁止的? 答案:成交时拒绝使用支付宝 题目:当双方发生纠纷时,以下哪种行为没有违反淘宝规则? 答案:旺旺联系友好协商 题目:以下哪种商品的价格/邮费存在不符? 答案:香奈儿女士皮鞋优惠价0.01,邮费80元 题目:以下哪种情况没有违反商品管理规则的? 答案:发布5元的口罩 题目:以下哪些行为属于未履行承诺之服务? 答案:商品是承诺假一赔三的,买家提供检测证明货物是假的,但是卖家拒绝履行此承诺 题目:商品标题、图片、描述等一致的商品是? 答案:商品发布的图片为GPS,标题为GPS,描述为GPS 题目:发布游戏名为“天龙八部”的装备时,以下对图片要求正确的是哪个? 答案:宝贝图片:天龙八部穿云刀 题目:下面哪些商品禁止在淘宝网上发布? 答案:炮弹壳 题目:彩妆/香水/美发/工具目下,宝贝发布在正确类目下的是? 答案:粉扑放在美容工具下 题目:以下哪些商品属于广告商品? 答案:巴布豆相册诚招代理赚翻天 题目:国货精品手机类目发布商品不能出现哪些关键字? 答案:仿机、高仿、1:1、山寨机 题目:下列哪件商品不属于乱用关键字的情况? 答案:某商品标题为:淑女屋品牌夏季甜美格子优质小短裙,商品图片显示格子图案短裙 题目:淘宝网严禁出售黄赌毒商品信息,以下可以出售的是? 答案:介绍罂粟花的科普教材 题目:以下哪种商品在淘宝网上可以出售? 答案:瑞士军刀 题目:以下属于禁售品的是? 答案:冰毒 题目:您认为,以下选项中哪个不属于信用炒作商品? 答案:1元的q币 题目:下列哪项属于 答案:快递把货退回来了,那我不管了 题目:虚拟类目下,以下哪种行为不属于炒作信用度? 答案:0.8元出售一个Q币 题目:李明在淘宝网以多种形式发布了几款手表,以下哪种形式没有违反淘宝网的规则呢? 答案:同一款手表以不同颜色分开发布 题目:根据公安部《管制刀具认定标准》中管制刀具的定义为? 答案:开刃的礼品刀具、匕首、三棱刀,带有自锁装置的弹簧刀 题目:行货手机应该放在哪里? 答案:品牌手机类目下全国联保 题目:依照《中华人民共和国进出口商品检验法》第三十六条:伪造、变造、买卖或者盗窃商检单证、印章、标志、封识、质量认证标志的,依法追究刑事责任。以下哪类票证允许发布? 答案:蛋糕店提货单 题目:以下哪类商品可以出售? 答案:汉草 题目:女士内衣/男士内衣/家居服类目下,以下哪种行为不是广告商品? 答案:20元的批发价零售运动服 题目:卖家所发布的商品与选择的类目不一致的是? 答案:中国联通无线上网卡发布在中国联通下 题目:淘宝对卖家发布的商品数量是否有限制? 答案:都有限制 题目:用户有A类处罚的又有B类处罚的,需要进行几次考试 答案:2次,A类处罚期满,用户需要进行一次考试;B类处罚期满,用户也需要进行一次考试。两个处罚期都届满,且两个考试都通过了,处罚才能结束 题目:违反交通法规的商品淘宝网禁止出售,以下哪种属于该范畴? 答案:牌照隐形喷剂 题目:找出不属于对应类目的问题商品? 答案:藤编茶几放置在实木茶几下 题目:下列商品中,哪类商品是禁止在淘宝网上发布的? 答案:BB弹 题目:以下哪类商品是淘宝网淘宝禁止发布? 答案:我国军腰带 题目:以下哪类服务不允许发布? 答案:办假毕业证 题目:以下哪些信息禁止出现在食品类目宝贝描述里? 答案:真人秀对比图片 题目:下列哪些商品可以销售? 答案:根据银行卡发卡行的规定可以公开发布的银行卡收藏册、储值卡、纪念卡 题目:淘宝网允许出售的是? 答案:雪茄剪 题目:在收到违规出价的投诉时,下列哪种情况是错误的? 答案:听之任之 红叶伞totes伞 题目:淘宝网禁止发布违背市场规律和所属行业价格标准的商品,请你找出以下属于违规的商品是? 答案:捷安特自行车为1元,宝贝描述此商品388元才可购买 题目:下列哪种情况不是违规出价的行为? 答案:卖家表示买家的地址快递不到,所以未付款 题目:您认为,在以下选项中,哪种不属于乱用关键词商品管理规则? 答案:浙江-双超*豪华液压摇摆踏步机 题目:下列哪种情况的出价行为属于违规出价的行为? 答案:同行卖家的商品价格过低,为了不扰乱市场秩序,拍光了他的商品 题目:淘宝网禁止出售保护动植物及其制品,以下哪些可以在淘上出售? 答案:鱿鱼丝 题目:找出商品属性与发布商品所放置的类目一致的? 答案:空调放在家用电器下 题目:下列哪种行为不属于侵犯他人知识产权行为? 答案:自己使用实物拍摄 题目:下面哪些商品禁止在淘宝网上出售? 答案: 弹夹包 题目:为什么山寨机不能发布在品牌手机下? 答案:没有国家的入网许可 题目:标题中滥用品牌名称的商品是? 答案:可媲美周大福的小金猪 题目:当我被投诉的时候,以下做法不正确的是? 答案:找投诉方理论,质问对方凭什么投诉我 题目:买家已经拍下卖家的商品并付款了,但是买家说话不是很好听,卖家怕日后买家给差评,表示这个东西没有货了,让买家申请退款。请问违反了什么规则? 答案:成交不卖 题目:对新规则的描述以下哪个是正确的 答案:会员的违规行为将按照A类、B类分别扣分、分别累计、分别执行 题目:哪件折扣券商品没有放错属性或类目? 答案:商品为40元的帽子,放在价格区间为10元-100元价格区间的属性下 题目:下列哪件商品是允许发布的? 答案:OA系统软件 题目:什么行为是没有违反淘宝规则的? 答案:卖家很多天没有发货,我去申请退款 题目:如果想购买相机,以下标题哪个是正确的? 答案:佳能I90相机一口价2000元 题目:以下哪种图片属于实物拍摄图片? 答案:有网站图,又有店主实际拍摄的图片 题目:书籍类目下以下哪些商品可正常发布? 答案:国内正规出版社出版的小说,文学书籍 题目:手机类目下,以下哪种行为属于重复铺货? 答案:同种型号分开发布 题目:以下哪种行为不属于炒作信用? 答案:买家要购买不同款型的袜子,卖家让买家分开拍下 题目:以下哪种商品定价符合市场规律? 答案:发布150元的金士顿2G的U盘 题目:我已经付款6天,但是还有没有收到货物,交易显示“卖家已经发货,等待买家确认”,也联系不上卖家,我要怎么办? 答案:先查看一下物流信息,如果跟踪不到申请退款 题目:以下哪些不可以在淘宝上出售? 答案:松鼠 题目:下列游戏产品中哪个是不允许发布的? 答案:游戏外挂 题目:下列哪些商品是可以发布的? 答案:店铺装修 题目:下面哪类鲜花类目发布的商品不属于违规现象? 答案:花架可以发布在家具/家具定制/宜家代购类目下 题目:办公设备/文具/耗材类目下,哪种行为属于重复铺货? 答案:相同颜色的电子词典分别发布 题目:下列哪种情况属于违规出价? 答案:拍下多个卖家商品对比后觉得不喜欢,不要了 题目:以下哪种行为属于违规出价的行为? 答案:之前买了卖家的商品有问题,卖家未进行售后服务,就拍下卖家大量商品,要求卖家解决售后问题 题目:家具类目下以下哪些商品可正常发布? 答案:家具定制商品按实际价格发布在家具定制类目下 讯QQ商品中,下列哪个是不允许发布的? 答案:QQ死保号 题目:以下哪种商品为实际销售商品,而非广告商品? 答案:韩国代购三星原装移动硬盘 题目:以下哪类商品信息允许在淘宝网上发布? 答案:家政服务 题目:哪些商品是不能在淘宝上销售的? 答案:现役海军军服 题目:以下哪件商品违反了淘宝的发布规则? 答案:藏刀 题目:以下不能发布在护肤品类目下的商品是? 答案:香水 题目:运动/游泳/健身/球迷用品类目下,以下哪种行为不属于重复铺货? 答案:不同颜色款式相同的瑜伽服分别发布 题目:淘宝网禁止出售危害他人隐私以及安全的商品信息,以下哪类商品禁止在淘宝网出售? 答案:针孔摄像器 题目:下列哪些商品不属于禁止发布商品? 答案:qq无保号 题目:下列商品中哪种是不可以在淘宝上发布的? 答案:07式解放军常服 题目:女士内衣/男士内衣/家居服类目下,标题、图片、描述一致的是? 答案:标题、图片、描述都是针对同件商品 题目:以下哪件商品不能在淘宝上发布? 答案:上海世博会吉祥物“海宝” 题目:书籍类目下以下那种情况不属于商品违规? 答案:多系列的书籍捆绑销售 题目:支付宝最近一次登陆情况可以在()菜单项中查看。 答案:安全中心 皇粲诔醋餍形? 答案:卖QQ币成功后买家进行了评价 题目:属于恶意评价的是哪项? 答案:买家用差评威胁我降价 题目:以下哪种行为属于侵犯他人知识产权? 答案:我对别人的图片进行了一定的编辑,也加上了自己的店铺logo 题目:虚拟类目下,以下哪种行为属于重复铺货? 答案:50W欢乐豆5元发布多次 题目:以下对商品的描述中,哪类商品禁止出售? 答案:本电影为原版拷贝 题目:哪类行为不属于违规出价? 答案:点了“立刻购买”成功拍下后,我就需要履行我的购买义务 题目:同款商品不允许附带不同的附赠品以不同价格发售,诺基亚7610现价2500请你找出以下这组商品中正确的是? 答案:诺基亚7610配耳机2500元 题目:保护动植物及其制品不得出售,以下哪类动物属于保护动植物? 答案:梅花鹿鞭 题目:以下虚拟商品中可以在淘宝网销售的是? 答案:出售Q币 题目:下列哪件商品不是信用炒作? 答案:出售下市手机 题目:以下哪个商品属于炒作信用度商品? 答案:3D纸模的电子文档 题目:禁止出售的不合格商品会在淘宝哪个页面进行通告? 答案:淘宝网每周质量报告 题目:以下哪个商品不属于信用炒作商品? 答案:出售某火锅店的抵价券 题目:泄露以下哪些个人信息会被处罚? 答案:以上所有 题目:以下属于禁售商品的是? 答案:中华香烟 题目:以下哪种情况,属于发布标题、图片、描述等不一致商品? 答案:发布二手的诺基亚N72,使用诺基亚N72的官方图片 题目:成人类目下,以下哪种图片淘宝网是不允许使用的? 答案:低俗的图片 题目:黄赌毒是国家禁止出售的商品,以下属于毒品的是? 答案:三唑仑 题目:当您收到一个差评时,应该怎么办? 答案:联系对方,友好询问原因并在日后作改进 题目:以下哪种是不可以出售的? 答案:走私车 题目:以下哪种不属于广告商品? 答案:低价出售衣橱200元一个ID仅限购买一次 题目:以下属于商品正确发布的是? 答案:标题与图片相符,标题与描述相符 题目:我收到的商品出现问题,联系不上卖家,我要发起什么投诉? 答案:消保卖家实物商品,发起消费者保障计划的投诉 题目:女士内衣/男士内衣/家居服类目下,属于实际销售的商品是? 答案:女士短裤只售10元 题目:下列哪种行为不属于违反个人信息泄露的处罚规则? 答案:在评价解释中写:交易时发生发生误会的情况 题目:以下哪些情况不属于重复铺货? 答案:同款商品不同型号分别发布 题目:下列哪种情况违反数量限制的规则? 答案:1钻的卖家玩具类目下发布6000件商品 题目:以下商品允许发布的是? 答案:金融书籍 题目:以下哪种情况不违反标题、图片、描述等不一致商品管理规则? 答案:虚拟商品,没有任何图片 题目:滥用网络搜索方式实现其发布的商品排名靠前的是? 答案:金士顿4G闪存卡,一口价99999元 题目:女装/女士精品类目下,以下商品发布在正确的二三类目下的是? 答案:披肩发布在短外套下 题目:女士内衣/男士内衣/家居服类目下,商品类目放置正确的是? 答案:女士腰带放进腰带 题目:以下不是催情药成份的是? 答案:钙水混合物 题目:标题与实物图片描述的是一致的商品是? 答案:标题为茶杯特卖20元一只,图片为蓝色的茶杯 题目:下列不属于闲置商品发布规则的是 答案:闲置商品的发布无需遵循商品发布管理规则 题目:女装/女士精品类目下,商品标题没有乱用关键字,描述合理的是? 答案:精美奢华亮钻刺绣无弹铅笔裤型小脚牛仔裤 题目:书籍类目的3钻以上卖家,允许发布的商品最大上限是多少? 答案:300000 题目:以下哪种商品允许出售? 答案:烧号手机 题目:书籍下5星卖家店铺中书籍类商品数量最多可以发布多少件? 答案:3000件 题目:下列哪种情况不属于恶意评价? 答案:凡是因为物流而引起的中差评(如少货、到货时间晚等等情况) 题目:下列服饰配件类目商品中,哪个是错误发布的? 答案:做外套穿的针织披肩发布在“服饰配件/皮带/帽子/围巾>围巾/丝巾/披肩”类目下 题目:以下哪种情况属于属性错放? 答案:苏泊尔汤锅放在爱仕达品牌下 题目:同款商品不允许按商品大小规格分别发布的是? 答案:内衣 题目:以下哪些商品禁止在淘宝网上出售? 答案:弹壳类商品 题目:以下商品不允许发布的是? 答案:股票 题目:以下哪种商品在淘宝网上禁止出售? 答案:铅弹 题目:下面是淘宝网的禁售品的是? 答案:otc商品 题目:以下哪项属于支付方式正确? 答案:500元梦幻点卡,支付宝交易 题目:以下哪种批号的商品不允许出售? 答案:国药准字 题目:火药、导火线、()、炮粉等属于爆炸物的材料,淘宝网禁止出售? 答案:硝化棉 题目:您认为,哪个选项是 答案:卖家表示资金周转困难,希望通过汇款的方式,不通过支付宝,尽快完成交易 题目:以下商品发布,选择正确属性的是? 答案:开衫夏装属性为开衫 题目:以下哪类商品允许发布? 答案:1990年收藏的第一张彩票 题目:以下哪种商品不允许出售? 答案:催情咖啡 题目:以下哪种商品不可以出售? 答案:汽车牌照翻转架 题目:下列男装类目商品中,哪个是正确发布的? 答案:男士羊皮马甲发布在“男装>背心”类目下 题目:装潢建材类目下哪个商品标题不属于违规情况? 答案:大师漆晶典水性全环保木器白哑面漆2.5KG 题目:以下商品关键字应用最恰当的是? 答案:蒂凡尼超美14k黄金手链 题目:手机类目下,商品发布信息合理的是? 答案:行货手机放在品牌手机下 题目:恩威牌倩影减肥片,卫食健字(2002)第0256号,应该发布在哪个类目下? 答案:保健食品 题目:淘宝网禁止出售药品,以下属于药品的是? 答案:香丹注射液 题目:以下商品可以按大小规格不同发布的是? 答案:15ML和30ML的同款乳液 题目:我因为不知道规则,使用了别人的图片,现在被举报了,我该怎么办? 答案:立刻下架或修改违规商品,并在申诉时对举报方表示歉意 题目:以下搜索结果中找出是欧莱雅品牌的化妆品? 答案:欧莱雅新款深层洁面啫喱 题目:下列商品中,哪一个商品价格邮费不符合 答案:商品是一条女士内裤,售价5元,国内邮费设置为30元 题目:以下哪种行为属于发布信用炒作商品的行为? 答案:发布1个QB,注明“购买时需要分次拍下,否则不发货” 题目:以下哪些商品属于商品价格邮费不符? 答案:芳香杜松果纤体紧实按摩精油1公斤120元邮费20元 题目:下列哪种情况不属于付款未发货? 答案:买家主动表示拍错了,不要购买了 题目:以下哪种情况,属于泄露个人信息? 答案:社区发帖公布对方旺旺名称,电话,姓名,住址 题目:以下哪种情况属于重复铺货行为? 答案:5个尺码的鞋子分别发布 题目:以下哪种情况不违反商品价格、邮费不符商品管理规则? 答案:魔兽世界货币只能以金为单位发布,而不能以银/铜为单位发布 题目:淘宝网禁止出售保护动植物及其制品,以下哪种不能在淘宝上出售? 答案:蛇 题目:哪种商品不是信用炒作商品? 答案:网店装修 题目:电脑硬件/台式整机/网络设备类目下,商品发布信息合理的是? 答案:发布18元的鼠标 题目:你认为,以下选项中哪个不属于重复铺货行为? 答案:同款商品,不同组合方式在一个宝贝描述里展示 题目:下列哪种行为是不属于广告商品? 答案:出售二手闲置的手机 题目:有毒化学物对人体有很大的伤害,下列属于有毒化学物的是? 答案:敌敌畏 题目:黄赌毒是国家禁止出售的商品,以下不属于毒品的是? 答案:冰糖 题目:违反交通法规的商品淘宝网禁止出售,以下哪种不属于该范畴? 答案:车载MP3 题目:以下哪种行为不属于违反“其他违反法律、道德或公序良俗的行为”规则的? 答案:有人盗用我的图片,我通过旺旺提醒他更换图片 题目:和卖家协商好退款,卖家已经退款了,我的钱在哪里? 答案:我的支付宝账户 题目:女士内衣/男士内衣/家居服类目下,宝贝标题描述合理的是? 答案:黛安芬棉无痕3/4中厚定型聚拢托胸 题目:我是买家,我的交易已经结束了,但是商品有问题,我已经退还给卖家了。这时,以下的哪些操作是错误的? 答案:联系不上卖家,我就拍卖家的商品逼他出现 题目:下列哪种情况属于付款未发货? 答案:买家拍下付款后,卖家说要增加邮费才肯发货 题目:以下几种商品中,哪个是淘宝网限制发布的? 答案:第五套人民币 题目:以下几种商品中,哪个不是淘宝网的禁售商品? 答案:NIKE运动鞋 题目:某会员发布了以下商品,其中商品在选择类目及属性正确的是? 答案:金士顿U盘发布在金士顿品牌规划 题目:电脑硬件/台式整机/网络设备类目下,商品标题描述合理的是? 答案:高性能,低价格雷蛇鼠标,游戏玩家专用 题目:选择一款正确发布的商品? 答案:衣橱特价50元 题目:以下哪个商品不属于炒作信用度商品? 答案:在商品描述里粘贴了其它买家对这款产品的评价语 题目:以下几种商品中,哪个是淘宝网的禁售商品? 答案:弹簧刀 题目:淘宝网禁止出售有毒中药材,以下不允许出售的药材是? 答案:鹤顶红 题目:下列哪个商品是淘宝网上禁止发布和出售的? 答案:邮件群发器 题目:炒作信用一旦被发现会被扣几分? 答案:12 下是女用口服催情类商品的是? 答案:催情巧克力 题目:下列哪种情况属于违规出价的行为? 答案:拍了10多个卖家的商品进行比较后又觉得不喜欢,不要了 题目:以下不是保健食品必要的索证证件? 答案:食品QS证书 题目:下面哪件毛绒玩具不能在淘宝上出售? 答案:福娃 题目:以下哪件商品禁止在淘宝网上发布? 答案:QQ游戏作弊器 题目:哪件商品没有放错属性或类目? 答案:纯棉T恤面料,发布在T恤类目下 题目:下列女装类目商品中,哪个是错误发布的? 答案:背心裙发布在半身裙类目下 题目:我收到了“违规出价”的处罚,要怎样才能撤销? 答案:上传医院证明,证明我当时生病了,并没有上淘宝,可能被盗了 题目:彩妆/香水/美发/工具类目下,宝贝标题描述中乱用关键字的是? 答案:日本保健木梳/日本保健按摩木梳/日本木梳 题目:以下哪种情况属于违规发布商品? 答案:宝贝一口价1元,而邮费是100元 题目:以下发布山寨机的方式哪种是正确的? 答案:山寨机发布在国货精品手机类目对应品牌型号下 题目:下列哪种软件是允许发布的? 答案:工程应用软件 题目:淘宝网禁止出售滥用品牌名称的商品,请找出滥用品牌名称的商品? 答案:仿路易威登的古奇女士珍品皮包 题目:下列商品中哪类是淘宝禁止发布的? 答案:电警棍 题目:以下商品中属于正确发布的是哪个? 答案:笔记本电脑桌25特卖 题目:以下哪个商品允许在淘宝网上出售? 答案:插座 题目:以下哪类商品禁止在淘宝网上发布商品信息? 答案:香烟 题目:虚拟类目下,以下哪项不属于广告商品? 答案:直充话费 题目:卖家在自己的店铺中发布了很多商品,以下商品表述有明显信誉炒作行为的是? 答案:出售Q币0.65元一个ID只能购买一个 题目:以下哪种行为属于炒作信用度? 答案:同一公司的同事之间的虚假交易 题目:根据《浙江省公安厅关于进一步规范印章业治安管理工作的通知》、《浙江省刻字业治安管理办法》等法律法规的规定,以下商品暂允许发布的是? 答案: 题目:以下哪种商品禁止在淘宝网上出售? 答案:采血针 题目:以下哪件商品能在淘宝上发布? 答案:海绵宝宝 题目:以下不属于禁售品的是? 答案:一次性过滤嘴 题目:以下哪类服务性商品允许发布? 答案:车辆出租、代驾服务 题目:运动/游泳/健身/球迷用品类目下,以下选错属性发布的宝贝是? 答案:全新瑜伽服宝贝发布在二手属性 题目:违规商品累计数(除禁售品及侵权商品外)多久进行清零? 答案:一个季度 题目:能够通过正确的路径买到商品是? 答案:MP3类目下购买纽曼MP3 题目:下列哪种行为不属于侵犯他人知识产权的行为? 答案:自己是新手,不能拍出效果好的图片,发现某家图片特别漂亮,和对方沟通,获得对方同意许可后使用对方图片 题目:对于虚假交易规则描述正确的是? 答案:通过不正当方式提高账户信用,妨害买家高效购物权益的行为 题目:下列哪一个命令不在"全部命令"中? 答案:内核命令 题目:按键精灵里运算符中的减号是? 答案:-(减) 题目:KeyDown命令的作用是? 答案:按下 题目:鼠标单击右键的命令是? 答案:RightClick 题目:控制鼠标的左键单击的命令是? 答案:LeftClick 题目:下列基本的命令中不属于按键精灵的是? 答案:启动命令 题目:相对移动鼠标的命令是? 答案:MoveR 题目:以下哪一种方式不能做到无限次数循环? 答案:在脚本开头加入"For 10000",脚本尾部加入"Next" 题目:鼠标所在位置为(50,50),经过 MoveTo 50,100 命令后鼠标所在位置为: 答案:50,100 题目:无法实现键盘按住"A"键的命令是? 答案:KeyPressW "A",1 题目:下列选项中哪一个不是逻辑运算符? 答案:Const 题目:能让脚本停止运行的命令是哪一个? 答案:EndScript 题目:下列哪一个是操作键盘命令? 答案:KeyPress 题目:以下哪一个命令能够暂停脚本? 答案:WaitKey 题目:弹起鼠标左键的命令是? 答案:LeftUp 题目:键盘按键回车的按键码是? 答案:13 题目:按下鼠标左键的命令是? 答案:LeftDown 题目:下列哪一个不是鼠标相关命令? 答案:LeftThreeClick 题目:十六进制值"FFFFFF"是什么颜色? 答案:白色 题目:鼠标所在位置为(0,50),运行命令 MoveTo 50+50,100 之后鼠标所在位置为? 答案:100,100 题目:下面选项中哪个是循环的命令? 答案:Do...Loop 题目:按下组合键"CTRL+C"的正确按键先后顺序是? 答案:按下"CTRL",点击"C",弹起"CTRL" 题目:锁定当前鼠标位置是下列哪一个命令? 答案:LockMouse 题目:下列哪一个不是键盘相关命令? 答案:KeyClick 题目:下列哪一个按键的按键码是105 答案:NUM 9 题目:鼠标单击中键的命令是? 答案:MiddleClick 题目:FindMultiColor命令的颜色特征点最少为几个? 答案:2 题目:判断C:\ajjl.txt是否存在,存在则报警,请给出代码。 答案:IsFile = Plugin.File.IsFileExist("C:\ajjl.txt") If IsFile = True Then Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(523, 200) End If 题目:判断字符串str是否为数字,是则弹出信息提示框"这是一个数字",请给出代码。 答案:Dim str, temp str="123" temp = IsNumeric(str) TracePrint temp If temp = True Then MessageBox "这是一个数字" 题目:哪一方法能找到对应命令的使用说明? 答案:在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 题目:下列RGB颜色值中,哪一个书写错误? 答案:"FFFFFFFF" 题目:按键码五十三是下列哪一个按键? 答案:5 题目:3分钟延迟,以下哪一句代码是正确的? 答案:Delay 1000*60*3 题目:附件中哪一类文件可以不经释放可以直接使用? 答案:BMP 题目:以下哪一个思路属于自动打怪的? 答案:检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作 题目:Msgbox "anjian"&1 将会弹出什么内容? 答案:anjian1 题目:返回值=Round(3.141592,5),求返回值是什么? 答案:3.14159 题目:FindColorEx模糊找色命令支持几种查找类型? 答案:3 题目:把字符串"520"转换为数值型,要求三种方式,请作答。 答案:t = "520" t = (t - 1) + 1 TracePrint IsNumeric(t) t = "520" t = Clng(t) TracePrint IsNumeric(t) t = "520" t=Mid(t,1,1)*100+Mid(t,2,1)*10+Mid(t,3,1)*1 TracePrint IsNumeric(t) 题目:循环如果a=b,且c=0,则c=1,如果a=b,且c=1,则退出循环,请给出代码。 答案:i = 0 While i = 0 If a = b and c = 0 Then c = 1 If a = b and c = 1 Then i = 1 Wend 题目:判断数字a是否为3的倍数或者以3为尾数,是则弹出信息提示框,请给出代码。 答案:a = 993 a = CStr(a) If Right(a, 1) = "3" Then MessageBox "以3为尾数" If a Mod 3=0 Then MessageBox "为3的倍数" 题目:关于Msgbox命令描述错误的是? 答案:Msgbox命令一定没有返回值 题目:生成5个1~10(含1和10)之间的随机数字,用函数计算出是否存在其中三个数的和为10的倍数,存在返回1,不存在返回0 (牌类游戏:牛牛),请写出代码 答案:Dim a, b(4) a=array(1,2,3,4,5,6,7,8,9,10) i=0 For 5 Randomize b(i) = Int(10* Rnd + 1) i=i+1 Next TracePrint b(0) & "|" & b(1) & "|" & b(2)& "|" & b(3) & "|" & b(4) i=0 For 5 m=0 For m = 0 to 4 If m <> i Then For n = 0 To 4 If n <> i and n <> m Then If (b(i)+b(m)+b(n)) mod 10 =0 Then TracePrint b(i) & "|" & b(m) & "|" & b(n) MessageBox 1 EndScript t = t + 1 End If End If Next End If Next i=i+1 Next MessageBox 0 题目:现有100名运动员参加100米比赛,运动员跑道数为6,将100名运动员随机分组,保证每条跑道都有人。请写出代码 答案:Dim 运动员(99),上道运动员(99) For i=0 to 99 运动员(i) = i+1 上道运动员(i)=0 Next i = 0 For 组=1 to 17 For 道=1 to 6 Rem aaa Randomize temp = Int(100 * Rnd) temp = 运动员(temp) For t = 0 To 99 If temp = 上道运动员(t) Then Goto aaa Next 上道运动员(i)=temp TracePrint "第"&上道运动员(i)&"名运动员分在第"&组&"组上"& 道 &"道" i = i + 1 Next Next 题目:写一个子程序Sub 子程序(记事本句柄, 分辨率X, 分辨率Y),要求实现对记事本中“文本子窗口”做自定义大小改变 答案:Call 子程序(268508, 800, 800) Sub 子程序(记事本句柄, 分辨率X, 分辨率Y) Hwnd = Plugin.Window.FindEx(记事本句柄, 0, "Edit", 0) For i=0 to 2000 Call Plugin.Window.Size(记事本句柄, 分辨率X + i, 分辨率Y) Hwnd = Plugin.Window.FindEx(268508, 0, "Edit", 0) sRect = Plugin.Window.GetWindowRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3)) If 分辨率X = CLng(W2 - W1) Then Exit For Next For m=0 to 2000 Call Plugin.Window.Size(记事本句柄, 分辨率X+ i , 分辨率Y+ m) sRect = Plugin.Window.GetWindowRect(Hwnd) dim Array Array = Split(sRect, "|") W1 = Clng(Array(0)): H1 = Clng(Array(1)) W2 = Clng(Array(2)) : H2 = Clng(Array(3)) TracePrint H2-H1 if 分辨率Y=CLng(H2-H1) Then Exit For Next End Sub 题目:遍历一个窗口的所有子窗口,返回符合条件(标题或类名)的窗口句柄,请写出函数(遍历子窗口). 答案:dim HwndEx Hwnd = Plugin.Window.Foreground() For 255 For 255 HwndEx = Plugin.Window.FindEx(Hwnd, Hwnd0, 0, 0) Hwnd0=HwndEx If Hwnd0 <>"" and Hwnd0 <>0 sClass=Plugin.Window.GetClass(Hwnd0) sText=Plugin.Window.GetText(Hwnd0) TracePrint "⊙句柄:" & Hwnd0 & " 类名:" & sClass & " 标题:" & sText While true hwnd1= Plugin.Window.FindEx(Hwnd0, hwnd1, 0, 0) If hwnd1<>0 sClass=Plugin.Window.GetClass(Hwnd1) sText=Plugin.Window.GetText(Hwnd1) TracePrint "┗━⊙句柄:" & hwnd1 & " 类名:" & sClass & " 标题:" & sText While true hwnd2= Plugin.Window.FindEx(hwnd1, hwnd2, 0, 0) If hwnd2<>0 sClass=Plugin.Window.GetClass(Hwnd2) sText=Plugin.Window.GetText(Hwnd2) TracePrint " ┗━⊙句柄:" & hwnd2 & " 类名:" & sClass & " 标题:" & sText While true hwnd3= Plugin.Window.FindEx(hwnd2, hwnd3, 0, 0) If hwnd3<>0 sClass=Plugin.Window.GetClass(Hwnd3) sText=Plugin.Window.GetText(Hwnd3) TracePrint " ┗━⊙句柄:" & hwnd3 & " 类名:" & sClass & " 标题:" & sText While true hwnd4= Plugin.Window.FindEx(hwnd3, hwnd4, 0, 0) If hwnd4<>0 sClass=Plugin.Window.GetClass(Hwnd4) sText=Plugin.Window.GetText(Hwnd4) TracePrint " ┗━⊙句柄:" & hwnd4 & " 类名:" & sClass & " 标题:" & sText Else Goto e End If Wend Rem e Else Goto d End If Wend Rem d Else Goto c End If Wend Rem c Else Goto b End If Wend Else Goto a End If Next Rem b Next Rem a 题目:如下代码,c的值为? a = 1 : b = - 1 c = a and b 答案:1 题目:限制鼠标范围在屏幕坐标(200,300)到(500,600)范围内,超出范围则回到边界(鼠标范围限制),请写出代码。 答案:Call 限制鼠标范围(200,300,500,600) Sub 限制鼠标范围(x1,y1,x2,y2) Do GetCursorPos x, y If x < x1 Then x = x1 If x > x2 Then x = x2 If y < y1 Then y = y1 If y > y2 Then y = y2 MoveTo x, y TracePrint x&", "&y Loop End Sub 题目:如果鼠标停止动作超过5秒,则执行弹出信息提示框\"鼠标停止动作\",请写出代码 答案:Dimenv key BeginThread 计时() BeginThread 鼠标() Do Delay 1000 Loop Sub 鼠标() Do key = WaitClick() Loop End Sub ExitScript Sub 计时() Do Dim x, y,x1, y1 GetCursorPos x, y key=0 Delay 5000 TracePrint "计时" GetCursorPos x1, y1 If x = x1 and y = y1 and key=0 then MessageBox "鼠标停止动作" End If Loop End Sub 题目:写一个函数,要求:使用单点找色功能写出多点找色效果。 提示:多点找色命 答案:x0=0:y0=0:x1=1024:y1=768//整数型,找色区域 颜色值="00B8FA"//参数5 字符串型,第一点16进制颜色值 符合偏移点颜色组 = "1|0|00B8FA,3|0|00B8FA" Call 单点找色功能写出多点找色效果(240,405,250,410, "00B8FA", "1|0|00B8FA,3|0|00B8FA") Function 单点找色功能写出多点找色效果(x0, y0, x1, y1, 第一点16进制颜色值, 符合偏移点颜色组) Dim xy, 坐标加颜色, a, b xy = "-1|-1" 坐标加颜色 = split(符合偏移点颜色组, ",") For y = y0 To y1 Delay 5 For x = x0 To x1 Delay 5 IfColor x, y, 颜色值, 0 Then xy = x & "|" & y For i = 0 To Ubound(坐标加颜色) Delay 5 a = InStr(坐标加颜色(i), "|") : b = InStrRev(坐标加颜色(i), "|") x = x + Clng(Mid(坐标加颜色(i), 1, a - 1)) : y = y + Clng(Mid(坐标加颜色(i), a + 1, b - a - 1)) IfColor x, y, 颜色值, 1 Then xy = "-1|-1" Exit For End If Next End If If xy <> "-1|-1" Then Exit For Next If xy <> "-1|-1" Then Exit For Next MessageBox xy End Function 题目:要求利用系统时间随机生成五十个0~1之间的伪随机数(包括小数),要求:不能看出明显规律,不能使用Randomize与Rnd命令,保留8位小数。 答案:sTime = Plugin.Sys.GetTime() TextMD5 = Plugin.Encrypt.Md5String(sTime) For i=1 to 50 TextMD5 = Plugin.Encrypt.Md5String(TextMD5) TextMD5 = Lib.算法.提取字串符中所有数字(TextMD5) TextMD5 =Mid(TextMD5,1,8) TextMD5 = "0." & TextMD5 TextMD5=CDbl(TextMD5) TracePrint "第"&i&"个伪随机数="&TextMD5 Next 题目:写一个脚本,要求:利用插件Media中的Beep命令,写出“土耳其进行曲”歌曲! 提示:乐谱请百度~此外乐曲重复段落使用Sub调用,禁止重复代码,节奏稍稍把握调整。 答案:Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call a() // EndScript Call a() // EndScript Call b() // EndScript CalL b() // EndScript Call c() // EndScript Call c() EndScript Sub a() //102171 Call Plugin.Media.Beep(1046, 400) Delay 400 Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) //304323 Call Plugin.Media.Beep(1318, 400) Delay 400 Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) //76567656 Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) //161 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 400) //7656 Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 400) //7656 Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1397, 400) //3 7856 Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) End sub //334 Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) Sub b() //556543 Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) //234 Call Plugin.Media.Beep(1175, 800) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) //55 6543 Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) //212 Call Plugin.Media.Beep(1175, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //334321 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) //712 Call Plugin.Media.Beep(988, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //334321 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) //77656 Call Plugin.Media.Beep(988, 800) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) //102171 Call Plugin.Media.Beep(1046, 400) Delay 400 Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) //304323 Call Plugin.Media.Beep(1318, 400) Delay 400 Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) //76567656 Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) //167 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1976, 400) //1765 Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) //6342 Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) Call Plugin.Media.Beep(1175, 400) //1 7 67 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(988, 600) Call Plugin.Media.Beep(880, 100) Call Plugin.Media.Beep(988, 100) //634 Call Plugin.Media.Beep(880, 800) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) End sub //612 Call Plugin.Media.Beep(880, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) Sub c() //312 Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //3217 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) //6712 Call Plugin.Media.Beep(880, 400) Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //7512 Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(784, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //312 Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) //3217 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(988, 400) //6275 Call Plugin.Media.Beep(880, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(784, 400) //112 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) End Sub //1 3432 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) //12176176 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) //56753453 Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) //65671712 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) //32323432 Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) //12176176 Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) //56753453 Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(698, 200) //45642342 Call Plugin.Media.Beep(578, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(578, 200) //3 3432 Call Plugin.Media.Beep(659, 800) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) //35432 Call Plugin.Media.Beep(659, 800) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(578, 200) //12345671 Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(578, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) //17655432 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(578, 200) //12345671 Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(578, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) //125432 Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(578, 200) //12345671 Call Plugin.Media.Beep(523, 200) Call Plugin.Media.Beep(578, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) //17655432 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(578, 200) 题目:下列中的RGB颜色值,书写无误的是? 答案:"DD" 题目:FindMultiColorEx命令有几个参数? 答案:8 题目:MsgBox命令最多可以使用几个参数? 答案:5 题目:关于用户自定义变量(UserVar)的描述以下哪一个是错误的? 答案:自定义变量在脚本中不可以修改变量值 题目:PrintScreen命令支持哪种格式截图? 答案:jpg 题目:False的值是? 答案:0 题目:由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为? 答案:&H323232 题目:下列代码报错。请给出原因: IfColor "860,27","E1B072",0 Then MessageBox "颜色等于" Else MessageBox "颜色不等于" End If 请作答 答案://参数是坐标值,不能用引号 IfColor 860,27,"E1B072",0 Then MessageBox "颜色等于" Else MessageBox "颜色不等于" End If 题目:判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码。 答案:str = "1231 213" For i=1 to Len(str) temp = Mid(str, i, 1) If temp=" " Then MessageBox "存在空格" Next 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容" Sub OnScriptLoad() MsgBox a End Sub 答案:空 题目:脚本中只有一行代码DimEnv a:MsgBox a,弹出的值为3,可能的原因是? 答案:其他脚本中给环境变量a赋值了 题目:弹出对话框 a, b 的值分别是多少? a=0 Call 值 BeginThread 值 MessageBox a MessageBox b Sub 值 a = a + 1 答案:a=1,b=2 题目:以下哪个常数可能是Msgbox的返回值? 答案:vbAbort 题目:请问以下脚本a的弹出值是多少? DimEnv a a = 30 Call xfun(a) MsgBox a Function xfun(x1) x1=15 a=5 x1=x1+a 答案:5 题目:以下哪一个命令不会暂停当前脚本? 答案:for...next 题目:鼠标让右键弹起的命令是? 答案:RightUp 题目:下面哪一个命令会将脚本暂停? 答案:MsgBox 题目:延迟三秒,以下哪一句代码是正确的? 答案:Delay 3000 题目:下列哪一个是循环的命令? 答案:While...Wend 题目:UserVar Var1=DropList{"选项1":"值1"|"选项2":"值2"|"选项3":"值3"|"选项4":"值4"}=n "设置内容",问初始参数Var1="值2"时,n是多少? 答案:1 题目:如下代码提示:没有找到界面元素,可能是什么原因?(请至少列出两种可能原因) Event Form.Button1.Click End Event 请作答。 答案:///1界面没有添加Form.Button1按钮组件 ///2按键默认窗口名为Form1,可能是窗口名称Form不对 题目:使用自定义变量设置间隔时间(单位:秒),循环按键2并延时,请作答。 答案:UserVar 变量=2 "设置间隔时间(单位:秒)" Do KeyPress "2", 1 Delay 变量*1000 Loop 题目:切换所有窗口标题包含"Internet Explorer"关键字符的窗口,请作答。 答案:HwndEx = Plugin.Window.Search("Internet Explorer") dim MyArray MyArray = Split(HwndEx, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) Hwnd=MyArray(i) Call Plugin.Window.Active(Hwnd) i=i+1 Next End If 题目:写一个函数:在0,0,800,900范围内,鼠标随机移动两次,请作答。 答案:MoveTo 取随机数(0,800),取随机数(0,900) GetCursorPos x, y TracePrint x&","&y MoveTo 取随机数(0,800),取随机数(0,900) GetCursorPos x, y TracePrint x&","&y Function 取随机数(lowerbound,upperbound) Randomize 取随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Function 题目:请检查错误,回答正确的代码: FindPic 0, 0, 800, 600, "Attachment:\ajjl.bmp", 1.0, ajjl.bmpX, ajjl.bmpY If ajjl.bmpX > 0 And ajjl.bmpY > 0 Then End If 请作答。 答案:变量命名不符合命名规则"."不能用 题目:按键精灵“录制”功能所不能录制的内容是? 答案:记录鼠标指向的窗口句柄 题目:读取路径为C:\ajjl.txt记事文本中所有内容,弹窗显示,请作答。 答案:Text = Plugin.File.ReadFileEx("C:\ajjl.txt") MessageBox Text 题目:定义一个数组MyArray(10),从MyArray(0)=0开始赋值,到MyArray(10)=10(提示:MyArray(i)=i),请给出代码。 答案:Dim MyArray(10) For i = 0 To 10 MyArray(i)=i Next 题目:关于用户自定义变量(UserVar)的描述以下哪一个是正确的? 答案:自定义变量可以存数字或者字符串 题目:写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值。 答案:MessageBox 加法(1, 2) Function 加法(x,y) 加法=x+y End Function 题目:请问以下脚本a的弹出值是多少? DimEnv a a = 30 Call xfun(a) MsgBox a Function xfun(x1) x1=15 a=5 答案:5 题目:GetCursorShape命令有几种获取鼠标形状的方式? 答案:2 题目:请按以下叙述编写一个函数 要求:已知一维数组a(100), a(1)=1 : a(2)=2 (假设下标从1开始) 从数组的第三项(a(3)开始):后面的每一个元素等于前二个元素之和 例如:a(3)=a(2)+a(1) : a(20)=a(19)+a(18) : a(100) = a(99) + a(98) 现:要求编写一个具有 一个参数的函数:这个参数是指定数组的下标,函数返回值是数组下标的对应值 例如:我编写的函数为名 f(x) , 那么当我带入f(50) 的时候,函数的返回值应该是a(50)的值 答案:MessageBox f(5) Function f(x) Dim a(100), f a(1) = 1 : a(2) = 2 If (x = 1) Then f = a(1) ElseIf (x = 2) Then f = a(2) ElseIf (x >= 3) Then For b=3 to x a(b)=a(b-1)+a(b-2) Next f=a(x) End If End Function 题目:写一个脚本,要求识别特点窗口是否存在,不存在则提示,已知窗口类名与标题信息,判断句柄(句柄是未知的)是否存在,至少给出三种方式,请写出代码。 答案:窗口类名 = "Notepad" 窗口标题 = "无标题 - 记事本" //第一种方法 HwndEx = Plugin.Window.Search("无标题 - 记事本") TracePrint HwndEx If HwndEx = "" Then MessageBox "窗口不存在" //第二种方法 HwndEx = Plugin.Window.SearchEx(Notepad, "无标题 - 记事本", 1) TracePrint HwndEx If HwndEx = "" Then MessageBox "窗口不存在" //第三种方法 Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本") TracePrint Hwnd If Hwnd =0 Then MessageBox "窗口不存在" 题目:写两个函数。 函数1要求:对一段字符串进行加密处理,返回一段新的字符串,且每次对同样字符串进行加密处理返回结果都不可一样。(随机密钥) 函数2要求:把以上函数加密返回的字符串信息进行解密还原处理。 提示:字符串不包含非法特殊符号 答案:str = 简单加密("ABC123") TracePrint str MessageBox 简单解密(str) Function 简单加密(str) Dim a Randomize m=Int(89998 * Rnd + 10000) Randomize n = Int(10 * Rnd) For i = 1 To len(str) t = Asc(mid(str, i, 1)) t=Chr(t+n) a=a&t Next 简单加密 = m & a & n End Function Function 简单解密(str) Dim a t0 = Mid(str, 6, Len(str) - 6) n = right(str, 1) For i = 1 To len(t0) t = Asc(mid(t0, i, 1)) t = Chr(t - n) a=a&t Next 简单解密 = a End Function 题目:请按以下叙述编写一个函数 要求:已知一维数组a(100), a(1)=1 : a(2)=2 (假设下标从1开始) 从数组的第三项(a(3)开始):后面的每一个元素等于前二个元素之和 例如:a(3)=a(2)+a(1) : a(20)=a(19)+a(18) : a(100) = a(99) + a(98) 现:要求编写一个具有 一个参数的函数:这个参数是指定数组的下标,函数返回值是数组下标的对应值 例如:我编写的函数为名 f(x) , 那么当我带入f(50) 的时候,函数的返回值应该是a(50)的值 答案:MessageBox f(50) Function f(x) Dim a(100), f a(1) = 1 : a(2) = 2 If (x = 1) Then f = a(1) ElseIf (x = 2) Then f = a(2) ElseIf (x >= 3) Then For b=3 to x a(b)=a(b-1)+a(b-2) Next f=a(x) End If End Function 题目:写两个函数。 函数1要求:对一段字符串进行加密处理,返回一段新的字符串,且每次对同样字符串进行加密处理返回结果都不可一样。(随机密钥) 函数2要求:把以上函数加密返回的字符串信息进行解密还原处理。 提示:字符串不包含非法特殊符号 答案:str = 简单加密("ABC123") TracePrint str MessageBox 简单解密(str) Function 简单加密(str) Dim a Randomize m=Int(89998 * Rnd + 10000) Randomize n = Int(10 * Rnd) For i = 1 To len(str) t = Asc(mid(str, i, 1)) t=Chr(t+n) a=a&t Next 简单加密 = m & a & n End Function Function 简单解密(str) Dim a t0 = Mid(str, 6, Len(str) - 6) n = right(str, 1) For i = 1 To len(t0) t = Asc(mid(t0, i, 1)) t = Chr(t - n) a=a&t Next 简单解密 = a End Function 题目:写一个脚本,要求:利用插件Media中的Beep命令,写出“土耳其进行曲”歌曲! 提示:乐谱请百度~此外乐曲重复段落使用Sub调用,禁止重复代码,节奏稍稍把握调整。 答案:Call 第一段 Call 第一段 Call 第二段 CalL 第二段 Call 第三段 Call 第三段 Call 第四段 Call 第四段 EndScript Sub 第一段 /07656 Delay 400 Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) /102171 Call Plugin.Media.Beep(1046, 400) Delay 400 Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) /304323 Call Plugin.Media.Beep(1318, 400) Delay 400 Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) /76567656 Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) /161 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 400) /7656 Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 400) /7656 Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1397, 400) /7654 Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1397, 400) /3 Call Plugin.Media.Beep(1318, 800) End sub Sub 第二段 /34556543 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) /2034 Call Plugin.Media.Beep(1175, 400) Delay 400 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) /55 6543 Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1568, 400) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) /212 Call Plugin.Media.Beep(1175, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /334321 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) /7012 Call Plugin.Media.Beep(988, 400) Delay 400 Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /334321 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) /77656 Call Plugin.Media.Beep(988, 800) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) /102171 Call Plugin.Media.Beep(1046, 400) Delay 400 Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) /304323 Call Plugin.Media.Beep(1318, 400) Delay 400 Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) /76567656 Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1976, 200) Call Plugin.Media.Beep(1760, 200) Call Plugin.Media.Beep(1568, 200) Call Plugin.Media.Beep(1760, 200) /167 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1976, 400) /1765 Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1568, 400) /6342 Call Plugin.Media.Beep(1760, 400) Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1397, 400) Call Plugin.Media.Beep(1175, 400) /1767 Call Plugin.Media.Beep(1046, 800) Call Plugin.Media.Beep(988, 600) Call Plugin.Media.Beep(880, 100) Call Plugin.Media.Beep(988, 100) /6 Call Plugin.Media.Beep(880, 800) End sub Sub 第三段 /12312 Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /3217 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1976, 400) /6712 Call Plugin.Media.Beep(880, 400) Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /7512 Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(784, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /312 Call Plugin.Media.Beep(1318, 800) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(1175, 400) /3217 Call Plugin.Media.Beep(1318, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(1046, 400) Call Plugin.Media.Beep(988, 400) /6275 Call Plugin.Media.Beep(880, 400) Call Plugin.Media.Beep(1175, 400) Call Plugin.Media.Beep(988, 400) Call Plugin.Media.Beep(784, 400) /1 Call Plugin.Media.Beep(1046, 800) End Sub Sub 第四段 /3432 Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) /12176176 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) /56753453 Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) /65671712 Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) /32323432 Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1397, 200) Call Plugin.Media.Beep(1318, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(1175, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) /12176176 Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(1046, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(988, 200) Call Plugin.Media.Beep(784, 200) /56763453 Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(784, 200) Call Plugin.Media.Beep(880, 200) Call Plugin.Media.Beep(698, 200) /45642342 Call Plugin.Media.Beep(578, 200) Call Plugin.Media.Beep(659, 200) Call Plugin.Media.Beep(698, 200) Call Plugin.Media.Beep(578, 200) /3 Call Plugin.Media.Beep(659, 800) End Sub 题目:写一个脚本,要求:让鼠标在画图工具里使用铅笔工具,由脚本执行鼠标命令,实现一边画圆一边画方的操作效果。 提示:合理结构,禁止使用多线程方式同步执行。 答案:Dim x,y Const pi = 3.14159 Hwnd = Plugin.Window.MousePoint() y0 = 280 x0 = 550 r = 150 temp = Round(r * (cos(45 * pi / 180))) x1 = x0 + temp : y1 = y0 - temp x2 = x0 + temp : y2 = y0 + temp x3 = x0 - temp : y3 = y0 + temp x4 = x0 - temp : y4 = y0 - temp x = x1 a=0 For y = y1 To y2 Step 1 a = a + 1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 Next y= y2 For x2 - x3 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 x=x-1 Next x= x3 For y3 - y4 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 y=y-1 Next y= y4 For x = x4 To x1 Step 1 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 Next EndScript 题目:随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请写出代码: 例如: 随机数为:60,用户输入20,程序提示"答案范围为:20~100"。 用户再次输入75,程序提示"答案范围为:20~75"。 用户再次输入60,程序提示"猜中",然后退出程序。 答案:Randomize b = int(rnd * 100) + 1 max = 100 min = 1 Do a = InputBox("答案范围:" & min & "-" & max & "的数字", "猜数游戏") a = int(a) If a = b Then MessageBox b & ",恭喜你,答对了" ExitScript ElseIf a < b Then min=a Else max=a End If Loop 题目:读出窗口句柄为Hwnd,窗口内存地址为&H400FF,32位数值,请作答 答案:Val = Plugin.Memory.Read32Bit(Hwnd, &H400FF) TracePrint Val 题目:以下哪一种方式不能在进程外修改脚本内部的变量? 答案:使用环境变量 题目:以记事本为目标,编写多线程后台按键脚本,线程对应窗口开启,可以通过按键单独停止鼠标指向的窗口线程 (多开单停),请写出代码 答案://说明://home 暂停//end 恢复 DimEnv HwndEx Dim 句柄(2),线程(2) For i=0 to 2 RunApp "notepad.exe" hwnd = Plugin.Window.Foreground() HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Edit", "") 线程(i)=BeginThread(打字(HwndEx)) 句柄(i) =HwndEx TracePrint 句柄(i) Next Do key = WaitKey If key = 36 Then //home 暂停 Hwndd = Plugin.Window.MousePoint() For i = 0 To 2 If 句柄(i) =Hwndd Then PauseThread 线程(i) Next End If If key=35 Then //end 恢复 Hwndd = Plugin.Window.MousePoint() For i = 0 To 2 If 句柄(i) = Hwndd Then ContinueThread 线程(i) Next End If Delay 1000 Loop Sub 打字(Hwnd) n = 0 Do Call Plugin.Bkgnd.SendString(Hwnd, n) Call Plugin.Bkgnd.KeyPress(Hwnd, 13) n=n+1 Delay 300 Loop End Sub 题目:写一个脚本,执行鼠标命令在画图工具中操作鼠标使用铅笔工具,描绘出您的认证账号这一串字符信息,字体要求宋体,大小不小于9号! 提示:多点获取与二维数组的应用,字符特征可以事先获取写入源码,考核您对二维数组的应用与理解。(禁止使用第三方插件) 答案://认证账号这一串字符信息="Jay大虾" Dim 数组(40, 10),点阵(10) 点阵(0)="00000000000000000000000100000000101111111" 点阵(1)="01111100000000000000000100000000100001000" 点阵(2)="00010000000000000000000100000011111001000" 点阵(3)="00010000000000000011111111111010101001000" 点阵(4)="00010000110011101100000100000010101001100" 点阵(5)="00010001001001001000001010000011111001010" 点阵(6)="00010000111001010000001010000000100001001" 点阵(7)="00010001001000110000010001000000101001001" 点阵(8)="10010000111100100000010001000000111001000" 点阵(9)="11100000000000100000100000100011001001000" 点阵(10)="00000000000011000011000000011000000001000" For y = 0 To 10 For x = 0 To 40 数组(x, y) = int(Mid(点阵(y),x+1,1)) Next Next x0=450:y0=370 For y = 0 To 10 For x = 0 To 40 If 数组(x, y) = 1 Then MoveTo x0+x,y0+y LeftClick 1 End If Next Next //x0=450:y0=370 //For y = 0 To 10 // For x = 0 To 40 // color=GetPixelColor(x0+x,y0+y) // If color = "000000" Then // 数组(x, y) = 1 // SayString "1" // // SayString "*" // Else // 数组(x, y) = 0 // SayString "0" // // KeyPress "Space", 1 // End If // Next // KeyPress "Enter", 1 //Next 题目:输入任何一个整数,将这个数的立方写成一串连续奇数的和 (尼科彻斯定理),请写出代码 例如输入:23^3,它的一串连续奇数是:551+549+547+545+543+541+539+537+535+533+531+529+527+525+523+521+519+517+515+513 答案:a=InputBox("输入任何一个整数","尼科彻斯定理") b = a * a * a d = 0 For c = 0 To a - 1 e = a * a - a + 1 + c + c d = d + e If c = 0 Then f=e Else f=f&"+"&e End If Next MessageBox f 题目:对字符串进行加解密,加密规则为序数加5,例如"A"->"F","a"->"f","Z"->"E","1"->"6" (加解密),请写出代码(禁止使用第三方插件) 答案:txt = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEabcdefghijklmnopqrstuvwxyzabcde0123456789012345" MessageBox 加密("32432sfewfre") MessageBox 解密(加密("32432sfewfre")) Function 加密(字符串) For i = 1 To Len(字符串) 加密 = 加密&Mid(txt,InStr(txt, Mid(字符串, i, 1))+5,1) Next End Function Function 解密(字符串) For i = 1 To Len(字符串) 解密 = 解密&Mid(txt,InStrRev(txt, Mid(字符串, i, 1))-5,1) Next End Function //For i=0 to 25 // SayString Chr(65+i) //Next //For i=0 to 25 // SayString Chr(97+i) //Next //For i=0 to 9 // SayString Chr(48+i) //Next 题目:实现一个四则运算函数,禁止使用Eval和Execute,要求能处理 + - * / 和括号。【要求能处理包含多组括号的计算,例如计算((5+6)*7-3)/48*46)的值】 答案:算式 = "((5+6)*7-3)/48*46" Call 四则运算函数(算式) Function 四则运算函数(算式) Dim 运算前段,运算后段,运算结果 Dim l,a,b,c,d Do l=Len(算式) a = InStrRev(算式, "(") If a = 0 Then 四则运算函数=乘除加减(算式) Exit Do End If b = InStr(算式, ")") c = Mid(算式,a+1, b - a-1) 运算结果 = 乘除加减(c) 运算前段 = Left(算式, a - 1) 运算后段 = Right(算式, Len(算式)-b) 算式 = 运算前段 + 运算结果 + 运算后段 TracePrint "算式:"&算式 Loop End Function Function 乘除加减(算式)//c="9+645*4*15-2-11-12-14" Dim 算数1, 算数2, 算式前段, 算式后段, 算式结果, a, b, c,x Do a = InStr(算式, "*") b = InStr(算式, "/") If a = 0 and b = 0 Then Exit Do If a < b or b=0 Then TracePrint "*" 算数1="":算数2="" a = InStr(算式, "*") If a = 0 Then Exit Do i=0 For a - 1 If InStr("+-*/()", Mid(算式, a - i - 1, 1)) = 0 Then 算数1= Mid(算式, a - i-1, 1)&算数1 Else Exit For End If i=i+1 Next TracePrint "*乘数1=" & 算数1 i=0 For Len(算式) - a If InStr("+-*/()", Mid(算式, a + i + 1, 1)) = 0 Then 算数2 = 算数2 & Mid(算式, a + i + 1, 1) Else Exit For End If i=i+1 Next TracePrint "*乘数2="&算数2 算式结果 = 算数1 * 算数2 算式前段 = Left(算式,a - 1 - Len(算数1)) 算式后段 = Right(算式,Len(算式)-a-Len(算数2)) 算式= 算式前段&算式结果&算式后段 //MessageBox 算式 /// Else TracePrint "/" 算数1="":算数2="" a = InStr(算式, "/") If a = 0 Then Exit Do i=0 For a - 1 If InStr("+-*/()", Mid(算式, a - i - 1, 1)) = 0 Then 算数1= Mid(算式, a - i-1, 1)&算数1 Else Exit For End If i=i+1 Next TracePrint "/被除数=" & 算数1 i=0 For Len(算式) - a If InStr("+-*/()", Mid(算式, a + i + 1, 1)) = 0 Then 算数2 = 算数2 & Mid(算式, a + i + 1, 1) Else Exit For End If i=i+1 Next TracePrint "/除数="&算数2 算式结果 = Round(算数1 / 算数2, 2) 算式前段 = Left(算式,a - 1 - Len(算数1)) 算式后段 = Right(算式,Len(算式)-a-Len(算数2)) 算式= 算式前段&算式结果&算式后段 //MessageBox 算式 End If TracePrint "算式:" & 算式 Loop Do 算数1="":算数2="" a = InStr(算式, "+") If a = 0 Then Exit Do i=0 For a - 1 If InStr("+-*/()", Mid(算式, a - i - 1, 1)) = 0 Then 算数1= Mid(算式, a - i-1, 1)&算数1 Else Exit For End If i=i+1 Next TracePrint "+加数1=" & 算数1 i=0 For Len(算式) - a If InStr("+-*/()", Mid(算式, a + i + 1, 1)) = 0 Then 算数2 = 算数2 & Mid(算式, a + i + 1, 1) Else Exit For End If i=i+1 Next TracePrint "+加数2="&算数2 算式结果 = 算数1*1+算数2*1 算式前段 = Left(算式,a - 1 - Len(算数1)) 算式后段 = Right(算式,Len(算式)-a-Len(算数2)) 算式= 算式前段&算式结果&算式后段 Loop //MessageBox 算式 Do 算数1="":算数2="" a = InStr(算式, "-") If a = 0 Then Exit Do i=0 For a - 1 If InStr("+-*/()", Mid(算式, a - i - 1, 1)) = 0 Then 算数1= Mid(算式, a - i-1, 1)&算数1 Else Exit For End If i=i+1 Next TracePrint "-被减数=" & 算数1 i=0 For Len(算式) - a If InStr("+-*/()", Mid(算式, a + i + 1, 1)) = 0 Then 算数2 = 算数2 & Mid(算式, a + i + 1, 1) Else Exit For End If i=i+1 Next TracePrint "-减数="&算数2 算式结果 = 算数1-算数2 算式前段 = Left(算式,a - 1 - Len(算数1)) 算式后段 = Right(算式,Len(算式)-a-Len(算数2)) 算式= 算式前段&算式结果&算式后段 Loop //MessageBox 算式 乘除加减=算式 End Function 题目:判断字符串str长度是否大于等于6位,如果小于6位,则在字符串str后补"A",以达到长度为6,请作答。 答案:Dim str str = "abc" n=6-Len(str) If Len(str) < 6 Then For n str = str & "A" Next End If MessageBox str 题目:以下哪一个不是变量名的命名规则? 答案:变量名不能包含下划线 题目:取出字符串(字符串长度未知),比如"123456"中的右边三个字符,请给出代码。 答案:txt0 = "123456" If Len(txt0) <= 3 Then txt1 = txt0 If Len(txt0) > 3 Then txt1 = Right(txt0, 3) MessageBox txt1 题目:写出四个按键窗口插件自带的获取窗口句柄的函数。 答案:Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本") TracePrint Hwnd Hwnd = Plugin.Window.FindEx(0, 0, "Notepad", "无标题 - 记事本") TracePrint Hwnd Hwnd = Plugin.Window.Foreground() TracePrint Hwnd Hwnd = Plugin.Window.MousePoint() TracePrint Hwnd 题目:将字符串"12345"倒序排列成"54321",请给出代码。 答案:字符串="12345" For i=1 to Len(字符串) a = Mid(字符串, i, 1)&a Next MessageBox a 题目:动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含"接收"关键字的文本(批量消息发送器),请写出代码 答案:Text = Plugin.File.ReadFileEx("C:\Config.txt") Text = Trim(Text) Text = Left(Text, Len(Text) - 1) TracePrint Text Do TextT = Plugin.File.ReadFileEx("C:\Config.txt") TextT = Trim(TextT) TextT = Left(TextT, Len(TextT) - 1) If TextT <> Text Then temp = Right(TextT, Len(TextT) - Len(Text)) TracePrint "新增的内容是:" &temp Call 输出新内容(temp) Text = TextT End If Delay 100 Loop Sub 输出新内容(a) HwndEx = Plugin.Window.SearchEx(0, "接收", 0) dim MyArray MyArray = Split(HwndEx, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句将字符串转换成数值 hwnd = Clng(MyArray(i)) Call Plugin.Window.SendString(Hwnd, a) i=i+1 Next End If End Sub 题目:根据以下游戏写一个脚本,要求:赢得比赛。 提示:坐标寻路的应用,使用单点颜色判断来定位。 地址:http://app.baidu.com/app/enter?appid=190195 1、确认子窗口位置。 2、判断到小车的位置。 3、确认当前位置的方向操作。 答案:Dim x0,y0 FindColor 0, 0, 2000, 2000,"006699",x0,y0 If x0 > 0 And y0 > 0 Then TracePrint x0&","&y0 End If MessageBox "请点start开始" key = WaitClick key = WaitClick MoveTo x0, y0 LeftClick 1 Delay 50 KeyDown "Down", 1 Delay 100 Delay 500 KeyUp "Down", 1 Delay 100 KeyDown "Right", 1 Delay 2500 KeyUp "Right", 1 Delay 100 KeyDown "Down", 1 Delay 800 KeyUp "Down", 1 Delay 100 KeyDown "Left", 1 Delay 100 Call 等待颜色改变(20, 129) KeyUp "Left", 1 Delay 100 KeyDown "Down", 1 Delay 100 Call 等待颜色改变(30, 254) KeyUp "Down", 1 Delay 100 KeyDown "Right", 1 KeyDown "Up", 1 Delay 100 Call 等待颜色改变(174, 175) KeyUp "Up", 1 Delay 100 KeyDown "Down", 1 Delay 100 Call 等待颜色改变(257, 253) KeyUp "Down", 1 Delay 100 KeyDown "Up", 1 Delay 100 Call 等待颜色改变(456, 184) KeyUp "Up", 1 Delay 100 KeyUp "Right", 1 Delay 100 KeyDown "Down", 1 Delay 100 Call 等待颜色改变(454, 350) KeyUp "Down", 1 Delay 100 KeyDown "Left", 1 Delay 100 Call 等待颜色改变(13, 344) KeyUp "Left", 1 Delay 100 KeyDown "Down", 1 Delay 100 Call 等待颜色改变(20, 448) KeyUp "Down", 1 Delay 100 Call 按键("Right", 700) Call 按键("Up", 600) Call 按键("Right", 800) Call 按键("Down", 600) Call 按键("Right", 1000) Call 按键("Up", 600) Call 按键("Right", 800) Call 按键("Down", 600) Call 按键("Right", 800) Call 按键("Up", 600) Call 按键("Right", 800) Call 按键("Down", 1000) Call 按键("Left", 8000) Sub 按键(a, b) KeyDown a, 1 Delay b KeyUp a, 1 Delay 100 End Sub ExitScript Sub 等待颜色改变(x, y) Dim i i=0 While i=0 GetColor1 = GetPixelColor(x0+x, y0+y) Delay 10 GetColor2 = GetPixelColor(x0+x, y0+y) If GetColor1 <> GetColor2 Then i = 1 Wend End Sub 题目:利用 ShowScrTXT 命令制作一个放大镜,效果类似抓抓工具的放大镜,可以放大显示鼠标指向的5*5区域的颜色.请写出代码 答案:Dim x, y, x1, x2, y1, y2, st_x, st_y Dim scr_x1, scr_y1, scr_x2, scr_y2 MessageBox "【确定】后开始运行放大镜,【F12】键退出。" While True Call FDJ() Delay 10 Wend //放大镜函数 Function FDJ() //放大镜的起点坐标 st_x = 0 st_y = 0 //获取鼠标的坐标 GetCursorPos x, y //计算5*5区域范围 x1 = x - 2 x2 = x + 2 y1 = y - 2 y2 = y + 2 //获取并输出5*5区域内所有颜色 For a = x1 To x2 For b = y1 To y2 RtColor = Plugin.Color.GetPixelColor(a, b, 1) //其中:4 - x2 + a = 5 - (x2 - a + 1),以下同理 scr_x1 = st_x + (4 - x2 + a) * 6 scr_y1 = st_y + (4 - y2 + b) * 6 scr_x2 = scr_x1 + 6 scr_y2 = scr_y1 + 6 Call Plugin.Msg.ShowScrTXT(scr_x1, scr_y1, scr_x2, scr_y2, "█", RtColor) Next Next End Function 题目:利用多线程对多个记事本的窗口位置进行没有规律的循环随机移动,请写出代码。 答案:Dimenv Hwndex For i=0 to 2 RunApp "notepad.exe" Delay 100 Hwndex = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.Size(Hwndex, 200, 200) TracePrint Hwndex BeginThread 移动 Next Do Delay 1000 Loop Sub 移动 Dim k, h,hwnd k = Plugin.Sys.GetScRX() h = Plugin.Sys.GetScRY() hwnd=Hwndex Do Randomize kk = Int(k * Rnd + 1) Randomize hh = Int(h * Rnd + 1) Call Plugin.Window.Move(Hwnd, kk, hh) Delay 1000 Loop End Sub 题目:有一根长为600cm的钢筋,需要截成长度为69cm、39cm、29cm的三种规格的短料,在三种规格的短料至少各截1截的前提下,如何截取才能使剩余材料最少?请写出代码 答案:Dim i1,i2,i3 Call 剩余材料最少 Sub 剩余材料最少 For i = 600 To 1 step -1 For i1 = 1 To 11 For i2 = 1 To 11 For i3 = 1 To 11 a = 69 * i1 + 39 * i2 + 29 * i3 If a = i Then Exit Sub Next Next Next Next End Sub MessageBox "69 *"& i1&" + 39 *"& i2 &"+ 29 *"& i3&"="&i 题目:写一个函数,该函数带一个参数str1,调用函数弹出内容为str1的弹窗,请给出代码。 答案:MessageBox 函数("Str1") Function 函数(Str1) 函数=Str1 End Function 题目:以下哪一个不是官方自带插件? 答案:RemoteAnswer.dll(石像答题插件) 题目:输出20个"@"符号,至少写出两种方法,请作答。 答案://1 For 20 SayString "@" Delay 10 Next //2 For 20 KeyDown 16, 1 KeyPress 50, 1 KeyUp 16, 1 Delay 10 Next 题目:判断字符串str长度是否大于等于5位,如果小于5位,则在字符串str后补"A",以达到长度为5,请作答。 答案:Dim str str = "abc" n=5-Len(str) If Len(str) < 5 Then For n str = str & "A" Next End If MessageBox str 题目:写一个函数(包含参数:num1):在0,0,800,900范围内,鼠标随机移动指定num1次,再调用此函数,请作答。 答案:Call 随机移动(5) Function 随机移动(num1) For num1 MoveTo 取随机数(0, 800), 取随机数(0, 900) GetCursorPos x, y TracePrint x&","& y Next 随机移动=0 End Function Function 取随机数(lowerbound,upperbound) Randomize 取随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Function 题目:使用自定义变量(UserVar)设置间隔时间(单位:秒),循环判断是否按下按键A,如果按下按键A则按顺序按C、D键并延时,请作答。 答案:UserVar t=3 "间隔时间(单位:秒)" Do Delay t * 1000 key = WaitKey If key = 65 Then KeyPress "C", 1 Delay 1000 KeyPress "D", 1 Delay 1000 End If Loop 题目:写一个函数,其中包含四个参数(a1,a2,c1,c2)。 功能:随机生成a1~a2个c1~c2之间的奇数,并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果作为函数返回值,请写出代码并且调用函数输出结果。(例如调用函数生成3~9个60~91的数对应的字符串) 答案:MessageBox 一个函数(3, 9, 60, 91) Function 一个函数(a1, a2, c1, c2) Dim n, t, array, a, b t="" If c1 mod 2 = 0 Then c1 = c1 + 1 If c2 mod 2 = 0 Then c2 = c2 - 1 For 16 If t = "" Then t = c1 Else t = t &"|" &c1 End If c1 = c1 + 2 Next TracePrint t array = split(t, "|") For 取随机数(a1, a2) a = array(取随机数(0, Ubound(array))) a = Chr(a * 1) If b = "" Then b = a Else b=b&a End If Next 一个函数=b End Function Function 取随机数(上限,下限) Randomize 取随机数 = Int((下限 - 上限 + 1) * Rnd + 上限) End Function 题目:请用代码计算次月天数,例如"2008-02-11"的次月天数是31,请作答。(切勿修改本机上的本地时间进行测试) 答案:Function 计算次月天数(t) Dim 年,月,日,n 年 =Year(t) 月 =Month(t)+1 日 =Day(t) t0 = Cstr(年 & "/" & 月 & "/" & 1) If 月 = 12 Then 年 = 年 + 1 t1 = Cstr(年 & "/" & 1 & "/" & 1) Else n = 月 + 1 t1 = Cstr(年 & "/" & 月 + 1 & "/" & 1) End If 计算次月天数 = DateDiff("d", t0, t1) End Function MessageBox 计算次月天数("2008-03-11") 题目:写一个函数,要求:获取一个文件夹中都包含什么格式文件,并获取每种格式的数量。 参数1:字符串,文件路径 返回值:字符串 格式:*.txt=10|*.bmp=10|*.jpg=30…… 提示:我的命令库 答案:MessageBox myfile("D:\") Function myfile(filepath) Dim myobject,myobj Set myobject = CreateObject("Scripting.FileSystemObject") Set myobj = myobject.Getfolder(filepath) set myfiles = myobj.files Allfiles = "" For Each element In myfiles Allfiles = Allfiles & element.name & "|" Next Set myobject = nothing Allfiles = left(Allfiles, len(Allfiles) - 1) myallfile = split(Allfiles, "|") myfile = "" For i = 0 To UBound(myallfile) point = instr(1, myallfile(i), ".", 1) Do anotherpoint = instr(point + 1, myallfile(i), ".", 1) If anotherpoint > 1 Then point = anotherpoint Else Exit Do End If Loop myfiletype = right(myallfile(i), len(myallfile(i)) - point) myanswer = instr(1, myfile, "*." & myfiletype & "=", 1) If myanswer >= 1 Then filebegin = instr(myanswer, myfile, "=", 1) + 1 fileend = instr(myanswer, myfile, "|", 1) filelenth = fileend - filebegin filenumber = int(mid(myfile, filebegin, filelenth)) filenumber = filenumber + 1 myfile = left(myfile, filebegin - 1) & filenumber & right(myfile, len(myfile) - fileend + 1) Else myfile = myfile & "*." & myfiletype & "=1|" End If Next myfile = left(myfile, len(myfile) - 1) End Function 题目:写一个脚本,要求:启动脚本后,手动移动鼠标,然后放开操作,根据移动的最后方向继续移动鼠标,并慢慢减速,碰到边缘完全静止等待下次移动。 提示:命令GetCursorPos的应用。 答案:Hwnd = Plugin.Window.MousePoint() sRect = Plugin.Window.GetClientRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)): B = Clng(MyArray(3)) TracePrint "左" & L & ",右 " & R & ",上" & T & ",下" & B TracePrint "左" & L & ",右 "& L + R & ",上" & T & ",下" & T + B GetCursorPos x0, y0 Delay 3000 Rem 移动 GetCursorPos x, y x1 = x : y1 = y Delay 1000 GetCursorPos x, y If x <> x1 or y <> y1 Then Goto 移动 角度 = 角度计算(x0,y0, x,y) TracePrint 角度 pi = 3.14159 n = 10 i=0 While i=0 MoveTo x, y Delay n // LeftClick 1 // Delay n x = x + Round(30*cos(角度 * pi / 180)) y = y - Round(30 * sin(角度 * pi / 180)) TracePrint x & "|" & y TracePrint "左" & L & ",右 "& L + R & ",上" & T & ",下" & T + B If x <= L or x >= L + R or y <= T or y >= T + B Then i = 1 n=n+30 Wend Function 角度计算(中心点x坐标,中心点y坐标,移动点x坐标,移动点y坐标) //上为90°,右为0°,下为270°,左为180° Dim x, y, a, b x = abs(移动点x坐标 - 中心点x坐标) y = abs(移动点y坐标 - 中心点y坐标) If x<>0 Then a = atn(y / x) If 移动点x坐标=中心点x坐标 Then If 移动点y坐标>中心点y坐标 Then //↑ 角度计算 = 90 Else //↓ 角度计算 = 270 End If ElseIf 移动点y坐标=中心点y坐标 Then If 移动点x坐标>中心点x坐标 Then //→ 角度计算 = 0 Else //← 角度计算 = 180 End If ElseIf 移动点x坐标>中心点x坐标 and 移动点y坐标>中心点y坐标 Then //↘ 角度计算 =360- fix(a * 57.3) ElseIf 移动点x坐标>中心点x坐标 and 移动点y坐标<中心点y坐标 Then //↗ 角度计算 =fix(a * 57.3) ElseIf 移动点x坐标<中心点x坐标 and 移动点y坐标<中心点y坐标 Then //↖ 角度计算 =180- fix(a * 57.3) ElseIf 移动点x坐标<中心点x坐标 and 移动点y坐标>中心点y坐标 Then //↙ 角度计算 =180+fix(a * 57.3) Else End If End Function 题目:写一个脚本,要求:下载按键精灵首页(http://www.anjian.com/)左上角的logo图标到本地,下载完毕使用画图工具开启展示图片。 提示:插件Web的应用。 答案:ProcessID=Plugin.Web.Bind("WQM.exe") Delay 1000 If ProcessID=0 then MessageBox "网页按键精灵没有运行" EndScript End If Hwnd=Plugin.Web.GetHwnd() Call Plugin.Web.Tips("脚本开始运行") Call Plugin.Web.SetSize(1024,784) Call Plugin.Web.Go("http://www.anjian.com/") Call Plugin.Web.ScrollTo(0,0) Delay 1000 MoveTo 60, 189 Delay 200 RightClick 1 Delay 1000 MoveTo 119, 344 Delay 200 LeftClick 1 Delay 1000 Call Plugin.Sys.SetCLB("D:\logo.bmp") KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 KeyPress "Enter", 1 Delay 1000 KeyPress "Y", 1 Delay 1000 RunApp "mspaint.exe D:\logo.bmp" Sub OnScriptExit() Call Plugin.Web.Tips("脚本停止运行") End Sub 题目:写一个函数,随机输出"2012-01-22"到"2014-12-31"之间的某个日期,此日期作为函数返回值,请作答。 答案:n=DateDiff("d", "2012-01-22", "2014-12-31") dd=DateAdd("d",取随机数(0,n),"2012-01-22") MessageBox dd Function 取随机数(lowerbound,upperbound) Randomize 取随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Function 题目:写一个函数,功能:随机生成一个长度为5~15位字符串。 要求:其中必须包含超过一半的大写英文字母,其余为小写英文字母(大小写字母间隔排列),生成的字符串作为函数返回值传出。例如函数RndString,调用后返回了字符串"EfHdVhEsYfWsWdBgNM" 答案:Function 生成一个字符串 n = 取随机数(5, 15) i=0 For n b = Chr(取随机数(65, 90)) If i < n - 2 and i mod 2 = 0 Then b = LCase(b) c=c&b i=i+1 Next 生成一个字符串=c End Function Function 取随机数(lowerbound,upperbound) Randomize 取随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Function MessageBox 生成一个字符串 题目:定义一个函数,功能:随机生成一个长度为5~15位字符串。 要求:其中必须包含超过一半的大写英文字母,其余为小写英文字母(大小写字母间隔排列),生成的字符串作为函数返回值传出。例如函数RndString,调用后返回了字符串"EfHdVhEsYfWsWdBgNM" 答案:Function 生成一个字符串 Randomize n =Round(11 * Rnd )+ 5 i=0 For n Randomize b=Int((90 - 65 + 1) * Rnd + 65) b = Chr(b) If i < n - 2 and i mod 2 = 1 Then b = LCase(b) c=c&b i=i+1 Next 生成一个字符串=c End Function MessageBox 生成一个字符串 题目:以下代码运行后未出现弹窗,请简述找不到图的可能原因(至少三个) FindPic 0, 0, 800, 600, "Attachment:\ajjl.bmp", 1.0, ajjlbmpX, ajjlbmpY If ajjlbmpX > 0 And ajjlbmpY > 0 Then MessageBox "找到图片" End If 答案:可能原因1,找图区域不对,图片不在0, 0, 800, 600范围内 可能原因2,图片"Attachment:\ajjl.bmp", 没有添加到附件 可能原因3,相似度问题,相似度太高,设成0.9试试 可能原因4,图片不存在 题目:如果鼠标停止动作超过5秒,则执行弹出信息提示框"鼠标停止动作",请写出代码 答案:Do GetCursorPos x1, y1 key1 = GetLastClick Delay 5000 GetCursorPos x2, y2 key2 = GetLastClick If key1=key2 and x1=x2 and y1=y2 Then MessageBox "鼠标停止动作" Loop 题目:利用文本(TXT)模拟一个"数据库",数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/修改/删除/增加 等功能(伪数据库),请写出代码 答案:Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果 数据库路径 = "C:\档案.txt" InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页·请输入对应字符进行相关操作") Do While InputHome <> "Q" And InputHome <> "q" If InputHome = "H" Or InputHome = "h" Then InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页·请输入对应字符进行相关操作") ElseIf InputHome = "1" Then Do 查询结果 = "" Input查询 = InputBox("退出:Q 主页:H", "查询·请输入编号进行查询", "编号") If Input查询 = "Q" Or Input查询 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input查询 = "H" Or Input查询 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input查询) = True Then 查询结果 = 查询(数据库路径, Input查询) End If If 查询结果 <> "" Then MessageBox 查询结果, 65, "查询结果" Loop ElseIf InputHome = "2" Then Do 搜索返回 = "" : Show搜索 = "" Input搜索 = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "可模糊搜索到编号、姓名、年龄、身高字段", " 搜索·请输入关键字进行搜索", "关键字") If Input搜索 = "Q" Or Input搜索 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input搜索 = "H" Or Input搜索 = "h" Then : InputHome = "H" : Exit Do Else 搜索返回 = 搜索(数据库路径, Input搜索) End If If 搜索返回 <> "" Then 搜索结果 = Split(搜索返回, ",") For i = UBound(搜索结果) - 1 To 0 Step - 1 Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next MessageBox Show搜索, 65, "搜索结果" End If Loop ElseIf InputHome = "3" Then Do 查询结果 = "" : 删除结果 = "" Input删除 = InputBox("退出:Q 主页:H", "删除·请输入编号进行删除", "编号") If Input删除 = "Q" Or Input删除 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input删除 = "H" Or Input删除 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input删除) = True Then 查询结果 = 查询(数据库路径, Input删除) End If If 查询结果 <> "" Then 删除结果 = MessageBox(查询结果, 68, "确定要删除此条数据?") If 删除结果 = 6 Then Call 删除(数据库路径,Input删除) Loop ElseIf InputHome = "4" Then Do Input增加 = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "格式:姓名|年龄|身高" & vbcrlf & "例如:李 雷|18|1.52", "增加·请输入要增加的一条数据") If Input增加 = "Q" Or Input增加 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input增加 = "H" Or Input增加 = "h" Then : InputHome = "H" : Exit Do ElseIf UBound(Split(Input增加, "|")) = 2 Then 增加 数据库路径, Input增加 End If loop ElseIf InputHome = "Q" Or InputHome <> "q" Then : Exit Do Else InputHome = InputBox("退出:Q 主页:H" & vbcrlf & vbcrlf & "查询:1 搜索:2 删除:3 增加:4", "主页· 请输入对应字符进行相关操作") End If Loop EndScript Function 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1 Set fso = CreateObject("scripting.FileSystemObject") If fso.FileExists(文本路径) Then Set myfile = fso.openTextFile(文本路径, 1, false) Else flag = 0 End If For i = 1 To 编号 - 1 If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then 查询 = myfile.ReadLine Else 查询 = "编号不存在!" End If myfile.close Else 查询 = "文件不存在!" End If Set fso = Nothing End Function Function 搜索(文本路径, 关键字) Dim ForReading, ForWriting ForReading = 1 : ForWriting = 2 : 搜索 = "" Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 关键字) > 0 Then 搜索 = strLine & "," & 搜索 TracePrint "搜索=" & 搜索 strNewFile = strNewFile & strLine & vbcrlf Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Function Sub 删除(文本路径, 编号) Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2 Dim objFSO,objFile,strLine,strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径,ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile Else strNewFile = strNewFile & strLine & vbcrlf End If Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径,ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub Sub 增加(文本路径, 文本内容) Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2 Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline strNewFile = strNewFile & strLine & vbcrlf Loop TracePrint objFile.Line strNewFile = strNewFile & objFile.Line & "|" & 文本内容 & vbcrlf objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub EndScript 题目:代码:Delay 60*60*5 的执行效果是? 答案:18 题目:下列那种操作可以快速、正确的查询到指定按键的按键码? 答案:编辑器基本命令选项卡展开按键命令下方可以进行双向查询 题目:在编辑器界面使用组合键Ctrl+F可以打开查找窗口,这个操作等同于使用鼠标点击编辑界面的哪个按钮? 答案:查找 题目:按键精灵编写的脚本是否可以在没有安装按键精灵的机器中运行? 答案:制作成小精灵可以 题目:控制文本框滚动条滚动应该使用哪条模拟命令? 答案:MouseWheel 题目:下列哪种方式不能将下载到的 .q 格式脚本文件正确导入到按键精灵2014中? 答案:将文件放入按键精灵source目录下 题目:控制鼠标移动到屏幕指定坐标点上应该使用以下哪条命令? 答案:MoveTo 题目:学习按键精灵应该从基础开始循序渐进,逐步成长为脚本高手,所以下列学习方法哪一种是不可取的? 答案:伸手要脚本 题目:使用 GetLastKey 命令获取最后一次按键代码后,继续执行该命令,返回值为? 答案:0 题目:执行语句: RunApp "Notepad.exe" 后,启动的程序是? 答案:记事本 题目:以下哪种帐号可以登录到按键精灵? 答案:按键精灵论坛帐号 题目:按键精灵2014的所有脚本文件都保存在按键精灵目录中的哪个目录里? 答案:QMScrisp 题目:复制早期脚本到按键精灵2014后调试出错,可以使用编辑器提供的哪个功能尝试自动纠正? 答案:自动纠错 题目:模拟鼠标按下指定按键的命令在全部命令树的哪一条分支上? 答案:基本命令鼠标命令 题目:按键精灵2014可以在软件主界面点击按钮启动网页版按键精灵,这个按钮在界面的哪个位置? 答案:右下角 题目:不希望指定脚本运行,但又想在编辑器中保留这些脚本,可以选中脚本后点击哪个按钮将选中的脚本注释掉? 答案:增加注释 题目:以下哪条语句可以实现以鼠标当前坐标为起点向右上角移动100,100像素? 答案:MoveR 100,-100 题目:快速引导界面中,点击哪个按钮可以使用向导快速编写一个鼠标连点器? 答案:第一次写脚本 题目:使用按键抓抓工具测试找图找色应该在按键抓抓主界面点击哪个按钮? 答案:找图找色 题目:按键抓抓工具集成了许多按键精灵常用功能,怎样在按键精灵2014编辑器界面启动他? 答案:点击工具抓抓按钮 题目:在编辑器中打开脚本,切换到哪一页面可以修改脚本的启动热键? 答案:脚本属性 题目:使用 SetSimMode 命令可以改变按键精灵的模拟方式,下列哪一种模拟方法是按键精灵不支持的。 答案:虚拟模拟 题目:按键精灵是一款合法的键鼠模拟软件,在不使用第三方模块时,以下哪些功能是无法实现的? 答案:实现秒杀怪物 题目:网上下载的按键精灵功能扩展插件解压后 *.dll 格式的文件应该放在按键精灵的哪个目录下? 答案:plugin 题目:使用按键精灵2014在主界面怎样修改指定脚本的显示描述? 答案:右键打开脚本属性,在描述一栏修改 题目:按键精灵提供QUI(按键精灵用户界面)功能来为你的脚本添加一个界面,在编辑器中如何切换到QUI编辑器? 答案:点击左侧的界面按钮 题目:使用按键精灵提供的录制功能录制脚本时,那个操作是不能录制的? 答案:相对于窗口的操作 题目:哪一种脚本语言可以在不修改的情况下直接粘贴到按键精灵中运行? 答案:VBS 题目:下列方法哪种不能让按键抓抓工具隐藏放大镜窗口? 答案:点击界面左侧的找图找色按钮 题目:按键精灵交流论坛的网址是? 答案:http://bbs.anjian.com 题目:编辑好的脚本可以发布为多种格式分享给别人,以下哪种格式不是按键精灵原生支持的? 答案:TXT 题目:以下哪条命令可以弹出一个消息对话框,并暂停脚本的运行? 答案:MessageBox 题目:按键精灵资源站提供了大量可供新手学习的资料、范例代码和教学视频,下列哪个网址可以访问资源站? 答案:http://zy.anjian.com/ 题目:a = 1+1*2 语句执行后,变量 a 的值为? 答案:3 题目:使用按键抓抓工具不能正常获取到屏幕颜色时,可以尝试勾选哪个选项? 答案:指定窗口句柄 题目:部分结构化语句支持在执行的过程中跳出,这一操作使用哪一个前缀的代码进行? 答案:Exit 题目:While ... Wend 语句与下列哪一种语句功能是完全相同的? 答案:Do While ... Loop 题目:使用Clng对3.14进行转换后的值为? 答案:3 题目:结构化语句可以多层使用,互不影响,这种写法被称作? 答案:嵌套 题目:FindPic 命令查找 100x100 大小的图片,精确度指定为0.8,则最少成功匹配多少点才算找图成功? 答案:8000 题目:将字符串强制转换为长整型数字应该使用哪条命令? 答案:Clng 题目:下列那一个自定义标识符命名是不合法的? 答案:123 题目:为保证脚本的正确运行,找图和模糊找色的精确度不可低于? 答案:0.5 题目:判断一个字符串包含的数据是否可以转化为数字应该使用哪条命令? 答案:IsNumeric 题目:如何在按键抓抓工具中自动生成多点找色脚本? 答案:在图像页面上方选中抓多点,按热键抓点后,点击生成代码 题目:按键精灵中可用于表现任意文字的数据类型是? 答案:String 题目:延迟两小时,以下哪一句代码是正确的? 答案:Delay 1000*60*60*2 题目:找图、找色命令指定的屏幕区域四个参数是为了? 答案:确定找图、找色范围 题目:阅读代码时可以使用下列哪一项功能将其他代码缩短,方便浏览? 答案:折叠 题目:时间类型的数据中可以取出多少种信息? 答案:7 题目:使用 FindColor 命令找色失败后,最后两个参数的返回值应该是? 答案:-1,-1 题目:使用VarType命令判断一个数据,返回值为0说明这个数据? 答案:不存在 题目:哪个运算符可以实现多个逻辑全部为真时返回真? 答案:and 题目:语句 For i = 0 to 10 中的 i 在循环中被称为? 答案:循环变量 题目:如何在按键抓抓工具中自动生成找图脚本? 答案:点击找图找色按钮,在区域找图界面生成 题目:True 和 False 分别表示逻辑中的真和假,他们转换为数字后分别代表哪个值? 答案:-1和0 题目:在按键抓抓图像编辑器中精确处理图片时可以将图片放大,这个操作通过点击哪个按钮实现? 答案:放大 题目:选择按键精灵找图功能支持的图片文件格式。 答案:BMP 题目:a = "2" + 2 语句执行后,变量 a 的值为? 答案:4 题目:在脚本中实现无参数子程序 OnScriptLoad 可以在脚本加载时自动执行,在按键精灵开发环境下吗,这些代码会在什么时候运行? 答案:启动按键精灵或加载脚本时 题目:FindColorEx 命令查找类型设置为1时,与下列哪条命令的功能是相同的? 答案:FindCenterColor 题目:执行循环语句 For i = 4 to 13 Step 2 : Next ,循环会被执行多少次? 答案:5 题目:Do ... Loop 语句有几种使用写法? 答案:5 题目:以下操作步骤哪一个不能正确的生成按键小精灵? 答案:在脚本列表页面选中脚本,点击工具栏的发布按钮,选择导出脚本 题目:按键精灵2014免费小精灵去广告需要哪些权限? 答案:VIP会员 题目:WaitKey命令可以实现等待键盘有按键按下,在等待的过程中,脚本的状态是? 答案:暂停 题目:按键抓抓最多保存多少组颜色和坐标信息? 答案:10 题目:以下哪条命令可以在编辑器的调试信息窗口输出一条消息? 答案:TracePrint 题目:在全部命令中,点选具体的命令后,命令的帮助文档会出现在按键精灵界面的? 答案:下面 题目:执行 TracePrint WaitClick() 语句后,点击鼠标左键调试窗口输出的内容为? 答案:32769 题目:按键抓抓支持获取以下哪几种颜色描述? 答案:RGB和HSL 题目:默认情况下按键精灵无法对某些窗口进行模拟时,可以执行哪条命令解决? 答案:修改模拟类型 题目:基本命令与全部命令界面中列出的同一条命令功能存在区别吗? 答案:没有区别 题目:以下答案中,哪一个可以实现模拟鼠标拖动的具体过程? 答案:按下-移动-松开 题目:语句 For i = 0 to 10 Step 2 中的 2 在循环中被称为? 答案:步长 题目:如何在按键抓抓工具中自动生成模糊找色脚本? 答案:点击找图找色按钮,在模糊找色界面生成 题目:Function语句定义函数如何返回数据? 答案:使用函数同名变量 题目:以下关于编辑器调试界面的单步和步过的功能描述错误的是? 答案:单步和步过彼此独立,不能配合使用 题目:KeyPress "A",1 语句调试会报错,原因是? 答案:全角逗号 题目:使用下列那个符号可以改变表达式的优先级? 答案:() 题目:在编辑器中如何快速跳转到指定子程序代码处? 答案:在编辑器上方的下拉框中选择 题目:执行语句 For i = 1 to 5 : Next 后,变量i的指值为? 答案:6 题目:以下哪条命令可以得到表示变量数据类型的字符串? 答案:TypeName 题目:下列哪一个自定义标识符命名是不合法的? 答案:if 题目:据红、绿、蓝三种颜色的分量返回颜色值的函数是? 答案:RGB 题目:可以实现裁剪字符串两侧空格的函数是? 答案:Trim 题目:下列哪个函数可以实现计算两个时间的时间差? 答案:DateDiff 题目:在一个字符串中查找另一个字符串应该使用哪个函数(从末尾开始)? 答案:InStrRev 题目:二进制、八进制、十进制、十六进制中的数值代表什么意思? 答案:逢X进一 题目:Round(3.141592654,7) 语句执行后的返回值为? 答案:3.1415927 题目:游戏后台自动喊话功能可以使用以下哪条命令实现? 答案:Plugin.Bkgnd.SendString 题目:创建COM对象应该使用那条命令和语句配合? 答案:CreateObject、Set 题目:获取窗口的客户区矩形(窗口边框内的空间)应该使用哪条命令? 答案:Plugin.Window.GetClientRect 题目:在按键中判断网络连接是否正常,可以使用下面哪条命令? 答案:Plugin.Net.IsOnline 题目:表达式 a = 1 Or 2 成功执行后,变量 a 的值应该为? 答案:3 题目:按键精灵多点找色命令可以设置排除颜色点,并内置了方便的编辑器,这个编辑器如何找到? 答案:多点找色命令向导最下方的按钮 题目:按键精灵自带的文件插件支持哪些类型文件的操作? 答案:文本文件、配置文件 题目:将信息输出到屏幕的操作在按键精灵中被称为“写屏”,这个操作使用哪条命令可以实现? 答案:Plugin.Msg.ShowScrTXT 题目:已知窗口句柄,要关闭这个窗口应该使用下列哪条命令? 答案:Plugin.Window.Close 题目:使用按键抓抓找窗口句柄时,如果用多个标题和运行特征完全相同的窗口,下列哪种方法不能确定每个句柄对应的窗口? 答案:查看句柄信息 题目:Obj对象使用完毕后,应该使用下列哪条语句销毁? 答案:Set Obj = Nothing 题目:关于颜色插件中Plugin.Color.GetPixelColor命令取色模式设置为增强后描述正确的是? 答案:可以获得透明窗口色 题目:Plugin.Sys.GetOSType命令可以获取操作系统的版本,当返回值为哪一个时,操作系统是Win7? 答案:5 题目:编写一段代码,获取记事本窗口中文本编辑器的句柄。要求:无论记事本窗口标题是什么,脚本都能成功获取窗口句柄。 答案:Hwnd = Plugin.Window.Find("Notepad", 0) TracePrint "查找到的父窗口句柄为:" & Hwnd HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Edit", "") TracePrint "找到记事本窗口中文本编辑器的句柄:" & HwndEx 题目:请用代码计算上月天数,例如"2008-02-11"的上月天数是31,请作答。(切勿修改本机上的本地时间进行测试) 答案: Function 计算上月天数(t) Dim 年,月,日,n 年 =Year(t) 月 =Month(t)-1 日 =Day(t) t0 = Cstr(年 & "/" & 月 & "/" & 1) If 月 = 0 Then 年 = 年 - 1 t1 = Cstr(年 & "/" & 1 & "/" & 1) Else n = 月 + 1 t1 = Cstr(年 & "/" & 月 + 1 & "/" & 1) End If 计算上月天数 = DateDiff("d", t0, t1) End Function MessageBox 计算上月天数("2015-04-11") 题目:定义一个函数,随机输出"2012-01-22"到"2014-12-31"之间的某个日期,此日期作为函数返回值,请作答。 答案:MessageBox 一个函数 Function 一个函数 n=DateDiff("d", "2012-01-22", "2014-12-31") Randomize 取随机数 = Int(n + 1) * Rnd 一个函数=DateAdd("d",取随机数,"2012-01-22") End Function 题目:写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码 (要求:轨迹为一条直线) 答案:Call a(800, 600) sub a(x,y) Do GetCursorPos x0, y0 If x > x0 Then i = 1 ElseIf x < x0 Then i = -1 ElseIf x = x0 Then i = 0 End If If y > y0 then ii = 1 ElseIf y < y0 then ii = -1 ElseIf y = y0 then ii = 0 End If MoveR i, ii If x = x0 and y = y0 Then Exit do End If Loop End sub 题目:写一个脚本,要求生成一个动态数组,最大下标数为5~10,每个元素值范围是100以内随机偶数,计算返回值为数组类型,数组元素排列顺序从大到小。 提示:For循环与Rnd函数的应用。 答案:Randomize zUBound = int((10 - 5 + 1) * rnd + 5) Redim a(zUBound) TracePrint UBound(a) For i= 0 to UBound(a) Do s = int((100 - 1 + 1) * rnd + 1) If s mod 2 = 0 Then If instr(ss,s) = 0 then a(i) = s Exit Do End If End If Loop Next For i = 0 To UBound(a) - 1 最小 = a(i) For j = i + 1 To UBound(a) If clng(a(j)) > clng(最小) Then 最小 = clng(a(j)) 临时 = clng(a(i)) a(i) = clng(a(j)) a(j) =clng(临时) End If Next Next str = join(a, ",") TracePrint str 题目:写一个函数,要求:返回值:随机排列26个英文字母。提示:函数Chr的应用。 答案:MessageBox 随机排列26个英文字母() Function 随机排列26个英文字母() Dim 数组2(25), 数组1(25),模式 模式=0 For i = 0 To 25 数组2(i) = Chr(65 + i) Randomize 数组1(i) = 1000000000000 * Rnd Next i = 0 While i <= UBound(数组1) If i <> 0 Then If 模式=0 Then If 数组1(i) - 数组1(i - 1) <0 Then temp = 数组1(i) : 数组1(i) = 数组1(i - 1) : 数组1(i - 1) = temp temp = 数组2(i) : 数组2(i) = 数组2(i - 1) : 数组2(i - 1) = temp : i = i - 2 If i < 0 Then i=0 End If End If If 模式=1 Then If 数组1(i) - 数组1(i - 1) >0 Then temp = 数组1(i) : 数组1(i) = 数组1(i - 1) : 数组1(i - 1) = temp temp = 数组2(i) : 数组2(i) = 数组2(i - 1) : 数组2(i - 1) = temp : i = i - 2 If i < 0 Then i=0 End If End If End If i = i + 1 Wend 随机排列26个英文字母=Join(数组2) End Function 题目:编写一个函数,传递5个数字,如果任意三个数字之和为10的倍数,则返回对应表达式。 答案:Function 一个函数(x1, x2, x3, x4, x5) Dim m, a, b, c, d, e e=0 m= array(x1, x2, x3, x4, x5) For a = 0 To 4 str=a For b = 0 To 4 If b <> a Then str = a & b For c = 0 To 4 If c <> a and c <> b Then d = m(a) + m(b) + m(c) If d mod 10<>0 Then e=1 str = m(a) & m(b) & m(c) //TracePrint str i = i + 1 End If Next End If Next Next If e = 0 Then For a = 0 To 4 str=a For b = 0 To 4 If b <> a Then str = a & b For c = 0 To 4 If c <> a and c <> b Then str = m(a) &","& m(b)&","& m(c) TracePrint str End If Next End If Next Next End If End Function Call 一个函数(30, 40, 0, 60, 70) 题目:写一个脚本,要求启动时,记录(录制)当前鼠标的移动轨迹,记录结束时,执行反相操作,注意操作速度不可偏差过大。 答案://F9 启动 //F12 停止 Dim txt key = WaitKey If key = 120 Then Delay 500 Call 记录鼠标位置 End If Call 执行反相操作 Sub 执行反相操作 Dim array,n array = split(txt, "|") For i = 0 To UBound(array) n=UBound(array)-i temp = split(array(n), ",") MoveTo temp(0) * 1, temp(1) * 1 Delay 50 c = c &"|"&array(n) TracePrint c Next End Sub Sub 记录鼠标位置 TracePrint "记录鼠标位置" txt="" Do GetCursorPos x1, y1 Delay 50 GetCursorPos x2, y2 If x1 <> x2 or y1 <> y2 Then txt=txt&"|"&x2&","& y2 //TracePrint txt x2 = x1 : y2 = y1 Else Exit Do End If Loop txt = Mid(txt, 2, Len(txt) - 1) TracePrint txt End Sub 题目:限制鼠标活动范围在屏幕坐标(100,100)到(200,200)之内,超出范围则回到边界,请写出代码。 答案:Do Delay 3 GetCursorPos x, y If x < 100 Then MoveTo 100, y If x > 200 Then MoveTo 200, y If y < 100 Then MoveTo x, 100 If y > 200 Then MoveTo x, 200 Loop 题目:写一个函数,已知一段坐标信息的字符串为:"260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130",计算得出距离185,246坐标最近的一组坐标。 提示:For循环与数组应用。 答案:TracePrint 坐标最近判断("260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130", "185,246") EndScript Function 坐标最近判断(信息, 坐标) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, "|") '信息分离 Str = Split(坐标, ",") '坐标分离 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标X与Y值 For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 Else Ping = Ping & "/" & (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, "/") : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint "b(" & i & ")=" & b(i) If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next 坐标最近判断 = Arr(a) End Function 题目:写一个函数,要求:返回一个数值范围内所有偶数之和。 参数1、参数2:整数型,数字 提示:For循环与VBS命令函数应用。 答案:TracePrint 一个数值范围内所有偶数之和(1, 5) Function 一个数值范围内所有偶数之和(参数1, 参数2) If 参数1 mod 2 = 1 Then 参数1= 参数1+1 If 参数2 mod 2 = 1 Then 参数2= 参数2-1 For i = 参数1 To 参数2 Step 2 a=a+i Next 一个数值范围内所有偶数之和=a End Function 题目:启动四个记事本,实现平铺覆盖整个屏幕,不能超出屏幕范围,也不能存在缝隙或重合。 答案:w = Plugin.Sys.GetScRX() h = Plugin.Sys.GetScRY() RunApp "notepad.exe" Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.Size(Hwnd, w / 2, h / 2) Call Plugin.Window.Move(Hwnd, 0, 0) RunApp "notepad.exe" Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.Size(Hwnd, w / 2, h / 2) Call Plugin.Window.Move(Hwnd, w / 2, 0) RunApp "notepad.exe" Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.Size(Hwnd, w / 2, h / 2) Call Plugin.Window.Move(Hwnd, 0, h / 2) RunApp "notepad.exe" Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.Size(Hwnd, w / 2, h / 2) Call Plugin.Window.Move(Hwnd, w / 2, h / 2) 题目:写一个函数,要求传入一个1到n位数的随机数值,如传入随机数123456789,返回12345金币67银币89铜币,传入随机数1234,返回0金币12银币34铜币。 提示:推荐Int,Rnd,Mid,Len这四个函数组合应用。 答案:Randomize 随机数 = Round(10000000000 * Rnd) MessageBox 随机数 MessageBox 传入随机数(随机数) Function 传入随机数(随机数) Dim 金币, 银币, 铜币 随机数=Cstr(随机数) If Len(随机数)<=2 Then 金币 = 0 银币 = 0 铜币 = Int(随机数) End If If Len(随机数) <= 4 and Len(随机数) > 2 Then 金币 = 0 银币 = Int(Mid(随机数, 1, Len(随机数) - 2)) 铜币 = Int(Mid(随机数, Len(随机数) - 1, 2)) End If If Len(随机数) > 4 Then 金币 = Int(Mid(随机数, 1, Len(随机数) - 4)) 银币 = Int(Mid(随机数, Len(随机数) - 3, 2)) 铜币 = Int(Mid(随机数, Len(随机数) - 1, 2)) End If 传入随机数=金币&"金币"&银币&"银币"&铜币&"铜币" End Function 题目:有两个列表文件,一行内容代表一个数据,将两个文件合并为一个,同时去掉所有重复的行。 答案:Dim 列表文件1, 列表文件2,内容 For i=1 to 10000000000000 返回值 = Lib.文件.读取指定行文本内容("C:\列表文件1.txt", i) If 返回值 = "" Then Exit For If InStr(内容, 返回值) < 1 Then 内容=内容&返回值&vbCrLf End If Next For i=1 to 10000000000000 返回值 = Lib.文件.读取指定行文本内容("C:\列表文件2.txt", i) If 返回值 = "" Then Exit For If InStr(内容, 返回值) < 1 Then 内容=内容&返回值&vbCrLf End If Next Call Plugin.File.WriteFileEx("C:\合并列表文件.txt", 内容) 题目:编写一个脚本,实现在画图工具中一边画圆、一边画方的效果,要求圆和方同时绘制,并且不允许使用多线程。 答案:Dim x,y Const pi = 3.14159 Hwnd = Plugin.Window.MousePoint() y0 = 280 x0 = 550 r = 150 temp = Round(r * (cos(45 * pi / 180))) x1 = x0 + temp : y1 = y0 - temp x2 = x0 + temp : y2 = y0 + temp x3 = x0 - temp : y3 = y0 + temp x4 = x0 - temp : y4 = y0 - temp x = x1 a=0 For y = y1 To y2 Step 1 a = a + 1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 Next y= y2 For x2 - x3 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 x=x-1 Next x= x3 For y3 - y4 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 y=y-1 Next y= y4 For x = x4 To x1 Step 1 a=a+1 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) xy = x0 - r * cos(a*3.14/180) yy = y0 - r * sin(a*3.14/180) Call Plugin.Bkgnd.LeftClick(Hwnd, xy, yy) Delay 10 Next EndScript 题目:编写一个函数,传递4个数字,通过循环枚举出所有可能的公式(可以不列举括号),返回能够算出最终结果为24的表达式(提示:24点,可用函数Eval)。 答案:Dim 得数,算式,n,随机数1,随机数2 Call 简化24点(1,3,7,2) Sub 简化24点(随机整数1,随机整数2,随机整数3,随机整数4) d=0 For a = 1 To 4 For b = 1 To 4 For c = 1 To 4 算式=随机整数1&Mid("+-*/", a,1) &随机整数2&Mid("+-*/",b,1) &随机整数3&Mid("+-*/", c,1) &随机整数4 原算式 = 算式 // SayString 算式 For 3 m1 = InStr(算式, "+") m2 = InStr(算式, "-") m3 = InStr(算式, "*") m4 = InStr(算式, "/") Call 运算优先原则 c1 = Len(随机数1) c2 = Len(随机数2) c3 = Len(算式) c4=c3-c1-c2-1 得数 = Round(得数, 3) If Mid(算式, 1, 1) = "-" Then 算式 = 得数 & Mid(算式, n +c2+1, c4) Else 算式 = Mid(算式, 1, n -c1-1) & 得数 & Mid(算式, n + c2 + 1, c4) End If Next // SayString "="&得数&Vbcrlf d=d+1 If 得数 = 24 Then MessageBox 原算式 & "=" & 24 Exit Sub End If Next Next Next MessageBox "不能得到24" End Sub Sub 运算优先原则 If Mid(算式, 1, 1) = "-" Then For n = 3 To Len(算式) If IsNumeric(Mid(算式,n,1)) =0 Then Exit For Next Call 取符号前后随机数 If Mid(算式,n,1) = "+" Then 得数 = 随机数2 - 随机数1 Exit Sub End If If Mid(算式,n,1) = "-" Then 得数 = - 随机数2 - 随机数1 Exit Sub End If Exit Sub End If If m1 = 0 and m2 =0 and m4=0 and m3>0 Then n=m3 Call 取符号前后随机数 得数 = 随机数1*随机数2 Exit Sub End If If m1 = 0 and m2 =0 and m3=0 and m4>0 Then n=m4 Call 取符号前后随机数 得数 = 随机数1/随机数2 Exit Sub End If If m3 > 0 and m4 > 0 and m3 < m4 Then n=m3 Call 取符号前后随机数 得数 = 随机数1 * 随机数2 Exit Sub End If If m3 > 0 and m4 > 0 and m3 > m4 Then n=m4 Call 取符号前后随机数 得数 = 随机数1 / 随机数2 Exit Sub End If If m3 > 0 and m4 =0 Then n=m3 Call 取符号前后随机数 得数 = 随机数1 * 随机数2 Exit Sub End If If m3 = 0 and m4 >0 Then n=m4 Call 取符号前后随机数 得数 = 随机数1 / 随机数2 Exit Sub End If If m3 = 0 and m4 =0 and m2=0 and m1>0 Then n=m1 Call 取符号前后随机数 得数 = 随机数1 + 随机数2 Exit Sub End If If m3 = 0 and m4 = 0 and m1 > 0 and m2 > 0 and m1 < m2 Then n = m1 Call 取符号前后随机数 得数 = 随机数1 + 随机数2 Exit Sub End If If m3 = 0 and m4 =0 and m1=0 and m2>0 Then n=m2 Call 取符号前后随机数 得数 = 随机数1-随机数2 Exit Sub End If If m3 = 0 and m4 = 0 and m1 > 0 and m2 > 0 and m1 > m2 Then n = m2 Call 取符号前后随机数 得数 = 随机数1 - 随机数2 Exit Sub End If End Sub Sub 取符号前后随机数 随机数1 = "" 随机数2 = "" For i = 1 To n - 1 If IsNumeric(Mid(算式,(n-i),1)) = -1 Then 随机数1 = Mid(算式, n - i, 1) & 随机数1 ElseIf Mid(算式, n - i, 1) = "." Then 随机数1="."&随机数1 Else Exit For End If Next 随机数1 = Round(随机数1, 3) For i = 1 To Len(算式)-n If IsNumeric(Mid(算式,n+i,1)) = -1 Then 随机数2 = 随机数2 & Mid(算式, n + i, 1) ElseIf Mid(算式, n + i, 1) = "." Then 随机数2=随机数2&"." Else Exit For End If Next 随机数2 = Round(随机数2,3) End Sub 题目:在屏幕指定范围内寻找指定颜色使用以下哪条命令? 答案:FindColor 题目:、2 两个数字型的数据使用哪个运算符得到的结果为 "22 答案:& 题目:if语句判断的表达式数据类型是 答案:逻辑 题目:命令Delay有几个参数 答案:1 本框中的字符串表达式 题目:十进制数值转换为八进制字符串可以使用下列哪个函数? 答案:oct 题目:在一个字符串中查找另一个字符串应该使用哪个函数(从头开始)? 答案:inStr 题目:获取一个字符串的颠倒字符应该使用下列函数中的哪一个 答案:StrReverse 题目:在一个数组中过滤出一组符合规则的数据应该使用哪个函数 答案:Filter 题目:将颜色值 “C08040" 拆为红、绿、蓝三色分量,他们的值分别为 答案:64,128,192 题目:下列代码报错。请给出原因: IfColor "860,27","E1B072",0 Then MessageBox "颜色等于" Else MessageBox "颜色不等于" End If 请作答。 答案:参数格式不对 正确写法如下: IfColor 860,27,"E1B072",0 Then MessageBox "颜色等于" Else MessageBox "颜色不等于" End If 题目:写一个函数,该函数带一个参数str1,函数功能:弹出内容为str1的弹窗,请调用函数并给出代码。 答案:Call 弹出内容("123456") Function 弹出内容(str1) MessageBox str1 End Function 题目:判断一个文件夹是否存在应该使用下列哪条命令 答案:Plugin.File.IsFileExist 题目:模拟输入大量内容时,比KeyPress更方便的命令是 答案:saystring 题目:在网上下载的按键精灵功能扩展插件解压后 *.dll 格式的文件应该放在按键精灵的哪个目录下 答案:plugin 题目:导入资源库中的石像答题插件,需要哪些权限 答案:不需要权限 题目:按键抓抓默认使用哪个组合键获取鼠标特征码 答案:Ctrl+alt+q 题目:命令库为按键精灵提供了额外的封装命令,请问哪种方法可以将经过审核的命令库直接添加到按键精灵中? 答案:编辑器点击工具栏的资源库按钮,切换到命令库页面 题目:如何在按键精灵2014编辑器界面中修改脚本的使用说明? 答案:脚本属性页的使用说明选项卡 题目:当脚本编辑器的比较乱时,可以使用编辑器提供的哪个功能来自动整理脚本 答案:自动缩进 题目:按键精灵不能运行在哪个操作系统中 答案:Linux 题目:已知命令名称或明确的描述,怎样在全部命令中快速的定位到该命令? 答案:在编辑器全部命令上方输入命令名或描述,点击搜索命令 题目:怎样才能找到按键抓抓中的图像处理工具? 答案:图像页面切换到图像处理选项卡 题目:LeftUp命令的作用是 答案:左键弹起 题目:按键精灵自带了功能强大的工具集,可以用于抓图找句柄等操作,这个工具的名字是 答案:按键抓抓 题目:按键精灵2014使用云脚本需要哪些权限? 答案:登录 题目:按键弹起的命令是 答案:keyup 题目:在脚本中定义一个变量应该使用哪条语句 答案:Dim 题目:在编辑器中可以使用哪个功能设置自定义关键的提示和突出颜色显示 答案:批注 题目:使用哪个运算符(命令)可以实现将逻辑颠倒 答案:Not 题目:以下哪种结构是不推荐在大型脚本工程中使用 答案:跳转结构 题目:根据红、绿、蓝三种颜色的分量返回颜色值的函数是 答案:RGB 题目:vbCrLf 表示下列哪一个数据 答案:13+10 题目:如何定义能让 a 成为拥有10个元素的数组 答案:Dim a(9) 题目:使用哪条命令可以获取数组的长度 答案:Ubound 题目:将一个字符串中的所有指定字符替换为另一个字符的功能应该使用哪个函数实现 答案:replace 题目:vbMagenta 表示下列哪一个颜色值 答案:&HFF00FF 11111111111111 题目:如下代码提示:没有找到界面元素,可能是什么原因?(请至少列出两种可能原因) Event Form.Button1.Click End Event 请作答。 答案:1.界面元素 Form.Button1不存在 2.界面元素 Form.Button1重命名过,名称不对应 题目:已知有图片若干(图1-图10),在范围0,0,1024,768中执行找图命令,请利用数组方式调用图片名称(提示:For循环,数组),请作答。 答案:Dim 图(9) 图(0) = "Attachment:\图1.bmp" 图(1) = "Attachment:\图2.bmp" 图(2) = "Attachment:\图3.bmp" 图(3) = "Attachment:\图4.bmp" 图(4) = "Attachment:\图5.bmp" 图(5) = "Attachment:\图6.bmp" 图(6) = "Attachment:\图7.bmp" 图(7) = "Attachment:\图8.bmp" 图(8) = "Attachment:\图9.bmp" 图(9) = "Attachment:\图10.bmp" For i = 0 To 9 FindPic 0,0,1024,768,图(i),0.9,intX,intY If intX > 0 And intY > 0 Then MessageBox "找到图片"&(i+1) End If Next 题目:获取当前窗口标题包含"Internet"关键字符的窗口句柄的数量,请作答。 答案:HwndEx = Plugin.Window.SearchEx(0, "Internet", 0) dim MyArray MyArray = Split(HwndEx, "|") If UBound(MyArray)>=0 Then MessageBox "窗口句柄的数量="&(UBound(MyArray)-1) 题目:定义一个函数(包含参数:num1):在0,0,800,900范围内,鼠标随机移动指定num1次,定义完成后再调用此函数,请作答 答案:Function 定义一个函数(num1) For num1 Randomize x=Int((800 + 1) * Rnd) Randomize y=Int((900 + 1) * Rnd ) MoveTo x, y TracePrint x&","&y Next End Function Call 定义一个函数(11) 题目:替换字符串"12X34X56X"中的"X"为"|",请作答。 答案:TracePrint Replace("12X34X56X","X","|") 题目:用二进制方式判断"ABC"与"abc"是否相等,请作答。 答案:If StrComp("ABC", "abc", 0) = 0 Then MessageBox "相等" Else MessageBox "不相等" End If 题目:使用按键抓抓获取鼠标特征码后,对应哪一条命令进行判断 答案:GetCursorShape 题目:在脚本开头中加入代码 Msgbox True ,弹出的值为 答案:-1 题目:a = "2" + "2" 语句执行后,变量 a 的值为? 答案:"22" 题目:实现乘方(幂)运算应该使用下列哪个运算符 答案:^ 题目:在脚本开头中加入代码 Msgbox Ture ,弹出的值为? 答案:空 题目:使用 abs 函数对 -3.14 进行运算,函数的返回结果是? 答案:3.14 题目:使用哪条命令可以将一个字符串根据特定分隔符切分并创建数组 答案:split 题目:Chr(32) & Chr(32) & Chr(32) 与下列哪条语句执行的结果是相同的 答案:String(3,32) 题目:哪些函数可以获取当前系统的时间和日期 答案:now 题目:使用Eval函数可以计算一个字符串表达式,并返回结果,这个函数的相关帮助在那里查询 答案:标准VBS命令-函数-其他函数 题目:将一个字符串转换为小写形式应该使用哪个函数 答案:Lcase 题目:已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键(提示:window插件),请作答。 答案:Call Plugin.Window.Move(Hwnd, 0, 50) Delay 50 Call Plugin.Bkgnd.LeftClick(Hwnd, 50, 100) 题目:获取系统时间到变量MyTime1,请作答。 答案:MyTime1 = now TracePrint MyTime1 题目:编写一个函数,实现SayString相似功能的函数,只要能够输入英文即可 答案:Function SayString相似功能的函数(Str) Call Plugin.Sys.SetCLB(Str) KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 End Function Call SayString相似功能的函数("SayString相似功能的函数") 题目:以下代码运行后未出现弹窗,请简述找不到图的可能原因(至少三个) FindPic 0, 0, 800, 600, "Attachment:\ajjl.bmp", 1.0, ajjlbmpX, ajjlbmpY If ajjlbmpX > 0 And ajjlbmpY > 0 Then MessageBox "找到图片" End If 答案:1,找图区域不对 2,图片“ "Attachment:\ajjl.bmp"”在附件中不存在 3,相似度1.0太高 题目:下列插件中,哪一个可以用于后台键鼠操作模拟 答案:Bkgnd 题目:表达式 a = 1 And 2 成功执行后,变量 a 的值应该为 答案:0 题目:执行代码 Plugin.Window.Searchex("") 会返回什么数据? 答案:显示所有已经显示过的窗口是错误的 题目:获取所有窗口标题包含"Internet Explorer"关键字符的句柄,并将这些窗口的尺寸设置为800X600。 答案:HwndEx = Plugin.Window.Search("Internet Explorer") TracePrint HwndEx dim Array Array = Split(HwndEx, "|") MessageBox UBound(Array) If UBound(Array)>=0 Then i=0 For UBound(Array) 句柄 = Array(i) TracePrint 句柄 Call Plugin.Window.Size(句柄, 800, 600) Delay 10 i=i+1 Next End If 题目:写一个脚本,要求:在画图工具中画一个渐变放大的不规则多边形(大于4边)漩涡效果图。 提示:For循环的应用。 答案:Call 画多边漩涡(600, 600, 50, 7) //五边形 EndScript Sub 画多边漩涡(x, y, r, n) //x 圆心横坐标 y 圆心纵坐标 //r 半径 n 多边形的边数 Const PI = 3.1415926 Dim x1, y1 //起点坐标 dim x2, y2 //下一个点坐标 x1 = x y1 = y - r Dim t t = PI For i = 1 To 30 If i > 1 Then MoveTo x1, y1 Delay 20 LeftUp 1 End If MoveTo x1, y1 Delay 20 LeftDown 1 t = t - pi * 2 / n x2 = x + int(r * sin(t)) y2 = y + int(r * cos(t)) //更新起点坐标 x1 = x2 y1 = y2 r = r + 2 Next End Sub 题目:写一个脚本,对一个文件夹内指定格式的文件做重命名处理,要求:重命名为数字编号从1开始,当有新增文件的时候,自动重名并跟随末尾编号格式,中间删减的时候,末尾名称自动改名补回空缺序号。 提示:我的命令库与File插件的应用。 答案:Dim 路径, i, a 路径 = "C:\" //你改成自己要用的路径 数组 = Lib.文件.遍历指定目录下所有文件名(路径) For i = 0 To UBound(数组) - 1 a = i + 1 Call Plugin.File.ReNameFile(路径 & "\" & 数组(i), 路径 & "\" & a & ".txt") TracePrint 路径 & "\" & a & ".txt" TracePrint 路径 & 数组(i) Next 题目:使用自定义变量(UserVar)设置间隔时间(单位:秒),循环判断是否按下按键A,在每次循环中如果按下按键A则按顺序按C、D键并延时,请作答 答案:UserVar val=2 "设置间隔时间单位:秒" Do Delay 1000*val Key = WaitKey If key = 65 Then KeyPress "C", 1 Delay 1000 KeyPress "D", 1 Delay 1000 End If Loop 题目:定义一个函数,其中包含四个参数(a1,a2,c1,c2)。 功能:随机生成a1~a2个c1~c2之间的4的倍数(范围包括c1c2),并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果作为函数返回值,请写出代码并且调用函数输出结果。(例如调用函数生成3~9个60~91的数对应的字符串:PXP@XH) 答案:Function 定义一个函数含四个参数(a1, a2, c1, c2) Dim txt Randomize 取随机数 = Int((a2 - a1 + 1) * Rnd + a1) TracePrint 取随机数 Dim array(1000) i = 0 n=c1 For c2 - c1 + 1 If n mod 4 = 0 Then array(i) = n // TracePrint n // TracePrint i i = i + 1 End If n = n + 1 Next m = i - 1 For 取随机数 Randomize x = Int((7 - 0 + 1) * Rnd + 0) txt=txt&Chr(array(x)-0) Next 定义一个函数含四个参数=txt End Function TracePrint 定义一个函数含四个参数(3,9,60,91) 题目:写一个脚本,要求:在画图工具中画一个渐变放大的不规则多边形(大于4边)漩涡效果图。 提示:For循环的应用。 脚本要求是画一个不规则的多边形 答案:Call 渐变放大的不规则多边形(600, 600, 5,5) Sub 渐变放大的不规则多边形(x, y, r, n) //x 圆心横坐标 y 圆心纵坐标 //r 半径 n 多边形的边数 Const PI = 3.1415926 Dim x1, y1 //起点坐标 dim x2, y2 //下一个点坐标 x1 = x y1 = y - r Dim t t = PI For i = 1 To 60 If i > 1 Then MoveTo x1, y1 Delay 20 LeftUp 1 End If MoveTo x1, y1 Delay 20 LeftDown 1 t = t - pi * 2 / n x2 = x + int(r * sin(t))- (i mod n) * 20 y2 = y + int(r * cos(t))+ (i mod n) * 5 x1 = x2 y1 = y2 r = r + 2 Next End Sub 题目:遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并将取出的字符按照与原来相反的顺序拼接成新的字符串,请写出代码 答案:Dim 字母,数字 For i = 1 To Len("A1a2d5m8Qz") str = mid("A1a2d5m8Qz", i, 1) If Asc(str)>=97 and Asc(str)<=126 Then 字母=str&字母 If Asc(str) >= 48 and Asc(str) <= 57 Then 数字 = str & 数字 Next TracePrint "字母="&StrReverse(字母) TracePrint "数字="&StrReverse(数字) TracePrint "新的字符串="&字母&数字 题目:LeftClick命令的意思是 答案:左键单击 题目:想知道脚本是否存在错误,应该在编辑器中使用哪个功能 答案:调试 题目:针对特定游戏编写的脚本因为游戏缘故导致脚本失效的情况下,可以使用按键自带的哪个工具保障按键精灵脚本可以正常运行。 答案:神盾 题目:按键精灵出品的使用纯硬件模拟键盘、鼠标操作的产品名字是 答案:按键盒子 题目:Select语句在一条分支中判断多个条件值时,条件应使用那种分隔符? 答案:,逗号 题目:只可用于表示整数的数据中,那一个能表示的范围是最大的? 答案:Long 题目:ReDim 语句针对哪种数据类型生效? 答案:数组 题目:256 转换为十六进制数据后的值为 答案:&H100 题目:按键精灵的颜色数据 “E6594A” 属于哪个色系? 答案:蓝色 题目:改变数组长度时如何保证数组中的数组不会丢失 答案:ReDim Preserve 题目:用按键自带命令输出20个"@"符号,至少写出两种方法,(本题考点不在循环方式上)请作答。 答案://第一种 For 20 SayString "@" Next //第二种 Call Plugin.Sys.SetCLB("@") For 20 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Next 题目:同时查找多个点的颜色应该使用以下哪条命令 答案:Plugin.Color.FindMultiColor 题目:网页插件可以与网页版按键精灵(WQM)对接,实现自动填表等功能,在使用这个插件前,必须执行那条命令进行初始化? 答案:Bind 题目:以下代码在事件触发时弹出的a的值为? UserVar a=0 "设置内容" Sub OnScriptLoad() MsgBox a End Sub 答案:空 题目:代码 a = ",," : For 3 : a = Join(Split(a, ","), ",,") : Next 执行后,变量a包含多少个逗号? 答案:16 题目:如何确定一个句柄对应的窗口是否存在 答案:使用Plugin.Window.IsWindow命令 题目:一下选项中,哪一个不能实现循环三次 答案:Do : i = i + 1 : Loop While i < 4 题目:在不确定颜色的情况下,寻找具备特定点阵信息的图形应该使用下列哪条命令? 答案:Plugin.Color.FindShape 题目:进行全屏幕找图找色时,需要考虑到不同电脑具有不同的屏幕尺寸,使用哪个插件可以获取屏幕的分辨率来解决这个问题 答案:Sys系统插件 题目:定义一个函数,随机输出"2010-01-22"到"2015-12-31"之间的某个日期,此日期作为函数返回值,请作答。 答案:MessageBox 一个函数 Function 一个函数 n=DateDiff("d", "2010-01-22", "2015-12-31") Randomize 取随机数 = Int(n + 1) * Rnd 一个函数=DateAdd("d",取随机数,"2010-01-22") End Function 题目:获取所有ie浏览器的窗口,并将这些窗口的尺寸设置为800X600。(不得获取到其他非ie浏览器的窗口) 答案:HwndEx = Plugin.Window.SearchEx("IEFrame", "Internet Explorer", 0) Dim array array = split(HwndEx, "|") If Ubound(array) > 1 Then For i = 0 To Ubound(array) - 1 Call Plugin.Window.Active(array(i)) Call Plugin.Window.Size(Hwnd, 800, 600) Delay 200 Next Else Hwnd = Plugin.Window.Find("IEFrame", "Internet Explorer") Call Plugin.Window.Active(array(i)) Call Plugin.Window.Size(Hwnd, 800, 600) End If 题目:定义一个函数,其中包含四个参数(n,c1,c2)。 功能:随机生成n个c1~c2之间的4的倍数(范围包括c1c2),并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果作为函数返回值,请写出代码并且调用函数输出结果。(例如调用函数生成6个60~91的数对应的字符串:AMGUY[E) 答案:Function 定义一个函数含四个参数(n, c1, c2) For n Do Randomize d = Int((c2 - c1 + 1) * Rnd + c1) if d mod 4=0 Then Exit Do Loop TracePrint Chr(d) aa=aa&Chr(d) Next 定义一个函数含四个参数=aa End Function TracePrint 定义一个函数含四个参数(6,60,91) 题目:定义一个函数(包含参数:num1):在300,300,800,900范围内,鼠标随机移动指定num1次,定义完成后再调用此函数,请作答。 答案:Function 定义一个函数(num1) For num1 Randomize x=Int((800 -300+ 1) * Rnd)+300 Randomize y=Int((900 -300 + 1) * Rnd )+300 MoveTo x, y TracePrint x&","&y Next End Function Call 定义一个函数(11) 题目:如果希望脚本出错时自动停止运行,应该使用哪一条命令 答案:EndScript 题目:执行 LockMouse 锁定鼠标位置后,必须指定哪条命令鼠标才会恢复控 答案:UnLockMouse 题目:直接判断一个坐标点颜色是否符合条件可以使用下列那种语句? 答案:IfColor ... End If 题目:使用哪条命令可以通过返回数字判断变量的数据类型 答案:VarType 题目:下列if语句允许的判断形式那一项是完整且正确的? 答案:IF ELSEIF ELSE 题目:Asc函数可以根据文字取得ANSI代码,与此功能相对应的函数是 答案:Chr 题目:Int(3.141592654) 语句执行后的返回值为 答案:3 题目:选出下列命令参数格式错误的选项。 答案:PutAttachment "*.*","\" 题目:UserVar为用户自定义的变量设置 UserVar A="3,5" "这里是手动输入的两个值" 然后赋给B和C,让B=5,C=3,请作答。 答案:UserVar A="3,5" "这里是手动输入的两个值" B = Int(split(A, ",")(1)) MessageBox B C = Int(split(A, ",")(0)) MessageBox C 题目:如何获取系统时间当天是星期几?请给出代码 答案:Select Case Weekday(now) Case 1 MessageBox 星期日 Case Else MessageBox "星期"&Weekday(now)-1 End Select 题目:字符号串"1+2+3+45+78"(提示:字符串内容未知,已知格式是数字+数字),请返回这个字符串表达式的值(返回值为数字的总和),请给出代码。(不允许使用eval函数) 答案:字符串 = "1+2+3+45+78" Dim array array = split(字符串, "+") If Ubound(array) > 0 Then For i = 0 To Ubound(array) n=n+Int(array(i)) Next MessageBox n End If 题目:已知xxx.dll为插件文件,请详细解释命令作用:Import "xxx.dll"。 答案: 导入一个插件"xxx.dll",当文件被导入后,里面的函数可以直接被调用,不需要使用VBSCall或Plugin命令 题目:Plugin.Window.Find 与 Plugin.Window.FindEx 命令在查找窗口标题或类型时不进行检测,对应的参数应该传递? 答案:0 题目:为脚本动作添加音效,可以使用以下哪条命令? 答案:Plugin.Media.Play 题目:在网页版按键精灵(WQM)中调用JS代码应该使用下列哪条命令 答案:Plugin.Web.RunJS 题目:以下哪条命令可以获取鼠标指向的窗口 答案:Plugin.Window.MousePoint 题目:在按键精灵中可以精确表示最大范围整数的数字类型是 答案:Currency 题目:若 Msgbox 的第二个参数传递为 vbOKCancel,则这个对话框有几个按钮 答案:2 题目:以下哪条语句可以销毁数组arr 答案:Erase arr 题目:下列哪条命令可以返回某个角的正弦值 答案:sin 题目:用按键自带命令写一个脚本,要求在记事本里运行后可在输出20个"@"符号,至少写出两种方法,(本题考点不在循环方式上)请作答 答案://方法1 SayString ("@@@@@@@@@@@@@@@@@@@@@") //方法2 For 20 KeyDown 16, 1 KeyPress 50, 1 KeyUp 16, 1 Delay 50 Next 题目:(后台)判断某句柄为hwnd的窗口的窗口坐标(50,100)处颜色是否为"FFFFFF",是则在这个点点击鼠标右键,请给出代码。 答案:GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 50, 100) If GetColor = "FFFFFF" Then Call Plugin.Bkgnd.RightClick(Hwnd, 50, 100) 题目:控制台插件的功能是? 答案:操作Console命令行窗口 题目:RGB命令可以实现使用红、绿、蓝三原色分量混合为一个颜色值,与此命令功能相反的命令是 答案:Plugin.Color.ColorToRGB 题目:使用 Plugin.Window.Max 命令可以将窗口最大化,与之对应的命令[窗口最小化]是下列哪个 答案:Plugin.Window.Min 题目:编写一个函数,传递5个数字参数,如果任意三个数字之和为10的倍数,则返回对应表达式。(5个数值参数允许存在重复,但不允许某个参数重复调用) 答案:Function 一个函数(x1, x2, x3, x4, x5) Dim m, a, b, c, d, e e=0 m= array(x1, x2, x3, x4, x5) For a = 0 To 4 str=a For b = 0 To 4 If b <> a Then str = a & b For c = 0 To 4 If c <> a and c <> b Then d = m(a) + m(b) + m(c) If d mod 10<>0 Then e=1 str = m(a) & m(b) & m(c) //TracePrint str i = i + 1 End If Next End If Next Next If e = 0 Then For a = 0 To 4 str=a For b = 0 To 4 If b <> a Then str = a & b For c = 0 To 4 If c <> a and c <> b Then str = m(a) &","& m(b)&","& m(c) TracePrint str End If Next End If Next Next End If End Function Call 一个函数(30, 40, 0, 60, 70) 题目:下列哪条命令可以返回某个角的余弦值 答案:Cos 题目:Dim arr(2,3) 语句执行后,arr拥有多少个元素 答案:12 题目:下列哪条命令可以获取0-1之间的随机数 答案:Rnd 题目:下列哪个函数可以将写法正确的十六进制字符串转换为十进制数值 答案:hex是错误的 题目:判断数字a是否为3的倍数或者以2为尾数,是则弹出信息提示框,请给出代码。 答案:a=9 If a mod 3=0 then MessageBox "3的倍数" If a mod 2 =0 then MessageBox "以2为尾数" 题目:以下那条命令可以获取当前活动的窗口 答案:Plugin.Window.Foreground 题目:下列窗口数据中,哪一项是无法修改的 答案:窗口类名 题目:定义一个函数,其中包含三个参数(n,c1,c2)。 功能:随机生成n个c1~c2之间的3的倍数(范围包括c1c2),并将生成的数值转为指定的ANSI字符代码相对应的字符,最终结果作为函数返回值,请写出代码并且调用函数输出结果。(例如调用函数生成6个60~91的数对应的字符串:ZN?TQ<) 答案:Call 包含三个参数(6, 60, 91) Function 包含三个参数(n, c1, c2) Dim c, 文本 For c = c1 To c2 Step 1 If c mod 3 = 0 Then 文本 = 文本 & "|" & c Next 文本 = Mid(文本, 2, Len(文本) - 1) TracePrint 文本 Dim array array = split(文本, "|") Dim 随机数 文本 ="" For n Randomize 随机数 = Int((Ubound(array) + 1) * Rnd) TracePrint Chr(array(随机数)) 文本 = 文本 &Chr(array(随机数)) Next 包含三个参数 = 文本 TracePrint 文本 End Function 题目:定义一个函数,该函数包含俩个日期参数,比如随机输出"2010-01-22"到"2015-12-31"之间的某个日期(包含这两个日期),此日期作为函数返回值,请作答 答案:Call 定义一个函数("2010-01-22", "2015-12-31") Function 定义一个函数(t0, t1) Dim n,随机数 n = DateDiff("d", t0, t1) Randomize 随机数 = Int((n + 1) * Rnd) 定义一个函数 = DateAdd("d", 随机数, t0) TracePrint 定义一个函数 End Function 题目:写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码 答案:答案: Dim 父窗口句柄, 子窗口句柄, 客户区大小大小 Call RunApp("notepad.exe") Delay 1000 父窗口句柄 = Plugin.Window.Find("Notepad", 0) 子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, "Edit", 0) TracePrint "查找到的父窗口句柄为:" & 父窗口句柄 TracePrint "查找到的子窗口句柄为:" & 子窗口句柄 Call 比例大小(父窗口句柄, 子窗口句柄, 0.9) EndScript Sub 比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父边框, 父左1, 父左2, 父右1, 父右2 父边框 = Plugin.Window.GetWindowRect(父窗口句柄) 父左1 = Clng(Split(父边框, "|")(0)) : 父左2 = Clng(Split(父边框, "|")(1)) 父右1 = Clng(Split(父边框, "|")(2)) : 父右2 = Clng(Split(父边框, "|")(3)) Call Plugin.Window.Size(子窗口句柄, (父右1 - 父左1) * 比例, (父右2 - 父左2) * 比例) End Sub 题目:编写一个脚本,要求运行后记录5秒时间内的所有键盘、鼠标操作,记录完毕后,弹出对话框等待,随后进行回放。 答案:DimEnv 线程ID_A,线程ID_B,线程ID_C 线程ID_A = BeginThread(A) 线程ID_B = BeginThread(B) 线程ID_C = BeginThread(C) BeginThread 等待5秒() Sub A() Do Key = WaitKey() Call Plugin.File.WriteFileEx("C:\111.txt", "KeyPress " & key & ", 1") Loop End Sub Sub B() Do GetCursorPos x, y Call Plugin.File.WriteFileEx("C:\111.txt", "MoveTo " & x & "," & y) Loop End Sub Sub C() Do //鼠标左键单击事件 Mouse = WaitClick() If Mouse =32770 Or Mouse =32769 Then Call Plugin.File.WriteFileEx("C:\111.txt", "LeftClick 1") End If //鼠标左键双击事件 If Mouse =32771 Then Call Plugin.File.WriteFileEx("C:\111.txt", "LeftDoubleClick 1") End If //鼠标右键单击事件 If Mouse =32773 Or Mouse =32774 Then Call Plugin.File.WriteFileEx("C:\111.txt", "RightClick 1") End If //鼠标中键单击事件 If Mouse =32777 Or 32778 Then Call Plugin.File.WriteFileEx("C:\111.txt", "MiddleClick 1") End If //鼠标滚轮向上滚动事件 If Mouse =32782 Then Call Plugin.File.WriteFileEx("C:\111.txt", "MouseWheel 1") End If //鼠标滚轮向下滚动事件 If Mouse =32781 Then Call Plugin.File.WriteFileEx("C:\111.txt", "MouseWheel -1") End If Loop End Sub Sub 等待5秒() Delay 1000 * 5 MessageBox "等待" StopThread 线程ID_A StopThread 线程ID_B StopThread 线程ID_C Call 重新回放() End Sub Sub 重新回放() 文本内容 = Plugin.File.ReadFileEx("C:\111.txt") 文本内容 = Replace(文本内容, "|", vbcrlf)//分割成每一行 TracePrint 文本内容 Execute (文本内容)//执行 ExitScript End Sub 题目:100个人手拉手围成一圈,逢三退一(1到3循环数数,被数到3的人退出),求最后一个被剩下人的编号.请写出代码 答案:Dim a(99) //给数组中的每个元素赋值 For i = 1 To 100 a(i - 1) = i next i = 0 报数 = 0 lastNum = 100 Do If a(i) <> 0 Then 报数 = 报数 + 1//对报数进行记录 If 报数 = 3 Then 报数 = 0//报数清零 lastNum = lastNum - 1 a(i) = 0//对该元素进行失效处理 If lastNum = 1 Then Exit Do End If End If End If //对有效的元素进行统计 If i < 99 Then i = i + 1 Else i = 0 End If Loop //算出最后一个数 For i = 0 To 99 If a(i) <> 0 Then lastNum = a(i) Exit For End If Next TracePrint lastNum 题目:使用 Msgbox 命令可以弹出对话框,并自定很多样式,他的第三个参数表示 答案:对话框标题 题目:下列数据哪一个是 Space(10) 语句执行后返回的结果 答案:10个空格 题目:使用哪条命令可以根据一些立即数据创建一个数组 答案:array 题目:替换字符串"12X34X56X7X8"中的"X"为"|",请作答 答案:MyString = Replace("12X34X56X7X8", "X", "|") TracePrint MyString 题目:请使用For语句实现真正意义上的无限次循环 答案:i=1 For i i = i + 1 TracePrint i Next 题目:怎样跳到按键精灵集成的按键码查询功能界面 答案:基本命令-键盘命令 题目:关于找图找色描述错误的是? 答案:可以用找图命令找到的图片一定无法用找色命令找到 题目:已知变量a=5、b=3,分别弹出其“加减乘除”四个结果,请作答。 答案:a = 5 : b = 3 MessageBox "相加:" & (a + b) MessageBox "相减:" & (a - b) MessageBox "相乘:" & (a * b) MessageBox "相除:" & (a / b) 题目:使用Access插件对数据库进行增删改查操作时,应先使用哪条命令连接到数据库? 答案:Plugin.Access.Connect 题目:获取窗口的文本信息应该使用下列哪条命令? 答案:Plugin.Window.GetTextEx 题目:执行代码 Plugin.Window.Searchex("","",0) 会返回什么数据? 答案:所有窗口句柄 题目:请问以下脚本a的弹出值是多少? DimEnv a a = 30 Call xfun(a) MsgBox a Function xfun(x1) x1=15 a=5 x1=x1+a End Function 答案:5 题目:以下哪条命令可以根据窗口句柄获取对应的程序路径? 答案:Plugin.Window.GetExePath 题目:网页版按键精灵(WQM)能否与按键精灵的代码及其他插件混用? 答案:可以混用 题目:执行代码 Plugin.Window.Searchex("","",0) 会返回什么数据? 答案:系统中所有的窗口句柄 题目:判断变量str中的字符串长度是否大于等于5位,如果小于5位,则在变量中字符串后面补"D",以达到长度为5,请作答。 答案:str = "11" n=Len(str) If n<5 Then TracePrint n For 5 - n str =str&"D" Next Else TracePrint "长度是大于等于5位" End If TracePrint str 题目:监视鼠标动作,并在鼠标有动作时给出上次动作距离此次动作的时间间隔,时间间隔要求精确到毫秒,监控的动作要求包括鼠标移动和任意键点击。 答案:Dimenv t0, x0, y0 BeginThread 鼠标点击 BeginThread 鼠标移动 t0= Plugin.GetSysInfo.GetTime TracePrint t0 GetCursorPos x0, y0 Do Delay 1000 Loop Sub 鼠标点击 Do key = WaitClick If key > 0 Then t1= Plugin.GetSysInfo.GetTime TracePrint "鼠标点击时间间隔="&(t1 - t0) t0= Plugin.GetSysInfo.GetTime End If Loop End Sub Sub 鼠标移动 Do GetCursorPos x1, y1 If x1 <> x0 or y1 <> y0 Then x0 = x1 : y0 = y1 t1= Plugin.GetSysInfo.GetTime TracePrint "鼠标移动时间间隔="&(t1 - t0) t0= Plugin.GetSysInfo.GetTime End If Loop End Sub 题目:何定义能让 a 成为一个可变长度的数组 答案:Dim a() 题目:得到字母C的ANSI字符代码并赋值给变量B,请写出代码。 答案:Dim B B = Asc("C") TracePrint B 题目:编写一个函数,实现对传入字符串做转义符处理,转义符相关信息,可以百度搜索,要求至少实现 \r \n \t \xxx (数字,插入任意ASCII字符代码)。 答案:字符串 = "字符串\r字符串\n字符串\t字符串" MessageBox 转义("\r|\n|\t",字符串) Function 转义(参数,字符串) 参 = Split(参数, "|") //得到我们设定的需要转义的符号 For a = 0 To UBound(参)//依次将我们设定好的转义符号转换 TracePrint 参(a)&字符串 分割 = Split(字符串, 参(a)) ZYF = 参(a) Select Case ZYF Case "\r" 转义符 = VbCr Case "\n" 转义符 = VbLf Case "\t" 转义符 = VbTab Case "\xxx" //设定任意转义符以及对应的意义 转义符 = Vbxx End Select TracePrint UBound(分割) If UBound(分割) > 0 Then For i = 0 To UBound(分割) - 1 字符串 = 分割(i)&转义符 Next 字符串 = 字符串&分割(i) End If Next 转义=字符串 End Function 题目:有N个窗口(可以指定为记事本窗口),第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 答案:n = 8 For n RunApp "notepad.exe" Delay 50 Next HwndEx = Plugin.Window.Search("记事本") Hwndx = Split(HwndEx, "|") ScreenX = Plugin.Sys.GetScRX()//屏幕宽度 ScreenY = Plugin.Sys.GetScRY()//屏幕高度 h=0 For i = 0 To n hwnd=Hwndx(i) Call Plugin.Window.Active(Hwnd) Call Plugin.Window.Move(Hwnd, 0, h) Call Plugin.Window.Size(Hwnd, ScreenX, Int(ScreenY / n)) h = h + Int(ScreenY / n) Delay 100 Next 题目:使用后台插件对程序进行模拟时,发送的坐标是窗口坐标,而非屏幕坐标,这个坐标是以下列哪个选项对应的位置作为起点的? 答案:客户区矩形0,0坐标 题目:只使用按键精灵自带的窗口插件获取系统任务栏的高度。 答案://Shell_TrayWnd Hwnd = Plugin.Window.Find("Shell_TrayWnd", "") sRect = Plugin.Window.GetWindowRect(Hwnd) Dim MyArray MyArray = Split(sRect, "|") //下面这句将字符串转换成数值 W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3)) MsgBox "任务栏高度:" & H2 - H1 题目:写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码(要求:轨迹为一条直线) 不符合题意,轨迹不是一条直线 答案:答案有问题 题目:按键抓抓工具如何微调鼠标指针在屏幕上的位置(以便于放大镜更好的定位某个点) 答案:抓抓工具激活时使用方向键控制 题目:使用 InputBox 命令可以弹出要求用户输入内容的对话框,他的第三个参数表示 答案:默认数据 题目:获取屏幕指定坐标点的颜色可以使用以下哪条命令 答案:GetPixelColor 题目:以下哪一种循环语句写法被称为“死循环” 答案:do Loop 题目:对代码执行流程发晕,可以使用哪项功能帮助阅读代码? 答案:断点也是错误的 题目:为可变长度数组重新定义长度应该使用哪条命令 答案:redim 题目:随机生成一个10到100的数字(包含10,100)并且弹窗输出,要求精确范围并且每次运行输出结果不同,请作答。 答案:Randomize upperbound = 100 lowerbound = 10 a=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) TracePrint a 题目:以下功能不能使用按键自带窗口插件实现的是 答案:窗口中找图 题目:请用代码计算下月天数,例如"2012-02-11"的下月天数是31,请作答。(切勿修改本机上的本地时间进行测试) 答案:Function 计算下月天数(t) Dim 年,月,日,n 年 =Year(t) 月 =Month(t)+1 日 =Day(t) t0 = Cstr(年 & "/" & 月 & "/" & 1) If 月 = 12 Then 年 = 年 + 1 t1 = Cstr(年 & "/" & 1 & "/" & 1) Else n = 月 + 1 t1 = Cstr(年 & "/" & 月 + 1 & "/" & 1) End If 计算下月天数 = DateDiff("d", t0, t1) End Function MessageBox 计算下月天数("2012-02-11") 题目:以下关于多线程描述错误的是 答案:独立的运行环境是错误的 题目:Goto语句可以跳转到使用那条语句标记过的代码行 答案:rem 题目:将数字转换为字符串使用那条命令 答案:Cstr 题目:求余数运算的运算符是 答案:mod 题目:在脚本中定义一个常量应该使用哪条语句 答案:const 题目:FindColorEx 命令支持几种查找方向? 答案:3 题目:获取字符串长度应该使用列表中的哪个函数 答案:len 题目:可以实现从一个字符串中截取一部分数据的函数有哪些 答案:left\mid\right 题目:窗口某点的前台坐标为(300,400),用命令获取该点的对应后台坐标,提示: window插件,请作答。 答案:sRect = Plugin.Window.GetWindowRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") //下面这句将字符串转换成数值 W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) TracePrint "前台坐标(300,400)转换为后台坐标为:(" & (300 - W1) & "," & (400 - H1) & ")" 题目:执行代码 Plugin.Window.Search("") 会返回什么数据 答案:系统中所有已显示的窗口句柄 题目:写一个函数来实现功能:随机生成一个长度为5~15位英文+数字组成的字符串。 答案:Function 一个函数 Dim upperbound, lowerbound, i, cc bb = "" upperbound = 15 lowerbound = 5 Randomize cc = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) For i = 1 To cc Randomize Select Case i mod 3 Case 1 lowerbound=0 upperbound=25 随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) str=Chr(65+随机数) Case 2 lowerbound=0 upperbound=25 随机数=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) str=LCase(Chr(65+随机数)) Case 0 lowerbound=0 upperbound=9 str=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End Select bb=bb&str Next 一个函数=bb End Function 题目:按键精灵的启动热键可以设置几种热键模式? 答案:6是错 题目:以下哪条命令可以用于遍历子窗口? 答案:Plugin.Window.FindEx 题目:下列代码哪一个无法找到无标题记事本窗口的句柄? 答案:Plugin.Window.Find("", "无标题 - 记事本") 题目:写一个函数,参数为某个日期,参数格式为:"年-月-日",例如代入"2012-02-11"日期后能正确给出下月的天数请作答。(切勿修改本机上的本地时间进行测试) 答案:Call 下月的天数 ("2012-02-11") Function 下月的天数(str)//"2012-02-11" Dim a,年, 月, 日, n 年 = int(mid(str, 1, 4)) a = mid(str, 6, 2) b = mid(a, 1, 1) If b = "0" Then a = mid(a, 2, 1) a = int(a) + 1//下个月 If a = 13 Then a = 1 月 = a a = mid(str, 9, 2) b = mid(a, 1, 1) If b = "0" Then a = mid(a, 2, 1) 日 = int(a) TracePrint 年 TracePrint 月 TracePrint 日 t0 = Cstr(年 & "/" & 月 & "/" & 1) If 月 = 12 Then 年 = 年 + 1 t1 = Cstr(年 & "/" & 1 & "/" & 1) Else n = 月 + 1 t1 = Cstr(年 & "/" & 月 + 1 & "/" & 1) End If m = DateDiff("d", t0, t1) 下月的天数 = m TracePrint "下个月有"&m&"天" End Function 题目:下列哪一个自定义标识符命名是 不合法的? 答案:my.x 题目:将小数转换为货币型数据,以下关于精度损失的描述那一条是正确的 答案:损失小数点四位以后的数据 题目:找图时如果要使用附件中的图片,路径应该加上的前缀是? 答案:Attachment:\ 题目:按键精灵中的十六进制如何表示? 答案:&H前缀 题目:请写出至少三种无限循环的方法,请作答。 答案://第1种方法 While true Delay 3 i = i + 1 TracePrint i Wend //第2种方法 Do Delay 3 i = i + 1 TracePrint i Loop //第3种方法 i=1 For i i = i + 1 TracePrint i Delay 3 Next 题目:按键精灵脚本默认的启动热键是? 答案:F10 题目:MoveR命令含义是? 答案:鼠标相对移动 题目:将附件添加到脚本后,应该是用哪条命令释放? 答案:PutAttachment 题目:调试时遇到无法跟踪的奇怪语法错误,可以通过以下哪种方案快速确定出错行? 答案:根据调试信息也 是错误的 忽略错误继续运行脚本,在运行时错误中确定出错行 是错误的 题目:不使用任何结构化语句实现的代码被称为什么结构? 答案:顺序结构 题目:FindPic 命令找图时,要找的图片四角颜色相同,则找图时会? 答案:当作透明色进行找图 是错误的 默认匹配失败 是错误的 题目:下列计算式中哪一个可以正确实现返回整数的除法运算? 答案:2/2 题目:用文本方式判断"ABC"与"abc"是否相等,请作答。 答案: MyComp = StrComp("ABC", "abc", 1) TracePrint MyComp If MyComp=0 Then MessageBox "相等" 题目:使用 Plugin.Window.Show 命令可以将隐藏的窗口显示出来,与之对应的命令[隐藏窗口]是下列哪个? 答案:Plugin.Window.Hide 题目:下列操作中,哪一种是后台模拟无法实现的? 答案:与Ctrl相关的组合键 题目:Plugin.Bkgnd.FindColorEx 命令支持几种查找类型? 答案:2种
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。