AutoIt Français

Code : Tout sélectionner

#cs  AutoRun_CCI - Code du 05/12/2013. MegaTen

     Ce code s'assure son l'unicité en exécution
     detecte l'insertion d'une clé USB,
     capture la device letter ou se trouve inserer cette clé
     modifie les parametres du programme à executer
     et lance l'execution du programme.
#ce

#include <Misc.au3>

; On s'assure qu'u'il n'y a pas une autre instance du script en cours
If _Singleton("Autorun_CCI", 1) = 0 Then
    MsgBox(0, "Warning", "L'autorun CCI est déjà actif.", 2)
    Exit
EndIf
GUISetFont(7, 700, 0, "Verdana")

;Mise en place du menu de la TrayIcon
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.

$ApplName   = TrayCreateItem ( "AutoRun CCI - 1.0" )
$Separation = TrayCreateItem("-----------------------")
Local $prefsitem  = TrayCreateItem("Preferences")
Local $aboutitem  = TrayCreateItem("About")
Local $exititem   = TrayCreateItem("Exit")
TraySetState()      ;   Shows the tray icon (default)

 ;MsgBox(0, "Autorun_CCI", $prefsitem & " - " & $aboutitem & " - " & $exititem & " Error: "& Hex(@error, 8) , 2 )

    $FF_PARM       = ""
    $FilePath      = ""
    $strComputer   = "."
    Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
    If @error Then
        MsgBox(0, "Autorun_CCI", "Error Getting an active Object. Error code: " & Hex(@error, 8))
        Exit
    EndIf

    Local $colEvents = $objWMIService.ExecNotificationQuery _
        ("Select * From __InstanceOperationEvent Within 5 Where " _
            & "TargetInstance isa 'Win32_LogicalDisk'")

    While 1
#cs   Bloc 1
        ;Traitement des messages d'insertion/éjection des clé USB
         $objEvent = $colEvents.NextEvent
            If $objEvent.TargetInstance.DriveType = 2 Then
                Select
                    Case $objEvent.Path_.Class()="__InstanceCreationEvent"
                        ; On vérifie l'existance des fichiers application.
                        $FilePath = $objEvent.TargetInstance.DeviceId & "\cle_cci\index.htm"
                        If FileExists($FilePath) Then
                            #MsgBox(4096, "Info", $FilePath & " Exists", 2)
                            ; -no-remote : Allows multiple copies of application to be open at a time.
                            ; -offline  : Start with the offline mode.
                            ; -url      : Open URL in a new tab or window, depend on the browser option. -url can be omitted. You may list multiple URLs, separated by spaces.
                            $FF_PARM = "FirefoxPortable\FirefoxPortable.exe -url """ & $FilePath & """ -offline -no-remote"
                            #MsgBox(4096, "Info", $FF_PARM, 6)
                            Run (  $FF_PARM )
                        Else
                            MsgBox(4096, "AutoRun_CCI", $FilePath & " not found. Check your path or your USB key?")
                        EndIf
                    Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
                        MsgBox(4096, "Info", "Drive " & $objEvent.TargetInstance.DeviceId & " has been removed.", 2  )
                EndSelect
            EndIf
#ce
    ;Bloc2
        ; Détection des messages de la Systray
        Local $msg    = TrayGetMsg()
            Select
            Case $msg = 0
                ContinueLoop
            Case $msg =  $prefsitem
                MsgBox(64, "Preferences:", "OS:" & @OSVersion)
            Case $msg = $aboutitem
                MsgBox(64, "About&#058;", "AutoRun_CCI Version 1.0", 2)
            Case $msg = $exititem
                ExitLoop
        EndSelect
    WEnd

    Exit
 

Code : Tout sélectionner

Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.


$WM_DEVICECHANGE = 0x0219
$DBT_DEVICEARRIVAL = 0x8000
$DBT_DEVTYP_VOLUME = 2
Global $DriveLetter
Global $usbPlugged = 0

$hRecipient = GUICreate("", 0, 0)
$RegisterStatus = GUIRegisterMsg($WM_DEVICECHANGE, "MY_WM_DEVICECHANGE")




$ApplName   = TrayCreateItem ( "AutoRun CCI - 1.0" )
$Separation = TrayCreateItem("-----------------------")
Local $prefsitem  = TrayCreateItem("Preferences")
Local $aboutitem  = TrayCreateItem("About")
Local $exititem   = TrayCreateItem("Exit")





While 1
    Sleep(100)
    
    
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg =  $prefsitem
            MsgBox(64, "Preferences:", "OS:" & @OSVersion)
        Case $msg = $aboutitem
            MsgBox(64, "About:", "AutoRun_CCI Version 1.0", 2)
        Case $msg = $exititem
            ExitLoop
    EndSelect
    
WEnd






Func MY_WM_DEVICECHANGE($hWnd, $msg, $wParam, $lParam)

    If $msg = $WM_DEVICECHANGE Then

        ; Create a struct from $lParam which contains a pointer to a Windows-created struct.
        $tagDEV_BROADCAST_VOLUME = "dword dbcv_size; dword dbcv_devicetype; dword dbcv_reserved; dword dbcv_unitmask; word dbcv_flags"
        $DEV_BROADCAST_VOLUME = DllStructCreate($tagDEV_BROADCAST_VOLUME, $lParam)
        $DeviceType = DllStructGetData($DEV_BROADCAST_VOLUME, "dbcv_devicetype")
        $size = DllStructGetData($DEV_BROADCAST_VOLUME, "dbcv_size")

        Switch $wParam
            Case $DBT_DEVICEARRIVAL
                If $DeviceType = $DBT_DEVTYP_VOLUME Then
                    $UnitMask = DllStructGetData($DEV_BROADCAST_VOLUME, "dbcv_unitmask")
                    
                    $DriveLetter = GetDriveLetterFromUnitMask($UnitMask)

                    MsgBox(0, "Insertion détectée", "Lecteur " & $DriveLetter & ":")
                
                    $FilePath = $DriveLetter & "\cle_cci\index.htm"
                    
                    If FileExists($FilePath) Then
                        ; -no-remote : Allows multiple copies of application to be open at a time.
                        ; -offline  : Start with the offline mode.
                        ; -url      : Open URL in a new tab or window, depend on the browser option. -url can be omitted. You may list multiple URLs, separated by spaces.
                        ; $FF_PARM = "FirefoxPortable\FirefoxPortable.exe -url """ & $FilePath & """ -offline -no-remote"
                        ; MsgBox(4096, "Info", $FF_PARM, 6)
                        Run (  $FF_PARM )
                    Else
                        MsgBox(4096, "AutoRun_CCI", $FilePath & " not found. Check your path or your USB key?")
                    EndIf
                    
                EndIf
        EndSwitch
    EndIf
EndFunc



Func GetDriveLetterFromUnitMask($UnitMask)
    Local Const $Drives[26] = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z']
    Local $Count = 1
    Local $Pom = $UnitMask / 2

    While $Pom <> 0
        $Pom = Int($Pom / 2)
        $Count += 1
    WEnd

    If $Count >= 1 And $Count <= 26 Then
        Return $Drives[$Count - 1]
    Else
        Return "error"
    EndIf
EndFunc