• Name=Ventrilo
    Kategorie=Tools
    Autor=Flagship Industries
    Beschreibung=Sprachkonferenzsoftware für Gespräche über das Internet
    Homepage=http://www.ventrilo.com

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Ventrilo
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: ventrilo-2.1.4-Windows-i386.exe
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"
    #include <File.au3>

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

    ; Hauptprogramm
    $parameter = ''
    $search = FileFindFirstFile(@ScriptDir & "\*.exe")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecute(@ScriptDir & "\" & $datei, $parameter)
    $windowname = 'Ventrilo Setup'
    ;Willkommen
    _activateWindow($windowname, "Welcome")
    ControlClick($windowname, "Welcome", "Button1")
    ;Lizenz zustimmen
    _activateWindow($windowname, "License Agreement")
    ControlClick($windowname, "License Agreement", "Button3")
    ControlClick($windowname, "License Agreement", "Button4")
    ;Benutzerinformationen
    _activateWindow($windowname, "User Information")
    ControlClick($windowname, "User Information", "Button4")
    ;Zielverzeichnis
    _activateWindow($windowname, "Destination Folder")
    ControlClick($windowname, "Destination Folder", "Button1")
    ;Installation starten
    _activateWindow($windowname, "Ready")
    ControlClick($windowname, "Ready", "Button1")
    ;Installation beenden
    _activateWindow($windowname, "successfully installed")
    ControlClick($windowname, "successfully installed", "Button1")

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

    Func _activateWindow($name, $text)
    WinWait($name, $text)
    WinActivate($name, $text)
    WinWaitActive($name, $text)
    EndFunc ;==>_activateWindow

    [/autoit]