Hallo leute ,
Ich hab ein Problem
BugFix hat mir was mit einer "Do" schelife gemacht ... (Danke nochmal;))
Ich hatte aber schon ne "While 1" Schelife drin ...
Beides im Script geht nicht ,warum fragt mich net ?! Wie kann ich des machen , das beides geht ......des eine ins andere schreiben geht nicht.
Spoiler anzeigen
While 0
GUICtrlSetData($Zeit1,@HOUR)
GUICtrlSetData($Zeit2,@MIN)
GUICtrlSetData($Zeit3,@SEC)
GUICtrlSetData($Zeit5,@HOUR)
GUICtrlSetData($Zeit6,@MIN)
GUICtrlSetData($Zeit7,@SEC)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $VerzeichnisWaelen
_SROexesuchen()
Case $MenuItem3
Exit
Case $MenuItem4
$starlol = ShellExecute ( @ScriptDir & "\Help.ini" )
Case $Min
WinSetState("SRO_Client","",@SW_SHOWMINNOACTIVE)
Case $Hide
WinSetState("SRO_Client","",@SW_HIDE)
TrayTip( "","Silkroad ist gehided !" , 15 )
Case $Max
WinSetState("SRO_Client","",@SW_MAXIMIZE)
case $Speichern123
Global $frank1 = GUICtrlRead( $Combo1 )
Global $frank2 = GUICtrlRead( $Combo2 )
Global $frank3 = GUICtrlRead( $Combo3 )
Global $frank4 = GUICtrlRead( $Combo4 )
Global $frank5 = GUICtrlRead( $Combo5 )
Global $frank6 = GUICtrlRead( $Combo6 )
Global $frank7 = GUICtrlRead( $Combo7 )
Global $Belegung1 = iniwrite( @scriptdir & "\Datei.ini" , "Taste1" , "" , $frank1 )
Global $Belegung2 = IniWrite( @scriptdir & "\Datei.ini" , "Taste2" , "" , $frank2 )
Global $Belegung3 = iniwrite( @scriptdir & "\Datei.ini" , "Taste3" , "" , $frank3 )
Global $Belegung4 = IniWrite( @scriptdir & "\Datei.ini" , "Taste4" , "" , $frank4 )
Global $Belegung5 = iniwrite( @scriptdir & "\Datei.ini" , "Taste5" , "" , $frank5 )
Global $Belegung6 = IniWrite( @scriptdir & "\Datei.ini" , "Taste6" , "" , $frank6 )
Global $Belegung7 = iniwrite( @scriptdir & "\Datei.ini" , "Taste7" , "" , $frank7 )
TrayTip( "" , "Datein gespeichert" , 4 )
Case $Start
$startpath = IniRead( @scriptdir & "\Datei.ini" , "Silkroad Ordner", "Silkroad" , "" )
run ( $startpath )
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Spoiler anzeigen
Do
GUICtrlSetData($Zeit1,@HOUR)
GUICtrlSetData($Zeit2,@MIN)
GUICtrlSetData($Zeit3,@SEC)
GUICtrlSetData($Zeit5,@HOUR)
GUICtrlSetData($Zeit6,@MIN)
GUICtrlSetData($Zeit7,@SEC)
$msg = GUIGetMsg()
_SetCounter()
For $i = 0 To UBound($arBt) -1
If $msg = $arBt[$i][0] Then
$arCounter[$i][1] = 1
$input = GUICtrlRead($arIn[$i][0])
If $input = '' Then ContinueLoop
If StringInStr($input, ':') Then
$input = StringSplit($input, ':')
$input = $input[1]*60 + $input[2]
EndIf
$arIn[$i][1] = $input * 60
$arIn[$i][2] = _NowCalc()
GUICtrlSetState($arBt[$i][0], $GUI_DISABLE)
GUICtrlSetState($arBt[$i][1], $GUI_ENABLE)
ElseIf $msg = $arBt[$i][1] Then
GUICtrlSetState($arBt[$i][0], $GUI_ENABLE)
GUICtrlSetState($arBt[$i][1], $GUI_DISABLE)
GUICtrlSetData($arCounter[$i][0], '')
GUICtrlSetData($arIn[$i][0], '')
$arIn[$i][1] = 0
EndIf
Next
Until $msg = $GUI_EVENT_CLOSE
So sehen die "DO" & "WHILE 1" Schleifen aus ...
Bitte helft mir