Слияние кода завершено, страница обновится автоматически
VERSION 5.00
Begin VB.Form frmMain
Caption = "Windows程序自动化操作框架V2.2 演示"
ClientHeight = 6975
ClientLeft = 60
ClientTop = 345
ClientWidth = 8550
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6975
ScaleWidth = 8550
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Left = 5160
Top = 5520
End
Begin VB.HScrollBar HScroll1
Height = 375
Left = 3600
TabIndex = 15
Top = 3240
Width = 4575
End
Begin VB.CommandButton Command11
Caption = "微信发送消息"
Height = 495
Left = 240
TabIndex = 14
Top = 5760
Width = 3015
End
Begin VB.CommandButton Command10
Caption = "鼠标画圆"
Height = 495
Left = 240
TabIndex = 13
Top = 5160
Width = 3015
End
Begin VB.CommandButton Command9
Caption = "发消息到qq群"
Height = 495
Left = 240
TabIndex = 12
Top = 4560
Width = 3015
End
Begin VB.CommandButton Command1
Caption = "测 试"
Height = 495
Left = 4200
TabIndex = 11
Top = 4560
Width = 1815
End
Begin VB.CommandButton Command8
Caption = "调用notepad进行一系列操作"
Height = 495
Left = 240
TabIndex = 10
Top = 3960
Width = 3015
End
Begin VB.CommandButton Command6
Caption = "控制“记事本”抖动、淡出、淡入"
Height = 495
Left = 240
TabIndex = 9
Top = 3360
Width = 3015
End
Begin VB.CommandButton Command5
Caption = "关闭所有记事本程序的窗口"
Height = 495
Left = 240
TabIndex = 8
Top = 2760
Width = 3015
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0FF&
Caption = "设置计算器窗口特定排列"
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 4
Top = 2160
Width = 3015
End
Begin VB.CommandButton Command3
Caption = "测试窗口激活"
Height = 495
Left = 240
TabIndex = 3
Top = 1560
Width = 3015
End
Begin VB.CommandButton Command2
Caption = "调用计算器进行计算"
Height = 495
Left = 240
TabIndex = 1
Top = 960
Width = 3015
End
Begin VB.CommandButton Command1x
Caption = "关闭纸牌等游戏窗口"
Height = 495
Left = 240
TabIndex = 0
Top = 360
Width = 3015
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "根据句柄直接点击按钮"
ForeColor = &H000000FF&
Height = 180
Left = 3360
TabIndex = 7
Top = 1200
Width = 1800
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "会激活Chrome、IE、扫雷等窗口"
ForeColor = &H000000FF&
Height = 180
Left = 3360
TabIndex = 6
Top = 1800
Width = 2520
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "会自动安排“计算器”花样出场，表演结束自行退出"
ForeColor = &H000000FF&
Height = 180
Left = 3360
TabIndex = 5
Top = 2400
Width = 4140
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请先打开任意一个系统自带的游戏"
ForeColor = &H000000FF&
Height = 180
Left = 3360
TabIndex = 2
Top = 600
Width = 2700
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim window As New clsWindow
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'关闭纸牌等游戏窗口
Private Sub Command1x_Click()
Command1x.Enabled = False
' If window.GetWindowByTitle("纸牌", 10).hWnd > 0 Then '方法1：完全匹配方式，不支持正则
' If window.GetWindowByTitleEx("蛛", 10).hWnd > 0 Then '方法2：模糊匹配方式，含有此文字的就获取
' 使用正则匹配，对系统自带的几种游戏通杀
If window.GetWindowByTitleEx("蜘蛛|纸牌|空当接龙|扫雷|红心大战|三维弹球", 10, , True).hWnd > 0 Then '方法3：使用正则匹配，功能强大
window.CloseWindow '关闭窗口
' window.CloseApp '关闭进程，注意和上面方法的区别
End If
Command1x.Enabled = True
End Sub
'
Private Sub Command10_Click()
Dim i%, w As New clsWindow
Dim k As Single
Const pi As Single = 3.14159
Do While k < 2 * pi
w.ClickPoint Cos(k) * 300 / 4 + 500, Sin(k) * 500 / 4 + 300, , , 10
k = k + pi / 180
DoEvents
Loop
End Sub
Private Sub Command11_Click()
sendWeixinMsg "朱磊", "hello"
End Sub
Private Sub sendWeixinMsg(ByVal strName$, ByVal strMsg$)
Dim w As New clsWindow
If w.GetWindowByClassName("WeChatMainWndForPC").hWnd <> 0 Then
w.Focus
w.ClickPoint 30, 100, , , 1200 '延时200ms后点击聊天板块
w.ClickPoint 130, 40, , , 1200, 1500 '延时200ms后点击搜索框，点击后再延时500ms
SendKeys strName
w.ClickPoint 150, 130, , , 1500, 1500 '点击搜索结果
SendKeys strMsg & "{ENTER}"
Else
MsgBox "未发现微信桌面版，请打开微信桌面版再测试！", vbExclamation
End If
Set w = Nothing
End Sub
'调用计算器进行计算
Private Sub Command2_Click()
Dim strPID$
Command2.Enabled = False
strPID = Shell("calc.exe", 1)
' window.GetWindowByTitleEx "计算器", 2 '方法1：不知道pid的情况下可使用，有同样标题的窗口时容易误取
window.GetWindowByTitleEx "计算器", 2, strPID '方法2：如果知道pid那么进行验证获取窗口，防止误取
' MsgBox window.AppPath '得到应用程序路径
' MsgBox window.AppName '得到应用程序文件名
' MsgBox window.AppCommandLine '得到应用程序启动参数
'逐个点击计算器按键
' window.SetElementTextByClassName "SciCalc", "计算2+3的结果："'方法1：通过类名定位设置窗口文字
' window.setElementTextByText "计算器", "计算2+3的结果：" '方法2：通过窗口文字定位设置窗口文字
window.Caption = "计算2+3的结果：" '方法3：直接使用当前存储的句柄设置窗口文字
window.Wait 500
window.ClickElementByText "2"
window.ClickElementByText "+"
window.ClickElementByText "3"
window.ClickElementByText "="
'循环处理计算器按键
Dim s$, i%
window.Caption = "计算5*3*4/2+1+69=的结果："
s = "5*3*4/2+1+69="
For i = 1 To Len(s)
window.ClickElementByText Mid(s, i, 1)
Next
window.Wait 2000
window.Caption = "两秒后关闭计算器"
window.Wait 2000
window.CloseWindow
Command2.Enabled = True
window.Wait 2000
End Sub
'激活窗口获得焦点
Private Sub Command3_Click()
Command3.Enabled = False
Dim w As New clsWindow
w.Wait 500
w.GetWindowByTitleEx("Google Chrome", 1).Focus '如果谷歌浏览器窗口获取到就激活
w.Wait 500
If w.GetWindowByTitleEx("扫雷", 1).hWnd > 0 Then w.Focus '如果扫雷游戏窗口获取到就激活，默认等待1秒
w.Wait 500
If w.GetWindowByTitleEx("Internet Explorer", 1).hWnd > 0 Then '如果IE浏览器窗口获取到就激活
w.Focus
Randomize
w.Move 800 * Rnd + 100, 300 * Rnd, 800 * Rnd + 500, 800 * Rnd + 100 '设置窗口位置的测试
w.Caption = "窗口左顶点坐标：(" & w.Left & "," & w.Top & ") Internet Explorer" '得到窗口左顶点坐标的测试
End If
Command3.Enabled = True
End Sub
'设置窗口位置
Private Sub Command4_Click()
Dim i&, j&, lngLeft&, lngTop&, strHwnd$, v
Command4.Enabled = False
Dim w As New clsWindow
'横排依次打开4个计算器
For i = 1 To 4
w.GetWindowByTitleEx "计算器", 2, Shell("calc.exe", 1)
w.Caption = "句柄为:" & w.hWnd
w.Move lngLeft, 300
lngLeft = lngLeft + w.Width
strHwnd = strHwnd & w.hWnd & ","
Next
w.GetWindowByTitleEx "计算器", 2, Shell("calc.exe", 1)
strHwnd = strHwnd & w.hWnd & ","
w.Wait 20
'向下移动
For i = 0 To Screen.Height / 15 - w.Height Step 10
w.Wait 5
w.Move lngLeft, i
Next
'再回头
For i = Screen.Height / 15 - w.Height To 300 Step -10
w.Wait 5
w.Move lngLeft, i
Next
w.Move lngLeft, 300
'竖排依次打开3个计算器，并且处理为渐渐移动到右边的效果
For i = 1 To 3
w.GetWindowByTitleEx "计算器", 2, Shell("calc.exe", 1)
w.Caption = "句柄为:" & w.hWnd
For j = 0 To Screen.Width / 15 - w.Width Step 10
w.Wait 10
w.Caption = "坐标(" & j & "." & lngTop & ")"
w.Move j, lngTop
Next
lngTop = lngTop + w.Height
strHwnd = strHwnd & w.hWnd & ","
Next
v = Split(strHwnd, ",")
'激活测试，窗口全部激活一遍，注意标题会闪动一下
w.Wait 1000
For i = 0 To UBound(v) - 1
w.hWnd = v(i)
w.Focus
w.FadeIn 20
Next
'1秒后逐步关闭所有刚刚打开的窗口
w.Wait 1000
For i = UBound(v) - 1 To 0 Step -1
w.hWnd = v(i)
w.Wait 100 '延时是为了看到逐步关闭的进程，不然一下子关了看不到效果
w.CloseWindow
Next
Command4.Enabled = True
End Sub
'得到所有为资源管理器类的窗口句柄
Private Sub Command5_Click()
Command5.Enabled = False
'方法1 通过类名一次性获取Notepad所有窗口句柄：
'Dim w As New clsWindow
'Dim sHwndAll$, v, i%
'If w.GetWindowByClassNameEx("Notepad", 3, sHwndAll).hWnd > 0 Then 'xp下资源浏览器类名是CabinetWClass
' v = Split(sHwndAll, " ") '所有符合条件的窗口句柄的集合
' For i = 0 To UBound(v)
' w.hWnd = v(i)
' w.CloseWindow
' Next
'End If
'方法2 循环关闭所有类名为Notepad的窗口，直到没有：
Dim w As New clsWindow
Do While w.GetWindowByClassName("Notepad", 1).hWnd > 0
w.CloseWindow
Loop
'方法3 循环关闭所有标题栏含关键字“ - 记事本”窗口，直到没有：
'Dim w As New clsWindow
'Do While w.GetWindowByTitleEx(" - 记事本", 1).hWnd > 0
' w.CloseWindow
'Loop
'方法4 根据进程名关闭Notepad，为防止错关闭，可以加if结合窗口标题控制：（win7下好像无效，问题没仔细研究）
'Dim w As New clsWindow
'Dim sHwndAll$, v, i%
'If w.GetWindowByAppNameEx("notepad.exe", 3, sHwndAll).hWnd > 0 Then 'xp下资源浏览器进程名是explorer.exe
' v = Split(sHwndAll, " ") '所有符合条件的窗口句柄的集合
' For i = 0 To UBound(v)
' w.hWnd = v(i)
' If w.Caption <> "" And w.Caption <> "Program Manager" And w.Caption <> "M" And w.Caption <> "Default IME" And w.Visible Then '必须可见并且内容不为空不是系统特殊的窗口
' w.CloseWindow
' End If
' Next
'End If
Command5.Enabled = True
End Sub
Private Sub Command6_Click()
'Shell "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 0
Dim w As New clsWindow
'MsgBox w.GetWindowByAppName("taskmgr.exe").Caption
'MsgBox w.GetWindowByTitle("Windows 任务管理器").Caption
'MsgBox w.GetWindowByAppName("notepad++.exe").Caption
'w.GetWindowByTitleEx("- 记事本").CloseWindow '关闭记事本窗口
'MsgBox w.GetWindowByTitleEx("记事本").GetElementTextByClassName("Edit") '取得记事本中的内容
'w.GetWindowByTitleEx("记事本").Hide
'w.GetWindowByTitleEx("记事本").Show
'w.GetWindowByTitleEx("记事本").SetTop
If w.GetWindowByTitleEx("记事本", 2).hWnd > 0 Then
w.Focus '设置为焦点
w.Shake '抖动
w.FadeOut '淡出
w.FadeIn '淡入
Else
MsgBox "找了2秒钟也没有发现打开着的notepad，逗我玩呢吧？", vbInformation
End If
'w.GetWindowByPID Shell("C:\Program Files (x86)\Microsoft Office\Office14\powerpnt.exe c:\实战销售技巧超级销售.ppt", 1)
'w.WAIT 2000
'w.Focus
'SendKeys "{F5}"
'w.WAIT 1000
'w.ClickElementByClassName "paneClassDC"
End Sub
Private Sub Command1_Click()
Dim w As New clsWindow
'' If w.GetWindowByClassName("Notepad").hwnd <> 0 Then
'' w.Focus
'' w.Shake '默认抖动
'' End If
''
'Dim s$
''w.GetWindowByClassNameEx "DirectUIHWND", 1, s
''MsgBox s
'
'If w.GetWindowByTitle("Internet Explorer", 0).hwnd > 0 Then
' w.GetWindowByHwnd(w.GetElementHwndByClassName("DirectUIHWND")).CloseWindow
'End If
'
'' w.GetWindowByClassName("DirectUIHWND", 0).CloseWindow
'
'
'GetWindowByTitle
'Dim w As New clsWindow
'If w.GetWindowByTitle("计算器", 0).hwnd <> 0 Then
' Do
' If Not w.CheckWindow Then
' MsgBox "计算器已关闭"
' Exit Do
' End If
' DoEvents
' Loop
'Else
' MsgBox "计算器未打开"
'End If
' Dim s$, strTmp$
'' w.hwnd = 65962
'' w.Visible = True
'' Exit Sub
'
' w.GetWindowByTitleEx "", 0, s, , , HiddenWindow
'' MsgBox s
' Dim i%, v
' v = Split(s, " ")
' s = ""
' For i = 0 To UBound(v)
' strTmp = w.GetWindowTextByHwnd(v(i))
' If strTmp = "WeNote" Then w.GetWindowByHwnd(v(i)).Visible = True
'' If strTmp <> "" Then s = s & v(i) & " " & strTmp & vbCrLf
' Next
'' w.writeToFile "结果.txt", s
'w.DebugMe = True
'Dim w As New clsWindow
'If w.GetWindowByTitle("转到指定行", 0).hWnd <> 0 Then
' w.SetElementTextByClassName "Edit", 999 '将行号改成999
' w.ClickElementByClassName "Button" '点击“转到”按钮，如果要点击“取消”按钮可以用w.ClickElementByClassName "Button", 1
' End If
'w.hWnd = Me.hWnd
'w.WindowState = vbMaximized
'If w.GetWindowByTitleEx("计算器").hWnd <> 0 Then
' Dim hwndButton As Long
' hwndButton = w.GetElementHwndByText("8")
' w.GetWindowByHwnd(hwndButton).Focus
'End If
'MsgBox w.GetWindowByPID(12132).CommandLine
'MsgBox w.CommandLine(5504)
'MsgBox w.GetWindowByTitleEx("记事本").CommandLine
w.GetWindowByTitleEx "记事本"
w.Focus
w.Wait 1000
w.Focus
w.test
Me.Caption = Now
End Sub
'调用记事本然后写入一些内容后保存到c:\test.txt
Private Sub Command8_Click()
Dim w As New clsWindow
' w.DebugMe = True
w.GetWindowByPID(Shell("notepad", 1)).Focus '根据pid直接获取窗口并设置为当前活动窗口
w.Caption = "看到记事本打开了吗？" & Now '设置应用程序标题内容
w.Shake '抖动窗口，可以通过参数调节抖动方向、速度、幅度、次数
w.SetElementTextByClassName "Edit", "clsWindow" & w.Version & "发布 " & Now() '设置输入框文字
w.Wait 1000
w.FadeOut '淡出
w.AppendElementTextByClassName "Edit", vbCrLf & "功能全面" '向输入框追加内容
w.FadeIn '淡入
w.AppendElementTextByClassName "Edit", vbCrLf & "欢迎测试反馈" '向输入框追加内容
w.Wait 1000
w.Focus
w.Wait 500
w.SendKeys "^{s}" '设置焦点后按快捷键保存
Dim w2 As New clsWindow
w2.GetWindowByTitleEx("另存为").SetElementTextByClassName "Edit", "c:\test" & Format(Now, "yyyymmddhhnnss") & ".txt"
w2.ClickElementByText "保存(&S)"
MsgBox w.GetElementTextByClassName("Edit")
End Sub
Private Sub Command9_Click()
' Dim i%
' Dim w As New clsWindow
' For i = 1 To 40
' w.GetWindowByTitle("VB高级语言学习交流群").Focus
' w.ClickPoint w.Left + 35, w.Top + w.Height - 100, absolute
' w.Wait 20
' Clipboard.Clear
' Clipboard.SetText "[" & i & "]发送 本消息由程序clswindow" & w.Version & "类发出 QQ ：788028734" & Now
' SendKeys "^{v}"
' SendKeys "%{s}"
' w.Wait 2
' Next
sendQQMsg "clswindow交流群", "大家好，框架交流群QQ：788028734"
sendQQMsg "石头", "hello!"
End Sub
'sendQQMsg "QQ窗口标题", "测试"
Private Sub sendQQMsg(ByVal strName$, ByVal strMsg$)
Dim w As New clsWindow
If w.GetWindowByTitle(strName).hWnd <> 0 Then
w.SetPosNormal
w.Focus
w.ClickPoint w.Left + 35, w.Top + w.Height - 100, ABSOLUTE
w.Wait 20
Clipboard.Clear
Clipboard.SetText strMsg
SendKeys "^{v}"
SendKeys "%{s}"
w.Wait 2
Else
MsgBox "未发现包含“strName”的QQ聊天窗口，请打开对应的窗口再测试，注意请在面板上取消勾选“合并勾选窗口”", vbExclamation
End If
Set w = Nothing
End Sub
Private Sub Form_Load()
Dim w As New clsWindow
Me.Show
w.Load(Me.hWnd).FadeIn '淡入
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then '始终将本窗口设置为活动窗口
Dim w As New clsWindow
w.hWnd = Me.hWnd
w.Focus
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub HScroll1_Change()
Dim w As New clsWindow
If w.GetWindowByClassName("Notepad", 0).hWnd <> 0 Then
w.MakeTransparent HScroll1.Value / HScroll1.Max * 100 & "%"
Else
MsgBox "请先打开一个记事本文件，然后再拉动滚动条，注意观察记事本窗口变化", vbInformation
End If
End Sub
Private Sub HScroll1_Scroll()
Call HScroll1_Change
End Sub
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )