Hey, danke dir. Bei mir sieht es schon etwas anders aus- Min ist bei mir 800 und Max. aus so um die 18 Sekunden.. Im Durchschnitt sind es bei mir 1.2 Sekunden.
Vielleicht liegt es daran, dass ich Kaspersky Internet Security installiert habe. Bei den Tests hab ich das natürlich ausgeschaltet.
Mein Betriebssystem: Win7 x64
Ich hab mal eine neue Variante aus Codeschnipsel erstellt:
Spoiler anzeigen
HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")
[/autoit] [autoit][/autoit] [autoit]While 1
$timer = TimerInit()
$getv= _GetVersion()
$diff = TimerDiff($timer)
ConsoleWrite($getv & " ===> " & $diff & @CRLF)
WEnd
Func _GetVersion()
TCPStartup()
Local $get
Local $packet = 'GET http://deepsoftware.spacequadrat.de/Products/Deskt…date/Update.txt HTTP/1.1' & @CRLF & _
'Host: http://www.deepsoftware.spacequadrat.de' & @CRLF & _
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12' & @CRLF & _
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
'Keep-Alive: 300' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Connection: keep-alive' & @CRLF & @CRLF
Local $con = TCPConnect(TCPNameToIP("deepsoftware.spacequadrat.de"), 80)
TCPSend($con, $packet)
[/autoit] [autoit][/autoit] [autoit]Do
$get = TCPRecv($con,2048)
Until $get <> ""
Local $split = StringSplit($get, @CRLF)
[/autoit] [autoit][/autoit] [autoit]TCPShutdown()
[/autoit] [autoit][/autoit] [autoit]Return Number($split[$split[0]])
EndFunc
Ist bei mir oft bei 250 ms. Schwankt aber sehr viel..