OK. Problem selbst gelöst.
Es lag daran, dass ich zum Testen eine virtuelle Maschine benutze und auf die Auto-It Dateien zugreife, die lokal bei mir liegen. Das hat Vista nicht so ganz vertragen. Sobald ich die Dateien auf die Festplatte der virtuellen Maschine kopiert hatte lief es.
Ich versuche gerade mein erstes Script unter Vista zu erstellen und stoße auf ein Problem.
Ich verwende am Anfang den Parameter RequireAdmin. Beispielhaft mal ein kurzes Script:
[autoit]
#RequireAdmin
MsgBox(0,"", IsAdmin())
MsgBox(0,"", @OSVersion)
Wenn ich es so aufrufe kommt zweimal von Vista die Sicherheitswarnung mit der Frage, ob die Datei ausgeführt werden soll oder nicht. Nach der zweiten Bestätigung passiert nichts mehr. Im Task-Manager gibt es keinen Prozess.
Wenn ich das RequireAdmin auskommentiere, wird die Sicherheitswarnung einmal angezeigt.
Die MsgBox erscheint. Allerdings wird der Benutzer nicht als Admin ausgewiesen (Rückmeldung: 0)
Der Benutzer ist Admin, aber das Programm wird nicht im Admin-Modus ausgeführt. Vielleicht geht es erst dann auf 1?
Wenn ich das Script im Admin-Modus ausführe kommt "Falscher Parameter."
Mache ich was falsch?
Da das Heft weder bei mir zu Hause noch bei mir in der Firma bislang angekommen ist, stell ich jetzt mal hier die Frage. Kann man die alten Scripte weiter verwenden? Ich werd mir das auf jeden Fall mal ansehen. Die IOM ist bei uns in der Firma das Standard-Installationsprogramm geworden. Jedes wichtige Programm wird darüber installiert. Ich will demnächst auch mal wieder aktiver werden und für die restlichen Programme auf meiner Festplatte hier zu Hause auch Scripte erstellen.
das Thema hatten wir letzte Woche schon mal
Mit der Forumsuche wärst du drauf gestoßen.
komisch. Ich weiß leider nicht mehr wonach ich gesucht hatte, aber ich hatte nur diesen hier über die Suche gefunden. Denn ich bin nicht der Thread-Starter, wie scheinbar angenommen.
Aber danke für den Hinweis. Ich werd mir das mal ansehen.
habe das bei mir jetzt folgendermaßen gelöst:
[autoit]
$FileList=_FileListToArray($quellverzeichnis,"*",2)
$j=1
$k=2
For $i=1 To UBound($FileList)-1 Step 1
$t1 = FileGetTime($quellverzeichnis & $FileList[$j], 1, 1)
If ($k > UBound($FileList)-1) Then
$t2=0
Else
$t2 = FileGetTime($quellverzeichnis & $FileList[$k], 1, 1)
EndIf
If ($t1 < $t2) Then
_ArrayDelete($FileList, $j)
Else
If ($k < UBound($FileList)-1) Then
_ArrayDelete($FileList, $k)
EndIf
EndIf
Next
Sicher nicht elegant, aber funktioniert. Verbesserungen höre ich gerne.
so fertig. Ist vielleicht nicht das Schönste, aber es geht.
$officeKeys=getOfficeKey()
For $i=0 To Ubound($officeKeys)-1
MsgBox(0,"",$officeKeys[$i][0] & ": " & $officeKeys[$i][1] )
Next
Func getOfficeKey()
Local $List[1][2]
Local $i = 1
Dim $pfad = ""
Dim $version= ""
Dim $var= ""
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot", "Path")
If $var <> "" Then
$pfad = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration"
EndIf
If $pfad <> "" Then
;1. Pfad holen
$var = RegEnumKey($pfad, $i)
;Schleife wiederholen, so lange es Installationen gibt
While 1
;Ermitteln um welches Produkt es sich handelt
$version = RegRead($pfad & "\" & $var, "ProductName")
If $version = "" Then
$version = "Unbekannte Version. Ggf. Visio Viewer"
EndIf
;Produktkey ermitteln
$key = RegRead($pfad & "\" & $var, "DigitalProductID")
;Wenn $key nicht gefüllt ist, gibt es keiner weitere Installation mehr und das Array wird zurückgegeben
If $key = "" Then
Return $List
Else
;Prüfen ob Array erweitert werden muss
If $List[Ubound($List,1)-1][Ubound($List,2)-1] <> '' Then
ReDim $List[Ubound($List,1)+1][Ubound($List,2)]
EndIf
;Produktname in Array schreiben
$List[$i - 1][0] = $version
;Produktkey in Array schreiben
$List[$i - 1][1] = DecodeProductKey(RegRead($pfad & "\" & $var, "DigitalProductID"))
EndIf
$i=$i+1
;nächsten Pfad holen
$var = RegEnumKey($pfad, $i)
WEnd
Return $List
Else
$List[0][0] = "Kein Office gefunden"
$List[0][1] = ""
Return $List
EndIf
EndFunc ;==>getOfficeKey
Könnte man mal neu und schön machen ... aber siw.exe erledigt das ja alles.
Stimmt, aber für die Benutzung muss man ja wieder vor dem Rechner sein. Oder nicht? Habe mir das Tool nicht so genau angesehen.
Zurück zum Thema:
Habe mir heute morgen gleich mal einen der Rechner gegriffen und schon den Fehler gefunden. SIW.exe hat erstmal drei Office Installationen gefunden. Zwei konnte ich mir erklären. Auf dem Rechner war anfangs Basic drauf und dann hat jemand Professional drüber installiert. Die dritte Installation hieß nur "Unknown Microsoft Office 2003 SKU:". Das war genau die mit dem oft vorkommenden Key.
Dann habe ich nochmal die Software CWSysinfo.exe ausprobiert, welche auch von Firmen kostenlos genutzt werden darf, und auch diese hat drei Installationen angezeigt. Sie war allerdings etwas schlauer und hat die Dritte identifiziert als "Microsoft Visio Viewer 2003". Und genau diesen installieren wir seit Benutzung der IOM bei uns überall mit. Das bedeutet das obige Script erwischt in dem Fall den falschen Key.
Ich werd jetzt nochmal nen Testrechner nehmen und dort Office und Visio Viewer drauf installieren und dann sehen, dass ich den richtigen Key bekomme.
das ist ne gute Idee. Ich werde mal schauen welche Rechner das betrifft und was bei denen steht.
ja genau. Wie gesagt, die Funktion hatte ich hier aus dem Forum.
Ich habe ein Skript geschrieben, welches die Windows und Office-Keys aller unserer Rechner in der Firma ausliest und in eine Datei speichert. Die Funktion für die Office-Keys habe ich hier aus dem Forum. Ich habe sie nur leicht angepasst.
Func getOfficeKey()
Local $List[1]
Local $i = 1
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot", "Path")
If $var <> "" Then
$product = "2003"
Dim $officeKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration"
Else
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Common\InstallRoot", "Path")
If @error <> 0 Then
GUICtrlSetData($status_L, "Info: Unable to find installationPath, maybe no Office installed!")
Return "No Office XP or 2003 found"
EndIf
If $var <> "" Then
$product = "XP"
Dim $officeKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Registration"
EndIf
EndIf
Dim $var = RegEnumKey($officeKey, $i)
If @error <> 0 Then
GUICtrlSetData($status_L, "Info: Unable to find REG_BINARY 'DigitalProductID', maybe no Office installed!")
Return "No Office XP or 2003 found"
Else
$List[$i - 1] = RegRead($officeKey & "\" & $var, "DigitalProductID")
If $List[$i - 1] = "" Then
GUICtrlSetData($status_L, "Info: Unable to find REG_BINARY 'DigitalProductID', maybe no Office installed!")
Else
$key = $List[$i - 1]
Return DecodeProductKey($key)
EndIf
EndIf
EndFunc ;==>getOfficeKey
Jetzt ist das Problem, dass demnach mind. die Hälfte der Rechner mit Office mit dem selben Key installiert wurden. Um genau zu sein 58 mal. Wir haben allerdings nur OEM Lizenzen. D.h. jeder Key dürfte eigentlich nur einmal auftauchen. Irgendwie hab ich das Gefühl, dass die Funktion nicht ganz korrekt ist.
Wenn du mal wissen willst was man mit Java alles machen kann guck die Chrome an. Wurde damals gefeiert, als erster Ego-Shooter, der komplett in Java programmiert wurde. Inzwischen gibt es bereits einen Nachfolger.
Es wurde auch entsprechend ausgezeichnet.
Links:
http://de.wikipedia.org/wiki/Chrome_(Computerspiel)
http://www.chromethegame.com/de/index.html
ich hab das ganze jetzt mal mit der Installation des Visio Viewers getestet, die dauert ja ein wenig.
[autoit]Original von cat1510
ne andere einfache Idee waere es doch von der cmdline zu starten.Runwait(@ComSpec & " /c start /wait runasspc.exe /cryptfile:"Firmenname.spc" /quiet")
Runwait(@ComSpec & ' /c start /wait runasspc.exe /cryptfile:"Visio Viewer 2003.spc" /quiet')
MsgBox(0,"","Installation durch")
Die Messagebox kommt sobald das Fenster von runasspc.exe weg ist. Und erst dann startet die Installation.
Original von Xenobiologist
kannst du nicht in einer Schleife auf den Prozess prüfen?
Run('runasspc.exe /cryptfile:"Visio Viewer 2003.spc" /quiet')
While(ProcessExists("runasspc.exe"))
WEnd
MsgBox(0,"","Installation durch")
wartet nur bis zum Ende von runasspc. Eigentlich dasselbe wie mit dem runwait.
[autoit]Runwait('runasspc.exe /cryptfile:"Visio Viewer 2003.spc" /quiet')
While(ProcessExists("VVIEWER.EXE"))
WEnd
MsgBox(0,"","Installation durch")
while tritt nie ein, weil so schnell nicht das Setup startet.
[autoit]Runwait('runasspc.exe /cryptfile:"Visio Viewer 2003.spc" /quiet')
sleep(1000)
While(ProcessExists("VVIEWER.EXE"))
WEnd
MsgBox(0,"","Installation durch")
funktioniert. Hat aber zwei Nachteile. 1. das sleep, was ich noch verschmerzen könnte. 2. Ich muss wissen, welche Prozesse genau runasspc bzw. die dadurch aufgerufenen Programme starten.
Wenn es nicht anders geht werde ich wohl diese Lösung nehmen. Fällt jemandem noch was eleganteres ein?
danke für die Vorschläge. Ich werde das Montag mal ausprobieren.
Moin,
der Titel klingt etwas blöd, aber mir fällt nichts besseres ein.
Es geht darum, dass ich ein AutoIt-Script habe, welches hintereinander immer wieder ein Programm namens runasspc öffnet. Dieses Programm führt dann unterschiedliche Befehle aus (z.B. öffnet es auch neue Scripte)
runasspc dient dazu einem eingeschränktem Benutzer für die auszuführende Aufgabe Administrationsrechte zu geben.
Mein Skript sieht momentan folgendermaßen aus.
$computername=@ComputerName
$typ=StringLeft($computername,2)
;***********************
;Dienste starten/beenden
;***********************
;Nachrichtendienst aktivieren
[/autoit] [autoit][/autoit] [autoit]RunWait('runasspc.exe /cryptfile:"Nachrichtendienst.spc" /quiet')
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];***********************
;Registry-Keys verändern
;***********************
;Firmenname korrigieren
RunWait('runasspc.exe /cryptfile:"Firmenname.spc" /quiet')
;Capslock zu Shift umsetzen
If ($typ="AP") Then
RunWait('runasspc.exe /cryptfile:"CapsLock2Shift.spc" /quiet')
EndIf
;Firewall-Einstellungen anpassen
RunWait('runasspc.exe /cryptfile:"Firewalleinstellungen.spc" /quiet')
;*******************************
;Standard-Programme installieren
;*******************************
If ($typ="PC") Then
;Visio Viewer 2003 installieren
If Not FileExists(@ProgramFilesDir & "\Microsoft Office\Visio Viewer") And Not FileExists(@ProgramFilesDir & "\Visio") Then
RunWait('runasspc.exe /cryptfile:"Visio Viewer 2003.spc" /quiet')
EndIf
EndIf
[/autoit]Das Problem ist, dass die einzelnen RunWaits nur warten bis runasspc beendet ist, aber nicht bis das Script beendet ist, welches runasspc startet. In diesem Beispiel startet z.B. die Installation des Visio Viewers bevor die Einstellungen der Registry beendet worden sind.
Hat jemand Vorschläge, wie ich das ganze sequentiell abarbeiten kann?
ich beende den Browser beabsichtigter Weise nicht. Denn Firefox und Opera und auch der neue IE arbeiten mit Tabs. Wenn ich also den Browser schon offen habe und darin mehrere Internetseiten, werden die alle geschlossen. Das möchte ich lieber nicht.
Wenn du inzwischen über
[autoit]WinWait ("Congratulations! What's Next? - Windows Internet Explorer", "Befehlsleiste", 4)
[/autoit]prüfst kannst du doch auch gleich WinClose nutzen. Folgendes sollte ungetestet funktionieren:
[autoit]
ControlClick ("Informationsleiste", "&Schließen", "Button1")
Sleep(5000)
If WinExists ("Congratulations! What's Next?", "") Then
WinClose ("Congratulations! What's Next?", "")
EndIf
Dann bist du unabhängig vom Browser.
PS: Was funktioniert an meinem bei dir nicht?
Name=Winamp
Version=5
Kategorie=Grundlagen
Autor=Nullsoft
Beschreibung=Player für Audio und Video-Dateien
Homepage=http://www.winamp.com
Silent-Installation (installiert Modern Skin sowie alle möglichen Features)
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Winamp
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: winamp53.exe
;|___________________________________________________________________________________________________________________________________
#RequireAdmin
#NoTrayIcon
#include "..\..\funktionen.au3"
#include <File.au3>
; Hauptprogramm
$parameter = ' /S'
$search = FileFindFirstFile(@ScriptDir & "\*.exe")
$datei = FileFindNextFile($search)
FileClose($search)
ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)
;Registrierung beenden
_activateWindow("Winamp: User information","user survey")
ControlClick("Winamp: User information","user survey","Button6")
ControlClick("Winamp: User information","user survey","Button2")
;Winamp schließen
ProcessWait("winamp.exe")
ProcessClose("winamp.exe")
Func _activateWindow($name, $text)
WinWait($name, $text)
WinActivate($name, $text)
WinWaitActive($name, $text)
EndFunc ;==>_activateWindow
geänderte Installation
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Winamp
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: winamp53.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 = 'Winamp Setup'
;Lizenzvereinbarung
_activateWindow($windowname,"License Agreement")
ControlClick($windowname,"License Agreement","Button2")
;Komponenten auswählen
_activateWindow($windowname,"Choose Components")
ControlClick($windowname,"Choose Components","Button2")
;Installationsoptionen auswählen
_activateWindow($windowname,"Choose Install Options")
;Einzelne Komponenten (ControlSend mit dem space deaktivieren um zu installieren)
;Startmenü
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Desktop
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Schnellstartleiste
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Tray Icon
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Verknüpfung Audio-Dateien
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Verknüpfung Video-Dateien
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Verknüpfung Audio-CDs
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Verknüpfung Playlist
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;eMusic
ControlSend($windowname,"Choose Install Options","","{space}")
ControlSend($windowname,"Choose Install Options","","{down}")
;Security Monitor
ControlSend($windowname,"Choose Install Options","","{space}")
;Weiter
ControlClick($windowname,"Choose Install Options","Button2")
;Installationsverzeichnis
_activateWindow($windowname,"Choose Install Location")
ControlClick($windowname,"Choose Install Location","Button2")
;Multiuser
_activateWindow($windowname,"Multi-user Settings")
ControlClick($windowname,"Multi-user Settings","Button2")
;Internetverbindung und Sprache
_activateWindow($windowname,"Internet Connection")
ControlClick($windowname,"Internet Connection","Button2")
;Skin
_activateWindow($windowname,"Skin Selection")
;Modern Skin
;ControlClick($windowname,"Skin Selection","Button5")
;Classic Skin
ControlClick($windowname,"Skin Selection","Button4")
ControlClick($windowname,"Skin Selection","Button2")
;Registrierung beenden
_activateWindow("Winamp: User information","user survey")
ControlClick("Winamp: User information","user survey","Button6")
ControlClick("Winamp: User information","user survey","Button2")
;Winamp schließen
ProcessWait("winamp.exe")
ProcessClose("winamp.exe")
Func _activateWindow($name, $text)
WinWait($name, $text)
WinActivate($name, $text)
WinWaitActive($name, $text)
EndFunc ;==>_activateWindow
Name=Ventrilo
Kategorie=Tools
Autor=Flagship Industries
Beschreibung=Sprachkonferenzsoftware für Gespräche über das Internet
Homepage=http://www.ventrilo.com
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| 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
ich hab das mal umgesetzt. Das mit der Zeit hab ich erstmal rausgelassen, weil während der "richtigen" Installation kann es ja durchaus mehr als 10 Sekunden dauern, so wie auch in diesem Fall. Ich denk nochmal drüber nach.
stimmt das ist ne sehr gute idee.
Name=Tweak XP
Kategorie=Tools
Autor=Totalidea Software
Beschreibung=Beschleunigung von Windows XP
Homepage=http://www.totalidea.com
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Tweak XP
;|
;| Autor: Jens Ottersberg (mit Erweiterung von Xenobiologist)
;|
;| Getestet mit: txp4trial.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 = 'Tweak-XP Pro'
;Willkommensbildschirm
_activateWindow($windowname, "Welcome")
ControlClick($windowname, "Welcome", "Button1")
;Disclaimer
_activateWindow($windowname, "Disclaimer")
ControlClick($windowname, "Disclaimer", "Button5")
ControlClick($windowname, "Disclaimer", "Button1")
;Lizenzvereinbarung
_activateWindow($windowname, "Agreement")
ControlClick($windowname, "Agreement", "Button5")
ControlClick($windowname, "Agreement", "Button1")
;Zielverzeichnis
_activateWindow($windowname, "Installation Folder")
ControlClick($windowname, "Installation Folder", "Button1")
;Zusatzfunktionen
_activateWindow($windowname, "Screensaver")
;Bildschirmschoner installieren
;ControlClick($windowname,"Screensaver","Button5")
;Bildschirmschoner als Standard
;ControlClick($windowname,"Screensaver","Button6")
ControlClick($windowname, "Screensaver", "Button1")
;Sprache
_activateWindow($windowname, "language")
;Deutsch
ControlClick($windowname, "language", "Button6")
ControlClick($windowname, "language", "Button1")
;Eintrag im Startmenü
_activateWindow($windowname, "Shortcut Folder")
ControlClick($windowname, "Shortcut Folder", "Button1")
;Installation starten
_activateWindow($windowname, "Ready to Install")
ControlClick($windowname, "Ready to Install", "Button1")
;Installation beenden
_activateWindow($windowname, "Select Exit Options")
;Programm starten
;ControlClick($windowname,"Select Exit Options","Button5")
ControlClick($windowname, "Select Exit Options", "Button1")
_activateWindow($windowname, "Successfully")
ControlClick($windowname, "Successfully", "Button1")
Func _activateWindow($name, $text)
WinWait($name, $text)
WinActivate($name, $text)
WinWaitActive($name, $text)
EndFunc ;==>_activateWindow
