企业官网建设流程全解析

简介：本资源是一份面向.NET Windows桌面开发者的WebBrowser控件系统性学习文档，聚焦WinForm应用中嵌入浏览器功能的实战开发需求，适用于初学者快速掌握核心API，也便于中高级开发者查阅方法、属性与事件的完整行为细节。文档以Word（.docx）格式组织，共1个文件，大小仅29KB，内容精炼但覆盖全面：详细解析GoBack/GoForward/Refresh2等10余种导航与控制方法，LocationURL/Busy/Document等13项关键属性的用途与返回值，以及BeforeNavigate2/DocumentComplete/DownloadComplete等15类常用事件的触发时机与典型应用场景；还包含禁止右键菜单、获取收藏夹路径等实用技巧。目前已有1008人学习下载，是理解IE内核WebBrowser控件底层交互逻辑、规避常见陷阱、提升富客户端网页集成能力的高性价比入门参考。

1. WebBrowser控件不是“嵌入浏览器”，而是 IE 渲染引擎的 COM 封装：它不依赖 Chrome 内核、不走 EdgeWebView2、不联网下载运行时——你部署一个 VB6 或 .NET WinForms 程序，只要目标机器装了 IE（Windows 7+ 默认自带），WebBrowser 就能原生跑 HTML/CSS/JS，连本地file://协议下的 jQuery 页面都能执行 DOM 操作。这不是“网页视图”，是完整复刻 IE6–IE11 的 Trident 渲染管道 + MSHTML DOM 模型 + Shell Browser 容器逻辑。所以它能直接调用execCommand("editMode")实现富文本编辑，能用Document.body.scroll = "no"硬关滚动条，还能通过CDO.Message.CreateMHTMLBody把整个页面（含 CSS/图片）一键打包成单文件.mht。但代价也很真实：它卡在 IE 兼容模式里，不支持 Flex/Grid、ES6+ 语法、Fetch API；它和宿主窗体共用消息循环，Navigate会阻塞 UI 线程；它没有沙箱隔离，本地 HTML 里script可以直接读写注册表（需权限）。适合做内部工具壳、离线帮助系统、Legacy ERP 前端桥接、或需要深度 DOM 注入的自动化场景——而不是做现代 Web 应用。

2. 方法层：从导航控制到刷新策略，每个 API 都有明确的触发边界和状态依赖

WebBrowser 控件的方法不是“发个请求就完事”的黑盒，它们严格绑定 IE 的导航状态机。你调用GoBack()失败？不是代码错，是历史栈为空；Refresh2(REFRESH_COMPLETELY)没生效？可能页面正处在DocumentComplete未触发的中间态。这一章拆解所有方法的前置条件、副作用、状态反馈链，不讲“怎么写”，只讲“为什么这么写才不翻车”。

2.1 导航类方法：GoBack/GoForward/GoHome/GoSearch/Navigate 的状态锁机制

GoBack和GoForward不是简单地跳历史项，它们受CommandStateChange事件驱动的状态开关保护。IE 内部维护两个布尔标志：CanGoBack和CanGoForward，只有当对应标志为True时，调用才真正执行；否则静默失败（无异常，无日志）。这就是为什么你必须监听CommandStateChange并动态启停按钮：

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) ' CSC_NAVIGATEBACK = 1, CSC_NAVIGATEFORWARD = 2 (常量定义在 shdocvw.h) If Command = 1 Then cmdBack.Enabled = Enable ' Enable 为 False 时，GoBack() 调用无效 ElseIf Command = 2 Then cmdForward.Enabled = Enable End If End Sub

参数说明：CommandStateChange的Command参数是预定义常量，不是整数枚举值。VB6 中需手动声明或引用shdocvw.dll类型库获取CSC_NAVIGATEBACK；.NET 中可通过WebBrowser.CommandStateChange事件的Command属性获取WebBrowserCommand枚举。Enable为False表示当前不可用——此时调用GoBack()不会抛错，但也不做任何事，这是设计使然，不是 bug。

GoHome和GoSearch依赖系统级设置：它们读取注册表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main下的Start Page和Search Page字符串值。若用户从未设置过主页，GoHome会跳转到空白页about:blank；若搜索页被篡改（如某些国产软件劫持），GoSearch会打开恶意站点。生产环境务必校验返回 URL：

