WebBrowser控件实战：IE内核内嵌网页的导航、DOM与避坑

简介：WebBrowser控件使用详解文档，面向需要在Windows桌面应用中嵌入浏览器能力的.NET开发者，系统梳理该控件的核心用法。内容围绕方法、属性、事件三条主线展开：GoBack、GoForward、Navigate、Stop、Refresh2等导航方法逐一说明，并交代RefreshConstants各刷新级别的差异；Application、Document、LocationURL、Busy等属性解释了宿主对象、DHTML访问与加载状态判断；BeforeNavigate2、DocumentComplete、NewWindow2、CommandStateChange等事件点明导航、下载与界面状态变化的挂钩时机。文中还附有禁止右键、读取收藏夹路径等实战技巧及MSHTML.HTMLDocument事件绑定示例，可直接套用到内嵌浏览器、网页编辑等场景。压缩包内仅含1个docx文件，约29KB，体积轻便、便于检索；已有1008人学习下载，适合需要快速查阅接口语义与实现思路的中初级开发者。

1. 内嵌网页有 Canvas 了，为什么还有人在用 WebBrowser 控件

接手一套老上位机维护的时候，客户提了个很朴素的需求：把内网几个报表页嵌进主窗体，别让操作工在任务栏里来回切窗口，顺手能把页面上选中的表格文字取出来贴进本地记录。选型试了两轮，最省事的还是 WebBrowser 控件——底层的shell.explorer.2就是 IE 的 Trident 内核，导航、DOM 操作、打印、整页另存这些能力原生就在，宿主机器不用额外装运行时。它不如 Chromium 系内嵌方案“现代”，但在只读展示、内网页面、老 ActiveX 系统对接这类活里，改动量最小、出问题点最可控。下面按“导航方法 → DOM 操作 → 三块难啃的地方 → 避坑 → 可复用宿主”的顺序，把控件的方法、属性、事件和实战技巧整合成一条能直接抄的路径，适合还在维护 VB6/COM 宿主、或者给老系统补内嵌浏览区的同行。

2. 八个方法与一套事件状态机：把导航这件事先做对

控件的导航能力看起来就是“打开一个网址”，真正写进代码里则会碰到三件事：按钮什么时候该置灰、刷新和导航的事件顺序不一样、Document 什么时候才能安全访问。把这三件事理顺，后面所有 DOM 操作才有基础。

2.1 八个导航方法，以及 Refresh2 的四档刷新级别

GoBack、GoForward、GoHome、GoSearch、Navigate、Stop、Refresh、Refresh2是控件最外层的八个入口。前四个在老宿主里常用来做工具栏按钮，Navigate是主入口，Stop用来中断还没下载完的页面——注意它中断的是“当前页面及其所有内容”的载入，包括图片和脚本，不只是 HTML 文本。

真正容易用错的是刷新。Refresh只执行最简单的重载，而Refresh2允许指定刷新级别，值来自ExDisp.h里的RefreshConstants枚举：

在报表场景里，数据页经常在服务端做了缓存，用Refresh刷出来还是旧数，换成Refresh2并传入REFRESH_COMPLETELY才是正确的做法。这个坑我在第一次对接实时看板时就遇到了，页面刷新按钮点了半天没反应，最后才发现是缓存头的问题。

' REFRESH_COMPLETELY = 3，强制走服务端，不吃本地缓存 WebBrowser1.Refresh2 3

参数就只有这一个整型值，但选错档位的后果完全不同：REFRESH_IFEXPIRED依赖服务器返回的过期时间，如果对方是动态页、没给Expires，行为是不确定的；REFRESH_COMPLETELY会多一次完整的网络往返，页面大时肉眼可见变慢。我一般默认用 3，只有在明确知道页面是静态资源、想省带宽时才降回 0。

2.2 前进后退按钮不要自己维护栈，交给 CommandStateChange

很多老代码是这么写的：每次NavigateComplete2里自己压一个 URL 数组，后退时弹一个出来再Navigate。这套自维护栈在遇到重定向、POST 提交、页面内锚点跳转时几乎必错，而且会把浏览历史搞成两份。

控件本来就把历史列表管好了，宿主只需要知道“现在能不能后退”。这个信息由CommandStateChange事件推送：

