Hi @ all ich habe mal wieder ein problem und bitte um eure hilfe.
Was ich vor habe ist ein Esay installer anzufertigen. In meiner Gui sind 4 comboboxe und 2 radio button. mein problem ist momentan der wenn keine radiobox ausgewehlt ist lasse ich eine msgbox ausgeben doch das script rent dann ganz normal weiter wie kann ich das verhindern so das das script wieder auf case $button wartet?
[autoit]
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
$Label6 = GUICtrlCreateLabel("Begine das Auslesen der User eingaben.", 280, 400, 385, 17)
Auslesen ()
EndSwitch
WEnd
Func Auslesen ()
$PSPTYP = GUICtrlRead ($Combo1)
$DATECODE = GUICtrlRead ($Combo2)
$AktuelleFW = GUICtrlRead ($Combo3)
$PSPLaufwerk = GUICtrlRead ($Combo4)
$OFW=GUICtrlRead ($Radio1)
$CFW=GUICtrlRead ($Radio2)
If $PSPTYP = "Bitte Wählen" Then
MsgBox (0x30,"Fehler", "Es fehlen noch angaben zum Typ der PSP. " &@CRLF&@CRLF&"Diese finden sie im Akku fach.")
error ()
ElseIf $DATECODE = "Bitte Wählen" Then
MsgBox (0x30,"Fehler", "Es fehlen noch angaben zum DATECODE der PSP. " &@CRLF&@CRLF&"Diese finden sie im Akku fach.")
error ()
ElseIf $AktuelleFW = "Bitte Wählen" Then
MsgBox (0x30,"Fehler", "Es fehlen noch angaben zur aktuellen FW der PSP." &@CRLF&@CRLF&" Diese finden sie im bereich System-Einstellung/Systeminformation in ihrer PSP.")
error ()
EndIf
Sleep (3000)
$Label6 = GUICtrlCreateLabel("Begine das Auswerten der User eingaben.", 280, 400, 385, 17)
Auswerten ()
EndFunc
Func Auswerten ()
If $PSPTYP = "PSP 1004 ( PSP Fat )" Then Fat ()
If $PSPTYP = "PSP 2004 ( PSP Slim )" Then Slim ()
If $PSPTYP = "PSP 3004 ( PSP 3000 )" Then PSP3000 ()
EndFunc
Func Fat ()
If $CFW = 1 Then FatA ()
If $OFW = 1 Then FatB ()
If $CFW = $OFW Then
MsgBox (0x30,"Fehler", "Es fehlen noch angabe zu ihrer aktuellen FW." &@CRLF&@CRLF&"Diese finden sie im bereich System-Einstellung/Systeminformation bei einrt einfachern FW nummer ist es eine OFW und bei zusätsen wie m33 oder ehnlichem handelt es sich um eine CFW. ")
error ()
EndIf
ToolTip ($Install,0,0)
EndFunc
Func FatA ()
$Pandafrage = MsgBox (0x4,"Pandora", "Möchten sie eine Pandora erstellen?")
If $Pandafrage = 6 Then $Install = 3
If $Pandafrage = 7 Then $Install = 2
EndFunc
Func FatB ()
If $AktuelleFW <= "Firmware 5.03" Then $Install = 4
If $AktuelleFW > "Firmware 5.03" Then
MsgBox (0x30,"Schade", "Mit den von ihnen eingegebenden PSP Daten wird ein Pandora Akku benötigt um die PSP mit einer CFW zu versehen. Für weiter infos steht ihn das PSP-ISO Team im Forum zur verfügung.")
error ()
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit]Func error ()
[/autoit][autoit][/autoit][autoit]$Label6 = GUICtrlCreateLabel("Warte auf User eingabe.", 280, 400, 385, 17)
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit][autoit][/autoit][autoit][/autoit]