保存某些网站（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" )