谁难给我解释一下VB代码啊

来源:百度知道 编辑:UC知道 时间:2024/05/10 22:27:11
Option Explicit

Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDFIRST = 0
Private Const WM_GETTEXT = &HD

Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Function GetWindowList

没法改,这个是获取标题栏的。获取地址栏原理根本就不一样。标题栏有现成的API,地址栏没有。获取地址栏要用Hook,很复杂。

可以的,但是首先要搞清浏览器上各窗口之间的复合关系,以及各窗口的类名、标题等等信息,而且不同版本的可能不同,所以比较麻烦