如何保存webbrowser页面.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 11 行

使 用 下 面 的 语 句 ： 
     ' 按 下 Cancel按 钮 将 会 产 生 错 误 
     On Error Resume Next 
     brwWebBrowser.ExecWB _ 
        OLECMDID_SAVEAS, 0, 0, 0 
    如 果 想 用 SendKeys命 令 模 拟 输 入 预 先 设 定 的 字 符 串 ， 可 以 在 调 用 ExecWB之 前 调 用 SendKeys， 如 
     On Error Resume Next 
     SendKeys "g:\hhh.html{enter}" 
     brwWebBrowser.ExecWB _ 
        OLECMDID_SAVEAS, 0, 0, 0 
    <END>