病毒专收员 发表于 2011-7-24 21:49:17

保存某些网站(MHT格式)时会崩溃,详情请看代码。

Func _INetGetMHT( $url, $file )
    Local $msg = ObjCreate("CDO.Message")
    If @error Then Return False
    Local $ado = ObjCreate("ADODB.Stream")
    If @error Then Return False
    With $ado
      .Type = 2
      .Charset = "US-ASCII"
      .Open
    EndWith
    $msg.CreateMHTMLBody($url, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($file)
    $ado.SaveToFile($file, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc使用此段代码保存某些网站(MHT格式)时会崩溃,纠结无法找出问题所在,求教懂得大大赐教!

例如Func _INetGetMHT( "http://www.autoitx.com", "d:\autoit.MHT" )
页: [1]
查看完整版本: 保存某些网站(MHT格式)时会崩溃,详情请看代码。