vbs获取程序窗体句柄_根据IE窗口句柄hWnd获得IWebBrowser接口

关于如何根据IE窗口句柄hWnd获得IWebBrowser接口，网络上代码很多，大多是使用了MSAA里的一个函数GetObjectFromLResult进行获取，一方面，许多朋友尤其是VB爱好者对MSAA技术并不了解，另一方面，用此方法非常繁琐。我的偶象之一超级绿豆甚至在2005年的时侯使用汇编来获取IWebBrowser，虽然思路和方法都很好，但不容易理解和掌握。其实使用Sehll对象，可以非常方便简单地根据窗口句柄获得IWebBrowser接口，由于Shell是COM对象，不仅VB可以做得，VC一样可以做得，甚至在VBS里也可以。

具体代码如下：

Option Explicit

'* ************************************************************** *

'*    程序名称：GetIWebBrowserFromHWND.bas

'*    程序功能：根据IE窗口句柄获得IE对象

'*    作者：lyserver

'* ************************************************************** *

Public Function GetIWebBrowserFromHWND(ByVal hWnd As Long) As Object

Dim SHApp As Object, SHWin As Object

Set SHApp = CreateObject("Shell.Application")

For Each SHWin In SHApp.windows

If LCase(