WebBrowser 技巧

另，对于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

======================================

请问高手们怎样在WebBrowser控件调用收藏夹和在收藏夹里添加收藏
Option Explicit

Private Sub Command1_Click()
Dim ObjSUH As New ShellUIHelper
ObjSUH.AddFavorite "http://www.csdn.net", "CSDN"
Set ObjSUH = Nothing
End Sub

======================================

上一篇： VB创建多线程应用程序
下一篇： VB程序实现WindowsXP效果的界面

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!