Ich bins mal wieder habe da ein Prob mit den Sprungmaken und zwar im 1 Versuch machte ich es so
zwar einfach aber er öffnete mir die uninstall und die install gleichzeitig
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
_SoftwareInstall_7zip()
[/autoit][autoit][/autoit][autoit]Func _SoftwareInstall_7zip()
If BitAND(GUICtrlRead($aCkbColumn1[1]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $7zip = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\7zFM.exe", "Path"), _
$version7zip = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\7zFM.exe", "DisplayName")
If Not FileExists($7zip & "\7zFM.exe") Then RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
If FileExists($7zip & "\7zFM.exe") Then
Local $Message = MsgBox(32 + 4, "Installation", "7-Zip " & $version7zip & " ist bereits installiert !" _
& @TAB & @CRLF & @CRLF & "Soll das Programm deinstalliert werden ?" & @TAB)
Switch $Message
Case 6 ;ja
RunWait($7zip & "\Uninstall.exe /S ")
RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
Case 7 ;nein
RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
EndSwitch
EndIf
EndIf
Sleep(1000)
EndFunc ;==>_SoftwareInstall_7zip
Exit
[/autoit][autoit][/autoit][autoit]; Ende
[/autoit]Dachte mir ok muss doch mit sprungmarken auch gehen , tut es zwar auch aber nachdem ich noch recht neu in AutoIt bin schleichen sich Fehler ein und ich komme hier nciht auf den Nenner :wacko:
Ermacht zwar alles jedoch zeigt er mir 2 warnings an
Func _SoftwareInstall_7zip()
If BitAND(GUICtrlRead($aCkbColumn1[1]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $7zip = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\7zFM.exe", "Path")
If Not FileExists($7zip & "\7zFM.exe") Then RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
If FileExists($7zip & "\7zFM.exe") Then
$Sprungmarke = True
$ZweiteSprungmarke = True
While $Sprungmarke ; Sprungmarke initialisieren
If MsgBox(4, "", "Uninstall? (Mit Ja wird 7-Zip deinstalliert)") = 6 Then RunWait($7zip & "\Uninstall.exe")
While $ZweiteSprungmarke
If MsgBox(4, "", "Installation von 7-Zip") = 6 Then RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
$ZweiteSprungmarke = False
WEnd
$Sprungmarke = False ; Endlosschleife verhindern (Danach muss direkt das Wend folgen)
WEnd
EndIf
EndIf
Sleep(1000)
EndFunc ;==>_SoftwareInstall_7zip
WARNING: $Sprungmarke possibly not declared/created yet
$Sprungmarke = True
~~~~~~~~~~~~~~~~~~~^
WARNING: $ZweiteSprungmarke possibly not declared/created yet
$ZweiteSprungmarke = True
~~~~~~~~~~~~~~~~~~~~~~~~~^
Mir ist klar das es an den Sprungmarken liegt nur leider kein Plan was ich falsch mache
Hier noch das komplette script bisher
Spoiler anzeigen
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=osiris.ico
#AutoIt3Wrapper_Outfile=OSIRIS.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=Osiris Software Installer
#AutoIt3Wrapper_Res_Fileversion=3.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2011 by Osiris
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Field=Compiled by|Osiris
#AutoIt3Wrapper_Res_Field=Original Name|Osiris Software Installer
#AutoIt3Wrapper_Res_Field=Build|Úte%
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region - TimeStamp
; 2011-05-14 20:47:53
#EndRegion - TimeStamp
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
Opt("GUIOnEventMode", 1) ;i Eine Gute Wahl -> mehr Macros, leichtere Fenstertechnik
If Not FileExists(@ScriptDir & "\2.jpg") Then FileInstall('2.jpg', @ScriptDir & "\2.jpg", 1)
; prüfen ob Hintergrundbild vorhanden ist, wenn nicht, dann auspacken die 1 = Überschreibt bestehende Dateien
#Region ### START Koda GUI section ###
GUICreate("Osiris Software Installer", 896, 560)
GUICtrlCreatePic(@ScriptDir & "\2.jpg", 0, 0, 896, 560)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_ende")
GUICtrlCreateGroup("", 170, 31, 185, 485)
GUICtrlCreateLabel("Silent Install", 182, 16, 185, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
;i #### Start Checkboxarray für 25 Checkboxen ###
Global $aLBckbColumn1[23] = ["Vlc-Media-Player", "7-Zip", "Firefox 4", "Firefox 3", "Ashampoo Burning", "CC Cleaner", "DVD Shrink", "Fraps 2.9.8", "Img Burn", "Irfan View", _
"Netframework 4", "OpenOffice", "PartitionsWizard", "PDF Creator", "TeamViewer 6", "TMPGEnc-Plus", "TrueCrypt 7", "Teamspeak 2", "Teamspeak 3", "Unlocker", _
"VirtualDub", "Winrar 4", "XP-AntiSpy"] ;i zur Beschriftung der Labels
;i a- Array + Label-LB + Checkbox-ckb
Global $aCkbColumn1[23], $aLBColumn1[23] ;i ArrayVariablen (kl. a am Anfang) erstellen der Controls
;i a- Array + Checkbox-ckb
For $i = 0 To 22 ;i statisch kein Ubound - erstellen von 0 - 24 = 25 Checkboxen
$aCkbColumn1[$i] = GUICtrlCreateCheckbox($aLBckbColumn1[$i], 178, 40 + $i * 19, 13, 13)
$aLBColumn1[$i] = GUICtrlCreateLabel($aLBckbColumn1[$i], 200, 40 + $i * 19, 120, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Myriad Web Pro")
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Next
;i #### Ende Checkboxarray ###
GUICtrlCreateGroup("", -99, -99, 1, 1) ;i Gruppe schliessen
GUICtrlCreateGroup("", 355, 31, 185, 485)
GUICtrlCreateLabel("User default", 367, 16, 185, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xffffff)
;i #### Start Checkboxarray für 25 Checkboxen ###
Global $aLBckbColumn2[23] = ["Vlc-Media-Player", "7-Zip", "Firefox 4", "Firefox 3", "Ashampoo Burning", "CC Cleaner", "DVD Shrink", "Fraps 2.9.8", "Img Burn", "Irfan View", _
"Netframework 4", "OpenOffice", "PartitionsWizard", "PDF Creator", "TeamViewer 6", "TMPGEnc-Plus", "TrueCrypt 7", "Teamspeak 2", "Teamspeak 3", "Unlocker", _
"VirtualDub", "Winrar 4", "XP-AntiSpy"] ;i zur Beschriftung der Labels
;i a- Array + Label-LB + Checkbox-ckb
Global $aCkbColumn2[23], $aLBColumn2[25] ;i ArrayVariablen (kl. a am Anfang) erstellen der Controls
;i a- Array + Checkbox-ckb
For $i = 0 To 22 ;i statisch kein Ubound - erstellen von 0 - 24 = 25 Checkboxen
$aCkbColumn2[$i] = GUICtrlCreateCheckbox($aLBckbColumn2[$i], 363, 40 + $i * 19, 13, 13)
$aLBColumn2[$i] = GUICtrlCreateLabel($aLBckbColumn2[$i], 386, 40 + $i * 19, 120, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Myriad Web Pro")
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
; create 25x Checkbox
Next
;i #### Ende Checkboxarray ###
GUICtrlCreateGroup("", -99, -99, 1, 1) ;i Gruppe schliessen
GUICtrlCreateGroup("", 540, 31, 185, 485)
GUICtrlCreateLabel("Portable Apps", 552, 16, 185, 17)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;i #### Start Checkboxarray für 25 Checkboxen ###
Global $aLBckbColumn3[9] = ["Firefox", "Vlc Media Player", "TeamViewer6", "7-Zip", "OpenOffice", "Thunderbird", "FoxitReader", "FileZilla", "Spybot"] ;i zur Beschriftung der Labels
;i a- Array + Label-LB + Checkbox-ckb
Global $aCkbColumn3[9], $aLBColumn3[25] ;i ArrayVariablen (kl. a am Anfang) erstellen der Controls
;i a- Array + Checkbox-ckb
For $i = 0 To 8 ;i statisch kein Ubound - erstellen von 0 - 24 = 25 Checkboxen
$aCkbColumn3[$i] = GUICtrlCreateCheckbox($aLBckbColumn3[$i], 548, 40 + $i * 19, 13, 13)
$aLBColumn2[$i] = GUICtrlCreateLabel($aLBckbColumn3[$i], 571, 40 + $i * 19, 120, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Myriad Web Pro")
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
; create 25x Checkbox
Next
;i #### Ende Checkboxarray ###
GUICtrlCreateGroup("", -99, -99, 1, 1) ;i Gruppe schliessen
Global $bnInstall = GUICtrlCreateButton("Install", 355, 526, 75, 22)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Myriad Web Pro")
GUICtrlSetOnEvent(-1, "_start")
Global $bnExit = GUICtrlCreateButton("Exit", 465, 526, 75, 22)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 9, 400, 0, "Myriad Web Pro")
GUICtrlSetOnEvent(-1, "_ende")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func _start()
Local $Msg = MsgBox(32 + 4, "Installation", "Soll mit der Installation begonnen werden ?" & @TAB)
If $Msg = 7 Then
ConsoleWrite("Abbruch durch den Nutzer !" & @CRLF)
Else
_install()
EndIf
EndFunc ;==>_start
Func _install()
;i MsgBox(0, "", "Installation ...") ;i zur Prüfung der Funktion, also ein Dummy
_softwareInstall_vlc()
_SoftwareInstall_7zip()
_softwareInstall_moz4()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes, No, and Cancel, Icon=None
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(3, "OsirisSoftwareInstaller", "Installation ist abgeschlossen" & @CRLF & "Wollen Sie neustarten?")
Select
Case $iMsgBoxAnswer = 6 ;Yes
Shutdown(6)
Case $iMsgBoxAnswer = 7 ;No
Exit
Case $iMsgBoxAnswer = 2 ;Cancel
EndSelect
#EndRegion --- CodeWizard generated code Start ---
EndFunc ;==>_install
Func _softwareInstall_vlc()
If BitAND(GUICtrlRead($aCkbColumn1[0]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $VLN = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VideoLAN\VLC", "InstallDir"), _
$versionVLN = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VideoLAN\VLC", "Version")
;Local $VLC = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VLC", "InstallDir"), _
;$versionVLC = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VLC", "Version")
If Not FileExists($VLN & "\vlc.exe") Then RunWait(@ScriptDir & "\Software\vlc\vlc.exe")
If FileExists($VLN & "\vlc.exe") Then
Local $Message = MsgBox(32 + 4, "Installation", "VLC Media Player " & $versionVLN & " ist bereits installiert !" _
& @TAB & @CRLF & @CRLF & "Soll das Programm deinstalliert werden ?" & @TAB)
Switch $Message
Case 6
RunWait($VLN & "\uninstall.exe")
RunWait(@ScriptDir & "\Software\vlc\vlc.exe")
Case 7
EndSwitch
EndIf
EndIf
#cs## If not FileExists($VLC & "\vlc.exe") Then RunWait(@ScriptDir & "\Software\vlc\vlc.exe")
if FileExists($VLC & "\vlc.exe") Then
Local $Message = MsgBox(32 + 4, "Installation", "VLC media player " & $versionVLC & " ist bereits installiert !"_
& @TAB & @CRLF & @CRLF & "Soll das Programm deinstalliert werden ?" & @TAB)
Switch $Message
case 6
RunWait($VLC & "\uninstall.exe")
RunWait(@ScriptDir & "\Software\vlc\vlc.exe")
case 7
RunWait(@ScriptDir & "\Software\vlc\vlc.exe")
case 2
EndSwitch
EndIf
#ce EndIf
Sleep(1000)
EndFunc ;==>_softwareInstall_vlc
Func _SoftwareInstall_7zip()
If BitAND(GUICtrlRead($aCkbColumn1[1]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $7zip = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\7zFM.exe", "Path")
If Not FileExists($7zip & "\7zFM.exe") Then RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
If FileExists($7zip & "\7zFM.exe") Then
$Sprungmarke = True
$ZweiteSprungmarke = True
While $Sprungmarke ; Sprungmarke initialisieren
If MsgBox(4, "", "Uninstall? (Mit Ja wird 7-Zip deinstalliert)") = 6 Then RunWait($7zip & "\Uninstall.exe")
While $ZweiteSprungmarke
If MsgBox(4, "", "Installation von 7-Zip") = 6 Then RunWait(@ScriptDir & "\Software\7zip\7-Zip.exe")
$ZweiteSprungmarke = False
WEnd
$Sprungmarke = False ; Endlosschleife verhindern (Danach muss direkt das Wend folgen)
WEnd
EndIf
EndIf
Sleep(1000)
EndFunc ;==>_SoftwareInstall_7zip
Func _SoftwareInstall_moz4()
If BitAND(GUICtrlRead($aCkbColumn1[2]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $moz4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox\4.0.1 (de)\Main", "Install Directory"), _
$versionmoz4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox", "CurrentVersion")
If Not FileExists($moz4 & "\firefox.exe") Then RunWait(@ScriptDir & "\Software\firefox4\MozillaFirefox4.0.exe")
If FileExists($moz4 & "\firefox.exe") Then
Local $Message = MsgBox(32 + 4, "Installation", "Firefox 4 " & $versionmoz4 & " ist bereits installiert !" _
& @TAB & @CRLF & @CRLF & "Soll das Programm deinstalliert werden ?" & @TAB)
Switch $Message
Case 6
RunWait($moz4 & "\Uninstall.exe")
RunWait(@ScriptDir & "\Software\firefox4\MozillaFirefox4.0.exe")
Case 7
EndSwitch
EndIf
EndIf
Sleep(1000)
EndFunc ;==>_SoftwareInstall_moz4
#cs## If BitAND(GUICtrlRead($aCkbColumn1[3]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $moz3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox\4.0.1 (de)\Main", "Install Directory"), _
$versionmoz3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox", "CurrentVersion")
If FileExists($moz3 & "\firefox.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("Firefox 4 " & $versionmoz3 & " ist installiert" _
& @CRLF & " und befindet sich in: " & $moz3 & "\firefox.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "Firefox 4 " & $versionmoz3 & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($moz3 & "\Uninstall.exe")
;i ... Anfrage ob VLC schon auf dem PC unter VLC installiert ist ...
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\FireFox3.6\MozillaFirefox.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[4]), $GUI_CHECKED) = $GUI_CHECKED Then
;Local $Ashampoo = (@ProgramFilesDir & "\Ashampoo\Ashampoo Burning Studio 2010 Advanced")
Local $Ashampoo = (@ProgramFilesDir & "\Ashampoo\Ashampoo Burning Studio 2010 Advanced"), _
$versionAshampoo = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Ashampoo Burning Studio 2010 Advanced_is1", "DisplayName")
If FileExists($Ashampoo & "\burningstudio2010adv.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("Ashampoo ist installiert" _
& @CRLF & " und befindet sich in: " & $Ashampoo & "\burningstudio2010adv.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "Ashampoo " & $versionAshampoo & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($Ashampoo & "\unins000.exe /Silent")
;i ... Anfrage ob VLC schon auf dem PC unter VLC installiert ist ...
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\ashampoo\asinstall.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[5]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $cccleaner = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\ccleaner.exe", "Path"), _
$versioncccleaner = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\ccleaner.exe", "DisplayName")
If FileExists($cccleaner & "\CCleaner.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("CC Cleaner " & $versioncccleaner & " ist installiert" _
& @CRLF & " und befindet sich in: " & $cccleaner & "\CCleaner.exe.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "CC Cleaner " & $versioncccleaner & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($cccleaner & "\uninst.exe")
;i ... Anfrage ob VLC schon auf dem PC unter VLC installiert ist ...
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\cccleaner\ccinst.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[6]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $dvd = RegRead("HKEY_CURRENT_USER\Software\DVD Shrink\DVD Shrink 3.2\Preferences", "InstallDirectory"), _
$versiondvd = RegRead("HKEY_CURRENT_USER\Software\DVD Shrink\DVD Shrink 3.2\Preferences", "DisplayVersion")
If FileExists($dvd & "\DVD Shrink 3.2.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("DVD Shrink " & $versiondvd & " ist installiert" _
& @CRLF & " und befindet sich in: " & $dvd & "\DVD Shrink 3.2.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "DVD Shrink " & $versiondvd & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($dvd & "\unins000.exe")
;Local $dvd = (@ProgramFilesDir & "\DVD Shrink")
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\dvdshrink\DVD_Shrink.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[7]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $fraps = (@ProgramFilesDir & "\Fraps"), _
$versionfraps = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers", "DisplayVersion")
If FileExists($fraps & "\fraps.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("Fraps " & $versionfraps & " ist installiert" _
& @CRLF & " und befindet sich in: " & $fraps & "\fraps.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "Fraps " & $versionfraps & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($fraps & "\uninstall.exe")
Sleep(5000)
;Local $dvd = (@ProgramFilesDir & "\DVD Shrink")
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\fraps\Fraps_v2.9.8.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[8]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $imgburn = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ImgBurn", "InstallLocation"), _
$versionimgburn = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ImgBurn", "DisplayVersion")
If FileExists($imgburn & "\ImgBurn.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("ImgBurn " & $versionimgburn & " ist installiert" _
& @CRLF & " und befindet sich in: " & $imgburn & "\ImgBurn.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "ImgBurn " & $versionimgburn & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($imgburn & "\uninstall.exe")
Sleep(5000)
;Local $dvd = (@ProgramFilesDir & "\DVD Shrink")
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\imgburn\Imgburninstall.exe")
EndIf
EndIf
Sleep(1000)
If BitAND(GUICtrlRead($aCkbColumn1[9]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $irfanview = (@ProgramFilesDir & "\IrfanView"), _
$versionirfanview = RegRead(" HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\IrfanView", "DisplayVersion")
If FileExists($irfanview & "\i_view32.exe") Then
;i ... dann ermittle die installierte Version von VLC ...
ConsoleWrite("IrfanView " & $versionirfanview & " ist installiert" _
& @CRLF & " und befindet sich in: " & $irfanview & "\i_view32.exe")
;i Meldung an den Nutzer über die vorhandene VLCversion, ...
;i ... Frage ob diese deinstalliert werden soll, wenn ja dann Deinstallation!
If MsgBox(32 + 4, "Installation", "IrfanView " & $versionirfanview & _
" ist bereits installiert !" & @TAB & @CRLF & @CRLF & _
"Soll das Programm deinstalliert werden ?" & @TAB) = 6 Then RunWait($irfanview & "\iv_uninstall.exe")
Sleep(5000)
;Local $dvd = (@ProgramFilesDir & "\DVD Shrink")
Else
;i VLC aus Deinem Softwarepool installieren!
RunWait(@ScriptDir & "\Software\irfanview\IrfanView427.exe")
EndIf
EndIf
Sleep(1000)
;If BitAND(GUICtrlRead($aCkbColumn1[9]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[10]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[11]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[12]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[13]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[14]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[15]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[16]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[17]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[18]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[19]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[20]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[21]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[22]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[23]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[24]), $GUI_CHECKED) = $GUI_CHECKED Then
;If BitAND(GUICtrlRead($aCkbColumn1[25]), $GUI_CHECKED) = $GUI_CHECKED Then
;>>>>Spalt1
;<<<<Spalte2
;>>>>Spalte2
;<<<<Spalte3
If BitAND(GUICtrlRead($aCkbColumn3[0]), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(64, "Ordner erstellen", "Es wird nun ein Desktop Ordner für PortableApps erstellt", 5)
DirCreate(@DesktopDir & "\PortableApps\FirefoxPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\FirefoxPortable", @DesktopDir & "\PortableApps\FirefoxPortable", 1)
MsgBox(1, "PortableApps", "Programm FirefoxPortable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[1]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\VLCPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\VLCPortable", @DesktopDir & "\PortableApps\VLCPortable", 1)
MsgBox(1, "PortableApps", "Programm Vlc Media Player Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[2]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\TeamViewerPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\TeamViewerPortable", @DesktopDir & "\PortableApps\TeamViewerPortable", 1)
MsgBox(1, "PortableApps", "Programm TeamViewer Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[3]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\7-ZipPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\7-ZipPortable", @DesktopDir & "\PortableApps\7-ZipPortable", 1)
MsgBox(1, "PortableApps", "Programm 7-Zip Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[4]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\OpenOfficePortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\OpenOfficePortable", @DesktopDir & "\PortableApps\OpenOfficePortable", 1)
MsgBox(1, "PortableApps", "Programm OpenOffice Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[5]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\ThunderbirdPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\ThunderbirdPortable", @DesktopDir & "\PortableApps\ThunderbirdPortable", 1)
MsgBox(1, "PortableApps", "Programm Thunderbird Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[6]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\FoxitReaderPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\FoxitReaderPortable", @DesktopDir & "\PortableApps\FoxitReaderPortable", 1)
MsgBox(1, "PortableApps", "Programm FoxitReader Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[7]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\FileZillaPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\FileZillaPortable", @DesktopDir & "\PortableApps\FileZillaPortable", 1)
MsgBox(1, "PortableApps", "Programm FileZilla Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
If BitAND(GUICtrlRead($aCkbColumn3[8]), $GUI_CHECKED) = $GUI_CHECKED Then
DirCreate(@DesktopDir & "\PortableApps\SpybotPortable\")
Sleep(500)
DirCopy(@ScriptDir & "\PortableApps\SpybotPortable", @DesktopDir & "\PortableApps\SpybotPortable", 1)
MsgBox(1, "PortableApps", "Programm Spybot Portable wurde in den PortableApps Ordner integriert", 3)
EndIf
;>>>>Spalte3
EndFunc ;==>_softwareInstall
#ce##
Func _ende()
Exit
EndFunc ;==>_ende