#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Загрузка html-файла без браузера", 500, 200)
Local $idinput = GUICtrlCreateInput("http://www.autoitscript.com", 0, 0, 500, 25)
Local $idbutton1 = GUICtrlCreateButton("Сохранить html-файл", 0, 50, 185, 25)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idbutton1
Local $url = GUICtrlRead($idinput)
Local $sFileSaveDialog = FileSaveDialog("Сохранить файл", @ScriptDir , "Файлы (*.html*)", $FD_PATHMUSTEXIST)
InetGet($url, $sFileSaveDialog & ".html")
EndSwitch
WEnd
|