VBA操作UC浏览器

northwolves

UC浏览器打开了某网页，如何取得该网页的标题和内容？
IE的可以遍历窗口：

1. Sub main()
   
2. Dim ie As Object, shwin As Object
   
3.     With CreateObject("Shell.Application")
   
4.         For Each shwin In .Windows
   
5.                    If LCase(Right(shwin.FullName, 12)) = "iexplore.exe" Then
   
6.                     Set ie = shwin
   
7.                     Exit For
   
8.                 End If
   
9.     Next
   
10.     End With
    
11.      Debug.Print ie.LocationName
    
12. End Sub

复制代码

northwolves

各位老师有没有什么办法或建议？

芐雨

遍历所有窗口，再查找下UC浏览器试试

1. Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
   
2. Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
   
3. Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
   
4. Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
   
5. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
6. Public oDic
   
7. Const SW_SHOWMAXIMIZED = 3
   
8. Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
   
9.     Dim oWK As Worksheet
   
10.     Set oWK = ActiveSheet
    
11.     Dim sCN As String
    
12.     Dim sTitle As String
    
13.     sCN = Space(1024)
    
14.     sTitle = Space(1024)
    
15.     Dim iLen1, iLen2
    
16.     iLen1 = GetClassName(hwnd, sCN, 1024)
    
17.     iLen2 = GetWindowText(hwnd, sTitle, 1024)
    
18.     sCN = Replace(Trim(Left(sCN, iLen1)), Chr(0), "")
    
19.     sTitle = Replace(Trim(Left(sTitle, iLen2)), Chr(0), "")
    
20.     With oWK
    
21.         sValue = sTitle & "!" & hwnd & "!" & sCN
    
22.         oDic.Add sValue, ""
    
23.     End With
    
24.     EnumWindowsProc = True
    
25. End Function
    
26. Sub FindTitle()
    
27.     Set oDic = CreateObject("Scripting.Dictionary")
    
28.     EnumWindows AddressOf EnumWindowsProc, 0
    
29.     arrKey = oDic.keys
    
30.     arr = Filter(arrKey, "UC浏览器!")
    
31.     For i = 0 To UBound(arr)
    
32.         sResult = arr(i)
    
33.         sTitle = Split(sResult, "!")(0)
    
34.         lHwnd = Split(sResult, "!")(1)
    
35.         sClassName = Split(sResult, "!")(2)
    
36.         Debug.Print sTitle
    
37.     Next
    
38. End Sub
    
39. 
    

复制代码

northwolves

芐雨 发表于 2022-3-22 10:33
遍历所有窗口，再查找下UC浏览器试试

该网页的标题可以取到。网页源代码用什么对象获得呢？

芐雨

northwolves 发表于 2022-3-24 22:21
该网页的标题可以取到。网页源代码用什么对象获得呢？

现在是要对已打开的网页，进行网页源代码的获取？

northwolves

芐雨 发表于 2022-3-25 10:15
现在是要对已打开的网页，进行网页源代码的获取？

是了. 是不是需要个什么组件来实现？

芐雨

northwolves 发表于 2022-3-25 11:39
是了. 是不是需要个什么组件来实现？

如果是IE，可以有组件对打开的网页来操作。

UC还真找不到相关的组件，那就用最直接的方法，用句柄激活UC浏览器，通过快捷键来操作浏览器，实现源代码的获取。

芐雨

VBA操作UC浏览器.zip (22.09 KB, 下载次数: 59)

2022-3-25 18:23 上传

点击文件名下载附件

代码参考附件。