GUI: Wenn x ausgewählt wird dann führe y aus!

  • Hi also ich will ein Programm machen das verschiedene Chat-Programme starten kann ich hab mir das so gedacht das ich mit dem Koda FormDesigner
    eine GUI mit ComboBox erstelle und ein Button erstelle das hab ich auch gemacht nur soll der jetz wenn ich auf der ComboBox beispielsweise auf ICQ drücke den script für ICQ starten d.h. Man klickt auf ICQ dann auf den Startbutton anschließend öffnet sich ein fenster wo man sein ICQ KontoNr. eingeben muss und das Passwort danach wird ICQ gestartet und die KontoNr. und PW eingegeben wodurch man dan in ICQ eingeloggt wird

    hier mal mein Quellcode was ich bis jetzt hab:

    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat-Programm Starter", 203, 83, 193, 125)
    $Combo1 = GUICtrlCreateCombo("Chat-Programm wählen", 16, 16, 169, 25)
    GUICtrlSetData(-1,"SchülerVZ|WindowsLiveMessenger")
    $Button1 = GUICtrlCreateButton("Start", 16, 40, 169, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]


    also meine Frage ist jetz eigentlich was ist der befehl dafür das wenn ich etwas aus der combobox aussuche und auf den start button klicke das er dann was ausführen soll

    Einmal editiert, zuletzt von Lazkopatdragon (28. Januar 2009 um 17:16)

  • Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat-Programm Starter", 203, 83, 193, 125)
    $Combo1 = GUICtrlCreateCombo("Chat-Programm wählen", 16, 16, 169, 25)
    GUICtrlSetData(-1,"SchülerVZ|WindowsLiveMessenger")
    $Button1 = GUICtrlCreateButton("Start", 16, 40, 169, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Msgbox (0,"","Angeklickt")
    EndSwitch
    WEnd

    [/autoit]

    mfg. Jam00

  • ich bekomm jetz ne nachricht wenn ich auf Start klicke aber der soll ja wennn ich z.B. auf schülerVZ drücke und dann auf Start dann soll er das hier ausführen:

    [autoit]

    $EMail = InputBox ("E-Mail", "Bitte gib deine E-Mail Adresse ein")
    If $EMail = "" Then Exit
    $PASSWORT = InputBox ("Schüler VZ PW", "Bitte gib dein Passwort ein", "", "*")
    If $PASSWORT = "" Then Exit
    Run ("C:\Programme\Mozilla Firefox\firefox.exe")
    WinWaitActive ("Startseite von Mozilla Firefox - Mozilla Firefox")
    Sleep (3000)
    MouseClick ("left", 460, 80)
    Send ("http://www.schuelervz.net/")
    sleep (500)
    Send ("{Enter}")
    Sleep (2000)
    MouseClick ("left", 190, 250)
    sleep (300)
    Send ($EMail)
    Sleep (300)
    MouseClick ("left", 190, 295)
    Sleep (300)
    Send ($Passwort,1)
    sleep (300)
    MouseClick ("left", 190, 325)
    Exit

    [/autoit]
  • Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat-Programm Starter", 203, 83, 193, 125)
    $Combo1 = GUICtrlCreateCombo("Chat-Programm wählen", 16, 16, 169, 25)
    GUICtrlSetData(-1,"SchülerVZ|WindowsLiveMessenger")
    $Button1 = GUICtrlCreateButton("Start", 16, 40, 169, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    if GUICtrlRead($Combo1) == "SchülerVZ" Then _sendschuelervz()
    EndSwitch
    WEnd

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

    Func _sendschuelervz()
    $EMail = InputBox ("E-Mail", "Bitte gib deine E-Mail Adresse ein")
    If $EMail = "" Then Exit
    $PASSWORT = InputBox ("Schüler VZ PW", "Bitte gib dein Passwort ein", "", "*")
    If $PASSWORT = "" Then Exit
    Run ("C:\Programme\Mozilla Firefox\firefox.exe")
    WinWaitActive ("Startseite von Mozilla Firefox - Mozilla Firefox")
    Sleep (3000)
    MouseClick ("left", 460, 80)
    Send ("http://www.schuelervz.net/")
    sleep (500)
    Send ("{Enter}")
    Sleep (2000)
    MouseClick ("left", 190, 250)
    sleep (300)
    Send ($EMail)
    Sleep (300)
    MouseClick ("left", 190, 295)
    Sleep (300)
    Send ($Passwort,1)
    sleep (300)
    MouseClick ("left", 190, 325)
    EndFunc

    [/autoit]

    EDIT 500er POST *juhu* :D

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    Einmal editiert, zuletzt von FireFlyer (28. Januar 2009 um 16:47)

  • Fireflyer der quellcode von dir ist fehlerhaft und ich weis net was ich machen muss

  • oh sry,
    jetz gehts bei mir auch
    könntest du mir erklären was genau du gemacht hast?

  • na ganz einfach, dein 2. code in eine Funktion getan, diese benannt und einfach oben aufgerufen

    schau in der hilfe nach Func ;)

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

  • ja ok thx,
    jetzt hab ich noch eine frage wie mach ich das in der GUI so das wenn man auf der combobox auf
    Chat-Programm wählen geht das man dann nicht auf start drücken kann? ?(

  • das ist doch bereits so???
    wenn das oberste ausgewählt ist und man auf start klickt passiert nix...
    ich versteh nich was du meinst -.-

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

  • ich hab das jetz so gemacht aber der Start button bleibt trotzdem noch normal.
    Was hab ich falsch gemacht?

    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat-Programm Starter", 203, 83, 193, 125)
    $Combo1 = GUICtrlCreateCombo("Chat-Programm wählen", 16, 16, 169, 25)
    GUICtrlSetData(-1,"SchülerVZ|WindowsLiveMessenger")
    $Button1 = GUICtrlCreateButton("Start", 16, 40, 169, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1

    If GUICtrlRead($Combo1) == "Chat-Programm wählen" Then GUICtrlSetState($Button1, $GUI_DISABLE)
    if GUICtrlRead($Combo1) == "SchülerVZ" Then _sendschuelervz()
    If GUICtrlRead($Combo1) == "WindowsLiveMessenger" Then _sendWindowsLiveMessenger()
    EndSwitch
    WEnd

    [/autoit]

    der code geht noch weiter hab jetz aber nur den anfang gepostet

  • [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    Dim $lchoose
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chat-Programm Starter", 203, 83, 193, 125)
    $Combo1 = GUICtrlCreateCombo("Chat-Programm wählen", 16, 16, 169, 25)
    GUICtrlSetData(-1,"SchülerVZ|WindowsLiveMessenger")
    $Button1 = GUICtrlCreateButton("Start", 16, 40, 169, 25, 0)
    GUICtrlSetState ($Button1, $GUI_DISABLE )
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    if GUICtrlRead($Combo1) == "SchülerVZ" Then _sendschuelervz()
    EndSwitch

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

    If GUICtrlRead($Combo1) <> $lchoose Then
    Switch GUICtrlRead($Combo1)
    Case "Chat-Programm wählen"
    GUICtrlSetState ($Button1, $GUI_DISABLE )
    $lchoose="Chat-Programm wählen"
    Case "SchülerVZ"
    GUICtrlSetState ($Button1, $GUI_ENABLE )
    $lchoose="SchülerVZ"
    Case "WindowsLiveMessenger"
    GUICtrlSetState ($Button1, $GUI_ENABLE )
    $lchoose="WindowsLiveMessenger"
    EndSwitch
    EndIf
    WEnd

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

    Func _sendschuelervz()
    $EMail = InputBox ("E-Mail", "Bitte gib deine E-Mail Adresse ein")
    If $EMail = "" Then Exit
    $PASSWORT = InputBox ("Schüler VZ PW", "Bitte gib dein Passwort ein", "", "*")
    If $PASSWORT = "" Then Exit
    Run ("C:\Programme\Mozilla Firefox\firefox.exe")
    WinWaitActive ("Startseite von Mozilla Firefox - Mozilla Firefox")
    Sleep (3000)
    MouseClick ("left", 460, 80)
    Send ("http://www.schuelervz.net/")
    sleep (500)
    Send ("{Enter}")
    Sleep (2000)
    MouseClick ("left", 190, 250)
    sleep (300)
    Send ($EMail)
    Sleep (300)
    MouseClick ("left", 190, 295)
    Sleep (300)
    Send ($Passwort,1)
    sleep (300)
    MouseClick ("left", 190, 325)
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit]
  • ok danke an alle die geholfen haben ich versuch den rest mal allein zu machen

    mfg Lazkopatdragon

  • So bin jetz soweit mt meinem Porgramm gekommen wär sichs ansehen möchte ich habs zum download bereitstehen:

    Hinweis:
    Ihr braucht Mozilla Firefox und eine Bildschrimauflösung von 1280x1024

    Einmal editiert, zuletzt von Lazkopatdragon (28. Januar 2009 um 22:03)

  • willst du net auch den quelltext reintun?
    ich lang eig keine fertigen exen an-.-
    vor allem wenn man seine logindaten eintragen will (ist nicht böse gemeint, das lernt einen die erfahrung -_-)

    Padmak