AutoIt Français

Code : Tout sélectionner

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Rohos.ico
#AutoIt3Wrapper_outfile=I:\Lancement_Rohos.exe
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ 20101001
;~ Script permettant de lancer Rohos MiniDrive depuis une clé USB et d'ouvrir
;~ un lecteur défini et toujours identique quel que soit le pc utilisé

$Lecteur = "L"
$Prog = "Rohos mini.exe"
$OK = ""

; Teste si le lecteur est déjà monté
; Sortie de la procédure si c'est le cas
If FileExists($Lecteur & ":\") Then
    MsgBox(64, "Erreur", " Le lecteur " & $Lecteur & " est déjà monté !", 3)
    Exit
EndIf

; Teste tous les lecteurs actifs
; puis sur chaque lecteur existant vérifie si le programme recherché existe
; Si le programme est trouvé, on lui donne la valeur $OK
For $i = 65 To 90
    $Lettre = DriveStatus(Chr($i) & ":\")
    If $Lettre = "Ready" Then
        If FileExists(Chr($i) & ":\" & $Prog) = 1 Then
            $Lecteur0 = Chr($i)
            $OK = Chr($i) & ":\" & $Prog
        Else
            ;msgbox(64,"", "Le programme " & $Prog & " n'a pas été trouvé")
        EndIf
    Else
    EndIf
Next

; Si $OK existe, alors on demande le mot de passe du programme
If $OK <> "" Then
    ;msgbox(64,"", "$OK a bien été trouvé : " & $OK)
    $Mdp = InputBox("Contrôle de sécurité", "Bonjour " & @CRLF & "Entrez votre mot de passe", "", "*", 260, 150)
Else
    MsgBox(48, "Problème", "Le programme " & $Prog & " n'a pas été trouvé")
    Exit
EndIf

BlockInput(1)

; Ouverture de Rohos mini.exe et transmission du mot de passe
; + sélection du bon lecteur
ShellExecute($Lecteur0 & ":\Rohos mini.exe")
WinWaitActive("Le mot de passe")
Sleep(200)
Send($Mdp)
Sleep(500)
Send("{TAB 4}")
Sleep(200)
Send("{ENTER}")
Sleep(200)
WinWaitActive("Le mot de passe", "Entrez votre mot de passe ")
Sleep(200)
Send("{TAB 8}")
Sleep(500)
Send($Lecteur)
Sleep(200)
Send("{ENTER}")
Sleep(200)

If WinExists("Rohos", "Le mot de passe erroné") Then
    WinWaitActive("Rohos", "Le mot de passe erroné")
    Sleep(1500)
    Send("{ENTER}")
    WinWaitActive("Le mot de passe")
    Send("{TAB 3}")
    Send("{ENTER}")
    Sleep(500)
    MsgBox(64, "Erreur", "Le lecteur " & $Lecteur & " n'a pas pu être monté", 4)
    Exit
Else
    Sleep(1500)
    ShellExecute($Lecteur & ":\Documents")
    Sleep(1000)
    MsgBox(64, "OK", "Lecteur " & $Lecteur & " monté avec succès", 3)
    Exit
EndIf

BlockInput(0)

Exit