$URL = InputBox('Download Website', 'Напишите адрес сайта:' & @CRLF & @CRLF & 'Пример:' & @CRLF & 'http://autoit-script.ru/', 'http://', '', 250, 175)
If @error Then Exit
$SAVEPATH = FileSaveDialog('Download Website', '', 'Веб страница полностью (*.mht)', '', '', GUICreate(''))
If @error Then Exit
_INetGetMHT($URL, $SAVEPATH & ".mht" )
MsgBox(64, 'Download Website', 'Веб страница сохранена успешно.')
Func _INetGetMHT($sURL, $sFILE)
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($sURL, 0)
$msg.DataSource.SaveToObject($ado, "_Stream")
FileDelete($sFILE)
$ado.SaveToFile($sFILE, 1)
$msg = ""
$ado = ""
Return True
EndFunc