home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Protect_201762486262004.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2004-06-26  |  746 b   |  40 lines
  1. Attribute VB_Name = "Module1"
  2. Public Sub CreateKey(Folder As String, Value As String)
  3.  
  4. Dim b As Object
  5. On Error Resume Next
  6. Set b = CreateObject("wscript.shell")
  7. b.RegWrite Folder, Value
  8.  
  9. End Sub
  10.  
  11. Public Sub CreateIntegerKey(Folder As String, Value As Integer)
  12.  
  13. Dim b As Object
  14. On Error Resume Next
  15. Set b = CreateObject("wscript.shell")
  16. b.RegWrite Folder, Value, "REG_DWORD"
  17.  
  18.  
  19. End Sub
  20.  
  21. Public Property Get ReadKey(Value As String) As String
  22.  
  23. Dim b As Object
  24. On Error Resume Next
  25. Set b = CreateObject("wscript.shell")
  26. r = b.RegRead(Value)
  27. ReadKey = r
  28. End Property
  29.  
  30.  
  31. Public Sub DeleteKey(Value As String)
  32.  
  33. Dim b As Object
  34. On Error Resume Next
  35. Set b = CreateObject("Wscript.Shell")
  36. b.RegDelete Value
  37. End Sub
  38.  
  39.  
  40.