Private Sub cmdHome_Click() WebBrowser1.GoHome ' 等待 DocumentComplete 后检查实际跳转地址 Do While WebBrowser1.Busy DoEvents Loop If InStr(WebBrowser1.LocationURL, "about:blank") > 0 Then MsgBox "主页未设置，请手动配置 IE 主页" Exit Sub End If End Sub

Navigate是唯一可主动触发的导航入口，但它有三个致命陷阱：

1. URL 编码必须由调用方完成：Navigate "http://example.com?q=中文"会失败，必须Navigate "http://example.com?q=%E4%B8%AD%E6%96%87"；
2. 协议头强制校验：传入"www.example.com"（缺http://）会触发BeforeNavigate2但最终加载失败，LocationURL返回空字符串；
3. 跨域脚本限制穿透：若页面 A 通过Navigate加载 B，B 的 JS 无法通过window.opener访问 A 的 DOM（同源策略），但WebBrowser1.Document仍可操作 B 的 DOM —— 这是 COM 层面的权限，绕过 JS 沙箱。

2.2 刷新与停止：Refresh2 的四个级别如何影响 HTTP 缓存行为

Refresh是Refresh2(REFRESH_NORMAL)的简写，但Refresh2才暴露真正的缓存控制权。其Level参数来自RefreshConstants枚举，定义在ExDisp.h中，实际影响 HTTP 请求头：

验证REFRESH_COMPLETELY是否生效？抓包看请求头：

' 在 BeforeNavigate2 事件中打印 URL 和刷新类型 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) Debug.Print "Navigating to: " & URL Debug.Print "Headers: " & Headers ' 若为 REFRESH_COMPLETELY，Headers 包含 "Cache-Control: no-cache" End Sub

注意：Headers参数在Navigate时为空字符串，在Refresh2时才填充实际请求头。这是调试缓存问题的关键断点。

Stop方法看似简单，实则承担“中断状态机”的重任。当Busy = True时调用Stop，会立即终止 DNS 查询、TCP 连接、HTML 解析等所有子任务，并触发DownloadComplete事件（即使什么都没下完）。但有一个反直觉现象：Stop后LocationURL仍保持原值，Document对象可能处于半初始化状态（Document.body为Nothing）。因此，Stop 后必须等待DocumentComplete再操作 DOM：

Private Sub cmdStop_Click() If WebBrowser1.Busy Then WebBrowser1.Stop ' 此处不能立即访问 Document！需等待事件 End If End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) ' 确保 pDisp 是当前 WebBrowser 实例（防 NewWindow2 事件干扰） If pDisp Is WebBrowser1.Application Then If Not WebBrowser1.Document Is Nothing Then Debug.Print "DOM ready after Stop" End If End If End Sub

2.3 ExecWB：隐藏在 OLECMDID 后的 IE 功能映射表

ExecWB是 WebBrowser 最神秘也最强大的方法，它把 IE 菜单栏功能映射为 COM 命令。参数cmdID对应OLECMDID枚举，cmdExecOpt控制执行模式。常见组合如下（VB6 常量需引用shdocvw.dll）：

关键细节：OLECMDID_PRINT的静默模式（cmdExecOpt=2）不会弹出对话框，但会触发打印作业。若目标打印机离线，作业卡在队列，ExecWB返回成功，但实际没打出。必须结合PrintTemplateTeardown事件监控：

' 需在工程中引用 Microsoft HTML Object Library Private WithEvents m_HtmlDoc As MSHTML.HTMLDocument Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If pDisp Is WebBrowser1.Application Then Set m_HtmlDoc = WebBrowser1.Document End If End Sub Private Sub m_HtmlDoc_PrintTemplateTeardown(Cancel As Boolean) ' 打印结束时触发，Cancel 为 True 表示用户取消 Debug.Print "Print job finished or cancelled" End Sub

3. 属性层：Document/LocationURL/Busy 等核心属性的生命周期与竞态条件

WebBrowser 的属性不是静态快照，而是动态代理对象，其值随 IE 内部状态实时变化。Document可能在Navigate后瞬间为Nothing，LocationURL在重定向过程中多次变更，Busy的True→False跳变甚至比DocumentComplete事件还早几毫秒。这一章聚焦属性读取的安全时机、空值防御、以及多线程下的可见性陷阱。

3.1 Document 属性：从 null 安全访问到 DHTML DOM 模型穿透

Document是 WebBrowser 的心脏，但它也是最脆弱的属性。在以下时刻，Document必然为Nothing：