' 命令号定义在 ExDisp.h / SHDocVw 类型库 ' CSC_NAVIGATEBACK = 2 ' CSC_NAVIGATEFORWARD = 1 Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, _ ByVal Enable As Boolean) Select Case Command Case CSC_NAVIGATEBACK ' 2 cmdBack.Enabled = Enable Case CSC_NAVIGATEFORWARD ' 1 cmdForward.Enabled = Enable End Select End Sub Private Sub cmdBack_Click() WebBrowser1.GoBack ' 不需要自己记录历史 End Sub Private Sub cmdForward_Click() WebBrowser1.GoForward End Sub

逻辑说明：Enable是控件根据当前历史位置算出来的布尔值，为True表示该方向还存在可跳转的条目。宿主只需要把这个值映射到按钮的Enabled属性上，历史列表本身完全交给控件。参数Command是命令枚举，除了前进后退，还有CSC_UPDATECOMMANDS、CSC_NAVIGATEFORWARD等值，只处理你关心的两个就够了。

这样写还有个额外好处：用户按 Alt+左箭头、或者页面里用window.history.back()触发后退时，按钮状态同样会跟着变，因为事件源是控件内部的历史状态，不是你的事件回调。自维护栈的方案在这种场景下必须再挂一堆钩子，最后一个都没挂全。

2.3 导航时序：BeforeNavigate2 到 DocumentComplete 之间能做什么

事件顺序搞反是新手最容易犯的错。一次正常导航（非刷新）大致是这个顺序：

BeforeNavigate2→DownloadBegin→NavigateComplete2→DownloadComplete→DocumentComplete。

刷新是特例：BeforeNavigate2不触发，NavigateComplete2不触发，DocumentComplete也不触发，只有DownloadBegin和DownloadComplete会走一遍。这意味着如果你把“页面加载完成后要做的事”挂在DocumentComplete上，用户点刷新的时候那段逻辑就不会执行——这是个很隐蔽的翻车点，我在一个需要刷新后重新注入 CSS 的项目里遇到过。

' Cancel 置 True 可以拦下这次导航，常用于白名单校验 Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, _ Flags As Variant, _ TargetFrameName As Variant, _ PostData As Variant, _ Headers As Variant, _ Cancel As Boolean) Dim sUrl As String sUrl = CStr(URL) ' 只允许内网域名，其余直接取消 If InStr(1, sUrl, "http://intranet.", vbTextCompare) <> 1 Then Cancel = True Exit Sub End If End Sub ' pDisp 要和主框架比对，否则 iframe 完成也会进来 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _ URL As Variant) If pDisp Is WebBrowser1.Object Then ' 到这里 Document 才保证可用 ApplyCustomStyle End If End Sub

逻辑说明：BeforeNavigate2的Cancel参数是唯一能在导航发起前反悔的地方，做 URL 白名单、拦弹窗、拦下载都靠它。DocumentComplete的pDisp参数必须和WebBrowser1.Object做同一性比较——一个带三个 iframe 的页面会触发四次DocumentComplete，不比对就会把初始化逻辑跑四遍，轻则重复注入样式，重则死循环。

参数层面还有两个注意点：BeforeNavigate2的PostData和Headers是Variant数组，想改请求头得在这里重新赋值，但只在部分场景生效；TargetFrameName为"_blank"时说明页面想开新窗口，配合NewWindow2事件才能接管，否则会真的弹出一个 IE 窗口。

3. Document 属性背后：DOM 注入、取选区与滚动条控制

Document属性是控件和网页内容之间的唯一通道，返回的是活动的自动化对象。HTML 页面显示时它给的是 DHTML Object Model 的入口，加载的是.doc文件时Type属性会返回Microsoft Word Document，Document也就跟着变成 Word 的对象。这个“同一个属性返回不同类型”的设计，是所有类型判断出错的源头。

3.1 动手之前先 Navigate “about:blank”

空控件的Document是Nothing，直接访问Document.body会抛“对象变量或 With 块变量未设置”（错误 91）。稳妥的初始化顺序是先导航到空白页，等DocumentComplete之后再去拿 DOM：

Private Sub Form_Load() ' 先占位，保证 Document 有实体 WebBrowser1.Navigate "about:blank" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _ URL As Variant) If pDisp Is WebBrowser1.Object Then ' 此时 WebBrowser1.Document 一定可用 WebBrowser1.Document.Body.InnerHTML = "<h3>初始化完成</h3>" End If End Sub

