[Problem] Loop 2 gui ;x

[Keniger]

Mam programik, taki tam :

 

Po nacisnieciu register wyskakuje takie coś :

 

Tyle że zrobiłem to na zasadzie - GuiGetState(@SW_DISABLE)

No i mam tu taką funkcję :

 

func _register()
            GUISetState(@SW_DISABLE, $Gui1 )
            $Gui2 = GUICreate( "Register", 200, 200, -1, -1, BitOR($WS_POPUP,$WS_BORDER))
            
            $Registerlogin_Input = GuiCtrlCreateInput("", 50, 30, 100, 20)
            GuiCtrlCreateLabel("Login :", 10, 30, 40, 20)
    
            $Registerpass_Input = GuiCtrlCreateInput("", 50, 60, 100, 20, 0x0020)
            GuiCtrlCreateLabel("Pass :", 10, 60, 40, 20)
            
            $Register_Button2 = GUICtrlCreateButton("Register", 65, 130, 70, 25)
            GUISetState()
            
            EndFunc

[Phoenix_PL]

Wyjaśnisz dokładniej, bo niewiele tu wyjaśnione...

[Keniger]

Ych, dwa gui w jednym wiesz o co chodzi ? Jedno wyłączasz robisz drugie i w tym drugim już się nie da zrobić funkcji... Nieważne ;d

 

Teraz mam problem z tym :

Co tutaj jest źle ? Plik odpala ale już po zakończeniu pracy Register.exe nic sie nie dzieje, a powinno powrócić okno ;x

 

 
         func _account()
            GUISetState(@SW_HIDE)
            Run(@ScriptDir & "\Register.exe", "", "")
            If ProcessExists("Register.exe") Then 
            Sleep(500)
            ElseIf not ProcessExists("Register.exe") Then
            GuiSetState(@SW_SHOW)
            EndIf
endfunc

[jackraymund]

dodaj w pętle while 1, warunek i w kazdym spelnieniu warunku exitloop

dodaj też w tą pętle sleep(100) aby ci nie muliło

[Gość]

Przeanalizuj kod.

 

Jeśłi znajdzie proces to czeka pół sekundy.

Jak nie znajdzie procesu to pokazuje okno...

[jackraymund]

@up, to co napisał to zrobił

po zakończeniu pracy Register.exe nic sie nie dzieje, a powinno powrócić okno

[Keniger]

A nie ? Jezeli nie znajdzie procesu to czeka 0,5s i to samo ? Czy to powinno być w While ? czy moze Return tam dac ?

[jackraymund]

return czy exitloop nie zrobi roznicy ;p

[Keniger]

O to mi sie pojebało Nieważne zrobiłem inaczej, ProcessWaitClose i git ;d

A teraz taki problem ;x

 

Func _account()
$Nick = GuiCtrlRead($LogIn_Input)
$Haslo = GuiCtrlRead($Password_Input)
$Sciezka = @ScriptDir & "\" & $Nick & ".dat"
FileOpen($Sciezka, 9)
FileWrite($Sciezka, $Haslo)
If FileExists($Sciezka) Then
$Open = _FTPOpen('Register')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $Sciezka, '/users/' & $Nick)
$Ftpc = _FTPClose($Open)

 

$Ftpp = _FtpPutFile($Conn, $Sciezka, '/users/' & $Nick) Chodzi o to dokładniej, czy nic nie zgubiłem ? Bo nie uploaduje mi tego pliku do ftp ;x Coś mi sie wydaje że namieszałem z tymi zmiennymi

[jackraymund]

$Ftpp = _FtpPutFile($Conn, $Sciezka, '/users/' & $Nick & ".dat")

[Keniger]

oki dziala Dzieki ! Sam pozniej na to wpadlem