Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] USBlocker 1.0
Auteur Message
Répondre en citant
Message [Prog] USBlocker 1.0 
Hello,

Je vous présente mon dernier programme qui sert à bloquer et débloquer l'utilisation des clés USB sur votre ordinateur sous Windows 7, Vista et XP en passant par la base de registre. Vous devez être administrateur de la machine pour utiliser ce logiciel.

Le lien de l'exécutable est ici : http://dl.dropbox.com/u/10762003/USBlocker.exe

Le code source :
Code:

#include <GUIConstants>
#RequireAdmin ;Besoin d'être administrateur, sinon il y a une erreur (1) dans l'écriture de la clé de registre

; Auteur : Sablier94
; Version : 1.0
; Date de dernière Mise à jour : 13.03.2011
; License : Copyright
; Ce script fonctionne sous Windows XP, Vista et Seven mais nécessite les droits d'administrateur de la machine.

USBlocker()
Func USBlocker()

$active = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR","Start") ;On lit la clé de registre
Switch $active ;On "switch" la valeur de la clé pour savoir si les clés usb sont bloquées (4) ou non (3)
   Case 4
      $etat = "Les clés USB sont bloquées"
      $etatcolor = "0xFF8040"
   Case 3
      $etat = "Les clés USB ne sont pas bloquées"
      $etatcolor = "0x009900"
   Case Else
      $etat = "Erreur durant la lecture de l'état"
      $etatcolor = "0xFF0000"
EndSwitch

#Region ### START Koda GUI section ###
$USBlocker = GUICreate("USB Locker by Sablier94", 411, 256, 237, 145)
$titre = GUICtrlCreateLabel("USB Locker 1.0", 128, 8, 133, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$aide = GUICtrlCreateLabel("USB Locker protège votre ordinateur sous windows xp, vista " & @CRLF & "ou seven en bloquant la reconnaisance des clés USB." & @CRLF & " Cela peut être utile pour vous protéger des infections et vols " & @CRLF & "de données par clé USB. Vous devez être administrateur de " & @CRLF & "la machine pour que le logiciel s'exécute correctement.", 16, 60, 684, 80)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$etattxt = GUICtrlCreateLabel($etat, 56, 160, 280, 40)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor($etattxt,$etatcolor)
$titreetattxt = GUICtrlCreateLabel("Etat :", 16, 160, 33, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$bloquer = GUICtrlCreateButton("Bloquer les clés USB", 56, 200, 137, 33, 0)
$debloquer = GUICtrlCreateButton("Déboquer les clés USB", 208, 200, 137, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $bloquer
         lock()
      Case $debloquer
         unlock()
   EndSwitch
WEnd
EndFunc

Func lock()
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR","Start","REG_DWORD","4") ;On écrit la clé avec la valeur 4 pour bloquer les clés
If @error Then ;Si la clé n'a pas pu être écrite, on affiche un message d'erreur
   MsgBox(0,"USBlocker","Erreur : la clé de registre n'a pas pu être modifiée. Vérifiez que vous êtes bien administrateur de la machine. Numéro de l'erreur : " & @error)
Else
   MsgBox(0,"USBlocker","Les clés USB ne sont désormais plus reconnues par votre système." & @CRLF & "Si le changement n'est pas opérationnel dès maintenant, redémarrez votre ordinateur.")
EndIf
GUIDelete() ;On efface toutes les fenêtres
USBlocker()
EndFunc

Func unlock()
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR","Start","REG_DWORD","3") ;On écrit la clé avec la valeur 3 pour débloquer les clés
If @error Then ;Si la clé n'a pas pu être écrite, on affiche un message d'erreur
   MsgBox(0,"USBlocker","Erreur : la clé de registre n'a pas pu être modifiée. Vérifiez que vous êtes bien administrateur de la machine. Numéro de l'erreur : " & @error) ;On affiche un message d'erreur
Else
   MsgBox(0,"USBlocker","Les clés USB sont à nouveau reconnues par votre système." & @CRLF & "Si le changement n'est pas opérationnel dès maintenant, redémarrez votre ordinateur.")
EndIf
GUIDelete() ;On efface toutes les fenêtres
USBlocker()
EndFunc





______________________________________________________
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] USBlocker 1.0 
Bonjour
merci pour le programme, une question qu'elle est le but de ton programme ? parce que bloquer l'usb ok mais je ne vois pas pourquoi faire.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] USBlocker 1.0 
Si c'est un ordinateur publique, tu peux bloquer l'utilisations des clés USB pour que les gens ne puissent pas "voler" des documents, puissent utiliser des programmes malveillants et mettre des virus sur l'ordinateur. Okay




______________________________________________________
Message [Prog] USBlocker 1.0 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch