Name=Ventrilo
Kategorie=Tools
Autor=Flagship Industries
Beschreibung=Sprachkonferenzsoftware für Gespräche über das Internet
Homepage=http://www.ventrilo.com
Spoiler anzeigen
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Ventrilo
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: ventrilo-2.1.4-Windows-i386.exe
;|___________________________________________________________________________________________________________________________________
#RequireAdmin
#NoTrayIcon
#include "..\..\funktionen.au3"
#include <File.au3>
; 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")
Func _activateWindow($name, $text)
WinWait($name, $text)
WinActivate($name, $text)
WinWaitActive($name, $text)
EndFunc ;==>_activateWindow