Beiträge von Schnitzel

  • WINAMP 2.91c Installer Problem mit den klicks

    Das machste doch eh schon sehr gut mit den Controlfunktionen ;)

    Kleinerer tipp:
    Statt winwaitactive reicht ein winwait.
    (dann läuft es auch wenn ein anderes fenster im vordergrund ist)

    hier wäre eine Lösung, geht aber bestimmt mit 100 verschiedenen Möglichkeiten ;)

    Spoiler anzeigen
    [autoit]

    ShellExecute ("WinAmp2.91c.exe")
    WinWait ("Winamp 2.91c - Installation", "Winamp ist Freeware")
    ControlClick("Winamp 2.91c - Installation", "Winamp ist Freeware", "Button2")
    ;ControlFocus("Winamp 2.91c - Installation", "Hiermit wird Winamp 2.91c", "ComboBox1"); Du brauchst hier glaub ich keinen Fokus
    ControlCommand("Winamp 2.91c - Installation", "Hiermit wird Winamp 2.91c", "ComboBox1", "SelectString", "Komplett")
    ControlFocus("Winamp 2.91c - Installation", "Hiermit wird Winamp 2.91c", "SysTreeView321")
    ControlSend("Winamp 2.91c - Installation", "Hiermit wird Winamp 2.91c", "SysTreeView321", "{DOWN}" & "{SPACE}")
    ControlClick("Winamp 2.91c - Installation", "Hiermit wird Winamp 2.91c", "Button2")
    WinWait ("Winamp 2.91c - Installation", "Bitte das Verzeichnis wählen")
    ;ControlFocus("Winamp 2.91c - Installation", "Bitte das Verzeichnis wählen", "Edit1"); hier genauso
    ControlSetText("Winamp 2.91c - Installation", "Bitte das Verzeichnis wählen", "Edit1", @ProgramFilesDir & "\Winamp291c\")
    ControlClick("Winamp 2.91c - Installation", "Bitte das Verzeichnis wählen", "Button2")
    ;Sleep (2000); brauchst du nicht da du ja WinWait hast
    WinWait("Nullsoft Winamp Setup: Einstellungen", "Hinweis: Für CDDB-Abfragen")
    ;ControlFocus("Nullsoft Winamp Setup: Einstellungen", "Hinweis: Für CDDB-Abfragen", "#327701"); sowie auch hier
    ;ControlSend("Nullsoft Winamp Setup: Einstellungen", "Hinweis: Für CDDB-Abfragen", "#327701", "{TAB}" & "{TAB}" & "{TAB}" & "{SPACE}"); funktioniert nicht
    ControlClick("Nullsoft Winamp Setup: Einstellungen", "Hinweis: Für CDDB-Abfragen", "ListBox1", "primary", 1, 14, 117)
    ControlClick("Nullsoft Winamp Setup: Einstellungen", "Hinweis: Für CDDB-Abfragen", "ListBox1", "primary", 1, 14, 136)

    [/autoit]

    Gruß
    Schnitzel

  • Hochbegabt

    Stimmt habs grad gegoogelt. Ab 130 ist man hochbegabt.

    @Threadersteller:
    Glaubst du wirklich du kannst dich auf so eine Umfrage verlassen?
    Finde das egtl ziemlich sinnlos.

    Da sind bestimmt 80% nicht hochbegabt davon...

  • Hauptmenü per Case oder per Guictrlsetonevent => Problem

    ich habs dir mal sauber gemacht:

    Spoiler anzeigen
    [autoit]

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

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

    Opt("GUIOnEventMode", 1)

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

    $Fenstermain = GUICreate("", 403, 476, 359, 214, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Exit = GUICtrlCreatePic(@ScriptDir & "\Exit.jpg", 326, 0, 77, 38, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUICtrlSetOnEvent($Exit, "Ende")
    GUICtrlCreatePic(@ScriptDir & "\Main.jpg", 0, 0, 401, 473, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Startbutton = GUICtrlCreateButton("Start", 20, 100)
    GUICtrlSetOnEvent($Startbutton, "_Play")
    GUISetState(@SW_SHOW, $Fenstermain)

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

    $Form1 = GUICreate("GUI", 403, 800, 359, 12, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
    $pExit = GUICtrlCreatePic(@ScriptDir & "\Exit.jpg", 326, 0, 77, 38, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUICtrlSetOnEvent($pExit, "Ende")
    GUISetState(@SW_HIDE, $Form1)

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

    While 1
    Sleep(10)
    WEnd

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

    Func Ende()
    Exit
    EndFunc

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

    Func _Play()
    GUISetState(@SW_HIDE, $Fenstermain)
    GUISetState(@SW_SHOW, $Form1)
    EndFunc

    [/autoit]

    Übrigens bin ich der Meinung, das das Niveau dieses Forums sehr hoch ist.
    Zumindest was die Qualität und die Schnelligkeit der Antworten betrifft.

    Und ich stimme Autobert zu, ohne Script können wir nur raten um was es geht...

  • Programm mit einem Button öffnen und schließen

    Ganz simples Beispiel...

    (natürlich noch stark ausbaufähig ;) )

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    $run = False

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

    GUICreate("", 200, 100)
    $Button1 = GUICtrlCreateButton("Run Notepad", 32, 16, 161, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    If $run Then
    ProcessClose("notepad.exe")
    Else
    Run("notepad.exe")
    EndIf
    $run = Not $run
    EndSwitch
    WEnd

    [/autoit]