about:blank这一步不能省。有些宿主在Form_Load里直接写WebBrowser1.Document.Write，在慢机器上偶尔能跑通、快机器上反而失败，原因就是 IE 内核的初始化是异步的，Document何时可用取决于内核线程什么时候把文档对象建好。导航到about:blank相当于给内核一个明确的“请建文档”的指令，然后再等DocumentComplete，时序就确定了。

3.2 往控件里写 HTML 的三条路：Write、pasteHTML、execCommand

' 方式一：整页写入，只适合 about:blank 之后的空白文档 Dim s As String s = "<html><body style='font:12px 微软雅黑'>" s = s & "<h3>hello world</h3></body></html>" WebBrowser1.Document.Write s ' 方式二：在光标位置插入一段 HTML 片段 Dim rng As Object Set rng = WebBrowser1.Document.selection.createRange If Not rng Is Nothing Then rng.pasteHTML "<span style='color:#c00'>已标记</span>" Set rng = Nothing End If ' 方式三：插入标准表单控件，参数三是控件的初始值 WebBrowser1.Document.execCommand "InsertTextArea", False, "备注"

说明：Write走的是文档流，页面已经渲染完再调用会触发一次隐式重开文档，视觉上就是白屏闪一下，所以它只适合空白页场景。pasteHTML依赖selection.createRange，用户没选中任何内容时这个 Range 是一个塌缩的光标位置，插入行为是“在光标处插入”，不是“在末尾追加”，这点和直觉不一样。execCommand是最容易被低估的一个——它其实能调用 IE 编辑模式下的整套命令，InsertTextArea、Bold、CreateLink都在内，但命令失败时静默返回False，不抛异常，所以要么每个命令都检查返回值，要么就在调试期开日志。

3.3 取选中内容、开关滚动条、读 navigator 信息

这三个操作都挂在Document往下的一两层对象上，写法不难，但时机要求严格。

' 一、取用户选中的 HTML 片段（不是纯文本） Private Sub cmdGrabSelection_Click() Dim sel As Object, rng As Object Set sel = WebBrowser1.Document.selection If sel Is Nothing Then Exit Sub Set rng = sel.createRange If Not rng Is Nothing Then ' htmlText 带标签，text 只有文字 Clipboard.Clear Clipboard.SetText rng.htmlText End If Set rng = Nothing Set sel = Nothing End Sub ' 二、开关滚动条，必须在网页完全显示之后执行 Private Sub mnuScrollNo_Click() On Error Resume Next ' 文档类型不对时会报错 WebBrowser1.Document.Body.Scroll = "no" End Sub Private Sub mnuScrollAuto_Click() On Error Resume Next WebBrowser1.Document.Body.Scroll = "auto" ' 值大小写不敏感 End Sub ' 三、页面整体滚动 30 像素 Private Sub cmdScrollDown_Click() WebBrowser1.Document.parentWindow.scrollBy 0, 30 End Sub ' 四、读浏览器标识 Private Sub cmdUserAgent_Click() Dim oWin As Object Set oWin = WebBrowser1.Document.parentWindow Debug.Print oWin.navigator.userAgent Set oWin = Nothing End Sub

逻辑说明：selection.createRange返回的是文本范围对象，htmlText属性带原始标签，text只有纯文字，做富文本粘贴时用前者，做关键词提取时用后者。Body.Scroll只有"no"、"auto"、"yes"三个有效值，赋其他字符串不报错但也不生效，这是 DHTML 里典型的静默失败。parentWindow.scrollBy(x, y)的第一个参数是横向位移，正数向右、负数向左，和大多数前端scrollBy的语义一致。

navigator.userAgent读出来的是 IE 内核的标识串，服务端如果要按 UA 分流，这里拿到的和真实 IE 打开同页面时是一样的——所以别指望用它伪装成别的内核。

4. 禁右键、收藏夹与整页存 MHT：三块需要外部组件的硬骨头

控件本身提供的是浏览和 DOM 两件事，一旦需求跨到“改页面行为”“读写系统目录”“整页落盘”，就得借外部 COM 组件。这三个点恰好也是搜索量最高、答案最杂的三个。

4.1 禁用右键：MSHTML.HTMLDocument 的事件挂接与 WBCustomizer 的取舍

微软官方给过一个WBCustomizer.dll扩展 COM 对象，思路是把控件包一层再拦截消息。但这个方案在需要用到Document.execCommand "editMode"进入编辑模式时问题很明显——选中的文本高亮显示不出来，因为消息被拦得太早了。

