Beiträge von NightmarePhoenix

  • Hilfe bei einem Messenger

    sooo, hab jetzt mal ein Example2 () davor gesetzt, jetzt schließt es zumindest auch den Server mit :P
    heißt, ich hab jetzt eine Funktion drinnen die läuft, aber immer noch anders als ich das eigentlich wollte ?(
    weil eigentlich soll der klick auf senden ja eigentlich die eingabe aus dem Inputfeld auslesen und dann an
    server schicken. und alles was ich zum vorgänger geändert habe war das ich statt der InputBox eine GUI
    mit Inputfeld und Button erstellt habe... und ich habe einen case drinne für den button... demnach könnte
    es doch eigentlich nur am Button liegen oder denke ich da grade falsch?


    Hier nochmal der Code:

    Spoiler anzeigen
    [autoit]




    ;==============================================
    ;==============================================
    ;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!!
    ;==============================================
    ;==============================================
    Example2 ()

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

    Func Example2()
    ; Set Some reusable info
    ;--------------------------
    Local $ConnectedSocket, $szData
    ; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address
    ; Local $szServerPC = @ComputerName
    ; Local $szIPADDRESS = TCPNameToIP($szServerPC)
    Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 33891
    Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
    Local $msg, $recv

    $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 500, 400)
    $edit = GUICtrlCreateEdit("", 10, 10, 480, 280)
    Local $Input = GUICtrlCreateInput("hi", 10, 300, 480, 80)
    $Click = GuiCtrlCreateButton ( "Send", 500, 350, 25, 40)
    GUISetState()

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

    ; Start The TCP Services
    ;==============================================
    TCPStartup()

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

    ; Initialize a variable to represent a connection
    ;==============================================
    $ConnectedSocket = -1

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

    ;Attempt to connect to SERVER at its IP and PORT 33891
    ;=======================================================
    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

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

    ; If there is an error... show it
    If @error Then
    MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
    ; If there is no error loop an inputbox for data
    ; to send to the SERVER.
    Else
    ;Loop forever asking for data to send to the SERVER
    While 1
    $nMsg = GuiGetMsg ()
    Switch $nMsg

    ; If they cancel the InputBox or leave it blank we exit our forever loop
    Case @error
    ExitLoop

    Case $Click
    ; InputBox for data to transmit
    $szData = GUICtrlRead ($Input)
    ; We should have data in $szData... lets attempt to send it through our connected socket.
    TCPSend($ConnectedSocket, $szData)

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

    ; If the send failed with @error then the socket has disconnected
    ;----------------------------------------------------------------
    ;~ Case @error
    ;~ ExitLoop
    EndSwitch
    WEnd
    EndIf
    EndFunc ;==>Example

    [/autoit]


    Edit Oscar: Spoiler-Tags hinzugefügt. Bitte bei längeren Quelltexten zusätzlich zu dem AutoIt-Tag auch den Spoiler-Tag benutzen!

  • Hilfe bei einem Messenger

    Hey Schnitzel,

    dankeschön, war wohl zu blöd dazu, die suche zu nutzen, hab nicht an chat gedacht!
    ich hab die ganze zeit nur nach "messenger" gesucht... :S
    Naja, werd mir das dann mal bei gelegentheit durchschauen :P

    trotzdem ist damit nicht meine eigentliche Frage beantwortet wieso sich das direkt schließt ;)

  • Hilfe bei einem Messenger

    Hallo, bin gerade dabei ein bisschen an einem Messenger rum zu basteln. Wollte eigentlich alle in ein Fenster, hab aber keinen Source-Code gefunden den ich mal auseinander nehmen kann um mir mal die funktionsweise an zu schauen...
    Jetzt arbeite ich quasi erstmal mit einem Server und einem Client. der Server funktioniert soweit und empfängt die Daten vom echten client.
    jetzt habe ich versucht das der Client statt einer Inputbox auch ein GUI sein soll, damit das nicht immer kurz zu geht wenn ich eine Nachricht schicke.
    Jetzt habe ich aber das Problem das sich der neue Client direkt nach dem Start wieder schließt. hat jemand eine Ahnung woran das liegen kann?


    Hier noch der Code von dem Client:

    Spoiler anzeigen
    [autoit]



    ;==============================================
    ;==============================================
    ;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!!
    ;==============================================
    ;==============================================

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

    Func Example2()
    ; Set Some reusable info
    ;--------------------------
    Local $ConnectedSocket, $szData
    ; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address
    ; Local $szServerPC = @ComputerName
    ; Local $szIPADDRESS = TCPNameToIP($szServerPC)
    Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 33891

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

    Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 33891
    Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
    Local $msg, $recv

    $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 500, 400)
    $edit = GUICtrlCreateEdit("", 10, 10, 480, 280)
    Local $Input = GUICtrlCreateInput("hi", 10, 300, 480, 80)
    $Click = GuiCtrlCreateButton ( "Send", 500, 350, 25, 40)
    GUISetState()

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

    ; Start The TCP Services
    ;==============================================
    TCPStartup()

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

    ; Initialize a variable to represent a connection
    ;==============================================
    $ConnectedSocket = -1

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

    ;Attempt to connect to SERVER at its IP and PORT 33891
    ;=======================================================
    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

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

    ; If there is an error... show it
    If @error Then
    MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
    ; If there is no error loop an inputbox for data
    ; to send to the SERVER.
    Else
    ;Loop forever asking for data to send to the SERVER
    While 1
    $nMsg = GuiGetMsg ()
    Switch $nMsg

    ; If they cancel the InputBox or leave it blank we exit our forever loop
    Case @error
    ExitLoop

    Case $Click
    ; InputBox for data to transmit
    $szData = GUICtrlRead ($Input)
    ; We should have data in $szData... lets attempt to send it through our connected socket.
    TCPSend($ConnectedSocket, $szData)

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

    ; If the send failed with @error then the socket has disconnected
    ;----------------------------------------------------------------
    ;~ Case @error
    ;~ ExitLoop
    EndSwitch
    WEnd
    EndIf
    EndFunc ;==>Example

    [/autoit]


    Edit Oscar: Spoiler-Tags hinzugefügt. Bitte bei längeren Quelltexten zusätzlich zu dem AutoIt-Tag auch den Spoiler-Tag benutzen!

  • Hi :)

    Hallo, ich wollte mich mal grob vorstellen.

    Mein Name ist Felix, bin 21 Jahre alt, arbeite als Werkzeugmechaniker.
    Auf AutoIt bin ich gekommen weil ich in meiner Freizeit gerne kleinere
    Sachen programmiere. Habe früher viel mit VBS gearbeitet, da haben
    mir dann mit der Zeit viele Funktionen und ein schönes GUI gefehlt.
    Nachdem ich dann VB und Java ausprobiert habe aber mit beidem noch
    nicht so klar gekommen bin, da ich wirklich nur "Gelegenheitsprogrammierer"
    bin, bin ich irgendwann auf AutoIt gestoßen. Und seit ich damit programmiere
    habe ich bisher meißtens hier im Forum was gefunden :P jetzt kommt nur immer
    mehr wo ich immer über zig umwege programmiere weil ich nix passendes finde...
    Also hab ich mir gedacht, ich meld mich mal an, vielleicht könnt ihr mir ja mal des
    öfteren Helfen :D

    Ich freu mich schon, vielen Dank schonmal :)