IP Adresse

1. offizieller Beitrag

    Hallo erstmal

    im Tutorial steht ja, dass man bei TCPListen für gewöhnlich seine eigene ip angibt. Nur woher bekomm ich die? Ich habs schon mit so manchen "ips" versucht aber nie hats funktioniert. Kann mir jemand helfen?

    Einmal editiert, zuletzt von Horzt (20. Mai 2008 um 13:38)

    ok er schreibt immernoch ip adresse inkorrekt, naja dann werd ich wohl mal nach den ports gucken^^

    Das ging jetzt zumindest mit meinem eigenen PC, aber wie kann ich das so machen dass Informationen von einem Computer zum anderen geschickt werden? So in etwa wie in einem Chat.

    (Ich hab das hier mit Hamachi versucht, aber irgendwie liefs nich)


    Das ganze soll über notepad laufen, hier die datei zum anzeigen der Texte:

    Spoiler anzeigen
    [autoit]

    Run("C:\WINDOWS\notepad.exe")
    WinWaitActive("Unbenannt - Edi")
    #include <GUIConstants.au3>
    TCPStartUp()
    Dim $szIPADDRESS = @IPAddress2
    Dim $nPORT = 1993
    $Socket = TCPListen($szIPADDRESS, $nPORT)
    If $Socket = -1 Then
    MsgBox(0, "IP", "IP Fehler")
    EndIf
    Do
    $ConnectedSocket = TCPAccept($Socket)
    Until $ConnectedSocket <> -1
    While 1
    $text = TCPRecv ($ConnectedSocket, 1000)
    If Not $text = "" Then
    ControlSend( "Unbenannt - Editor", "", "Edit1", $text)
    ControlSend( "Unbenannt - Editor", "", "Edit1", "{enter}")
    EndIf
    WEnd

    [/autoit]


    und hier das Fenster zum reinschreiben (die Kommentare kommen aus der Hilfe):

    Spoiler anzeigen
    [autoit]

    TCPStartUp()
    $socket = TCPConnect( "5.175.28.202", 1993 )
    If $socket = -1 Then MsgBox(0, "Connect", "Connectfehler")
    Dim $szData
    ; Falls es einen Fehler gibt, wird er angezeigt
    If @error Then
    MsgBox(4112,"Fehler","TCPConnect schlug mit folgendem WSA-Fehler fehl: " & @error)
    ; Wenn es keinen Fehler gibt, dann erscheint wiederholt eine Inputbox zur Eingabe von Daten, die zum Server gesendet werden sollen.
    Else
    ;Fragt fortwährend nach Daten, die zum Server gesendet werden sollen.
    While 1
    ; InputBox für die zu versendenden Daten
    $szData = InputBox("Daten für den Server",@LF & @LF & "Gib Daten ein, die zum Server transferiert werden sollen:")

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

    ; Wenn die Inputbox geschlossen wird oder leer bleibt, wird die Schleife beendet.
    If @error Or $szData = "" Then ExitLoop

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

    ; Wir sollten Daten in $szData haben... Lasst uns versuchen, sie durch unseren verbundenen Socket zu versenden.
    TCPSend($Socket, "NAME{:}" )
    TCPSend($Socket, "{space}")
    TCPSend($Socket, $szData)

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

    ; Wenn das Senden mit @error fehlgeschlagen ist, dann ist der Socket getrennt.
    ;----------------------------------------------------------------
    If @error Then ExitLoop
    WEnd
    EndIf

    [/autoit]

    so habs jetzt hinbekommen, war ein einfacher Fehler bei den IPs. thx nochmal an alle die geholfen haben xD