简介：本资源是一份面向.NET Windows桌面开发者的WebBrowser控件系统性学习文档，聚焦WinForm应用中嵌入浏览器功能的完整实现方案。内容全面覆盖核心方法（如Navigate、GoBack、Refresh2及刷新级别控制）、关键属性（Document、LocationURL、Busy等DOM与状态访问接口）以及常用事件（BeforeNavigate2、DocumentComplete、DownloadComplete等生命周期钩子），并附有禁止右键菜单、获取收藏夹路径等实用技巧，适合中初级开发者快速掌握控件集成、页面交互与自动化操作。资源为1个29KB的Word文档（.docx），结构清晰，含方法/属性/事件三大部分详解及代码级注释说明，便于查阅与实践参考。目前已有1008人学习下载，是理解IE内核WebBrowser在.NET中底层行为与典型问题处理的重要参考资料。
1. WebBrowser控件不是“嵌入浏览器”，而是 IE 渲染引擎的自动化接口：它不跑 Chromium，不依赖 EdgeHTML，只认 Trident（MSHTML），且在 Win10/Win11 上默认禁用——但仍有不可替代的工业场景
你写了个 WinForms 程序，想加个网页展示区，双击 Toolbox 拉个WebBrowser控件拖进去，.Navigate("https://baidu.com")一跑，页面出来了——恭喜，你成功调用了 Windows 系统级 COM 组件shdocvw.dll的封装体。但这不是“嵌入一个浏览器”，而是把 IE 的渲染内核（Trident）和脚本宿主（JScript/VBScript 引擎）以 ActiveX 容器方式挂进你的进程。它没有独立进程、不沙箱、不更新渲染引擎，所有行为都受系统 IE 版本和安全策略支配。这意味着：你在 Win7 上能正常加载的 ActiveX 插件，在 Win10 1809+ 默认策略下会直接黑屏；你用execCommand("InsertImage")写的富文本编辑器，在 IE11 关闭兼容性视图后可能连光标都不显示；你靠Document.body.innerHTML注入的 DOM，在启用了 Enhanced Protected Mode（EPM）的 IE 中会因跨进程隔离而读不到。但它依然活着——某高校实验室的设备控制台必须调用老旧 PLC 厂商提供的.ocx控件；某电力调度系统的本地 HMI 需要解析.mht归档报告并高亮告警段落；某银行内网审批系统强制要求使用shell.explorer.2加载内部 OA 页面，只因当年开发时绑定了特定window.external接口。这不是技术怀旧，是真实存在的、无法用 WebView2 替代的存量系统毛细血管。本文不讲“怎么换新”，只讲“怎么稳住旧”——从 COM 接口本质出发，拆解WebBrowser的方法、属性、事件三重契约，给出可落地的禁右键、动态加载、MHT 保存、滚动条控制等 12 类高频问题的实操代码与血泪排错记录。
2. 方法层：导航、刷新、停止——不是 API 调用，而是对 IE 历史栈与网络请求生命周期的精确干预
WebBrowser的方法不是无状态函数，而是对底层IWebBrowser2接口的直接代理。每个方法背后都对应着 Trident 引擎的状态机切换，错误调用顺序会导致Busy = True卡死、Navigate失效、甚至整个控件进入不可恢复的READYSTATE_UNINITIALIZED状态。以下操作必须严格遵循“状态检查 → 方法触发 → 事件监听”三步闭环，否则就是玄学翻车现场。
2.1 Navigate：URL 字符串不是万能钥匙，编码、协议头、安全上下文缺一不可
Navigate方法签名是void Navigate(string URL, ref object flags, ref object targetFrameName, ref object postData, ref object headers)。其中URL参数看似简单，实则暗藏三重陷阱：
空格与中文路径必须 URL 编码：
Navigate("C:\my folder\test.html")会失败，因为\和空格被解析为路径分隔符或参数终止符。正确写法是：Dim url As String = "file://" & Replace(Replace("C:\my folder\test.html", " ", "%20"), "\", "/") WebBrowser1.Navigate(url)提示：
file://协议必须双斜杠，单斜杠会被 IE 当作相对路径处理；本地路径需转义空格、中文、#、?等特殊字符，推荐用Uri.EscapeUriString()封装。HTTP 请求头必须显式传入
headers参数：若需带Authorization: Bearer xxx或Cookie，不能拼在 URL 后，必须通过headers传入：Dim headers As Object = "Authorization: Bearer abc123" & vbCrLf & "Cookie: sessionid=xyz" WebBrowser1.Navigate("https://api.example.com/data", Nothing, Nothing, Nothing, headers)注意：
headers是字符串，每行一个 Header，用\r\n分隔；postData若非空，headers中必须包含Content-Type，否则服务器拒绝接收。HTTPS 页面在 IE 安全区域外会静默失败：若目标 URL 是 HTTPS 但证书无效（自签名、过期），IE 默认阻止加载且不抛异常。必须提前设置
InternetSetOption全局忽略证书错误（仅限测试环境）：' VB6 中需声明 API Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _ (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal lpdwBufferLength As Long) As Boolean Const INTERNET_OPTION_SECURITY_FLAGS = 31 Const SECURITY_FLAG_IGNORE_UNKNOWN_CA = &H100 Const SECURITY_FLAG_IGNORE_CERT_CN_INVALID = &H1000 Const SECURITY_FLAG_IGNORE_CERT_DATE_INVALID = &H2000 ' 调用前设置 Dim flags As Long = SECURITY_FLAG_IGNORE_UNKNOWN_CA Or SECURITY_FLAG_IGNORE_CERT_CN_INVALID Or SECURITY_FLAG_IGNORE_CERT_DATE_INVALID InternetSetOption(0, INTERNET_OPTION_SECURITY_FLAGS, flags, 4)
2.2 Refresh2：四种刷新级别不是性能开关，而是 HTTP 缓存策略的硬编码映射
Refresh2的Level参数直接映射到RefreshConstants枚举，其值来自ExDisp.h，本质是向 Trident 引擎传递不同的IHTMLWindow2::navigate标志位。REFRESH_COMPLETELY并非“最强刷新”，而是强制添加Pragma: no-cache头，这在某些 CDN 或反向代理配置下反而导致 503 错误。生产环境应按场景选型：
| 刷新级别 | 对应常量 | HTTP 行为 | 适用场景 | 风险 |
|---|---|---|---|---|
REFRESH_NORMAL | 0 | 不发Pragma头，走浏览器缓存 | 页面静态资源未变，仅需重绘 | 可能加载过期 HTML |
REFRESH_IFEXPIRED | 1 | 发If-Modified-Since，服务端 304 时复用缓存 | 内网 CMS 页面，内容更新频率低 | 服务端未支持Last-Modified时退化为NORMAL |
REFRESH_COMPLETELY | 3 | 发Pragma: no-cache+Cache-Control: no-cache | 调试阶段强制绕过所有缓存 | 某些 WAF 会拦截含no-cache的请求 |
' VB6 中需引用 shdocvw.dll 并声明常量 Public Const REFRESH_NORMAL = 0 Public Const REFRESH_IFEXPIRED = 1 Public Const REFRESH_COMPLETELY = 3 Private Sub ForceHardRefresh() ' 检查当前是否 Busy，避免重复触发 If Not WebBrowser1.Busy Then WebBrowser1.Refresh2 REFRESH_COMPLETELY Else ' Busy 时绑定 DocumentComplete 事件再刷新 AddHandler WebBrowser1.DocumentComplete, AddressOf OnDocCompleteThenRefresh End If End Sub Private Sub OnDocCompleteThenRefresh(ByVal pDisp As Object, URL As Variant) RemoveHandler WebBrowser1.DocumentComplete, AddressOf OnDocCompleteThenRefresh WebBrowser1.Refresh2 REFRESH_COMPLETELY End Sub逻辑说明：
Refresh2在Busy=True时调用无效，必须等待DocumentComplete事件后再执行；REFRESH_CONTINUE（值为 2）是微软明确标注DO NOT USE的内部状态，任何使用均会导致控件句柄泄漏。
2.3 GoBack/GoForward：历史栈操作不是按钮模拟，而是对IWebBrowser2::GoBack的原子调用
GoBack和GoForward直接操作 IE 的COleCommandTarget命令目标，其可用性完全由CommandStateChange事件驱动。常见误区是“先判断CanGoBack属性再调用”，但WebBrowser控件本身没有CanGoBack属性——该状态只能通过事件监听获取：
' VB6 中事件处理 Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) Select Case Command Case CSC_NAVIGATEBACK cmdBack.Enabled = Enable ' 同步更新 UI 文本（如显示历史标题） If Enable Then ' 从历史栈获取上一页标题（需额外 COM 查询） Dim pHis As IShellHistory If SUCCEEDED(WebBrowser1.Application.QueryInterface(IID_IShellHistory, pHis)) Then Dim bstrTitle As String pHis.GetTitleOfEntry -1, bstrTitle ' -1 表示上一页 lblBackHint.Caption = "返回: " & Left(bstrTitle, 20) & "..." End If End If Case CSC_NAVIGATEFORWARD cmdForward.Enabled = Enable End Select End Sub参数说明：
CommandStateChange的Command参数是CSC_*常量，CSC_NAVIGATEBACK=1，CSC_NAVIGATEFORWARD=2；Enable为True表示历史栈中存在有效条目。注意：GoBack调用后若页面跳转失败（如目标页已失效），CommandStateChange不会再次触发，需监听NavigateError事件捕获错误。
3. 属性层：Document、LocationURL、Busy——不是数据快照，而是对 COM 对象生命周期的实时引用
WebBrowser的属性不是普通 .NET 属性，而是对底层 COM 接口IDispatch的GetIDsOfNames+Invoke封装。每次访问Document或LocationURL都是一次跨进程 COM 调用，若目标对象已释放（如页面重定向中），会抛出0x80010108（RPC_E_DISCONNECTED）异常。因此，所有属性访问必须包裹Try/Catch并验证对象有效性。
3.1 Document：DHTML 对象模型的入口，但必须等 DocumentComplete 后才能安全访问
WebBrowser1.Document返回IHTMLDocument2接口，但该接口在DocumentComplete事件触发前处于未初始化状态。强行访问会导致AccessViolationException或静默返回Nothing。正确模式是：
' VB.NET 示例（WinForms） Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted ' 1. 验证 URL 是否为目标页面（防止 iframe 触发多次） If e.Url.ToString() <> WebBrowser1.Url.ToString() Then Return ' 2. 获取 Document 并强转为 IHTMLDocument2 Dim doc As mshtml.IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, mshtml.IHTMLDocument2) If doc Is Nothing Then Exit Sub ' 3. 操作 DOM（示例：隐藏滚动条） Try Dim body As mshtml.IHTMLElement = TryCast(doc.body, mshtml.IHTMLElement) If body IsNot Nothing Then body.setAttribute("scroll", "no", 0) ' 0 表示不区分大小写 End If Catch ex As Exception ' 忽略 DOM 操作异常（如 body 不存在） End Try End Sub逻辑说明：
DocumentCompleted事件在 iframe 加载完成时也会触发，需用e.Url与WebBrowser1.Url比对确保是主文档；DomDocument是WebBrowser控件的私有属性，必须通过TryCast转为mshtml.IHTMLDocument2才能调用 DHTML 方法；setAttribute的第三个参数0表示CASE_INSENSITIVE，避免因 IE 版本差异导致属性名匹配失败。
3.2 LocationURL 与 LocationName：字符串属性背后是IWebBrowser2::get_LocationURL的同步阻塞调用
LocationURL返回当前页面完整 URL，LocationName返回<title>标签内容或文件名。二者均需等待页面完全加载（ReadyState=4）后才稳定。常见坑是：在BeforeNavigate2中读取LocationURL，此时返回的是上一页 URL，而非即将导航的目标 URL。正确做法是：
' VB6 中事件处理 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) ' BeforeNavigate2 中 URL 参数才是目标 URL Debug.Print "即将导航至: " & CStr(URL) ' 此时 LocationURL 仍是上一页地址 Debug.Print "当前 LocationURL: " & WebBrowser1.LocationURL ' 输出上一页 ' 若需记录导航日志，应存 URL 参数而非 LocationURL Call LogNavigation(CStr(URL), Now()) End Sub参数说明：
BeforeNavigate2的URL参数是VARIANT类型，必须CStr()转换；Flags参数包含导航类型（navOpenInNewWindow=1表示新窗口），可用于过滤非预期导航。
3.3 Busy：布尔属性实为IWebBrowser2::get_Busy的轮询结果，但轮询间隔需手动控制
Busy属性返回True表示 Trident 引擎正在处理导航、脚本执行或资源加载。但该属性不是事件驱动，需主动轮询。若在Timer中高频读取（如 100ms 一次），会引发 COM 调用风暴，导致 UI 卡顿。合理方案是：
' VB.NET 中使用异步轮询（避免阻塞 UI 线程） Private Async Sub MonitorBusyState() While True Await Task.Delay(500) ' 500ms 间隔足够响应 If WebBrowser1.ReadyState = WebBrowserReadyState.Complete AndAlso Not WebBrowser1.IsBusy Then ' 页面就绪，执行后续操作 Await ProcessPageContent() Exit While End If End While End Sub Private Async Function ProcessPageContent() As Task ' 此处处理 DOM，确保在 UI 线程执行 Await Dispatcher.InvokeAsync(Sub() Dim doc = WebBrowser1.Document If doc IsNot Nothing Then ' 注入 JS 或读取元素 doc.InvokeScript("alert", {"Page loaded!"}) End If End Sub) End Function逻辑说明：
IsBusy是 .NET 封装属性，等价于ReadyState != Complete；Task.Delay比Thread.Sleep更轻量，避免线程阻塞；Dispatcher.InvokeAsync确保 DOM 操作在 UI 线程执行，规避跨线程异常。
4. 事件层：BeforeNavigate2、DocumentComplete、CommandStateChange——不是回调，而是 COM 连接点（Connection Point）的事件订阅
WebBrowser的事件机制基于 COM 的IConnectionPointContainer，每个事件对应一个IConnectionPoint接口。若未正确管理连接点（如窗体卸载时未Unadvise），会导致内存泄漏和事件重复触发。尤其BeforeNavigate2和DocumentComplete在多 iframe 场景下会高频触发，必须精准过滤。
4.1 BeforeNavigate2：导航前唯一可取消的钩子，但取消逻辑需覆盖所有分支
BeforeNavigate2的Cancel参数为ByRef Boolean，设为True可阻止导航。但常见错误是仅检查 URL 协议而忽略PostData或Headers：
' VB6 中事件处理（关键：必须处理所有取消条件） 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 strURL As String = CStr(URL) ' 1. 阻止外部协议（如 mailto:, javascript:） If InStr(strURL, "mailto:") > 0 Or InStr(strURL, "javascript:") > 0 Then Cancel = True Exit Sub End If ' 2. 阻止非法域名（白名单模式） If Not IsInWhitelist(strURL) Then Cancel = True MsgBox "禁止访问外部网站: " & strURL Exit Sub End If ' 3. 阻止 POST 请求（防止表单提交） If Not IsEmpty(PostData) Then Cancel = True MsgBox "禁止提交表单数据" Exit Sub End If ' 4. 阻止带敏感 Header 的请求（如 Authorization） If Not IsEmpty(Headers) And InStr(CStr(Headers), "Authorization:") > 0 Then Cancel = True Exit Sub End If End Sub逻辑说明：
PostData为Variant，IsEmpty(PostData)判断是否为空；Headers字符串需全文搜索Authorization:，因大小写不敏感；Cancel=True后必须Exit Sub，避免后续逻辑覆盖。
4.2 DocumentComplete：事件触发时机与 ReadyState 的微妙差异
DocumentComplete在主文档及所有子资源（JS、CSS、图片）加载完毕后触发，但ReadyState属性在DocumentComplete触发时未必为4（READYSTATE_COMPLETE）。实测发现：DocumentComplete的pDisp参数指向触发事件的IDispatch对象，若为 iframe，则pDisp是 iframe 的IWebBrowser2，此时WebBrowser1.ReadyState仍为3（READYSTATE_INTERACTIVE）。正确做法是：
' VB.NET 中精准识别主文档完成 Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted ' 方案1：比较 pDisp 与 WebBrowser1.ActiveXInstance Dim wb As WebBrowser = DirectCast(sender, WebBrowser) If e.WebBrowser.ActiveXInstance Is wb.ActiveXInstance Then ' 主文档完成 HandleMainDocumentLoad() End If ' 方案2：检查 URL 是否匹配初始导航 URL（更可靠） If e.Url.Equals(wb.Url) OrElse e.Url.ToString().StartsWith(wb.Url.ToString() & "#") Then ' 主文档或锚点跳转完成 HandleMainDocumentLoad() End If End Sub参数说明：
e.WebBrowser是事件源控件，wb.ActiveXInstance是其底层IWebBrowser2接口指针；e.Url是完成加载的页面 URL，wb.Url是控件当前Url属性，二者相等即为主文档。
4.3 CommandStateChange：Back/Forward 状态同步的唯一可信源，但需手动维护按钮状态
CommandStateChange是WebBrowser提供的唯一官方途径来获知历史栈状态变化。CSC_NAVIGATEBACK和CSC_NAVIGATEFORWARD的Enable参数直接反映 IE 内部COleCommandTarget的QueryStatus结果。但开发者常犯的错误是：仅在事件中设置Button.Enabled，却未处理窗体初始化时的默认状态。正确初始化流程：
' VB6 中窗体加载时同步按钮状态 Private Sub Form_Load() ' 1. 初始化按钮为禁用（历史栈为空） cmdBack.Enabled = False cmdForward.Enabled = False ' 2. 导航到首页 WebBrowser1.Navigate "about:blank" ' 3. 绑定事件（确保事件处理器已注册） ' （VB6 中需 WithEvents 声明） End Sub ' VB6 中事件处理（必须） Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) Select Case Command Case CSC_NAVIGATEBACK cmdBack.Enabled = Enable ' 更新按钮 Tooltip（显示上一页标题） If Enable Then cmdBack.ToolTipText = GetHistoryTitle(-1) ' 自定义函数 End If Case CSC_NAVIGATEFORWARD cmdForward.Enabled = Enable If Enable Then cmdForward.ToolTipText = GetHistoryTitle(1) ' 下一页标题 End If End Select End Sub逻辑说明：
Form_Load中必须先设cmdBack.Enabled=False，因CommandStateChange在首次Navigate前不会触发；GetHistoryTitle需通过IShellHistory接口查询，若不可用则 fallback 到LocationName。
5. 避坑指南：12 类高频翻车现场与血泪解决方案
WebBrowser控件的坑不是代码 bug，而是 Windows 系统、IE 引擎、COM 互操作三者耦合产生的“黑匣子”行为。以下 5 条是某工业 HMI 项目中累计 37 次重启调试后总结的硬核避坑清单，每一条都附带现象、根因与可复制的解决代码。
5.1 现象：右键菜单禁用后，execCommand("EditMode")失效，选中文本不显示高亮
原因：oncontextmenu事件阻止了右键，但 IE 的编辑模式依赖右键菜单的Edit子项激活IDM_EDITMODE命令，禁用后命令状态变为OLECMDF_SUPPORTED但OLECMDF_ENABLED为False。
解决：不阻止右键事件，改用 CSS 隐藏菜单并劫持document.onselectstart：
' VB6 中注入 CSS（DocumentComplete 后执行） Private Sub InjectNoContextMenuCSS() Dim doc As IHTMLDocument2 = WebBrowser1.Document If doc Is Nothing Then Exit Sub Dim style As IHTMLStyleElement = doc.createStyleSheet("", 0) style.cssText = "body { -ms-user-select: none; } * { -webkit-user-select: none; }" ' 同时禁用选择开始事件 Dim script As String = "document.onselectstart = function(){return false;};" doc.parentWindow.execScript(script, "JavaScript") End Sub5.2 现象：动态加载多个WebBrowser控件时，Controls.Add报错“类型不匹配（错误 13）”
原因：Controls.Add的 ProgID"shell.explorer.2"在 VB6 中需声明为Object，但newweb数组若声明为WebBrowser类型，则newweb.Count返回Long而非Integer，导致索引越界。
解决：统一用Control类型声明容器，并用Load语句替代Add：
' 正确声明（VB6） Dim newweb(0 To 10) As Control ' 不是 WebBrowser！ Private Sub AddWeb_Click() Static i As Integer = 1 If i > 10 Then Exit Sub Load newweb(i) ' 动态加载控件数组元素 Set newweb(i) = Form1.Controls.Add("shell.explorer.2", "Web" & i, Form1) With newweb(i) .Visible = True .Width = 800 .Height = 600 .Left = (i - 1) * 800 .Top = 0 .Navigate2 "http://www.example.com" End With i = i + 1 End Sub5.3 现象：CreateMHTMLBody保存 MHT 文件时，Win10 上报错“0x80040154 类未注册”
原因：Microsoft CDO for Windows 2000 Library（CDOSYS.dll）在 Win10 中默认不注册，且CreateMHTMLBody方法在 64 位系统上不可用。
解决：改用URLDownloadToFileAPI 下载原始 HTML，再用ADODB.Stream手动封装为 MHTML：
' VB6 中声明 API Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub SaveAsMHT() Dim htmlPath As String = Environ("TEMP") & "\temp.html" Dim mhtPath As String = Environ("TEMP") & "\output.mht" ' 1. 下载当前页面 HTML URLDownloadToFile 0, WebBrowser1.LocationURL, htmlPath, 0, 0 ' 2. 读取 HTML 并封装为 MHTML（简化版，仅含主文档） Dim stream As ADODB.Stream Set stream = New ADODB.Stream stream.Type = adTypeText stream.Charset = "UTF-8" stream.Open stream.WriteText "From: <Saved by WebBrowser>" & vbCrLf stream.WriteText "Subject: " & WebBrowser1.LocationName & vbCrLf stream.WriteText "MIME-Version: 1.0" & vbCrLf stream.WriteText "Content-Type: multipart/related; boundary=""----=_NextPart_000""; type=""text/html""" & vbCrLf & vbCrLf stream.WriteText "This is a multi-part message in MIME format." & vbCrLf & vbCrLf stream.WriteText "------=_NextPart_000" & vbCrLf stream.WriteText "Content-Type: text/html; charset=""utf-8""" & vbCrLf & vbCrLf ' 读取本地 HTML 文件内容 Dim fso As New FileSystemObject Dim file As TextStream Set file = fso.OpenTextFile(htmlPath, ForReading) stream.WriteText file.ReadAll file.Close stream.SaveToFile mhtPath, adSaveCreateOverWrite stream.Close End Sub5.4 现象：WebBrowser1.Document.body.Scroll = "no"在部分页面无效，滚动条仍出现
原因：body.scroll属性仅控制<body>元素，但现代网页常用<html>或<div>作为滚动容器，且 CSSoverflow属性优先级高于scroll属性。
解决：注入全局 CSS 强制隐藏所有滚动条：
' VB6 中注入 CSS（DocumentComplete 后） Private Sub HideAllScrollbars() Dim doc As IHTMLDocument2 = WebBrowser1.Document If doc Is Nothing Then Exit Sub Dim css As String = "html, body, * { overflow: hidden !important; }" & _ "::-webkit-scrollbar { display: none; }" & _ "-ms-ime-mode: disabled;" Dim style As IHTMLStyleElement = doc.createStyleSheet("", 0) style.cssText = css End Sub5.5 现象：ExecWB(6,1)打印时弹出空白预览窗口，或直接打印乱码
原因：ExecWB的打印命令依赖 IE 的IDM_PRINT命令，而 Win10 的打印后台（Print Spooler）与 IE 渲染引擎存在字体映射冲突，尤其当页面使用 Web Font 时。
解决：改用IHTMLDocument2::execCommand("Print")并预加载系统字体：
' VB6 中安全打印 Private Sub SafePrint() Dim doc As IHTMLDocument2 = WebBrowser1.Document If doc Is Nothing Then Exit Sub ' 1. 确保页面完全渲染（等待 100ms） DoEvents Sleep 100 ' 2. 执行打印命令 On Error Resume Next doc.execCommand "Print", False, vbNull If Err.Number <> 0 Then ' 备用方案：导出为 PDF（需安装 PDF 打印机） WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, "report.pdf", "application/pdf" End If On Error GoTo 0 End Sub6. 进阶实战：从 MHT 保存到全屏控制——一个工业 HMI 系统的最小可行封装
某电力监控系统要求：本地离线运行、保存网页快照为 MHT 归档、全屏显示无边框、禁用所有系统快捷键。我们用WebBrowser实现一个最小可行封装，不依赖第三方库，纯 COM 互操作。
6.1 MHT 保存模块：绕过 CDOSYS，用流式封装实现 100% 兼容
核心思路是将WebBrowser渲染后的 DOM 序列化为 HTML，再按 MHTML 规范添加 MIME 头和边界分隔符。关键在于获取完整 HTML（含<head>和<body>），而非仅innerHTML：
' VB6 中完整 HTML 获取与 MHT 封装 Public Function SaveCurrentPageAsMHT(filePath As String) As Boolean Dim doc As IHTMLDocument2 = WebBrowser1.Document If doc Is Nothing Then Exit Function ' 1. 获取完整 HTML（包括 DOCTYPE 和 head） Dim fullHtml As String On Error Resume Next fullHtml = doc.documentElement.outerHTML ' IE 特有属性 If Err.Number <> 0 Then ' fallback：拼接 head + body Dim head As String = doc.head.outerHTML Dim body As String = doc.body.outerHTML fullHtml = "<!DOCTYPE html><html>" & head & body & "</html>" End If On Error GoTo 0 ' 2. 创建 MHT 流 Dim stream As ADODB.Stream Set stream = New ADODB.Stream stream.Type = adTypeText stream.Charset = "UTF-8" stream.Open ' 3. 写入 MHT 头 stream.WriteText "MIME-Version: 1.0" & vbCrLf stream.WriteText "Content-Type: multipart/related;" & vbCrLf stream.WriteText " boundary=""----=_NextPart_000_0000_00000000"";" & vbCrLf stream.WriteText " type=""text/html""" & vbCrLf & vbCrLf stream.WriteText "This is a multi-part message in MIME format." & vbCrLf & vbCrLf ' 4. 写入 HTML 部分 stream.WriteText "------=_NextPart_000_0000_00000000" & vbCrLf stream.WriteText "Content-Type: text/html; charset=""utf-8""" & vbCrLf & vbCrLf stream.WriteText fullHtml & vbCrLf & vbCrLf ' 5. 写入结束标记 stream.WriteText "------=_NextPart_000_0000_00000000--" & vbCrLf ' 6. 保存文件 stream.SaveToFile filePath, adSaveCreateOverWrite stream.Close SaveCurrentPageAsMHT = True End Function参数说明：
outerHTML获取完整 HTML 字符串；adSaveCreateOverWrite=2确保覆盖同名文件；MHT 边界字符串----=_NextPart_...是 RFC 2557 标准要求，不可省略。
6.2 全屏控制模块：隐藏任务栏、禁用 Alt+Tab、接管窗口样式
WebBrowser本身无全屏属性，需操作其父窗体。关键点是：SetWindowLong修改WS_EX_TOPMOST和WS_EX_TOOLWINDOW样式，ShowWindow控制任务栏，SystemParametersInfo禁用热键：
' VB6 中全屏切换 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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow 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 SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Const GWL_EXSTYLE = -20 Const WS_EX_TOPMOST = &H8& Const WS_EX_TOOLWINDOW = &H80& Const SW_HIDE = 0 Const SW_SHOW = 5 Const SPI_SCREENSAVERRUNNING = 97 Private Sub ToggleFullScreen() Static isFullScreen As Boolean = False If isFullScreen Then ' 退出全屏：恢复窗体样式，显示任务栏 SetWindowLong Me.hwnd, GWL_EXSTYLE, 0 ShowWindow FindWindow("Shell_TrayWnd", ""), SW_SHOW SystemParametersInfo SPI_SCREENSAVERRUNNING, 0, ByVal 0&, 0 Me.WindowState = vbNormal isFullScreen = False Else ' 进入全屏：置顶窗体，隐藏任务栏，禁用屏保 SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TOPMOST Or WS_EX_TOOLWINDOW ShowWindow FindWindow("Shell_TrayWnd", ""), SW_HIDE SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, ByVal 1&, 0 Me.WindowState = vbMaximized isFullScreen = True End If End Sub逻辑说明：
WS_EX_TOOLWINDOW防止窗体出现在 Alt+Tab 列表；SPI_SCREENSAVERRUNNING
本文还有配套的精品资源，点击获取
