VB简单加密文件夹.docVIP

文章来源于网络，仅供学习交流！ 经本人测试可用，添加三个标签Label和3个按钮Command，以及3个文本框Text ??? Private Declare Function RegCreateKey Lib advapi32.dll Alias RegCreateKeyA (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long??? Private Declare Function RegDeleteKey Lib advapi32.dll Alias RegDeleteKeyA (ByVal Hkey As Long, ByVal lpSubKey As String) As Long??? Private Declare Function RegDeleteValue Lib advapi32.dll Alias RegDeleteValueA (ByVal Hkey As Long, ByVal lpValueName As String) As Long??? Private Declare Function RegQueryValueEx Lib advapi32.dll Alias RegQueryValueExA (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As String, lpcbData As Long) As Long??? Private Declare Function RegSetValueEx Lib advapi32.dll Alias RegSetValueExA (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long??? Private Declare Function RegQueryValueExString Lib advapi32.dll Alias RegQueryValueExA (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As String, lpcbData As Long) As Long??? Private Declare Function RegOpenKey Lib advapi32.dll Alias RegOpenKeyA (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long??? Const HKEY_CLASSES_ROOT = ??? Const HKEY_CURRENT_USER = ??? Const HKEY_LOCAL_MACHINE = ************注册表操作子过程*************Private Sub SetSZ(Hkey As Long, Keypath As String, Keyname As String, Keyvalue As String) i = RegOpenKey(Hkey, Keypath, keyid)j = RegSetValueEx(keyid, Keyname, 0, H1, ByVal Keyvalue, Len(Keyvalue))End Sub Private Sub CRSZ(Hkey As Long, Keypath As String)h = RegCreateKey(Hkey, Keypath, keyid)End SubPrivate Sub SetDWORD(Hkey As Long, Keypath As String, Keyname As String, Keyvalue As Long)i = RegOpenKey(Hkey, Keypath, keyid)j = RegSetValueEx(keyid, Keyname, 0, H4, Keyvalue, Len(Keyvalue))End Sub*******************************