• Navigate刚调用，尚未触发DownloadBegin；
• 页面加载失败（404/网络断开），DocumentComplete仍会触发但Document为空；
• Stop被调用后，Document处于未定义状态；
• NewWindow2创建新窗口时，原窗口Document可能被回收。

安全访问Document的唯一模式是事件驱动 + 非空校验：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) ' 第一重防护：确认事件来源是当前 WebBrowser If pDisp Is WebBrowser1.Application Then ' 第二重防护：Document 可能为空 If Not WebBrowser1.Document Is Nothing Then On Error Resume Next Dim doc As MSHTML.HTMLDocument Set doc = WebBrowser1.Document If Err.Number = 0 Then ' 第三重防护：MSHTML 接口可能未就绪（罕见） Debug.Print "Title: " & doc.title Debug.Print "Body scroll: " & doc.body.scroll Else Debug.Print "MSHTML interface not available" End If On Error GoTo 0 Else Debug.Print "Document is Nothing after DocumentComplete" End If End If End Sub

一旦拿到有效的MSHTML.HTMLDocument，就能进行深度 DOM 操作。例如禁用右键菜单（原文技巧1的可靠实现）：

Private WithEvents m_Dom As MSHTML.HTMLDocument Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If pDisp Is WebBrowser1.Application Then Set m_Dom = WebBrowser1.Document End If End Sub Private Function m_Dom_oncontextmenu() As Boolean ' 返回 False 阻止默认右键菜单 m_Dom_oncontextmenu = False ' 可在此处弹出自定义菜单 ' PopupMenu mnuCustom End Function

玄学经验：oncontextmenu事件在某些 IE 版本（如 IE8）下对<iframe>内容不生效。解决方案是遍历所有 iframe 并为其Document绑定事件：

Private Sub AttachIframeContextMenus(doc As MSHTML.HTMLDocument) Dim frame As MSHTML.IHTMLFrameBase For Each frame In doc.frames On Error Resume Next Dim iframeDoc As MSHTML.HTMLDocument Set iframeDoc = frame.document If Not iframeDoc Is Nothing Then ' 递归绑定 AttachIframeContextMenus iframeDoc End If On Error GoTo 0 Next End Sub

3.2 LocationURL 与 LocationName：URL 解析的双重真相

LocationURL返回当前文档的绝对 URL（如"https://example.com/path?k=v#section"），而LocationName返回页面<title>文本或文件名（如"Example Site"）。但二者存在严重竞态：

• LocationURL在重定向链中会多次变更（如302 → https://new.com），每次变更都触发NavigateComplete2；
• LocationName在DocumentComplete时才稳定，此前可能为空或显示上一页标题。

因此，不要用LocationURL判断页面是否加载完成。正确做法是监听DocumentComplete事件，并在其中读取LocationURL：

Private m_LastLoadedURL As String Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If pDisp Is WebBrowser1.Application Then m_LastLoadedURL = CStr(URL) ' URL 参数比 LocationURL 更可靠 Debug.Print "Fully loaded: " & m_LastLoadedURL ' 此时 LocationName 才可信 If Not WebBrowser1.Document Is Nothing Then Debug.Print "Page title: " & WebBrowser1.Document.title End If End If End Sub

LocationURL还有个坑：当加载file://本地 HTML 时，它返回file:///C:/path/file.html（三个斜杠），但Navigate时若传入file://C:/path/file.html（两个斜杠）会失败。统一用file:///前缀：

Private Function GetLocalFileURL(filePath As String) As String ' 转换 C:\a\b.html → file:///C:/a/b.html GetLocalFileURL = "file:///" & Replace(filePath, "\", "/") End Function

3.3 Busy 属性：UI 响应的黄金指标与误判陷阱

Busy是控制 UI 状态的核心属性，但它有两大误判点：

1. 假阴性：Busy = False时，Document可能还未完全解析（如大型 JS 还在执行），此时操作 DOM 会报错；
2. 假阳性：Busy = True时，DownloadBegin已触发，但Document仍为Nothing，无法提前注入脚本。

最佳实践是组合Busy与事件：

• Busy = True→ 禁用导航按钮，显示“加载中”动画；
• Busy = False→ 不做 DOM 操作，等待DocumentComplete；
• DocumentComplete→ 执行所有 DOM 逻辑。

Private Sub UpdateUIForBusy() cmdGoBack.Enabled = Not WebBrowser1.Busy cmdGoForward.Enabled = Not WebBrowser1.Busy cmdStop.Enabled = WebBrowser1.Busy lblStatus.Caption = IIf(WebBrowser1.Busy, "Loading...", "Ready") End Sub Private Sub WebBrowser1_BusyStateChange(ByVal bBusy As Boolean) ' BusyStateChange 事件比轮询 Busy 更高效 UpdateUIForBusy End Sub

