vb中的getwindow

来源:百度知道 编辑:UC知道 时间:2024/06/18 12:34:02
我的目的是利用getwindow和getwindowtext获取IE浏览器的窗口句柄,我的代码是这样的:
Dim n, m
Dim s As String * 64
n = GetWindow(Form1.hwnd, GW_OWNER)
m = GetWindowText(n, s, 64)
MsgBox s
这样的代码运行的结果却是只能获取当前应用程序的窗口句柄...请问要实现上述的功能,我的代码还应该如何编写,谢谢!

如果你想获得系统带的浏览器的IE句柄的话 用下面的语句
n=FindWindow(IEFrame,NULL) //第一个参数 窗口的类名 第2个 窗口的名字
m=GetWindowText(n,s,64)

FindWindow 和 FindWindowEx 这2个对找窗口和有用的 声明如下

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

Dim n, m
Dim s As String * 64
n = GetWindow(Form1.hwnd, GW_OWNER) \'这一句应该用findwindow
m = GetWindowText(n, s, 64)
MsgBox s