按键精灵开发者一到六级认证最全总结答案

Next

MsgBox ii

16、有一个字符串，里面包含一些数字，写一个函数，把这些数字加起来。比如“我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

Msgbox b 17、遍历字符串\取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码

MsgBox 反提取小写数字(\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

//4、写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出 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(\ //Delay 1000

//Hwnd = Plugin.Window.Find(\//If Hwnd > 0 Then // moveWin(Hwnd) //Else

// MessageBox \记事本未找到！\

//End If

'写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码 Sub moveMou(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 End Sub

Call moveMou(1000,500)

//////(API)利用 SetWindowPos 函数将窗口置前,相关说明请百度,请写出代码

Private Declare Function SetWindowPos Lib \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)

4、利用 ShowScrTXT 命令制作一个放大镜,效果类似抓抓工具的放大镜,可以放大显示鼠标指向的5*5区域的颜色.请写出代码 While true

GetCursorPos x, y

se = GetPixelColor(x + l, y + s)

Call Plugin.Msg.ShowScrTXT(x + l * 15 + 15, y + s * 15 + 15, x + 170, y + 170, \■\se)

If l = 4 Then l = 0 s = s + 1 Else l = l + 1 End If

If s = 5 Then s = 0

Delay 500

Call Plugin.Msg.HideScrTXT() Delay 100 End If Wend

5、获取鼠标无动作的时间,返回值是鼠标无动作的时间(鼠标监控),请写出代码

1、同种窗口多开,操作一个窗口(键盘和鼠标)能够同时操作其他同种窗口,且操作过程一致(模拟同步器),请写出代码

5、(API)利用 SendMessage 函数向QQ对话窗口发送文本里的所有内容(QQ消息发送器),请写出代码

RunApp \ RunApp \ RunApp \ RunApp \

HwndEx = Plugin.Window.Search(\记事本\ hw_sp = Split(HwndEx, \hw_ub = UBound(hw_sp) TracePrint hw_ub x = 0 y = 0