施耐德电表:VB中WebBrowser控件使用方法总结2

7、一个把页面保存为MHT(即MHTML)文件

将 pcwak(书剑狂生[MS MVP]) 大侠提供的资料贴出来，以供大家参考：
 我终于找到一个把页面保存为MHT(即MHTML)文件的方法了!
首先，在工程中必须要引用一个库：
Library CDO
D:\WINNT\System32\cdosys.dll
Microsoft CDO for Windows 2000 Library
其次，需要Stream对应的接口的支持，如果你一时找不到就使用支持这个的较新的ADO就行了，如
Library ADODB
D:\Program Files\Common Files\system\ado\msado15.dll
Microsoft ActiveX Data Objects 2.5 Library
代码如下，十分简单(同时由于流的特点，显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为字符串或字节数组什么的处理的。
另，对于Microsoft CDO for Windows 2000 Library这个库，在WIN98中要怎么使用还没试过，感兴趣的朋友可以试试并跟帖，以丰富完善其内容：)
Private Sub Command1_Click()
' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim objStream As ADODB.Stream
With iMsg
.CreateMHTMLBody "http://www.163.com/";, , _
"domain\username", _
"password"
Set objStream = .GetStream
Call objStream.SaveToFile("f:\test.mht", adSaveCreateOverWrite)
End With
End Sub
2、

'首先加入对ADODB和CDO（Microsoft CDO for Windows 2000 Library，对应文件名为CDOSYS.dll）的引用
Private Sub Command1_Click()
    Dim message As New CDO.message
    Dim Outstream As ADODB.Stream
    On Error GoTo myerr1
    Call message.CreateMHTMLBody("http://www.csdn.net", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
    Set Outstream = message.GetStream
    Call Outstream.SaveToFile("c:\test.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
    MsgBox "完成"
   
    Exit Sub
myerr1:
    Set message = Nothing
    Set Outstream = Nothing
End Sub
=======================================================
 

8、在WebBrowser控件调用收藏夹和在收藏夹里添加收藏
Option Explicit
Private Sub Command1_Click()
    Dim ObjSUH As New ShellUIHelper
    ObjSUH.AddFavorite "http://www.csdn.net", "CSDN"
    Set ObjSUH = Nothing
End Sub
=========================================================

9、如何使网页不出现滚动条：
Private Sub mnuScroll1_Click()
'注意：必须在网页完全显示之后才可以运行
    WebBrowser1.Document.body.Scroll = "no" '不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
'注意：必须在网页完全显示之后才可以运行
    WebBrowser1.Document.body.Scroll = "Auto" '显示滚动条的办法
End Sub
 ==============================================================
10、如何获得网页中被选中部分的HTML：
Private Sub Command1_Click()
    Dim objSelection
    Dim objTxtRange
   
    Set objSelection = WebBrowser1.Document.selection
    If Not (objSelection Is Nothing) Then
        Set objTxtRange = objSelection.createRange
        If Not (objTxtRange Is Nothing) Then
            Debug.Print objTxtRange.htmlText
       
            Set objTxtRange = Nothing
        End If
        Set objSelection = Nothing
    End If
End Sub
Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.applevb.com"
End Sub