Datein versenden übers internet

1. offizieller Beitrag

    hallo leute.
    ich wollte eigentlich ein chat programm schreiben, mit dem ich übers internet mit nem freund chatten kann.
    habe aber ein problem.
    das programm läuft nur, wenn beide pcs am selben router hängen.
    tun sie das nicht funz nicht.
    könnt ihr mir sagen wie das mit dem internet geht?

    Herzlich Willkommen im Forum, Du benötigst glaube ich die TCP-Funktionen (einfach mal in der Hilfe nachsehen).
    Edit: Sieh mal hier nach!

    hab ich hier mein code:


    #include <GUIConstantsEx.au3>
    #include <Inet.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>


    $Port = 3000
    $Port2 = 3000


    #Region ### START Koda GUI section ### Form=
    $Form = GUICreate("Form1", 284, 217, 192, 124)
    $Label1 = GUICtrlCreateLabel(_GetIP(), 8, 8, 160, 17)
    $Label2 = GUICtrlCreateLabel(@IPAddress1, 8, 32, 160, 17)
    $Label3 = GUICtrlCreateLabel(@IPAddress2, 8, 56, 160, 17)
    $Label4 = GUICtrlCreateLabel(@IPAddress3, 8, 80, 160, 17)
    $Label5 = GUICtrlCreateLabel(@IPAddress4, 8, 104, 160, 17)
    $Input1 = GUICtrlCreateInput("Input1", 120, 136, 145, 21)
    $Input2 = GUICtrlCreateInput("Input2", 120, 168, 145, 21)
    $Ip = GUICtrlCreateLabel("Deine IP:", 8, 136, 70, 17)
    $Ip2 = GUICtrlCreateLabel("Andere IP:", 8, 168, 70, 17)
    $Button=GUICtrlCreateButton("OK",120,8,145,50)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button
    ExitLoop
    EndSwitch
    WEnd


    TCPStartUp ()
    $Server = TCPListen($Ip,$Port,1)

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat "&$Ip, 625, 445, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 56, 16, 505, 265)
    $Input1 = GUICtrlCreateInput("", 64, 336, 401, 21)
    $Button1 = GUICtrlCreateButton("Send", 488, 336, 97, 25, 0)
    $Button2 = GUICtrlCreateButton("X", 592, 0, 25, 17, 0)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Client2 = TCPConnect ($Ip2,$Port2)
    TCPSend ($Client2, GUICtrlRead($Input1))
    ControlClick ("","",$Edit1)
    Send("-> " & GUICtrlRead($Input1),1)
    Send(" {Enter}",0)
    Case $Button2
    Exit
    EndSwitch

    $Client = TCPAccept($Server)
    If $Client >= 0 Then
    Do
    $Message = TCPRecv($Client,2048)
    Until $Message <> ""
    ControlClick ("","",$Edit1)
    Send("-> " & $Message,1)
    Send(" {Enter}",0)
    EndIf
    WEnd

    Leider habe ich grade keine kristallkugel zur Hand, um dir zu sagen, welchen Router du hast.
    Schnapp dir das Handbuch von deinem Router und lies es. Und dann liest du es am besten nochmal.
    Die Ports kann man im Konfigurationsmenü des Routers ändern. Wie genau erfährst du im oben angesprochen Handbuch.

    Ich hab leider noch nie mit TCP Funktionen gearbeitet. Bisher fehlte mir die Verwendung dafür, deswgen kann ich dir auch nicht sagen, ob dein Script überhaupt korrekt ist.

    wenn du keine ahnung davon hast wieso vergedest du dann meine zeit?
    erstmal ne 0190 antwort schreiben oder wie?
    vielleicht fählt mir bloß irgendwo nen befehl!
    und (obwohl du keinen schimmer davon hast) sagst ich soll mir irgend ein scheiß handbuch durchlesen?!
    soweit kommts noch!
    kann mir bitte jemand antworten der ahnung hat.

    ich stimme Seubo völlig zu...

    ich glaube auch kaum das dir jemand in dem Ton helfen wird!!

    keine 5 beiträge und schon so ein verhalten


    omg leute gibts!!!!

    ja sowas brauch ich meckern kannste.
    aber helfen? nein damit kannst du nicht dienen was?
    ich wollte hilfe und kein geblubber

    du bist genau das Gegenteil was alle Forenmitglieder hier nur sind...

    als Anfänger musst du nicht sagen wie schlecht manche sind...


    hoffentlich hilft dir keiner, denn das ist echt keine art mit leuten umzugehen, von denen man hilfe angeboten bekommt!!!

    hilfe angeboten?
    wenn ich hilfe gekriegt hätte müsste ich mich doch garnicht aufregen!
    aber das einzige was ich bisher habe sind nutzlose kommentare von einem der keine ahnung hat und einem der das auch noch gut findet

    Wieder mal ein nettes Beispiel wie man ganz schnell alle User verärgert und bestimmt keine Antwort bekommt die dir bei der Lösung deines Problems helfen könnte :rofl:

    Man könnte auch mal die Hilfe lesen.
    Wir werden dir auf gar keinen Fall ein fertiges Skript posten, sondern nur Ratschläge geben.

    Aber dies hat du dir nun wohl verbockt :thumbup:

    Viel Spaß noch ^^

    Oh nein, jetzt antwortet er gleich und beschwert sich, dass ihm keiner hilft und hier keiner eine Ahnung hat.
    Und dieser Tweaky schreibt auch nichts nützliches zu seinem Problem :rofl::rofl::rofl:

    weißt du was ... jammer nur rum..helfen wird dir keiner, außer du änderst dein Verhalten..du brauchst hilfe von daher kann es uns egal sein was du machst ;)

    stimmt von dir hab ich auch nix sinnvolles erfahren.
    scheinbar das falsche forum hier.
    eigentlich wollte ich ja eine kompetente hilfe aber alles was ich bekomme ist ein grund zum abmelden

    Zitat von Karashino

    stimmt von dir hab ich auch nix sinnvolles erfahren


    wie man in den Wald hineinschreibt, so kommts zurück

    Zitat von Karashino

    ist ein grund zum abmelden


    dagegen hätte hier wohl keiner was

    dieses Forum ist eines der besten, die ich kenne..netter user schnelle hilfe und vieles mehr...

    nur les dir dein Beitrag durch

    Zitat

    wenn du keine ahnung davon hast wieso vergedest du dann meine zeit?
    erstmal ne 0190 antwort schreiben oder wie?
    vielleicht fählt mir bloß irgendwo nen befehl!
    und (obwohl du keinen schimmer davon hast) sagst ich soll mir irgend ein scheiß handbuch durchlesen?!
    soweit kommts noch!
    kann mir bitte jemand antworten der ahnung hat.

    ich glaub da brauchst du dich net wundern...und wir kommen hier alle super zurecht nur wenn du Freundlichkeit nicht kennst kannst du nichts besseres erwarten ...

    -.-

    oh ja das world wide web
    alles was keinen rang und namen hat darf hier mal so tun als wehre es ne große nummer.
    ich hab ja selbst schuld.
    was bilde ich mir ein einer von euch würde mir helfen?!
    ihr habt ja selbst nix drauf.
    wieso bekomme ich sonnst nur müll zu lesen?!
    nörgeln kann ich auch mit mir selbst vorm spiegel