[Ex] Automatisation du lancement de Rohos Disk

[Dan]

Bonjour,
Ce petit script sans prétention qui me rend bien service et qui j'espère en rendra à d'autres.
Le principe est de monter un lecteur crypté sur une clé USB sur la même lettre de lecteur quelque soit l'ordinateur utilisé.
C'est particulièrement utile lorsqu'on synchronise des données au travail avec sa clé USB
Ce code est fonctionnel pour le programme de cryptage de clé USB "Rohos Disk" http://www.rohos.fr/desktop-security/

► Afficher le texte

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
 

[SrBelial]

code très bien présenté et bien commenté !!
merci d'avoir posté un travail de cette qualité ^__^
n'ayant pas rohos je n'ai pas testé le fonctionnement, mais à l'occasion pourquoi pas !!

n'hésite pas à partager d'autres exemples de ce type !