按键精灵5级认证考题添加了考试时候自己遇到的题.docx

红色为自己总结的考题 ，黑色为网上资料 在路径为: C:\ajjl.txt文本的每行内容后加上对应的行数,例如:ajjl-第1 行.请写出代码（禁止使用命令库） wenben = Plugin.File.OpenFile("c:\ajjl.txt") //打开ajjl.txt文件，以备读写使用 Call Plugin.File.SeekFile(wenben, 0) //设置文件的当前读写位置 For UBound(hangshu) Call Plugin.File.WriteFile(wenben, hangshu(i) & "-第" & ii & "行" & vbcrlf) // 向目标文件写入行数并换行 i = i + 1:ii = ii + 1 Next Call Plugin.File.CloseFile(wenben) //关闭一个已经打开的文件。文件关闭后，其句柄不再有效 EndScript 如果鼠标停止动作超过5秒，则执行弹出信息提示框"鼠标停止动作",请写出代码 GetCursorPos x1, y1 //得到鼠标位置 Delay 5000 //等待五秒重新判断鼠标位置， GetCursorPos x2, y2 If x1 = x2 and y1 = y2 then MessageBox "鼠标停止动作" End If 限制鼠标范围在屏幕坐标（200，300）到（500，600）范围内，超出范围则回到边界（鼠标范围限制），请写出代码。 x1 = 200 x2 = 500 y1 = 300 y2 = 600 Do GetCursorPos x, y If x < x1 or x > x2 or y < y1 or y > y2 Then // 当x，y有一个超出范围后， 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 写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码 （要求：轨迹为一条直线） etCursorPos x1, y1 //得到鼠标位置坐标 //x2，y2为目标坐标 For i = 1 To 100 //把x和y等分100份 nx = (x2 - x1) / 100 ny = (y2 - y1) / 100 MoveTo int(x1 + i * nx), int(y1 + i * ny) Delay 10 Next End Sub 鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码 Dim n, x, y MoveTo 100, 200 //确定圆点 For n = 0 To 360 x = 200 - 100 * cos(n*3.14/180) y = 200 - 100 * sin(n*3.14/180) // 根据直角三角形公式求两个直角边边长 MoveTo x, y Delay 10 Next EndScript 1、鼠标按圆型移动,半径为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 1、(前台)区域范围为(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 RtCol