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

1、红色为自己总结的考题，黑色为网上资料在路径为：C:ajjl.txt文本的每行内容后加上对应的行数，例如:ajjl-第1行.请写 出代码(禁止使用命令库)wenben = / 打开 ajjl.txt 文件，以备读写使用0)/ 设置文件的当前读写位置For UBound(hangshu)& 第- & ii & 行 & vbcrlf)/ 向目标文件写入行数并换行i = i + 1:ii = ii + 1Next/ 关闭一个已经打开的文件。文件关闭后，其句柄不再有效EndScript如果鼠标停止动作超过 5秒，则执行弹出信息提示框 鼠标停止动作 ,请写 出代码 GetCursorPos x1, y1/

2、 得到鼠标位置Delay 5000/ 等待五秒重新判断鼠标位置，GetCursorPos x2, y2If x1 = x2and y1 = y2 thenMessageBox 鼠标停止动作 End If限制鼠标范围在屏幕坐标（ 200，300）到（ 500，600）范围内，超出范围 则回到边界（鼠标范围限制），请写出代码。x1 = 200x2 = 500y1 = 300y2 = 600DoGetCursorPos x, yIf x x2 or y y2 Then/ 当 x， y 有一个超出范围后，If x x2 Thenx=x2End IfIf y y2 Theny=y2End IfMoveT

3、o x, yEnd IfLoop(带轨迹的鼠写一个子程序 ,可以使鼠标从当前的坐标逐点的移动到目的坐标 标移动 ),请写出代码(要求：轨迹为一条直线)etCursorPos x1, y1/ 得到鼠标位置坐标/x2 ，y2 为目标坐标For i = 1 To 100/把x和y等分100份nx = (x2 - x1) / 100ny = (y2 - y1) / 100MoveTo int(x1 + i * nx), int(y1 + i * ny)Delay 10NextEnd Sub鼠标按圆型移动，半径为r=100,圆点为(200,200)请写出代码Dim n, x, yMoveTo 100,

4、200/ 确定圆点For n = 0 To360x = 200 - 100 * cos(n*3.14/180)y = 200 - 100 * sin(n*3.14/180)/ 根据直角三角形公式求两个直角边边长MoveTo x, yDelay 10NextEndScript1、鼠标按圆型移动，半径为r=100,圆点为(200,200),请写出代码Dim a, x, yMoveTo 100, 200For a = 0 To360x = 200 - 100 * cos(a*3.14/180)y = 200 - 100 * sin(a*3.14/180)MoveTo x, yDelay 5NextE

5、ndScriptFFFFFF是贝卩.请写出代码1、 (前台)区域范围为 (100,150)到(200,300)内的所有点是否均为弹出对话框没有其他颜色 ,否则弹出第一个点的颜色值并退出程序x = 100y = 150RtColor = 0)RtColor1 = RtColorWhile (y 300)x=100While (x = 0 ThenFor i = 0 To UBound(Hwnd) - 1wnd = Clng(Hwnd(i)Hwnd1 =wndBegi nThread 移动Delay 100NextEnd IfDoDelay 1000LoopSub移动Hwnd2 = Hwnd1Ra

6、ndomizex = Int(Rnd * 500)Randomizey =Int(Rnd*500)MessageBox x&,&y100, y + 100)End Sub3、筛选出 100以内所有个位数加十位数等于 10的数,例如 82,8+2=10满足 条件 ,请写出代码 s=For i = 1 To 99a = i mod 10b = int(i / 10)If (a + b) = 10 Thens=s&i&|End IfNextMessageBox s4、写一个算法可以将十进制的字符串转成八进制的字符串 .例如 8-10, 请写出代码 Public Function DEC_to_OCT

7、(Dec)DEC_to_OCT = Do While Dec 0DEC_to_OCT = Dec Mod 8 & DEC_to_OCTDec = Dec 8LoopEnd Functiona=DEC_to_OCT(8) MessageBox a5、有 N 个窗口 ,第一个窗口移动到 (0,0)点,其余的窗口根据第一个窗口平铺 窗口不超出屏幕边缘 (窗口平铺 ),请写出代码RunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeHwn d

8、Ex = Plugi n.Win dow.Search(己事本)Hwnd = Split(HwndEx, |)ScreenX = ScreenY = MessageBox ScreenXsRect = MessageBox sRectxy = Split(sRect, |)x = xy(2) - xy(0)y = xy(3) - xy(1)sx = 0sy = 0i=0MessageBox xWhile (Screeny-sy y)While (ScreenX - sx x)Delay 10sx = sx + xi = i + 1If i UBound(Hwnd)-1 ThenExitScri

9、ptEnd IfWendsy = sy + ysx=0MessageBox syWend（带轨迹的鼠写一个子程序 ,可以使鼠标从当前的坐标逐点的移动到目的坐标 标移动 ),请写出代码DoCall a(50, 50)Call a(800, 600)Loopsub a(x,y)DoGetCursorPos x0, y0If x x0 Theni = 1ElseIf x y0 thenii = 1ElseIf y y0 thenii = -1ElseIf y = y0 thenii = 0End IfMoveR i, iiIf x = x0 and y = y0 ThenExit doEnd IfL

