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

红色为自己总结的考题，黑色为网上资料

在路径为: 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 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 "没有其他颜色"

2、利用多线程对多个记事本的窗口位置进行随机移动.请写出代码

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