; -------------------------------------------------------
;
; 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
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 )
; -------------------------------------------------------
;
; 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
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 )
Questions & Answers related to InterVideo Inc. WinDVD
Blogs (0)
Blog posts related to InterVideo Inc. WinDVD
Links (0)
Links related to InterVideo Inc. WinDVD
Reviews (0)
Reviews related to InterVideo Inc. WinDVD
This website uses cookies.
By continuing to use this site and/or clicking the "Accept" button you are providing consent
Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our
websites or when you do business with us. For more information about our
Privacy Policy and our data protection
efforts, please visit
GDPR-HQ