更轻的做法是直接挂MSHTML.HTMLDocument的事件，引用Microsoft HTML Object Library之后，用WithEvents声明一个模块级变量：

' 需要引用 Microsoft HTML Object Library ' 需要引用 Microsoft Internet Controls Dim WithEvents m_Dom As MSHTML.HTMLDocument Private Sub WebBrowser1_DownloadComplete() ' DownloadComplete 里重新拿一次，页面切换后事件源会变 On Error Resume Next Set m_Dom = WebBrowser1.Document End Sub ' oncontextmenu 返回 False 即阻止默认菜单 Private Function m_Dom_oncontextmenu() As Boolean m_Dom_oncontextmenu = False End Function

逻辑说明：m_Dom必须重挂，因为每次导航之后WebBrowser1.Document会变成一个新的文档对象，原来那个WithEvents变量指向的是已经失效的实例，右键菜单会“莫名其妙又能弹出来”。所以挂接点选在DownloadComplete而不是只在Form_Load里做一次。

oncontextmenu是 DHTML 里少数几个“返回False即取消默认行为”的事件属性，而不是标准的事件订阅，这也是 VB 里能用函数返回值实现它的原因。代价是：它只对主文档生效，页面里的 iframe 需要单独挂；另外页面脚本自己调用event.returnValue = false时也会影响，两者会叠加。

4.2 收藏夹路径与添加收藏：CSIDL 6 和 ShellUIHelper

