按鍵精靈5級認證考題添加了考試時候自己遇到的題

1、紅色為自己總結的考題 ，黑色為網上資料在路徑為: 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

2、:ii = ii + 1NextCall Plugin.File.CloseFile(wenben)/關閉一個已經打開的文件。文件關閉后，其句柄不再有效 EndScript 如果鼠標停止動作超過5秒，則執(zhí)行彈出信息提示框鼠標停止動作,請寫出代碼GetCursorPos x1, y1/得到鼠標位置Delay 5000/等待五秒重新判斷鼠標位置，GetCursorPos x2, y2If x1 = x2 and y1 = y2 thenMessageBox 鼠標停止動作End If限制鼠標范圍在屏幕坐標（200，300）到（500，600）范圍內，超出范圍則回到邊界（鼠標范圍限制），請寫出代碼。x

3、1 = 200x2 = 500y1 = 300y2 = 600 Do GetCursorPos x, y If x x2 or y y2 Then / 當x，y有一個超出范圍后， If x x2 Then x=x2 End If If 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) /

4、 100ny = (y2 - y1) / 100MoveTo int(x1 + i * nx), int(y1 + i * ny)Delay 10Next End Sub鼠標按圓型移動,半徑為r=100,圓點為(200,200),請寫出代碼Dim n, x, yMoveTo 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 10NextEndScript1、鼠標按圓型移動,半徑為r=1