10、oopEnd sub11、随机生成一个 1100之间的整数 ,玩家可以通过 inputbox 输入数字 ,猜对 则退出游戏 ,猜错则提示答案的范围 （猜数游戏 ）,请写出代码例如:随机数为 :60,用户输入 20,程序提示 答案范围为 :20100.用户再次输入 75,程序提示 答案范围为 :2075.用户再次输入 60,程序提示猜中,然后退出程序 .Randomize答案= int（Rnd * 100） + 1最小数 = 1最大数 = 100数字=lnputBox（猜数游戏），输入1100之间的整数，玩家可以通过输入数字， 猜对则退出游戏 ,猜错则提示答案的范围 ）数字二int（数字）DoI

11、f数字=答案ThenMsgBox数字& ,恭喜答对了 EndScriptElself数字答案Then最大数 =数字Elself数字 答案Then最小数 =数字End If数字二InputBox(答案范围为：&最小数& &最大数)数字二int(数字)Loop13、锁定鼠标位置在 (200,300)到(500,600)之间 ,超出范围则回到边界 (鼠标范 围锁定 ),请写出代码Call 锁范围 (200,300,500,600)Function 锁范围 (x1,y1,x2,y2)DoGetCursorPos x, yIf x x2 or y y2 ThenIf x x2 Thenx=x2End I

