当前位置: 网学 > 编程文档 > VB > 正文

WEBBROWSER 技巧

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
什么的处理的。

另,对于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/";, , _
"domainusername", _
"password"
Set objStream = .GetStream
Call objStream.SaveToFile("f:est.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:est.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

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

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号