血泪经验：在 VB6 中，BusyStateChange事件有时不触发（尤其在快速连续Navigate时）。万全之策是DoEvents循环 + 超时：

Private Sub WaitForLoad(timeoutMs As Long) Dim start As Long start = GetTickCount Do While WebBrowser1.Busy DoEvents If GetTickCount - start > timeoutMs Then MsgBox "Load timeout!" Exit Do End If Loop End Sub

4. 事件层：BeforeNavigate2 到 DocumentComplete 的完整导航流水线解析

WebBrowser 的事件不是松散回调，而是一条严格时序的导航流水线。理解每个事件的触发时机、参数含义、以及能否取消操作，是实现拦截、重写、审计等高级功能的基础。本章按时间轴展开，标注每个事件的“可取消点”和“DOM 可用性”。

4.1 BeforeNavigate2：唯一可取消导航的闸门

BeforeNavigate2是导航流水线的第一道闸门，也是唯一能阻止页面加载的事件。其Cancel参数为ByRef Boolean，设为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) ' 只处理当前 WebBrowser 的导航（防 NewWindow2 干扰） If pDisp Is WebBrowser1.Application Then Debug.Print "Navigating to: " & CStr(URL) ' 拦截危险协议 If Left(CStr(URL), 7) = "javascript:" Or _ Left(CStr(URL), 4) = "vbscript:" Then Cancel = True MsgBox "Script protocol blocked" Exit Sub End If ' 拦截黑名单域名 If InStr(CStr(URL), "malware-site.com") > 0 Then Cancel = True WebBrowser1.Navigate "about:blank" Exit Sub End If End If End Sub

参数深挖：

• URL: 导航目标，可能是相对路径（需结合当前LocationURL解析）；
• Flags:OLECMDID相关标志，&H1表示新窗口，&H2表示前台激活；
• TargetFrameName: 目标 frame 名称（"_blank"、"main"等），为空字符串表示_self；
• PostData: POST 请求体（字节数组），仅当Flags包含&H200时非空；
• Headers: 请求头字符串（"User-Agent: ...\r\nAccept: ..."），仅Navigate时有效，Refresh时为空。

4.2 DownloadBegin/DownloadComplete：文件下载的精准捕获

DownloadBegin和DownloadComplete事件专为文件下载设计，与页面导航完全解耦。当你调用DoFileDownload（原文技巧5）或点击页面上的<a href="file.zip" download>时，这两个事件会被触发，且URL参数就是下载地址：

Private m_DownloadCount As Long Private Sub WebBrowser1_DownloadBegin() m_DownloadCount = m_DownloadCount + 1 Debug.Print "Download #" & m_DownloadCount & " started" End Sub Private Sub WebBrowser1_DownloadComplete() Debug.Print "Download #" & m_DownloadCount & " completed" ' 此处可启动文件校验、解压等后续流程 If m_DownloadCount > 0 Then m_DownloadCount = m_DownloadCount - 1 End If End Sub

注意：DownloadBegin在文件开始接收数据时触发，DownloadComplete在文件写入磁盘后触发。但WebBrowser 不提供下载进度。若需进度条，必须改用WinHttp.WinHttpRequest或MSXML2.XMLHTTP手动下载。

4.3 DocumentComplete：DOM 就绪的终极信号与多帧陷阱

DocumentComplete标志“当前文档及其所有子资源（图片、CSS、JS）加载完毕”，但它有个致命特性：每个<frame>和<iframe>都会触发一次该事件。如果你的页面有 3 个 iframe，DocumentComplete会调用 4 次（主文档 + 3 个 iframe）。

安全识别“主文档完成”的方法是比对pDisp参数：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) ' pDisp 是当前完成加载的文档对象 ' WebBrowser1.Application 是主容器对象 If pDisp Is WebBrowser1.Application Then ' 这是主文档完成，可以执行全局逻辑 Debug.Print "Main document loaded: " & CStr(URL) Call InjectCustomScripts Else ' 这是某个 iframe 完成，pDisp 指向该 iframe 的 window 对象 Debug.Print "IFrame loaded: " & CStr(URL) End If End Sub

DocumentComplete还是唯一能安全操作Document的时机。在此事件外访问Document，90% 概率遇到Object required错误。

