J'aurais besoin d'un petit coup de pouce, je me suis fais une petite boite
à outils, qui contient les modifications que je fais en général dans la base de registre et autres.
Jusque là j'ai bien avancé mais je bute sur comment cacher les lecteurs.
Pour les cachers a la rigueurs j'additionne les valeurs et c'est bon. et pour les
faire réapparaitre j'écrase la clé avec une nouvelle valeur.
Mais voilà cela ne me conviens pas j'aimerais pouvoir lire la valeur et afficher les lettres qui sont caché dans l'onglet que j'ai créé pour.
voici une petite image de l'onglet
et voici un bout de code que j'ai grossièrement tronqué pour ne garder que le principal car il commence a être un poil gros
► Afficher le texte
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
si une bonne âmes pouvait m'aiguiller, car là je sèche.
je suis sur que l'on peut faire une petite formule mais je ne vois pas du tout comment faire.