12、fIf y y2 Theny=y2End IfMoveTo x, yEnd IfLoopEnd Function15、获取数组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) + 1ii = ii + a(i)i = i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a)If Abs(均值-a(i) Abs均值-a(i + 1) The nii = a(i + 1)Elself Abs均 值-a(i)

13、 96a ndAsc(mid字符,i,1)47a ndAsc(mid(字符,i,1) 58 ) The n反提取小写数字二反提取小写数字& mid(字符,i, 1)End Ifi = i - 1NextEnd Function/4 、写一个函数 ,可以让普通窗口 (例如记事本)在屏幕内移动 ,碰到屏幕边缘 随机反向移动 (类似屏幕保护的汽泡程序 ),请写出Function moveWin(Hwnd)Dim ary, h, w, maxh, maxw, fa, fbScreenW = ScreenH = = = Split(sRect, |)W1 = Clng(ary(0): H1 = Clng

14、(ary(1)W2 = Clng(ary(2) : H2 = Clng(ary(3)w = W2 - W1 : h = H2 - H1fa = true : fa = trueDoRandomizeIf fa ThenW1 = Round(Rnd * 5) + W1ElseW1 = W1 - Round(Rnd * 5) End IfIf fb ThenH1 = Round(Rnd * 5) + H1ElseH1 = H1 - Round(Rnd * 5)End Ifmaxw = w + W1 : maxh = h + H1 If W1 = 0 ThenW1 = 0 fa = true End

15、 IfIf H1 = ScreenW ThenW1 = ScreenW - w fa = falseEnd IfIf maxh = ScreenH ThenH1 = ScreenH - hfb = falseEnd IfDelay 10LoopEnd Function/Call RunApp(notepad.exe)/Delay 1000/Hwnd = 0)/If Hwnd 0 Then/moveWin(Hwnd)/Else/MessageBox 记事本未找到！ /End If（带轨迹的鼠 写一个子程序 ,可以使鼠标从当前的坐标逐点的移动到目的坐标 标移动 ),请写出代码Sub moveMou

16、(x, y)Dim fa, fb, xx, yy, maxlGetCursorPos x0, y0xx = 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 + fbMoveTo x0, y0Delay 10NextEnd SubC

17、all 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 AsLong, ByVal wFlags As Long) As LongFunction 窗口层次 (h

18、wnd, mode)窗口层次 = SetWindowPos(hwnd, mode, 0, 0, 0, 0, 3)End Functionhwnd = 661156Call Lib.API窗口层次(hwnd, -1)4、利用ShowScrTXT命令制作一个放大镜，效果类似抓抓工具的放大镜，可以 放大显示鼠标指向的 5*5区域的颜色 .请写出代码While trueGetCursorPos x, yse = GetPixelColor(x + l, y + s)Call Plugi n. Msg.ShowScrTXT(x + l * 15 + 15, y + s * 15 + 15, x + 17

19、0, y + 1H se)If l = 4 ThenElsel = l+ 1End IfIf s = 5 Thens = 0Delay 500Delay 100End IfWend5、获取鼠标无动作的时间 ,返回值是鼠标无动作的时间 （鼠标监控 ）,请写出代 码1、同种窗口多开 ,操作一个窗口 （键盘和鼠标 ）能够同时操作其他同种窗口 ,且 操作过程一致 （模拟同步器 ）,请写出代码5、（API利用SendMessage函数向QQ对话窗口发送文本里的所有内容（QQ 消息发送器 ）,请写出代码RunApp notepad.exeRunApp notepad.exeRunApp notepad.e

20、xeRunApp notepad.exeHwn dEx = Plugi n.Win dow.Search（己事本）hw_sp = Split(HwndEx, |) hw_ub = UBound(hw_sp) TracePrint hw_ubx = 0y = 0i = 0 m=1For hw_ub hw_ck = hw_sp(i) call ckczi = i + 1 : m = m + 1Delay 100NextSub ckczIf m = 1 or m = 2 Then= x + 600If m = 2 Thenx=0End IfElseIf m = 3 or m = 4 Theny =

21、y + 600x = x + 600:y=0End IfEnd Sub在路径为：C:ajjl.txt文本的每行内容后加上对应的行数，例如:ajjl-第1行.请写 出代码 nr = hs = Split(nr, |)i = 0:ii = 1fileLen = handle = 0)For UBound(hs)第&ii&行& vbcrlf)i = i + 1:ii = ii + 1NextDelay 500RunApp c:ajjl.txtEndScript请提供至少两种判断程序卡死 (无响应 )的思路,请写出关键代码 .请写出代码Private Declare Function IsHungAp