4.4 CommandStateChange：导航能力的实时仪表盘

CommandStateChange不是导航事件，而是状态通知。它告诉你“此刻 Back/Forward 按钮应该亮还是灰”。Command参数是命令 ID，Enable是布尔开关：

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) Select Case Command Case 1 ' CSC_NAVIGATEBACK cmdBack.Enabled = Enable cmdBack.Caption = IIf(Enable, "← Back", "← Back (disabled)") Case 2 ' CSC_NAVIGATEFORWARD cmdForward.Enabled = Enable cmdForward.Caption = IIf(Enable, "Forward →", "Forward → (disabled)") Case 3 ' CSC_VIEWSOURCE (IE 查看源码) cmdViewSource.Enabled = Enable Case 4 ' CSC_REFRESH cmdRefresh.Enabled = Enable End Select End Sub

避坑提示：CommandStateChange的Command值在不同 IE 版本中可能不同。VB6 中应引用shdocvw.dll获取标准常量；.NET 中使用WebBrowserCommand枚举更安全。

5. 避坑 / 常见问题 / 排查：12 个真实翻车现场与血泪修复方案

WebBrowser 的坑不在文档里，而在 Windows 版本、IE 模式、COM 初始化顺序这些犄角旮旯。以下是我在某高校实验室维护 7 年 WebBrowser 项目中踩过的 12 个典型坑，每个都附带可复制的修复代码。

5.1 现象：Document为Nothing，DocumentComplete事件不触发

原因：WebBrowser 控件未正确初始化，或宿主窗体Visible = False时调用Navigate。IE 渲染引擎需要可见窗口句柄才能启动。
解决：确保控件Visible = True且窗体已Show，并在Form_Load中延迟导航：

Private Sub Form_Load() Me.Show DoEvents WebBrowser1.Navigate "about:blank" End Sub

5.2 现象：Navigate到https://页面时白屏，F12 开发者工具报错SEC7111

原因：IE 安全设置阻止混合内容（HTTPS 页面加载 HTTP 资源）。
解决：在BeforeNavigate2中重写 URL 协议：

