USB Blocker

  1. Imports Microsoft.Win32  
  2. Public Class Form1  
  3. Private Sub FunctionToBlock()  
  4. Dim regkey As RegistryKey  
  5. regkey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR", True)  
  6. regkey.SetValue("Start", 4) '4(To Disable the Ports)  
  7. End Sub  
  8. Private Sub FunctionToUnblock()  
  9. Dim rgky As RegistryKey  
  10. rgky = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR", True)  
  11. rgky.SetValue("Start", 3) '3(To enable the Ports)  
  12. End Sub  
  13. Private Sub btnBlock_Click(sender As Object, e As System.EventArgs) Handles btnBlock.Click  
  14. FunctionToBlock()  
  15. MessageBox.Show("Usb Port Successfully Blocked")  
  16. btnUnblock.Enabled = True  
  17. btnBlock.Enabled = False  
  18. End Sub  
  19. Private Sub btnUnblock_Click(sender As Object, e As System.EventArgs) Handles btnUnblock.Click  
  20. FunctionToUnblock()  
  21. MessageBox.Show("Successfully Unblocked")  
  22. btnBlock.Enabled = True  
  23. btnUnblock.Enabled = False  
  24. End Sub  
  25. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load  
  26. 'btnBlock.Enabled = True  
  27. 'btnUnblock.Enabled = True  
  28. Dim registryky As RegistryKey  
  29. Dim var As Integer  
  30. registryky = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR", True)  
  31. var = registryky.GetValue("Start", 0)  
  32. If var = 4 Then  
  33. registryky.SetValue("Start", 4)  
  34. btnBlock.Enabled = False  
  35. btnUnblock.Enabled = True  
  36. ElseIf var = 3 Then  
  37. registryky.SetValue("Start", 3)  
  38. btnUnblock.Enabled = False  
  39. btnBlock.Enabled = True  
  40. End If  
  41. End Sub  
  42. Private Sub BtnHelp_Click(sender As System.Object, e As System.EventArgs) Handles BtnHelp.Click  
  43. frmHelp.Show()  
  44. End Sub  
  45. Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click  
  46. Me.Close()  
  47. End Sub  
  48. End Class