[R] Problème de fenêtre ne s'affichant pas

[sanegone]

Bonjour tout le monde,

A force de bidouiller sur AutoIt j'ai décidé de me lancer dans quelque chose d'un peu plus dur que écrire des clés dans le registre x)

J'ai écris le code suivant et je ne comprend pas pourquoi la fenêtre Quel lecteur voulez-vous ajouter? ne s'affiche pas Si quelqu'un a une idée, en sachant que je découvre petit a petit et que je n'ai aucune notion de prog ou presque.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include <GuiTreeView.au3>


MsgBox(1, "Plop", "Placez vous sur votre bureau avant de continuer.", 0)
DIM $var
        $var = 0
            if $var = 0 then
                BlockInput (1)
                    Run('cmd.exe' & " /c " & 'net use * /delete', "")
                    WinWaitNotActive("ConsoleWindowClass")
                    send( 'o' & "{enter}")
                BlockInput (0)
                sleep('1000')
                $var = 1
            endif

        $passwd = InputBox("Plop", "Entrez le mot de passe.", "", "*")
            if $passwd = "pass" then
                Local $checkCN0, $checkCN1, $checkCN2, $checkCN3, $checkCN4
                    Opt("GUIOnEventMode", 1)
                    $mainwindow = GUICreate("plop", 200, 100)
                    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
                    GUICtrlCreateLabel("Quel lecteur voulez-vous ajouter?", 30, 10)
                    $checkCN0 = GUICtrlCreateCheckbox("L:\\nas\testdell", 10, 30, 120, 20)
                    $checkCN1 = GUICtrlCreateCheckbox("Q:\\edcca\askiaqes", 10, 60, 120, 20)
                    $checkCN2 = GUICtrlCreateCheckbox("F:\\ed1\sys", 10, 90, 120, 20)
                    $checkCN3 = GUICtrlCreateCheckbox("R:\\edaskia2\record", 10, 120, 120, 20)
                    $checkCN4 = GUICtrlCreateCheckbox("S:\\iomega\nethdd", 10, 150, 120, 20)
                $okbutton = GUICtrlCreateButton("OK", 70, 220, 60)
                GUICtrlSetOnEvent($okbutton, "OKButton")
                GUISetState(@SW_SHOW)
            else 
                MsgBox(0, "plop", "Perdu essaye encore.", 0)
            endif
            
    If BitAnd ( GuiCtrlRead ( $checkCN0 ) , $GUI_CHECKED ) Then
        DriveMapDel("L:") 
        DriveMapAdd("L:", "\\nas\testdell", 0, "admin", "*****")
    endif

    If BitAnd ( GuiCtrlRead ( $checkCN0 ) , $GUI_CHECKED ) Then
        DriveMapDel("Q:") 
        DriveMapAdd("Q:", "\\edcca\askiaqes", 0, "admin", "*****")
    endif

    If BitAnd ( GuiCtrlRead ( $checkCN0 ) , $GUI_CHECKED ) Then
        DriveMapDel("F:") 
        DriveMapAdd("F:", "\\ed1\sys", 0, "admin", "*****")
    endif

    If BitAnd ( GuiCtrlRead ( $checkCN0 ) , $GUI_CHECKED ) Then
        DriveMapDel("R:") 
        DriveMapAdd("R:", "\\edaskia2\record", 0, "admin", "*****")
    endif
    
    If BitAnd ( GuiCtrlRead ( $checkCN0 ) , $GUI_CHECKED ) Then
        DriveMapDel("S:") 
        DriveMapAdd("S:", "\\iomega\nethdd", 0, "admin", "*****")
    endif

            Func OKButton()
                MsgBox(0, "GUI Event", "Vous avez appuyé OK !")
            EndFunc

            Func CLOSEClicked()
            Exit
            EndFunc
 

Voilà merci d'avance en espérant que quelqu'un saura.

[Tlem]

La fenêtre s'affiche bien, mais comme il n'y à pas de boucle d'attente, elle se ferme aussitôt et le script ce termine.

Rajoutez ceci après le GUISetState(@SW_SHOW) :

Code : Tout sélectionner

while 1
    sleep(500)
WEnd