Private Sub WebBrowser1_BeforeNavigate2(... If InStr(CStr(URL), "http://") > 0 And InStr(CStr(URL), "https://") = 0 Then ' 尝试升级为 HTTPS Dim httpsURL As String httpsURL = Replace(CStr(URL), "http://", "https://") ' 验证 HTTPS 是否可达（简单 HEAD 请求） If IsHttpsAvailable(httpsURL) Then Cancel = True WebBrowser1.Navigate httpsURL End If End If End Sub

5.3 现象：ExecWB OLECMDID_PRINT静默失败，无错误无输出

原因：目标打印机未设为默认，或 IE 打印组件损坏。
解决：强制设置默认打印机并检查组件：

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub SafePrint() If GetDefaultPrinter() = "" Then MsgBox "No default printer set" Exit Sub End If On Error Resume Next WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER If Err.Number <> 0 Then MsgBox "Print failed: " & Err.Description End If On Error GoTo 0 End Sub

5.4 现象：动态添加 WebBrowser 控件时报错Error 13: Type mismatch

原因：Controls.Add返回的是Control对象，不是WebBrowser类型，VB6 中需显式转换。
解决：用Set赋值并声明为Object：

Private Sub AddWeb_Click() Dim wb As Object Set wb = Form1.Controls.Add("Shell.Explorer.2", "DynamicWB" & Timer) With wb .Visible = True .Width = 8000 .Height = 6000 .Left = 0 .Top = 0 .Navigate "about:blank" End With End Sub

5.5 现象：CreateMHTMLBody保存的.mht文件在 IE 外无法打开

原因：CDO.Message生成的 MHT 缺少Content-Transfer-Encoding: base64头，或图片未内联。
解决：用ADODB.Stream手动封装并添加头：

Private Sub SaveAsMHT_Fixed(url As String, filePath As String) Dim msg As New CDO.Message Dim stream As New ADODB.Stream msg.CreateMHTMLBody url, cdoSuppressNone Set stream = msg.GetStream stream.Position = 0 Dim mhtData() As Byte mhtData = stream.Read ' 重写 MHT 头（简化版） Dim header As String header = "MIME-Version: 1.0" & vbCrLf & _ "Content-Type: multipart/related; boundary=""----=_NextPart_"";" & vbCrLf & _ " type=""text/html""" & vbCrLf & vbCrLf Open filePath For Binary As #1 Put #1, , header Put #1, , mhtData Close #1 End Sub

5.6 现象：WebBrowser1.Document.parentwindow.scrollTo无效

原因：scrollTo需在DocumentComplete后调用，且页面body必须有足够高度。
解决：先确保body.scrollHeight > clientHeight，再滚动：

Private Sub ScrollToBottom() If Not WebBrowser1.Document Is Nothing Then Dim doc As MSHTML.HTMLDocument Set doc = WebBrowser1.Document If doc.body.scrollHeight > doc.body.clientHeight Then doc.parentWindow.scrollTo 0, doc.body.scrollHeight End If End If End Sub

5.7 现象：GoHome跳转到空白页，LocationURL为空

原因：注册表Start Page值被清空或损坏。
解决：回退到about:blank并提示用户：

Private Sub cmdHome_Click() WebBrowser1.GoHome Do While WebBrowser1.Busy DoEvents Loop If WebBrowser1.LocationURL = "" Or _ InStr(WebBrowser1.LocationURL, "about:blank") > 0 Then WebBrowser1.Navigate "about:blank" MsgBox "主页未设置，请在 IE 中配置" End If End Sub

5.8 现象：WebBrowser1.Document.execCommand "editMode"后无法选中文本

原因：editMode需在Document完全就绪后启用，且body.contentEditable = true。
解决：分步初始化：

Private Sub EnableEditMode() If Not WebBrowser1.Document Is Nothing Then With WebBrowser1.Document .body.contentEditable = "true" .designMode = "On" End With ' 延迟 10ms 确保 UI 更新 Dim t As Double t = Timer Do While Timer - t < 0.01 DoEvents Loop End If End Sub

5.9 现象：WebBrowser1.Document.selection.createRange报错Object required

原因：selection在页面未获得焦点时为Nothing。
解决：先SetFocus再获取：

Private Sub GetSelectionText() WebBrowser1.SetFocus If Not WebBrowser1.Document Is Nothing Then Dim sel As MSHTML.IHTMLSelectionObject Set sel = WebBrowser1.Document.selection If Not sel Is Nothing Then Dim rng As MSHTML.IHTMLTxtRange Set rng = sel.createRange If Not rng Is Nothing Then Debug.Print rng.text End If End If End If End Sub

5.10 现象：WebBrowser1.Refresh2 REFRESH_COMPLETELY仍返回缓存内容

原因：服务器返回304 Not Modified，IE 无视no-cache头。
解决：在BeforeNavigate2中添加随机查询参数：

Private Sub WebBrowser1_BeforeNavigate2(... If InStr(CStr(URL), "?") > 0 Then URL = CStr(URL) & "&_t=" & Timer Else URL = CStr(URL) & "?_t=" & Timer End If End Sub

5.11 现象：WebBrowser1.Document.write后页面空白

原因：write会清空整个文档，必须在about:blank或document.open后调用。
解决：标准写法：

Private Sub WriteHTML(html As String) WebBrowser1.Navigate "about:blank" Do While WebBrowser1.Busy DoEvents Loop WebBrowser1.Document.Open WebBrowser1.Document.Write html WebBrowser1.Document.Close End Sub

5.12 现象：WebBrowser1.Document.parentwindow.confirm不弹窗

原因：confirm是同步方法，但 WebBrowser 的 JS 上下文未完全激活。
解决：用execScript异步执行：

Private Sub ShowConfirm(msg As String) Dim script As String script = "if(confirm('" & Replace(msg, "'", "\'") & "')){window.external.ConfirmResult=true;}else{window.external.ConfirmResult=false;}" WebBrowser1.Document.parentWindow.execScript script, "JScript" End Sub

6. 进阶技巧：从 MHT 打包到 DOM 注入，构建企业级离线 Web 应用壳

WebBrowser 的终极价值，不是当个网页查看器，而是作为离线 Web 应用的运行时容器。它能加载本地 HTML/CSS/JS，执行 jQuery/Angular 1.x，调用 ActiveX 组件，甚至与宿主 VB6/.NET 程序双向通信。这一章给出三个落地技巧：MHT 全量打包、JS-DOM 双向通信、以及无感静默打印，全部基于原文技巧 7、15、17 的增强实现。

6.1 MHT 打包：不只是保存，而是构建可分发的单文件应用

原文技巧 7 的CDO.Message.CreateMHTMLBody有两大缺陷：1）依赖系统 CDO 组件（Win10 1903+ 已移除）；2）无法控制资源内联

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