AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global $Form1 = GUICreate("Mon prog", 800, 584, -1,  -1)
Global $List1 = GUICtrlCreateListView("Test|Test", 0, 0, 800, 331)
$console = GUICtrlCreateEdit("", 0, 336, 801, 225)
$r_console = GUICtrlRead($console)

Global $Input1 = GUICtrlCreateInput("tt", 0, 560, 801, 21)
Global $Input2 = GUICtrlCreateInput("", 0,0, 0, 0);#######################

Global $Renter[1][2] = [["{ENTER}", $Input2]] ;##################
GUISetAccelerators($Renter)



GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg

    Case $Input2 ;####################
        $code = GUICtrlRead($Input1)
                        ConsoleWrite("input" & @CRLF)  ;####################
            If StringLeft($code, 6) = "visit " Then
                $vrf = IniRead(@ScriptDir & "\config.ini", "cfg", "co", "Erreur")
                If $vrf = "0" Then
                    $r_console = GUICtrlRead($console)
                    GUICtrlSetData($console, $r_console & "#> Cette commande n'est pas disponible car vous n'êtes pas connecté au système. Connectez-vous !" & @CRLF)
                    GUICtrlSetData($Input1, "")
                Else
                    $recmd = StringTrimLeft(GUICtrlRead($Input1), 6)
                    $format_cmd = StringSplit($recmd, ".")
;~                  If Not _EzMySql_Query("SELECT * FROM `gplan`.`attente` WHERE ID = '" & $format_cmd[1] & "'") Then
;~                      $r_console = GUICtrlRead($console)
;~                      GUICtrlSetData($console, $r_console & "Impossible de contacté la base. Code erreur " & _EzMySql_ErrMsg())
;~                  Else
;~                      For $i = 1 To _EzMySql_Rows() Step 1
;~                          $a1Row = _EzMySql_FetchData()
;~                          If $format_cmd[2] = $a1Row[3] Then
;~                              ShellExecute($a1Row[6])
;~                              ExitLoop
;~                          EndIf
;~                      Next
;~                  EndIf
                EndIf
            EndIf
    Case $GUI_EVENT_CLOSE
        Exit
 EndSwitch
WEnd
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global $Form1 = GUICreate("Mon prog", 800, 584, -1,  -1)
Global $List1 = GUICtrlCreateListView("Test|Test", 0, 0, 800, 331)
$console = GUICtrlCreateEdit("", 0, 336, 801, 225)
Global $Input1 = GUICtrlCreateInput("", 0, 560, 801, 21)

; $dummy = GUICtrlCreateDummy()
; $Renter[1][2] = [["{ENTER}", $dummy]]
Global $Renter[1][2] = [["{ENTER}", $Input1]]
GUISetAccelerators($Renter)
GUISetstate(@SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
    Case $Input1  ; $dummy
      ;  $code = GUICtrlRead($Input1)
      ;  If StringLeft($code, 1) = "a" Then msgbox(0,"", $code)
         msgbox(0,"", "test")
    Case $GUI_EVENT_CLOSE
       Exit
 EndSwitch
WEnd