取收藏夹路径靠SHGetSpecialFolderLocation，CSIDL_FAVORITES的值是 6。拿到ITEMIDLIST之后再转成路径字符串：

Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _ (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" _ (ByVal pidl As Long, ByVal pszPath As String) As Long ' CSIDL_FAVORITES = 6 Public Function GetFavoritesPath() As String Const MAX_LENGTH = 260 Dim r As Long, sPath As String Dim idl As ITEMIDLIST r = SHGetSpecialFolderLocation(0&, 6&, idl) If r <> 0 Then Exit Function ' 非 0 即失败 sPath = Space$(MAX_LENGTH) If SHGetPathFromIDList(ByVal VarPtr(idl), ByVal sPath) <> 0 Then GetFavoritesPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) End If End Function

这里有两个参数细节：hwndOwner传0&表示无属主窗口，在服务进程里也能用；SHGetPathFromIDList要传ITEMIDLIST的地址，直接传idl.mkid.cb在某些系统上能跑通、在 64 位宿主下会崩，用VarPtr取地址更稳。另外这个 API 分配的内存理论上要用CoTaskMemFree释放，函数被高频调用时值得补上，否则会缓慢泄漏。

拿到路径之后遍历子目录，文件名去掉.url后缀就是收藏名。往收藏夹里加一条更简单，用ShellUIHelper：

' 需要引用 Microsoft Internet Controls（ShellUIHelper 在其类型库中） Private Sub cmdAddFavorite_Click() Dim helper As New ShellUIHelper helper.AddFavorite "http://intranet.report/daily", "日报看板" Set helper = Nothing End Sub

AddFavorite的两个参数是 URL 和显示名，调用后会直接写进系统收藏夹目录，不走任何确认框。批量导入时如果不加节流，几十条一起写会让资源管理器卡住刷新，最好在循环里加一个短延时。

4.3 整页存成 MHT：CDO.Message 加 ADODB.Stream 的三个关键参数

MHTML 是单文件归档格式，把 HTML 和它引用的图片、样式打成一个多部分 MIME。控件自己没有导出接口，得靠 CDO：

' 引用 Microsoft CDO for Windows 2000 Library（CDOSYS.dll） ' 引用 Microsoft ActiveX Data Objects 2.5 Library（或更高） Private Sub cmdSaveMht_Click() Dim msg As New CDO.Message Dim cfg As New CDO.Configuration Dim stm As ADODB.Stream On Error GoTo failed ' 参数二：抑制哪些资源，0 = cdoSuppressNone，全都保留 ' 参数三、四：需要 HTTP 认证时的用户名密码 msg.CreateMHTMLBody "http://intranet.report/daily", 0, "", "" Set stm = msg.GetStream stm.SaveToFile "d:\archive\daily.mht", adSaveCreateOverWrite stm.Close Set stm = Nothing Set msg = Nothing Set cfg = Nothing Exit Sub failed: MsgBox "导出失败：" & Err.Description Set stm = Nothing Set msg = Nothing End Sub

逐项说：CreateMHTMLBody的第二个参数是CdoMHTMLFlags位掩码，cdoSuppressNone = 0全保留，cdoSuppressImages = 1、cdoSuppressBGSounds = 2、cdoSuppressFrames = 4、cdoSuppressObjects = 8、cdoSuppressStyleSheets = 16、cdoSuppressAll = 31，需要减体积时可以按位或组合。第三、四个参数是目标站点的认证信息，内网走集成认证的页面填上域账号就能过。

GetStream返回的是ADODB.Stream，SaveToFile的第二个参数用adSaveCreateOverWrite（值 2）表示覆盖已有文件，用adSaveCreateNotExist（值 1）表示文件已存在就报错。流对象一定要Close再置Nothing，否则文件句柄不释放，下次覆盖写会报“文件正在使用”。

还有一个实际使用中的问题：这个方案本质是 CDO 自己去抓页面，它不带控件的会话状态和 Cookie，需要登录的页面抓下来会是一张登录页。要保住会话，得先把InternetExplorer的 Cookie 通过InternetSetCookie之类的方式同步过去，或者干脆放弃 CDO、改从控件的Document里遍历img标签自己拼 MIME——后者工作量大但完全可控。

5. 避坑与排查：五个我确实踩过的现场

5.1 动态加控件报“类型不匹配 13”

现象：Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1这一行编译不过，提示错误 13。

原因：newweb(newweb.Count)是控件数组的元素引用，不是控件名。Controls.Add的第二个参数要的是新控件的字符串名字，而且它创建出来的是独立控件，不会自动进入某个已有控件数组。

解决：两条路分开走。要往控件数组里加，用Load；要凭空造一个新控件，用Controls.Add但传字符串名。

' 路线一：控件数组扩容，适合数量可控、需要统一事件处理的场景 Dim i As Integer Private Sub cmdAddWeb_Click() For i = 1 To 10 Load NewWeb(i) ' NewWeb(0) 必须已在设计期放好 NewWeb(i).Top = i * 100 NewWeb(i).Left = i * 100 NewWeb(i).Visible = True Next i End Sub Private Sub cmdDelWeb_Click() For i = 1 To 10 Unload NewWeb(i) Next i End Sub ' 路线二：完全动态创建，靠 Controls 集合管理 Private Sub cmdAddDynamic_Click() Dim wb As Object Set wb = Form1.Controls.Add("shell.explorer.2", "DynWeb" & CStr(Timer)) wb.Visible = True wb.Width = 8000 wb.Height = 6000 wb.Navigate2 "about:blank" Set wb = Nothing End Sub

路线二的Controls.Add返回值类型是Object，属性要靠后期绑定访问，IDE 没有补全，写错属性名只在运行时暴露。数量超过二十个时强烈建议走路线一，因为控件数组的索引是编译期确定的，事件处理可以统一写在一个Index分支里。

5.2 DocumentComplete 里访问 Document 报 91

现象：偶尔能跑，偶尔抛“对象变量或 With 块变量未设置”。

原因：手里拿到的pDisp是某个 iframe 的文档对象，那个框架里可能是空的；或者控件还没完成初始化，Document的底层对象尚未建立。

解决：先比对pDisp Is WebBrowser1.Object确认是主框架，再对Document做一次Is Nothing判断。同时检查是不是在Form_Load里直接访问了Document——那种写法在控件尚未Navigate过任何地址时必败。

5.3 Body.Scroll 设置了没反应

现象：调用WebBrowser1.Document.Body.Scroll = "no"之后滚动条还在。

原因：三个可能。页面还没完全显示，Body引用的是旧文档；页面用了frameset而不是body，此时Body是空对象；目标页面在 iframe 里，主文档的Body根本不负责它。

解决：把这段逻辑挪到DocumentComplete之后；frameset页面改用Document.documentElement.style.overflow = "hidden"；iframe 场景需要遍历Document.frames逐个处理。所有情况都加On Error Resume Next，因为 DHTML 属性写在不可用的对象上不会抛出有意义的错误信息。

5.4 ExecWB 打印没反应或直接弹系统框

现象：WebBrowser1.ExecWB 6, 2想静默打印，结果什么事都没发生；换成6, 1反而弹出打印对话框。

原因：第二个参数是OLECMDEXECOPT执行选项，1是PROMPTUSER（询问用户），2是DONTPROMPTUSER（不询问）。静默打印要求宿主和打印机都配置到位，缺一个就会直接失败且不报错。

解决：先用6, 1确认打印链路本身通不通，再换6, 2做静默。常用命令号我整理成一张表：

另一个隐藏条件是文档必须处于可执行命令的状态，about:blank上调用ExecWB会返回失败，得等真实页面DocumentComplete之后。

5.5 MHT 导出文件大小是 0，或者导出后进程不退出

现象：SaveToFile执行完，磁盘上有个 0 字节的.mht；或者窗体关了，任务管理器里还挂着一个进程。

原因：CDO.Message的GetStream在CreateMHTMLBody失败（网络不通、认证不过、URL 拼错）时会返回一个空流，SaveToFile照写不误，于是得到 0 字节文件。进程残留则是InternetExplorer对象没置Nothing，COM 引用计数没归零。

解决：CreateMHTMLBody之后先检查msg.GetStream.Size，为 0 就直接报错退出，别往下写文件。窗体Unload里加一段清理：Set WebBrowser1 = Nothing，再Set掉所有持有Document、parentWindow引用的模块级变量——尤其是带WithEvents的那些，它们对文档对象持有强引用，不释放就会拖住整个 IE 内核。

6. 收尾：把它做成一个可复用的最小宿主

上面这些点单独看都很零碎，实际项目里我一般会先拼一个“最小宿主”出来，再往里加业务。宿主要解决的只有四件事：窗口模式、导航白名单、DOM 钩子、引用清理。

全屏 kiosk 是最典型的一个变体。控件本身没法全屏，全屏的是它所在的窗体，思路是去掉窗体的标题栏、隐藏任务栏、再把窗体最大化：

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const GWL_STYLE As Long = -16 Private Const WS_CAPTION As Long = &HC00000 Private Sub EnterKiosk() ' 去掉标题栏 SetWindowLong Me.hwnd, GWL_STYLE, _ SetWindowLong(Me.hwnd, GWL_STYLE, 0) And Not WS_CAPTION ' 隐藏任务栏（Shell_TrayWnd 是任务栏的窗口类名） ShowWindow FindWindow("Shell_TrayWnd", ""), 0 Me.WindowState = 2 ' 最大化 End Sub Private Sub ExitKiosk() ShowWindow FindWindow("Shell_TrayWnd", ""), 9 ' 9 = SW_RESTORE Me.WindowState = 0 End Sub

注意SetWindowLong那行是嵌套调用的写法，先读原样式再按位与掉标题栏位，直接传0会把整个窗口样式清空，边框和系统菜单一起消失、窗口拖不动。退出时必须显式恢复任务栏，否则用户只能靠任务管理器救场——这个我已经见过不止一次。

最小宿主的初始化顺序我固定成一套检查表，每次新建项目照抄：

这套顺序的好处是把“时序依赖”显式化了。第 1 步解决 Document 可用性，第 2 步解决事件重入，第 3 步解决安全边界，第 4 步解决引用失效，第 5 步解决资源泄漏。后面不管加多少业务逻辑，都往这五步之间插，不会破坏原有的时序假设。

还有一个进阶技巧值得单独提：NewWindow2事件可以把页面里的target="_blank"接管过来，避免弹出独立的 IE 窗口。做法是在事件里把ppDisp赋成另一个WebBrowser的Application对象，让新页面在你自己准备的控件里打开；Cancel = True则是直接拦掉。两者选一个，不要同时设，否则行为未定义。

' ppDisp 指向的必须是另一个 WebBrowser 的 Application Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) If frmPopup Is Nothing Then Load frmPopup End If Set ppDisp = frmPopup.WebBrowser1.Application frmPopup.Show End Sub

最后说个教训。早年做这类内嵌宿主，我图省事，把所有 DOM 相关的模块级变量都当普通对象处理，窗体关了也不Set Nothing，本地调试时没什么异常，扔到工控机上跑两天就出现“关不掉的进程 + 内存缓慢上涨”，排查了整整一周才发现是WithEvents变量持有文档对象引用，把整个 IE 内核钉死在内存里。从那以后我每次新建这类宿主，Form_Unload里都强制走一遍逆序释放，先放 DOM 引用、再放 Document、最后放控件，一个都不省。希望帮到你。

本文还有配套的精品资源，点击获取