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