网页功能: 加入收藏 设为首页 网站搜索  
保存页面为MHT的代码
发表日期:2005-02-24作者:李立华[原创] 出处:立华软件园  

       有是我们打开一个网页,里面有图片等好多内容,用IE可以直接存为“Web 档案,单一文件(*.mht)”,IE虽然有这个功能,那么我们的程序能不能也有这个功能?

       答案是肯定的,这需要我们引用“Microsoft CDO for Windows 2000 Library”。好,下面我们就开始这一功能。

       首先,新建一工程,点[工程]-[引用],选择“Microsoft CDO for Windows 2000 Library”。

       在窗体上添加一个按钮——“Command1”,双击按钮,在Command1_Click中添加如下代码:

    Dim a As New CDO.Message
    a.CreateMHTMLBody "http://www.lihuasoft.net", cdoSuppressAll, "", ""

    '打开立华软件园,并保存成MHTML格式
    Set b = a.GetStream
    b.SaveToFile "c:\1.mht" '保存到C盘
    MsgBox "OK"

       添加完成后,按F5,运行,然后点击按钮,当出现OK的时候,在C盘看看,是不是多了一个1.mht文件?双击打开,是不是立华软件园首页呀?

用记事本打开这个文件,已经是标准的MHT文件了。

      通过上面的方法,您可以实现保存MHT文件的功能,希望这个东西对您有用。

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 保存页面为MHT的代码
本类热点文章
  用MSComm控件实现来电显示
  用MSComm控件实现来电显示
  WOL(Wake on Lan)程序的源代码
  用VB调试串口通讯
  用VB调试串口通讯
  保存页面为MHT的代码
  用PocketPCPhone替代AT指令的手机SMS服务
  用PocketPCPhone替代AT指令的手机SMS服务
  用VB动态获取所有网络邻居的名称及其IP..
  用VB动态获取所有网络邻居的名称及其IP..
  于Winsock控件制作的一个“服务器,N客..
  于Winsock控件制作的一个“服务器,N客..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.0037