5、00,圓點為(200,200),請寫出代碼.Dim a, x, yMoveTo 100, 200For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3.14/180) MoveTo x, y Delay 5NextEndScript 1、(前臺)區(qū)域范圍為(100,150)到(200,300)內的所有點是否均為FFFFFF,是則彈出對話框沒有其他顏色,否則彈出第一個點的顏色值并退出程序. 請寫出代碼 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(

6、x, y, 0) RtColor1 = RtColor While (y 300) x=100 While (x = 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

7、(Hwnd2, x+ 100, y + 100) End Sub3、篩選出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 4、寫一個算法可以將十進制的字符串轉成八進制的字符串.例如8-10,請寫出代碼 Public Function DEC_to_OCT(Dec) DEC_to_OCT = Do While Dec 0 DEC_to_OCT = Dec M

8、od 8 & DEC_to_OCT Dec = Dec 8 Loop End Function a=DEC_to_OCT(8) MessageBox a 5、有N個窗口,第一個窗口移動到(0,0)點,其余的窗口根據第一個窗口平鋪,窗口不超出屏幕邊緣(窗口平鋪),請寫出代碼 RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe HwndEx = Plugin.Window.Search(記事本) Hwnd = Split(H

9、wndEx, |) ScreenX = Plugin.Sys.GetScRX() ScreenY = Plugin.Sys.GetScRY() MessageBox ScreenX sRect = Plugin.Window.GetWindowRect(Hwnd(0) MessageBox sRect xy = Split(sRect, |) x = xy(2) - xy(0) y = xy(3) - xy(1) sx = 0 sy = 0 i=0 MessageBox x While (Screeny-sy y) While (ScreenX - sx x) Delay 10 Call Pl

10、ugin.Window.Move(Hwnd(i),Cstr(sx),Cstr(sy) sx = sx + x i = i + 1 If i UBound(Hwnd)-1 Then ExitScript End If Wend sy = sy + y sx=0 MessageBox sy Wend 寫一個子程序,可以使鼠標從當前的坐標逐點的移動到目的坐標(帶軌跡的鼠標移動),請寫出代碼Do Call a(50, 50) Call a(800, 600)Loopsub a(x,y) Do GetCursorPos x0, y0 If x x0 Then i = 1 ElseIf x y0 then

11、 ii = 1 ElseIf y 答案 Then 最大數 = 數字 ElseIf 數字 答案 Then 最小數 = 數字 End If 數字 = InputBox(答案范圍為: & 最小數 & & 最大數) 數字 = int(數字)Loop 13、鎖定鼠標位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標范圍鎖定),請寫出代碼 Call 鎖范圍(200,300,500,600)Function 鎖范圍(x1,y1,x2,y2) Do GetCursorPos x, y If x x2 or y y2 Then If x x2 Then x=x2 End If If y

12、y2 Then y=y2 End If MoveTo x, y End If LoopEnd Function 15、獲取數組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數的值,請寫出代碼a = array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)i=0For UBound(a) + 1 ii = ii + a(i) i = i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a) If Abs(均值 - a(i) Abs(均值 - a(i + 1) Then ii = a(i + 1) ElseIf A

13、bs(均值 - a(i) 96 and Asc(mid(字符,i,1) 47 and Asc(mid(字符,i,1) 58 ) Then 反提取小寫數字 = 反提取小寫數字 & mid(字符, i, 1) End If i = i - 1 NextEnd Function/4、寫一個函數,可以讓普通窗口(例如記事本)在屏幕內移動,碰到屏幕邊緣隨機反向移動(類似屏幕保護的汽泡程序),請寫出Function moveWin(Hwnd) Dim ary, h, w, maxh, maxw, fa, fb ScreenW = Plugin.GetSysInfo.GetScreenResolutionX

14、() 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) D

15、o 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 = ScreenW Then W1 = ScreenW - w fa = false End If If maxh = ScreenH

16、 Then H1 = ScreenH - h fb = false End If Call Plugin.Window.Move(Hwnd, W1, H1) Delay 10 LoopEnd Function/Call RunApp(notepad.exe) /Delay 1000/Hwnd = Plugin.Window.Find(Notepad, 0)/If Hwnd 0 Then / moveWin(Hwnd) /Else / MessageBox 記事本未找到！/End If 寫一個子程序,可以使鼠標從當前的坐標逐點的移動到目的坐標(帶軌跡的鼠標移動),請寫出代碼Sub moveMou

17、(x, y) Dim fa, fb, xx, yy, maxl GetCursorPos x0, y0 xx = Abs(x0 - x) yy = Abs(y0 - y) If xx yy Then maxl = xx Else maxl = yy End If MessageBox maxl If x0 x Then fa = 1 Else fa = - 1 End If If y0 y Then fb = 1 Else fb = - 1 End If For maxl If x0 x0 = x0 + fa y0 = y0 + fb MoveTo x0, y0 Delay 10 Next E

18、nd SubCall moveMou(1000,500)/(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 LongFunction 窗

19、口層次(hwnd, mode)窗口層次 = SetWindowPos(hwnd, mode, 0, 0, 0, 0, 3)End Functionhwnd = 661156Call Lib.API.窗口層次(hwnd, -1)4、利用 ShowScrTXT 命令制作一個放大鏡,效果類似抓抓工具的放大鏡,可以放大顯示鼠標指向的5*5區(qū)域的顏色.請寫出代碼While trueGetCursorPos x, yse = GetPixelColor(x + l, y + s)Call Plugin.Msg.ShowScrTXT(x + l * 15 + 15, y + s * 15 + 15, x +

20、 170, y + 170, , se)If l = 4 Then l = 0s = s + 1Else l = l + 1End IfIf s = 5 Then s = 0Delay 500Call Plugin.Msg.HideScrTXT()Delay 100End IfWend5、獲取鼠標無動作的時間,返回值是鼠標無動作的時間(鼠標監(jiān)控),請寫出代碼1、同種窗口多開,操作一個窗口(鍵盤和鼠標)能夠同時操作其他同種窗口,且操作過程一致(模擬同步器),請寫出代碼5、(API)利用 SendMessage 函數向QQ對話窗口發(fā)送文本里的所有內容(QQ消息發(fā)送器),請寫出代碼RunApp no

21、tepad.exe RunApp notepad.exe RunApp notepad.exe RunApp notepad.exeHwndEx = Plugin.Window.Search(記事本) hw_sp = Split(HwndEx, |)hw_ub = UBound(hw_sp)TracePrint hw_ubx = 0y = 0i = 0m=1For hw_ub hw_ck = hw_sp(i) call ckcz i = i + 1 : m = m + 1 Delay 100NextSub ckcz If m = 1 or m = 2 Then Call Plugin.Wind

22、ow.Active(hw_ck) Call Plugin.Window.Move(Hwnd, x, y) x = x + 600 If m = 2 Then x=0 End If ElseIf m = 3 or m = 4 Then Call Plugin.Window.Active(hw_ck) y = y + 600 Call Plugin.Window.Move(Hwnd, x, y) x = x + 600:y=0 End IfEnd Sub在路徑為: C:ajjl.txt文本的每行內容后加上對應的行數,例如:ajjl-第1 行.請寫出代碼nr = Plugin.File.ReadFi

23、leEx(c:ajjl.txt)hs = Split(nr, |)i = 0:ii = 1fileLen = 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 + 1NextCall Plugin.File.CloseFile(handle)

24、 Delay 500RunApp c:ajjl.txtEndScript 請?zhí)峁┲辽賰煞N判斷程序卡死(無響應)的思路,請寫出關鍵代碼.請寫出代碼Private Declare Function IsHungAppWindow Lib user32.dll ( ByVal hWnd As Long) As LongSub 子程序()Hwnd = Plugin.Window.MousePoint()If IsHungAppWindow(Hwnd)=0 Then MsgBox 窗口正常End If End SubPrivate Declare Function IsHungAppWindow Lib

25、 user32.dll ( ByVal hWnd As Long) As LongHwnd = Plugin.Window.MousePoint()If IsHungAppWindow(Hwnd)=0 Then MsgBox 窗口正常End If根據系統(tǒng)時間生成一個01之間的小數點數字,需要寫出生成的過程(偽隨機數),請寫出代碼MsgBox 偽隨機()Function 偽隨機()時間 = Split(Time, :)Randomize時 = Int(int(時間(0) * Rnd + 1) / 24 * 100Randomize分 = Int(int(時間(1) * Rnd + 1) / 60

26、 * 10000Randomize秒 = Int(int(時間(2) * Rnd + 1) / 60 * 1000000偽隨機 = round(時 + 分 + 秒) / 100, 6)End Function 1、鼠標按圓型移動,半徑為r=100,圓點為(200,200),請寫出代碼.Dim a, x, yMoveTo 100, 200For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3.14/180) MoveTo x, y Delay 5NextEndScript 1、(前臺)區(qū)域范圍為(100,1

27、50)到(200,300)內的所有點是否均為FFFFFF,是則彈出對話框沒有其他顏色,否則彈出第一個點的顏色值并退出程序. 請寫出代碼 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y 300) x=100 While (x = 0 Then For i = 0 To UBound(Hwnd) - 1 wnd = Clng(Hwnd(i) Hwnd1 = wnd BeginThread 移動 Delay 100 Next End If Do Delay 1000 L

28、oop 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 Sub3、篩選出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

29、 s 4、寫一個算法可以將十進制的字符串轉成八進制的字符串.例如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 5、有N個窗口,第一個窗口移動到(0,0)點,其余的窗口根據第一個窗口平鋪,窗口不超出屏幕邊緣(窗口平鋪),請寫出代碼 RunApp notepad.exe RunApp notepad.exe RunA

30、pp notepad.exe RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe HwndEx = Plugin.Window.Search(記事本) Hwnd = Split(HwndEx, |) ScreenX = Plugin.Sys.GetScRX() ScreenY = Plugin.Sys.GetScRY() MessageBox ScreenX sRect = Plugin.Window.GetWindowRect(Hwnd(0) MessageBox sRect xy = Split(sRect, |) x = xy

31、(2) - xy(0) y = xy(3) - xy(1) sx = 0 sy = 0 i=0 MessageBox x While (Screeny-sy y) While (ScreenX - sx x) Delay 10 Call Plugin.Window.Move(Hwnd(i),Cstr(sx),Cstr(sy) sx = sx + x i = i + 1 If i UBound(Hwnd)-1 Then ExitScript End If Wend sy = sy + y sx=0 MessageBox sy Wend 寫一個子程序,可以使鼠標從當前的坐標逐點的移動到目的坐標(帶

32、軌跡的鼠標移動),請寫出代碼Do Call a(50, 50) Call a(800, 600)Loopsub a(x,y) Do GetCursorPos x0, y0 If x x0 Then i = 1 ElseIf x y0 then ii = 1 ElseIf y 答案 Then 最大數 = 數字 ElseIf 數字 答案 Then 最小數 = 數字 End If 數字 = InputBox(答案范圍為: & 最小數 & & 最大數) 數字 = int(數字)Loop 13、鎖定鼠標位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標范圍鎖定),請寫出代碼 Ca

33、ll 鎖范圍(200,300,500,600)Function 鎖范圍(x1,y1,x2,y2) Do GetCursorPos x, y If x x2 or y y2 Then If x x2 Then x=x2 End If If y y2 Then y=y2 End If MoveTo x, y End If LoopEnd Function 15、獲取數組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數的值,請寫出代碼a = array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)i=0For UBound(a) + 1 ii = ii + a

34、(i) i = i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a) If Abs(均值 - a(i) Abs(均值 - a(i + 1) Then ii = a(i + 1) ElseIf Abs(均值 - a(i) 96 and Asc(mid(字符,i,1) 47 and Asc(mid(字符,i,1) 58 ) Then 反提取小寫數字 = 反提取小寫數字 & mid(字符, i, 1) End If i = i - 1 NextEnd Function/4、寫一個函數,可以讓普通窗口(例如記事本)在屏幕內移動,碰到屏幕邊緣隨機反向移動(

35、類似屏幕保護的汽泡程序),請寫出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 =