daten von Server abfragen

1. offizieller Beitrag

    hallo, wie bekomme ich es hin ( Via TCP oder UDP ) daten von meinem Server abzufragen, wo auch ein script läuft und diese daten z.b. in einem string sind. und es sollte sekündlich abgefragt werden. also z.b. die uhrzeit
    hoffe ihr könnt mir folgen :thumbup:
    l.g. Jonathan

    /EDIT/ ...alles gelöscht, der CLIENT braucht NIE eine Weiterleitung, ggf aber eine Freigabe der Firewall...

    hab hier ne funktion gefunden, aber ich weiß net wirklich ob sie dir jetz weiterhilft, aber vlt ist es ja das^^

    Spoiler anzeigen
    [autoit]

    ; Made from _InetGetSourcePost by GtaSpider
    Func _InetReceive($iSocket)
    Local $sRecv, $aReturn, $iErr
    While 1
    $sRecv = TCPRecv($iSocket[0], 1024)
    $iErr = @error
    If $sRecv <> '' Then
    While 1
    $sRecv &= TCPRecv($iSocket[0], 1024)
    If @error Then ExitLoop 2
    WEnd
    EndIf
    If $iErr Then Return SetError(7, 0, 0)
    WEnd
    TCPShutdown()
    Local $aReturn[2]
    $aReturn[0] = StringLeft($sRecv, StringInStr($sRecv, @CRLF & @CRLF) - 1)
    $aReturn[1] = StringTrimLeft($sRecv, StringLen($aReturn[0]) + 4)
    Return $aReturn
    EndFunc ;==>_InetReceive

    [/autoit]


    /Edit...die gehört glaube ich noch dazu:

    Spoiler anzeigen
    [autoit]

    ; Made from _InetGetSourcePost by GtaSpider
    Func _InetConnect($sURL)
    Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1, $iErr, $iSend

    [/autoit] [autoit][/autoit] [autoit]

    If $sURL = '' Then Return SetError(1, 0, 0)

    [/autoit] [autoit][/autoit] [autoit]

    If StringLeft($sURL, 7) <> 'http://' And StringLeft($sURL, 8) <> 'https://' Then $sURL = "http://" & $sURL
    ;~ If StringRight($sURL, 1) <> "/" Then $sURL &= "/"

    [/autoit] [autoit][/autoit] [autoit]

    $aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
    If @error Then Return SetError(2, 0, 0)

    [/autoit] [autoit][/autoit] [autoit]

    $sHost = $aRegExp[0]
    If $sHost = '' Then Return SetError(3, 0, 0)

    [/autoit] [autoit][/autoit] [autoit]

    $sHttp1 = StringTrimLeft($sURL, StringInStr($sURL, "/", -1, 3) - 1)
    If $sHttp1 = '' Then Return SetError(3, 0, 0)
    TCPStartup() ;If not already done
    $iIP = TCPNameToIP($sHost)
    If $iIP = '' Or StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
    $iSocket = TCPConnect($iIP, 80)
    If @error Or $iSocket < 0 Then Return SetError(5, 0, 0)
    Local $Return[3] = [$iSocket, $sHttp1, $sHost]
    Return $Return
    EndFunc ;==>_InetConnect

    [/autoit]