- Offizieller Beitrag
so das 6. und das vorerst letzte installiert WoW mit einigen features:
C
TrayTip("WoW Installation", "WoW wird installiert. Bitte warten...", 2000)
;Include
#include <GuiConstants.au3>
#include <file.au3>
;WoW installationscript
;Variablen definieren
Global $Checkbox_1 = 1, $eVerz = @ProgramFilesDir & "\World of Warcraft"
;Eine abfrage ob man die Standart Einstellungen beibehalten möchte oder nicht, Fenster schließt in 10 sekunden automatisch und beantwortet dann mit ja
$start = MsgBox(4, "WoW Installationscript", "Möchten Sie die Standart Einstellungen von WoW beibehalten?"&@CR&"Drücken Sie auf Nein um die Einstellungen zu verändern."&@CR&"Dieses Fenster wird in 10 Sekunden automatisch bejaht!",10)
If $start = 7 Then;Wenn auf Nein gecklickt wird
Dim $szDrive, $szDir, $szFName, $szExt
$PS = _PathSplit (@ProgramFilesDir & "\World of Warcraft", $szDrive, $szDir, $szFName, $szExt)
$DSF = DriveSpaceFree($PS[1] & "")
$DSF = $DSF / 1024
$DSF = Round($DSF, 1) & " GB"
GUICreate("WoW", 370, 120, (@DesktopWidth - 370) / 2, (@DesktopHeight - 120) / 2)
$Checkbox_1 = GUICtrlCreateCheckbox("Desktopverküpfung erstellen", 10, 90, 180, 20)
GUICtrlSetState(-1, 1)
$eVerz = GUICtrlCreateInput(@ProgramFilesDir & "\World of Warcraft", 10, 40, 210, 20)
$verz = GUICtrlCreateButton("..", 220, 40, 20, 20)
GUICtrlCreateLabel("Bitte stellen Sie alles ein was Sie verändern möchten:", 10, 10, 260, 20)
$verf = GUICtrlCreateLabel("Verfügbar: " & $DSF, 240, 40, 130, 20)
GUICtrlCreateLabel("Benötigt: 3.4 GB", 240, 60, 130, 20)
$OK = GUICtrlCreateButton("OK", 300, 80, 70, 40)
GUICtrlSetFont(-1, 30)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
$abb = MsgBox(36,"WoW","Möchten Sie wirklich die Installation von WoW abbrechen?")
If $abb = 6 Then Exit
Case $msg = $verz
$eeVerz = FileSelectFolder("Installation von WoW", "")
$PS = _PathSplit ($eeVerz, $szDrive, $szDir, $szFName, $szExt)
$DSF = DriveSpaceFree($PS[1] & "")
$DSF = $DSF / 1024
$DSF = Round($DSF, 1) & " GB"
GUICtrlSetData($verf, "Verfügbar: " & $DSF)
GUICtrlSetData($eVerz, $eeVerz)
Case $msg = $OK
$Checkbox_1 = GUICtrlRead($Checkbox_1)
$eVerz = GUICtrlRead($eVerz)
ExitLoop
;;;
EndSelect
WEnd
EndIf
GUIDelete()
;Checkt welches das 1. CD-Rom laufwerk ist
$DgD = DriveGetDrive("CDROM")
;Öffnet das 1. CD-Rom laufwerk
CDTray($DgD[1], "Open")
;Wartet auf die erste WoW cd
MsgBox(0, "WoW Installationscript", "Bitte legen Sie die WoW 1 CD ins Laufwerk und drücken Sie OK!")
;Schließt das 1. CD-Rom laufwerk
CDTray($DgD[1], "Close")
; Fenster "World of Warcraft - Installationsprogramm" abwarten, weiter
WinWait("World of Warcraft - Installationsprogramm")
WinActivate("World of Warcraft - Installationsprogramm")
Send("W")
; Fenster "Endbenutzer-Lizenzvereinbarung" abwarten, weiter
WinWait("Endbenutzer-Lizenzvereinbarung")
WinActivate("Endbenutzer-Lizenzvereinbarung")
ControlClick("Endbenutzer-Lizenzvereinbarung", "", 1004)
; Fenster "Zielverzeichnis für die Installation" abwarten, setzt das probramm verzeichnes ($eVerz),weiter
WinWait("Zielverzeichnis für die Installation")
WinActivate("Zielverzeichnis für die Installation")
ControlSetText("Zielverzeichnis für die Installation", "", 1028, $eVerz)
If $Checkbox_1 = 4 Then ControlClick("Zielverzeichnis für die Installation", "", 1042)
ControlClick("Zielverzeichnis für die Installation", "", 1004)
WinWait("","&OK")
WinActivate("","&OK")
;Öffnet das 1. CD-Rom laufwerk
CDTray($DgD[1], "Open")
;Wartet auf die zweite WoW cd
MsgBox(0, "WoW Installationscript", "Bitte legen Sie die WoW 2 CD ins Laufwerk und drücken Sie OK!")
;Schließt das 1. CD-Rom laufwerk
CDTray($DgD[1], "Close")
ControlClick("","&OK",1004)
WinWaitClose("","&OK")
WinWait("","&OK")
WinActivate("","&OK")
;Öffnet das 1. CD-Rom laufwerk
CDTray($DgD[1], "Open")
;Wartet auf die dritte WoW cd
MsgBox(0, "WoW Installationscript", "Bitte legen Sie die WoW 3 CD ins Laufwerk und drücken Sie OK!")
;Schließt das 1. CD-Rom laufwerk
CDTray($DgD[1], "Close")
ControlClick("","&OK",1004)
WinWaitClose("","&OK")
WinWait("","&OK")
WinActivate("","&OK")
;Öffnet das 1. CD-Rom laufwerk
CDTray($DgD[1], "Open")
;Wartet auf die vierte WoW cd
MsgBox(0, "WoW Installationscript", "Bitte legen Sie die WoW 4 CD ins Laufwerk und drücken Sie OK!")
;Schließt das 1. CD-Rom laufwerk
CDTray($DgD[1], "Close")
ControlClick("","&OK",1004)
WinWaitClose("","&OK")
TrayTip("WoW installation", "Die Installation unattended wurde abgeschlossen", 10)
Sleep(2000)
Exit
Alles anzeigen