AutoIt Français

Code : Tout sélectionner

#RequireAdmin
;#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3> ; permet d'utilisé $BS_AUTO3STATE Attention, avec cette option les etats sont 1,2,4
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Include <Misc.au3>
#include <Array.au3>


Opt('MustDeclareVars', 1)
Local   $pass,$user, $pass_2="", $user_2="", $ReadPass2, $ReadUser2, $mdp = ("MDP:"), $use = ("User:"), $x=450, $y=188, $size, $tab,  $tabrar, $tabzip, $i, $Icon1, $pixcolor=0x144600, $msg, $passtest = ("saisir le mot de passe"), $ZeroCoor1, $ZeroCoor
Local   $tabxtm, $checkxtmCN1, $checkxtmCN2, $checkxtmCN3, $checkxtmCN4, $checkxtmCN5, $icon10, $icon11, $icon12, $icon13, $icon14
Local   $tabrar, $checkrarCN1, $checkrarCN2, $checkrarCN3, $icon20, $icon21, $icon22
Local   $tabzip, $checkzipCN1, $checkzipCN2, $checkzipCN3, $icon30, $icon31, $icon32, $icon33, $checkButton_9, $n
Local   $tabwin, $l, $List, $Button_1, $Button_2, $Button_3, $Button_4, $Button_5, $Button_6, $Button_7, $Button_8, $Button_9, $Button_10, $Button_11, $Button_12, $Button_13, $Button_14, $Button_15
Local   $tablect, $drive, $lect, $checkLECTA, $checkLECTB,$checkLECTC,$checkLECTD,$checkLECTE,$checkLECTF,$checkLECTG,$checkLECTH,$checkLECTI,$checkLECTJ,$checkLECTK,$checkLECTL,$checkLECTM,$checkLECTN,$checkLECTO,$checkLECTP,$checkLECTQ,$checkLECTR,$checkLECTS,$checkLECTT,$checkLECTU,$checkLECTV,$checkLECTW,$checkLECTX,$checkLECTY,$checkLECTZ
Local   $icon40, $icon41, $icon42, $icon43, $icon44, $icon45, $icon46, $icon47, $icon48, $icon49, $icon410, $icon411, $icon412, $icon413, $icon414, $icon415, $icon416, $icon417, $icon418, $icon419, $icon420, $icon421, $icon422, $icon423, $icon424, $icon425
Local   $tababout
Local $check, $j, $tst1, $tst2, $e1, $e2, $e3, $version, $version1



createbox1()
touche()

