AutoIt Français

Code : Tout sélectionner

.../...

While 1 ; Début de la boucle infinie

    $nMsg = GUIGetMsg() ; Récupération des messages GUI
    Switch $nMsg ; Début du sélecteur de cas

        Case $GUI_EVENT_CLOSE ; Si clic fermeture fenêtre GUI1,  on sort

            MsgBox(64, 'Info', 'Vous avez choisi de quitter ToolSearch') ; Message
            Exit ; Fin du script



        Case $Btn01 ; si l'on clique sur "ToolSearch" le dossier parent s'ouvre

            ShellExecute (@HomeDrive & "\ToolSearch\","open")



        Case $Btn02 ; Si l'on clique sur "exit" on sort

            $btn02 = $GUI_EVENT_CLOSE
            MsgBox(64, 'Info', 'Vous avez choisi de quitter ToolSearch')
            exit

        Case $Btn11 ; ################## traitement des extensions ##################

            Local $LogFile = (@HomeDrive & "\ToolSearch\Recherche Extension\Recherche Fichier.txt")
                ; """""""""" Contrôle de l'existance du Logfile """"""""""
                If FileExists ($LogFile) then Filedelete ($LogFile)

                ; """""""""" Contrôle de lecture du GUICtrlCreateInput  """"""""""
                $file = GUICtrlRead($Input11)
                $opt = GUICtrlRead($Input12)
                $max = GUICtrlRead($input13)
                $file2 = GUICtrlRead($Input11)

.../...



    If ($max) <> ("all") or ("")  then ; Si l'utilisateur a saisi une mauvaise option.

        

        MsgBox (16, "Erreur"," Vous avez utilisé l'option " & """" & $max & """" & " cette option est inconnue" & @crlf & "Attention utiliser soit " & @crlf &  """all"" pour lister tous les lecteurs " &  @crlf & "soit ne rien inscrire dans la case option")

        
        Exit

    EndIf

[code] autres IF ensuite sur la même base

IF conditions

msgbox

exit

endif

Code : Tout sélectionner

Switch $nMsg
    case $opt = "all" and $Choisir
        MsgBox (64,"Attention","Il faut choisir" & @crlf & "=> soit un lecteur dans Drives," & @crlf & "=> soit une option.")
    case $opt = ""  and $choisir = ""
        MsgBox (64,"Attention","Il faut choisir" & @crlf & "=> soit un lecteur dans Drives," & @crlf & "=> soit une option.")

    case $nom = ""
        MsgBox (64,"Attention","Le scan peut être très long, il est préférable de saisir un mot")

[u]Case $opt = "" and $Choisir[/u]

Traitement de la recherche

endswitch

switch $nMsg

[u]case $opt = "all" and $choisir = ""[/u]

Traitement de la recherche

[u]case Else[/u]

if $opt <> "" and $opt <> "all" then
    MsgBox (16, "Erreur"," Vous avez utilisé l'option " & """" & $opt & """" & " cette option est inconnue" & @crlf & "Attention utiliser soit " & @crlf &  """all"" pour lister tous les lecteurs " &  @crlf & "soit ne rien inscrire dans la case option")
endif
endswitch