如何保存webbrowser页面.txt

VB技巧问答10000例 VB技巧问答10000例

使 用 下 面 的 语 句 ： 
     ' 按 下 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>