#include <GUIConstantsEx.au3>
Global $iInetRead_PID
Global $sInetRead_Str
$hGUI = GUICreate("_InetReadEx", 200, 100)
$iRead_Button = GUICtrlCreateButton("Read", 20, 20, 70, 20)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $iRead_Button
_InetReadEx('http://autoit-script.ru', 1)
EndSwitch
If $iInetRead_PID Then
$sInetRead_Str &= StdoutRead($iInetRead_PID)
If @error <> 0 Then
$iInetRead_PID = 0
ConsoleWrite($sInetRead_Str & @LF)
EndIf
EndIf
WEnd
Func _InetReadEx($sURL, $iInetReadOpt = 0, $iBinaryFlag = 4)
Local $sScript = 'ConsoleWrite(BinaryToString(InetRead(''' & $sURL & ''', ' & $iInetReadOpt & '), ' & $iBinaryFlag & '))'
$iInetRead_PID = Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sScript & '"', '', @SW_SHOW, 2+4)
$sInetRead_Str = ''
EndFunc