; -------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: Al B.
;
; Script Function: Install WINDVD German
; It send Control-Clicks on Windows
; -------------------------------------------------------
;Verhinderung der Doppelausführung
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;mit der folgenden Zeitle AutoIt Symbol verstecken
;AutoItSetOption("TrayIconHide", 1)
;....
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 10)
If ProcessExists ( "ps.exe" )<>0 Then
ProcessClose ( "ps.exe" )
ProcessWaitClose ( "ps.exe" )
EndIf
;If @OSType="WIN32_NT" Then BlockInput ( 1 )
;wenn WinDVD7 schon installiert ist, rausgehen
If FileExists ( @ProgramFilesDir & '\InterVideo\DVD7\WinDVD.exe' ) or FileExists ( @HomeDrive & '\InterVideo\DVD7\WinDVD.exe' ) Then
MsgBox (64, 'F.U.', 'InterVideo WinDVD7 ist schon installiert', 5)
Exit
EndIf
$file="setup.exe"
Run ( @ScriptDir&'\'& $file)
Sleep ( 50 )
WinWaitActive ( 'InterVideo WinDVD 7 Setup' ) ;Aufruf
Sleep ( 500 )
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button1')
;Send ( '{ENTER}' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "VEREINBARUNG ÜBER EINE ENDBENUTZER" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'VEREINBARUNG ÜBER EINE ENDBENUTZER', 'Button2' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Gemeinsames" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button2' )
Sleep(1000)
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button5' )
Sleep(500)
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Setup installiert WinDVD" ) ;Ordner auswählen
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Setup installiert WinDVD', 'Button1' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Programmordner auswählen" ) ;danach wird installiert
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Programmordner auswählen', 'Button2' )
Sleep(5000)
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Verknüpfung zum Desktop" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Verknüpfung zum Desktop', 'Button11' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Sie die Dateitypen" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button1' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button3' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button11' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Google Toolbar und Google Desktop" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button1' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button2' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button4' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Installation der folgenden Anwendung" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Installation der folgenden Anwendung', 'Button3' )
;'* Maximal 20*30 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Computer später neu starten", 15) Then
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Computer später neu starten', 'Button2' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Computer später neu starten', 'Button4' )
exitloop
EndIf
Next
;'* Maximal 5*1 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'WinDVD', "Fehler bei der Entfernung der Support-Dateien" , 5) Then
ControlClick ( "WinDVD", 'Fehler bei der Entfernung der Support-Dateien', 'Button1' )
Sleep(1000)
exitloop
EndIf
Next
Sleep(2000)
;'* Maximal 5*1 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Klicken Sie auf Beenden", 5) Then
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Klicken Sie auf Beenden', 'Button4' )
Sleep(1000)
exitloop
EndIf
Next
FileDelete("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\*.*")
;der dienst RPC-locator sollte gestartet sein?
$PID = ProcessExists("WinCinemaMgr.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)
;Deinstallation des InterActual Players
Run ( "C:\Program Files\InterActual\InterActual Player\inuninst.exe" )
WinWait ( 'InterActual Player Uninstaller', 'You are about to remove' )
WinActivate ( 'InterActual Player Uninstaller', 'You are about to remove' )
ControlClick ( 'InterActual Player Uninstaller', 'You are about to remove', 'Button1' )
WinWaitActive ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
ControlClick ( 'InterActual Player Uninstaller', 'InterActual Player has been removed', 'Button1' )
WinWaitClose ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
Sleep ( 500 )
FileDelete("C:\Program Files\InterActual")
;FileDelete("C:\Program Files\")
; -------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: Al B.
;
; Script Function: Install WINDVD German
; It send Control-Clicks on Windows
; -------------------------------------------------------
;Verhinderung der Doppelausführung
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;mit der folgenden Zeitle AutoIt Symbol verstecken
;AutoItSetOption("TrayIconHide", 1)
;....
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 10)
If ProcessExists ( "ps.exe" )<>0 Then
ProcessClose ( "ps.exe" )
ProcessWaitClose ( "ps.exe" )
EndIf
;If @OSType="WIN32_NT" Then BlockInput ( 1 )
;wenn WinDVD7 schon installiert ist, rausgehen
If FileExists ( @ProgramFilesDir & '\InterVideo\DVD7\WinDVD.exe' ) or FileExists ( @HomeDrive & '\InterVideo\DVD7\WinDVD.exe' ) Then
MsgBox (64, 'F.U.', 'InterVideo WinDVD7 ist schon installiert', 5)
Exit
EndIf
$file="setup.exe"
Run ( @ScriptDir&'\'& $file)
Sleep ( 50 )
WinWaitActive ( 'InterVideo WinDVD 7 Setup' ) ;Aufruf
Sleep ( 500 )
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button1')
;Send ( '{ENTER}' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "VEREINBARUNG ÃBER EINE ENDBENUTZER" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'VEREINBARUNG ÃBER EINE ENDBENUTZER', 'Button2' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Gemeinsames" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button2' )
Sleep(1000)
ControlClick ( 'InterVideo WinDVD 7 Setup', ', 'Button5' )
Sleep(500)
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Setup installiert WinDVD" ) ;Ordner auswählen
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Setup installiert WinDVD', 'Button1' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Programmordner auswählen" ) ;danach wird installiert
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Programmordner auswählen', 'Button2' )
Sleep(5000)
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Verknüpfung zum Desktop" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Verknüpfung zum Desktop', 'Button11' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Sie die Dateitypen" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button1' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button3' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Sie die Dateitypen', 'Button11' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Google Toolbar und Google Desktop" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button1' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button2' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Google Toolbar und Google Desktop', 'Button4' )
WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Installation der folgenden Anwendung" ) ;
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Installation der folgenden Anwendung', 'Button3' )
;'* Maximal 20*30 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Computer später neu starten", 15) Then
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Computer später neu starten', 'Button2' )
Sleep(500)
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Computer später neu starten', 'Button4' )
exitloop
EndIf
Next
;'* Maximal 5*1 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'WinDVD', "Fehler bei der Entfernung der Support-Dateien" , 5) Then
ControlClick ( "WinDVD", 'Fehler bei der Entfernung der Support-Dateien', 'Button1' )
Sleep(1000)
exitloop
EndIf
Next
Sleep(2000)
;'* Maximal 5*1 Sekunden warten
FOR $i = 1 TO 3
If WinWaitActive ( 'InterVideo WinDVD 7 Setup', "Klicken Sie auf Beenden", 5) Then
ControlClick ( 'InterVideo WinDVD 7 Setup', 'Klicken Sie auf Beenden', 'Button4' )
Sleep(1000)
exitloop
EndIf
Next
FileDelete("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\*.*")
;der dienst RPC-locator sollte gestartet sein?
$PID = ProcessExists("WinCinemaMgr.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)
;Deinstallation des InterActual Players
Run ( "C:\Program Files\InterActual\InterActual Player\inuninst.exe" )
WinWait ( 'InterActual Player Uninstaller', 'You are about to remove' )
WinActivate ( 'InterActual Player Uninstaller', 'You are about to remove' )
ControlClick ( 'InterActual Player Uninstaller', 'You are about to remove', 'Button1' )
WinWaitActive ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
ControlClick ( 'InterActual Player Uninstaller', 'InterActual Player has been removed', 'Button1' )
WinWaitClose ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
Sleep ( 500 )
FileDelete("C:\Program Files\InterActual")
;FileDelete("C:\Program Files\")
View inventory records anonymously contributed by opt-in users of the K1000 Systems Management Appliance.
Please log in to comment