[Сеть, интернет] Time-out ожидания ответа по запросу InetGet

Local $Time = 30*1000

$Timer = TimerInit()
Do
	$sData = InetGet("http://site.ru/file.txt")
Until ($sData <> "") Or (TimerDiff($Timer) > $Time)

Local $sUrl = https://dealer.company.ru/quickpricem.xls.php?UserName=' & $UserName & '&UserPassword=' & $UserPassword

Local $hDownload = InetGet($sUrl, @ScriptDir & '\price\price.xls', 1+2, 1)
	Do
		Sleep(250)
	Until InetGetInfo($hDownload, 2)
	Local $TimeEnd = @MIN & ':' & @SEC
	Local $aData = InetGetInfo($hDownload)
	InetClose($hDownload)
	MsgBox(0, 'START:' & $TimeStart & '; END: ' & $TimeEnd, 'Bytes read: ' & $aData[0] & @CRLF & _
			'Size: ' & $aData[1] & @CRLF & _
			'Complete?: ' & $aData[2] & @CRLF & _
			'Successful?: ' & $aData[3] & @CRLF & _
			'@error: ' & $aData[4] & @CRLF & _
			'@extended: ' & $aData[5] & @CRLF)

#include "WinHttp.au3"

Dim $sUserName = "UserName"
Dim $sPassword = "Password"
Dim $sDomain = "dealer.company.ru"
Dim $sPage = "quickpricem.xls.php"

$sData = "UserName=" & $UserName & "&UserPassword=" & $UserPassword
$hOpen = _WinHttpOpen()
_WinHttpSetTimeouts($hOpen, 0, 60000, 30000, 60000)
$hConnect = _WinHttpConnect($hOpen, $sDomain)
$sReturned = _WinHttpSimpleSSLRequest($hConnect, "GET", $sPage, Default, $sData)

_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)

ConsoleWrite($sReturned & @CRLF) ; тело XML документа

$sReturned = _WinHttpSimpleSSLRequest($hConnect, "POST", $sPage, Default, $sData)