Func createbox1()
$version = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
$version1 = ($version&" "&RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentVersion")&" "&RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentBuildNumber")&" "&RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion"))
GUICreate("Boite à Outils -- "&$version1, 460, 240)  ; will create a dialog box that when displayed is centered
        

    $tab = GUICtrlCreateTab(7,25,447,170) ;creation des tab

        
    $tablect = GUICtrlCreateTabItem("Cacher des Lecteurs") ;44444444444444444444444444444444444444444444444444444444444444444

    $checkLECTA = GUICtrlCreateCheckbox("Lecteur A", 25, 47, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon40 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 51, 10, 10) 
    
    $checkLECTB = GUICtrlCreateCheckbox("Lecteur B", 25, 63, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon41 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 67, 10, 10) 
    
    $checkLECTC = GUICtrlCreateCheckbox("Lecteur C", 25, 79, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon42 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 83, 10, 10)
    
    $checkLECTD = GUICtrlCreateCheckbox("Lecteur D", 25, 95, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon43 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 99, 10, 10)
    
    $checkLECTE = GUICtrlCreateCheckbox("Lecteur E", 25, 111, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon44 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 115, 10, 10)
    
    $checkLECTF = GUICtrlCreateCheckbox("Lecteur F", 25, 127, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon45 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 131, 10, 10)
    
    $checkLECTG = GUICtrlCreateCheckbox("Lecteur G", 25, 143, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon46 = GUICtrlCreateIcon(".\OK.ico", -1, 12, 147, 10, 10)
    
    $checkLECTH = GUICtrlCreateCheckbox("Lecteur H", 125, 47, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon47 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 51, 10, 10)
    
    $checkLECTI = GUICtrlCreateCheckbox("Lecteur I", 125, 63, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon48 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 67, 10, 10)
    
    $checkLECTJ = GUICtrlCreateCheckbox("Lecteur J", 125, 79, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon49 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 83, 10, 10)
    
    $checkLECTK = GUICtrlCreateCheckbox("Lecteur K", 125, 95, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon410 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 99, 10, 10)
    
    $checkLECTL = GUICtrlCreateCheckbox("Lecteur L", 125, 111, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon411 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 115, 10, 10)
    
    $checkLECTM = GUICtrlCreateCheckbox("Lecteur M", 125, 127, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon412 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 131, 10, 10)
    
    $checkLECTN = GUICtrlCreateCheckbox("Lecteur N", 125, 143, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon413 = GUICtrlCreateIcon(".\OK.ico", -1, 112, 147, 10, 10)
    
    $checkLECTO = GUICtrlCreateCheckbox("Lecteur O", 225, 47, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon414 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 51, 10, 10)
    
    $checkLECTP = GUICtrlCreateCheckbox("Lecteur P", 225, 63, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon415 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 67, 10, 10)
    
    $checkLECTQ = GUICtrlCreateCheckbox("Lecteur Q", 225, 79, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon416 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 83, 10, 10)
    
    $checkLECTR = GUICtrlCreateCheckbox("Lecteur R", 225, 95, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon417 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 99, 10, 10)
    
    $checkLECTS = GUICtrlCreateCheckbox("Lecteur S", 225, 111, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon418 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 115, 10, 10)
    
    $checkLECTT = GUICtrlCreateCheckbox("Lecteur T", 225, 127, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon419 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 131, 10, 10)
    
    $checkLECTU = GUICtrlCreateCheckbox("Lecteur U", 225, 143, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon420 = GUICtrlCreateIcon(".\OK.ico", -1, 212, 147, 10, 10)
    
    $checkLECTV = GUICtrlCreateCheckbox("Lecteur V", 325, 47, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon421 = GUICtrlCreateIcon(".\OK.ico", -1, 312, 51, 10, 10)
    
    $checkLECTW = GUICtrlCreateCheckbox("Lecteur W", 325, 63, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon422 = GUICtrlCreateIcon(".\OK.ico", -1, 312, 67, 10, 10)
    
    $checkLECTX = GUICtrlCreateCheckbox("Lecteur X", 325, 79, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon423 = GUICtrlCreateIcon(".\OK.ico", -1, 312, 83, 10, 10)
    
    $checkLECTY = GUICtrlCreateCheckbox("Lecteur Y", 325, 95, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon424 = GUICtrlCreateIcon(".\OK.ico", -1, 312, 99, 10, 10)
    
    $checkLECTZ = GUICtrlCreateCheckbox("Lecteur Z", 325, 111, 70, 20, $BS_AUTO3STATE)
    GUICtrlSetState(-1, $GUI_INDETERMINATE)
    $Icon425 = GUICtrlCreateIcon(".\OK.ico", -1, 312, 115, 10, 10)
    GuiCtrlCreateLabel("Cache une Lettre de lecteur assigné, ATTENTION pour réafficher un lecteur caché", 12,163)
    GuiCtrlCreateLabel("il faut redémarrer", 17,177)
    
    $tababout = GUICtrlCreateTabItem("About")
    GuiCtrlCreateLabel("a venir", 32,63)
    GuiCtrlCreateLabel("a venir", 32,77)

    GUICtrlCreateTabItem("") ;fin creation des tab
  
    GuiCtrlCreateLabel("IP1: "&@IPAddress1,286,194)
    GuiCtrlCreateLabel("IP2: "&@IPAddress2,286,209)
    GuiCtrlCreateLabel("Nom Machine : "&@LogonDomain,286,223)
    $Button_1 = GUICtrlCreateButton("Appliquer (F11)", 13, 205, 80)
    $Button_3 = GUICtrlCreateButton("Sortir (Esc)", 193, 205,80)
    HotKeySet("{F11}", "modif" )
    hotkeyset("{Esc}","quitter")

    GUISetState(@SW_SHOW)
EndFunc


Func etat4()
            ;444444444444444444444444444444444444444444444444444444444444444444444

    
    $lect = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", "NoDrives")


    ;WEnd
EndFunc

Func touche()

$j=1
        While $j
            
                $msg = GUIGetMsg()
                Switch $msg
                    Case $GUI_EVENT_CLOSE
                            Exit
                    Case $Button_1
                            modif()
                            etat4()
                    Case $Button_3
                            Exit
                    
                EndSwitch
                
        WEnd
        

EndFunc

Func modif()

                    ;4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
                    
                    ; Créez une clé de type REG_DWORD nommée NoDrives dans
; HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
; Maintenant, vous devez choisir le disque à cacher :
; Cacher le lecteur A : 1
; Cacher le lecteur B : 2
; Cacher le lecteur C : 4
; Cacher le lecteur D : 8
; Cacher le lecteur E : 16
; Cacher le lecteur F : 32
; Cacher le lecteur G : 64
; Cacher le lecteur H : 128

; Vous pouvez cacher plusieurs lecteurs, dans ce cas, additionnez tout simplement les valeurs :
; Pour cacher lecteur A et le lecteur C, saisissez 5.
                    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\","NoDrives", "REG_DWORD", $drive)
                    
                    
                    
                    
                    
                    
                    
        
    EndFunc

Func quitter()
    Exit
EndFunc