mIRC 6.21

1. offizieller Beitrag

    Automatische Installation für mIRC 6.21.

    Spoiler anzeigen
    [autoit]

    #cs
    Automatisierte Installation für mIRC 6.21 - https://autoit.de/www.mirc.com
    erstellt von Sascha 'Sn0opy' O.

    ;;; entfernen, falls die Option "aktiviert" werden soll

    #ce

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

    ; Installationsaufruf
    ;###############################################
    Run("mirc621.exe")
    ;###############################################

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

    ; Willkommensbild => Next
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!n")
    ;###############################################

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

    ; Agreement akzeptieren
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!a")
    ;###############################################

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

    ; Pfad !OPTIONEN!
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!n")
    ;;;send("{enter}") ;<== Falls Pfad bereits existiert
    ;###############################################

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

    ; Components
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!n")
    ;###############################################

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

    ; Startmenü Ordner
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!n")
    ;###############################################

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

    ; Weitere einstellungen !OPTIONEN!
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    ;;;send("{space}") ;<== Backup starten
    ;;;send("{tab}") ;<== Auf andere Checkbox wechseln
    ;;;send("{space}") ;<== Desktop Icon ausschalten
    send("!n")
    ;###############################################

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

    ; Installation starten
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!i")
    ;###############################################

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

    ; Checkbox => Run mIRC
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!r")
    ;###############################################

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

    ; Finish
    ;###############################################
    WinWait("mIRC Setup")
    WinActivate("mIRC Setup")
    WinWaitActive("mIRC Setup")
    send("!f")
    ;###############################################
    ; Ende

    [/autoit]

    Bin mir da noch recht unschlüssig, ob man nicht auch ne Funktion einbauen sollte, die darauf wartet, dass der User seinen eigenen Pfad eingibt :X

    • Offizieller Beitrag

    Hi,

    ungetestet:

    Spoiler anzeigen
    [autoit]

    #cs
    Automatisierte Installation für mIRC 6.21 - https://autoit.de/www.mirc.com
    erstellt von Sascha 'Sn0opy' O.

    ;;; entfernen, falls die Option "aktiviert" werden soll

    #ce
    Global $exe = "mirc621.exe"
    Global $title = "mIRC Setup"
    Global $keys_A[9] = ['!n', '!a', '!n', '!n', "!n", "!n", "!i", "!r", "!f"]
    Global $headline_A[9] = ['Willkommensbild', 'Agreement', 'Pfad', 'Components', "Startmenü", "Weitere einstellungen", _
    "Installation", "Run mIRC", "Finish"]

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

    ; Installationsaufruf
    ;###############################################
    Run($exe)

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

    For $i = 0 To UBound($keys_A) - 1
    ConsoleWrite($headline_A[$i] & @CRLF)
    WinWait($title)
    WinActivate($title)
    WinWaitActive($title)
    Send($keys_A[$i])
    ConsoleWrite($headline_A[$i] & " erledigt" & @CRLF)
    Next

    [/autoit]

    So long,

    Mega

    das ist jetzt eine ultrakurzfassung, die ich aber verdammt geil finde vom code her

    • Offizieller Beitrag

    Hi!

    @th:

    Zitat
    [autoit]

    WinWait($title)
    WinActivate($title)
    WinWaitActive($title)

    [/autoit]

    Ist doch wirkungslos, da das Fenster immer den gleichen Titel hat -> es sollte den gleichen Effekt haben wie ca. Sleep(750), wegen der CheckDelay...

    Aber sonst in der Tat ein interessanter Ansatz!

    peethebe

    Sehr geiler Ansatz. Ich denke ich werde mich bei weiteren automatisierten Installationen mal an das Beispiel halten.

    • Offizieller Beitrag

    Hi,

    welcher Ansatz? Eine Schleife zu nehmen?

    Spoiler anzeigen
    [autoit]

    #cs
    Automatisierte Installation für mIRC 6.21 - https://autoit.de/www.mirc.com
    erstellt von Sascha 'Sn0opy' O.

    ;;; entfernen, falls die Option "aktiviert" werden soll

    #ce
    Global $exe = "c:\downloads\mirc621.exe"
    Global $installPath = 'C:\Programme\mIRC1'
    Global $title = "mIRC Setup"
    Global $text_A[9] = ['&Next', 'I &Agree', $installPath, '&Next', '&Next', '&Next', '', '&Next', '&Install']
    Global $id_A[9] = [1, 1, 1019, 1, 1, 1, 1202, 1, 1]
    Global $headline_A[9] = ['Willkommensbild', 'Agreement', 'Pfad', 'Components', "Startmenü", "Weitere einstellungen", _
    "Installation", "Run mIRC", "Finish"]

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

    ShellExecute($exe)
    If WinWait($title, '', 5) Then WinSetTrans($title, '', 1)

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

    For $i = 0 To UBound($text_A) - 2 ; set to 1 to install
    ConsoleWrite($headline_A[$i] & @CRLF)
    If $i <> 2 Then ControlClick($title, '', $id_A[$i])
    If $i = 2 Then ControlSetText($title, '', $id_A[$i], $text_A[$i])
    ConsoleWrite($headline_A[$i] & " erledigt" & @CRLF)
    Sleep(250)
    Next
    WinSetTrans($title, '', 255)

    [/autoit]

    So long,

    Mega