VB简单加密文件夹.docVIP

  • 105
  • 0
  • 约6.84千字
  • 约 6页
  • 2018-01-02 发布于河南
  • 举报
VB简单加密文件夹

文章来源于网络,仅供学习交流! 经本人测试可用,添加三个标签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 Sub Private 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 *******************************

文档评论(0)

1亿VIP精品文档

相关文档