Gui löschen und neue sachen ertsellen.
Also ich möchte das wenn man auf den Button WEITER drückt dann wird der alles außer dsa gui selber gelöscht und neue Sachen werden erstellt. Mit dem löschen klappt es scho aber nicht mit erstellen hier der code: ach ja es gibt dann ja den fehler dass die variablen die dort drin sthen nicht deklared sind ka warum
Spoiler anzeigen
C
#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
DirCreate ( @ScriptDir & "\Files")
FileInstall ("C:\Users\Franz\Desktop\lizens.txt", @ScriptDir & "\Files\lizens.DATA")
$file = FileRead ( @ScriptDir & "\Files\lizens.DATA")
#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$edit = GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
GUICtrlDelete ($Checkbox1)
GUICtrlDelete ($Checkbox2)
GUICtrlDelete ($Button1)
GUICtrlDelete ($Button2)
GUICtrlDelete ($edit)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput(@ScriptDir,160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState (@SW_SHOW)
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
GUICtrlSetState($Input1, $GUI_ENABLE)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
do
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
$PH1 = $PH1 + 50
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
GUICtrlSetState($Button6, $GUI_DISABLE)
GUICtrlSetData($Button6, 'Fertig!')
;_sound()
EndIf
EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc
Alles anzeigen