22、pWindow Lib user32.dll ( ByVal hWnd As Long) As LongSub子程序()Hwnd = If IsHungAppWindow(Hwnd)=0 ThenMsgBox 窗口正常 End IfEnd SubPrivate Declare Function IsHungAppWindow Lib user32.dll ( ByVal hWnd As Long) As LongHwnd = If IsHungAppWindow(Hwnd)=0 ThenMsgBox 窗口正常 End If根据系统时间生成一个 01 之间的小数点数字 ,需要写出生成的过程 (伪

23、随机 数),请写出代码 MsgBox 伪随机 ()Function 伪随机 ()时间= Split(Time, :)Randomize时二 In t(i nt(时间(0) * Rnd + 1) / 24 * 100Randomize分二 In t( int(时间(1) * Rnd + 1) / 60 * 10000Randomize秒二 In t(i nt(时间(2) * Rnd + 1) / 60 * 1000000伪随机二 round(时 +分 +秒) / 100, 6)End Function1、鼠标按圆型移动，半径为r=100,圆点为(200,200),请写出代码Dim a, x, y

24、MoveTo 100, 200For a = 0 To360x = 200 - 100 * cos(a*3.14/180)y = 200 - 100 * sin(a*3.14/180)MoveTo x, yDelay 5NextEndScriptFFFFFF是贝卩.请写出代码1、 (前台)区域范围为 (100,150)到(200,300)内的所有点是否均为弹出对话框 没有其他颜色 ,否则弹出第一个点的颜色值并退出程序x = 100y = 150RtColor = 0)RtColor1 = RtColorWhile (y 300)x=100While (x = 0 ThenFor i = 0 T

25、o UBound(Hwnd) - 1wnd = Clng(Hwnd(i)Hwnd1 =wndBegi nThread 移动Delay 100NextEnd IfDoDelay 1000LoopSub移动Hwnd2 = Hwnd1Randomizex = Int(Rnd * 500)Randomizey =Int(Rnd*500)MessageBox x&,&y100, y + 100)End Sub3、筛选出 100以内所有个位数加十位数等于 10的数,例如 82,8+2=10满足 条件 ,请写出代码 s=For i = 1 To 99a = i mod 10b = int(i / 10)If

26、 (a + b) = 10 Thens=s&i&|End IfNextMessageBox s4、写一个算法可以将十进制的字符串转成八进制的字符串 .例如 8-10, 请写出代码 Public Function DEC_to_OCT(Dec)DEC_to_OCT = Do While Dec 0DEC_to_OCT = Dec Mod 8 & DEC_to_OCTDec = Dec 8LoopEnd Functiona=DEC_to_OCT(8) MessageBox a5、有 N 个窗口 ,第一个窗口移动到 (0,0)点,其余的窗口根据第一个窗口平铺 窗口不超出屏幕边缘 (窗口平铺 ),请写

27、出代码RunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp =no(Dpad.exe=HwndEx H 卫 =)Hwnd H Sp弃(HwndEx=)ScreenX H 卫 ugin.sysG2.SCRX()ScreenY H 卫 ugin.sysG2.SCRY()MessageBox ScreenXsRecf H 卫 MessageBox sRecfxy H Sp弃(SRea=)x H xy(2) xy(o)y ”xy(3) xy(一)sx H 0sy

28、H 0-HoMessageBox x wh=e (screenysy vy) wh=e (screenx sx V X)De-ay 10ca=卫 ugin. window. Move(Hwnd(i)osf(sx)osf(sy)sx H sx + xi 上 +_kIf i UBound(Hwnd)-1 ThenExitScriptEnd IfWendsy = sy + ysx=0MessageBox syWend（带轨迹的鼠写一个子程序 ,可以使鼠标从当前的坐标逐点的移动到目的坐标 标移动 ),请写出代码DoCall a(50, 50)Call a(800, 600)Loopsub a(x,y)

29、DoGetCursorPos x0, y0If x x0 Theni = 1ElseIf x y0 thenii = 1ElseIf y y0 thenii = -1ElseIf y = y0 thenii = 0End IfMoveR i, iiIf x = x0 and y = y0 ThenExit doEnd IfLoopEnd sub11、随机生成一个 1100之间的整数 ,玩家可以通过 inputbox 输入数字 ,猜对 则退出游戏 ,猜错则提示答案的范围 （猜数游戏 ）,请写出代码例如:随机数为 :60,用户输入 20,程序提示 答案范围为 :20100. 用户再次输入 75,程

30、序提示 答案范围为 :2075.用户再次输入 60,程序提示猜中,然后退出程序 .Randomize答案= int(Rnd * 100) + 1最小数 = 1最大数 = 100数字=lnputBox(猜数游戏)，输入1100之间的整数，玩家可以通过输入数字, 猜对则退出游戏 ,猜错则提示答案的范围 )数字二int(数字)DoIf数字=答案ThenMsgBox数字& ,恭喜答对了 EndScriptElself数字答案Then最大数 =数字Elself数字 答案Then最小数 =数字End lf数字二InputBox(答案范围为：&最小数& &最大数)数字二int(数字)Loop1 3、锁定鼠标

31、位置在 (200,300)到(500,600)之间 ,超出范围则回到边界 (鼠标范 围锁定 ),请写出代码Call 锁范围(200,300,500,600)Function 锁范围(x1,y1,x2,y2)DoGetCursorPos x, yIf x x2 or y y2 ThenIf x x2 Thenx=x2End IfIf y y2 Theny=y2End IfMoveTo x, yEnd IfLoopEnd Function15、获取数组array(10,9,1,5,2,3,4,5,6,11中最接近平均数的值，请写出代码a = array(10, 9, 1, 5, 2, 3, 4,

32、5, 6, 11)i=0For UBound(a) + 1ii = ii + a(i)i = i + 1Next均值= ii /( UBound(a) + 1)i=0For UBound(a)If Abs(均值-a(i) Abs均值-a(i + 1) The nii = a(i + 1)Elself Abs均 值-a(i) Abs均值-a(i + 1) The n ii = a(i)End Ifi=i+1NextMsgBox ii16 、有一个字符串，里面包含一些数字，写一个函数，把这些数字加起 来。比如 “我 30你40他 50”结果就是 120。请写出代码a = 我 30 你 40 他 5

33、0niFor i = 1 To Len(a) + 1If IsNumeric(Mid(a, i, 1) = True Thenii = ii & Mid(a, i, 1)Elseb = b + iiii = 0 End If Next Msgbox b17、遍历字符串A1a2d5m8Qz取出所有小写字母及数字，并按照与原来相反的顺序拼接成新的字符串 ,请写出代码MsgBox反提取小写数字（A1a2d5m8Qz）Function 反提取小写数字 （字符）i = Len字符）For Len字符）lf（Asc（mid（字符,i,1）96a ndAsc（mid字符,i,1）123）or（Asc（mid

34、字 符,i,1）47a ndAsc（mid（字符,i,1） 58 ） The n反提取小写数字二反提取小写数字& mid（字符,i, 1）End lfi = i - 1NextEnd Function/4 、写一个函数 ,可以让普通窗口 （例如记事本）在屏幕内移动 ,碰到屏幕边缘 随机反向移动 （类似屏幕保护的汽泡程序 ）,请写出Function moveWin（Hwnd）Dim ary, h, w, maxh, maxw, fa, fbScreenW = = = = Split(sRect, |)W1 = Clng(ary(0): H1 = Clng(ary(1)W2 = Clng(ary(

35、2) : H2 = Clng(ary(3)w = W2 - W1 : h = H2 - H1fa = true : fa = trueDoRandomizeIf fa ThenW1 = Round(Rnd * 5) + W1ElseW1 = W1 - Round(Rnd * 5)End IfIf fb ThenH1 = Round(Rnd * 5) + H1ElseH1 = H1 - Round(Rnd * 5)End If maxw = w + W1 : maxh = h + H1If W1 = 0 Then W1 = 0 fa = trueEnd IfIf H1 = ScreenW The

36、nW1 = ScreenW - wfa = falseEnd IfIf maxh = ScreenH ThenH1 = ScreenH - h fb = falseEnd If10LoopEnd Function/Call RunApp(notepad.exe)/Delay 1000/Hwnd = 0)/If Hwnd 0 Then/moveWin(Hwnd)/Else/MessageBox 记事本未找到！ /End If（带轨迹的鼠 写一个子程序 ,可以使鼠标从当前的坐标逐点的移动到目的坐标 标移动 ),请写出代码Sub moveMou(x, y)Dim fa, fb, xx, yy, ma

37、xlGetCursorPos x0, y0xx = Abs(x0 - x)yy = Abs(y0 - y)If xx yy Thenmaxl = xxElsemaxl = yyEnd IfMessageBox maxlIf x0 x Thenfa = 1Elsefa = - 1End IfIf y0 y Thenfb = 1Elsefb = - 1End IfFor maxlIf x0x0 = x0 + fay0 = y0 + fbMoveTo x0, y0Delay 10NextEnd SubCall moveMou(1000,500)/(API) 利用 SetWindowPos 函数将窗口

38、置前 ,相关说明请百度 ,请写出代码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 AsLong, ByVal wFlags As Long) As LongFunction 窗口层次 (hwnd, mode)窗口层次 = SetWindowPos(hwnd, mode, 0, 0, 0

39、, 0, 3)End Functionhwnd = 661156Call Lib.API窗口层次(hwnd, -1)4、利用ShowScrTXT命令制作一个放大镜，效果类似抓抓工具的放大镜，可以 放大显示鼠标指向的 5*5区域的颜色 .请写出代码While trueGetCursorPos x, yse = GetPixelColor(x + l, y + s)Call Plugi n. Msg.ShowScrTXT(x + l * 15 + 15, y + s * 15 + 15, x + 170, y + 1H se)If l = 4 Thenl = 0s = s + 1Elsel = l

40、+ 1End IfIf s = 5 Thens = 0Delay 500Delay 100End IfWend5、获取鼠标无动作的时间 ,返回值是鼠标无动作的时间 （鼠标监控 ）,请写出代 码1、同种窗口多开 ,操作一个窗口 （键盘和鼠标 ）能够同时操作其他同种窗口 ,且 操作过程一致 （模拟同步器 ）,请写出代码5、（API利用SendMessage函数向QQ对话窗口发送文本里的所有内容（QQ 消息发送器 ）,请写出代码RunApp notepad.exeRunApp notepad.exeRunApp notepad.exeRunApp notepad.exeHwn dEx = Plugi

41、 n.Win dow.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 100 Next Sub ckczIf m = 1 or m = 2 Then= x + 600If m = 2 Then x=0End IfElseIf m = 3 or m = 4 Then= y + 600= x + 600:y=0End IfEnd Sub在路

42、径为：C:ajjl.txt文本的每行内容后加上对应的行数，例如:ajjl-第1行.请写 出代码 nr = hs = Split(nr, |)i = 0:ii = 1fileLen = handle = 0)For UBound(hs)第&ii&行& vbcrlf)i = i + 1:ii = ii + 1NextDelay 500RunApp c:ajjl.txtEndScript请提供至少两种判断程序卡死 (无响应)的思路,请写出关键代码 .请写出代码Private Declare Function IsHungAppWindow Lib user32.dll ( ByVal hWnd As

43、 Long) As LongSu子程序()Hwnd = If IsHungAppWindow(Hwnd)=0 ThenMsgBox 窗口正常 End IfEnd SubPrivate Declare Function IsHungAppWindow Lib user32.dll ( ByVal hWnd As Long) As LongHwnd = If IsHungAppWindow(Hwnd)=0 ThenMsgBox 窗口正常 End If根据系统时间生成一个 01 之间的小数点数字 ,需要写出生成的过程 (伪随机 数),请写出代码 MsgBox 伪随机 ()Function 伪随机 (

44、)时间= Split(Time, :)Randomize时二 In t(i nt(时间(0) * Rnd + 1) / 24 * 100Randomize分二 In t( int(时间(1) * Rnd + 1) / 60 * 10000Randomize秒二 In t(i nt(时间(2) * Rnd + 1) / 60 * 1000000伪随机二 round(时 +分 +秒) / 100, 6)End Function/利用ShowScrTXT命令制作一个放大镜，效果类似抓抓工具的放大镜，可以放 大显示鼠标指向的 5*5 区域的颜色 .请写出代码/ 放大范围 5*5While True C

45、all FDJ() Delay 5 Wend / 放大镜函数 Function FDJ() / 放大镜的起点坐标 st_x = 10 st_y = 10 / 获取鼠标的坐标 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 y2RtColor = 1) / 其中： 4 - x2 + a = 5 - (x2 - a + 1，) 以下同理scr_x1 = st_x + (14 - x2 + a)

46、* 16scr_y1 = st_y + (14 - y2 + b) * 16scr_x2 = scr_x1 + 16scr_y2 = scr_y1 + 16H,RtColor)NextNextEnd Function/、(API利用SendMessage函数向QQ对话窗口发送文本里的所有内容(QQ 消息发送器 ),请写出代码/举例：a二发送qq消息(漂亮妹子d:123.txt)/说明：QQ发送消息方式需设置为按“ enter发送消息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long,ByVal wMsg As Long, ByVal wParam As Long, lParam As string) As Longfunction 发送 qq 消息 (qq 名称 ,文件路径 )Hwnd = Plugi n.Win dow.Fi nd(TXGuiFou ndatio n, qq 名称)If Hwnd = 0 ThenMessageBox 未找到该用户： & qq 名称Exit FunctionEnd If文件路径)SendMessage hwnd, &H302, 0, 013)End Function（带轨迹的/ 写