miaozk2006

'****************************×¢²á±í²Ù×÷º¯Êý**********************
'ÉùÃ÷£ºÒÔÏ´úÂëÓÉÇá·ç¹¤×÷ÊÒREDICE±àд£¬ÒýÓÃʱÇë×÷һ˵Ã÷¡£
'****************************************************************

'*****ÏÂÃæÏÈÉùÃ÷һЩ³£Á¿******************************************
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const KEY_ALL_ACCESS = (&H20000 Or &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &H20) And (Not &H100000)
Public Const REG_SZ = 1
Public Const REG_DWORD = 4
'*****************************************************************

'*****ÏÂÃæÉùÃ÷×¢²á±í²Ù×÷ÖÐÓõ½µÄAPIº¯Êý****************************
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal uloptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public 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
Public Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Public Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
'*****************************************************************

'*****ÏÂÃæÊÇÎÒ×Ô¼ºÐ´µÄһЩע²á±í²Ù×÷Öг£ÓõÄһЩº¯Êý**************
'*****мü×¢²á±íÏî
Public Function createnewkey(ip As Long, snewkeyname As String)
     Dim hnewkey As Long
     Dim retval As Long
     retval = RegCreateKey(ip, snewkeyname, hnewkey)
     If retval = 0 Then
       RegCloseKey (hnewkey)   '¹Ø±ÕÉÏÃ潨Á¢»ò´ò¿ªµÄÏî
     End If
End Function
'ʵÀý£ºÔÚHKEY_CURRENT_USERϽ¨Á¢Ïî"xiaopeng"
'´úÂëΪ createnewkey HKEY_CURRENT_USER ,"xiaopeng"
'******************************************************************

'*******ɾ³ý×¢²á±íÏî***********************************************
Public Function deletekey(ip As Long, skeyname As String)
     Dim hKey As Long
     Dim retval As Long
     retval = RegOpenKeyEx(ip, skeyname, 0, KEY_ALL_ACCESS, hKey)
     If retval = 0 Then
       RegDeleteKey ip, skeyname
     End If
End Function
'ʵÀý£ºÉ¾³ýÉÏÃ潨Á¢µÄHKEY_CURRENT_USERϵÄÏî"xiaopeng"
'´úÂëΪ deletekey HKEY_CURRENT_USER ,"xiaopeng"
'******************************************************************

'********н¨,ÉèÖÃÊýÖµÃû³Æ*****************************************
Public Function setkeyvalue(ByVal ip As Long, ByVal keyname As String, ByVal valuename As String, ByVal valuesetting As Variant, ByVal valuetype As Long)
     Dim retval As Long
     Dim hKey As Long
     If RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey) > 0 Then Exit Function
     Select Case valuetype
           Case REG_SZ
             RegSetValueExString hKey, valuename, 0&, REG_SZ, valuesetting, Len(valuesetting)
           Case REG_DWORD
             RegSetValueExLong hKey, valuename, 0, valuetype, valuesetting, 4
     End Select
     RegCloseKey (hKey)
End Function
'ʵÀý£ºÔÚHKEY_CURRENT_USERϵÄÏî"xiaopeng"Öн¨Á¢ÃûΪ"redice",¼üֵΪ"is xiaopeng",ÀàÐÍΪREG_SZµÄмü
'´úÂëΪ setkeyvalue HKEY_CURRENT_USER ,"xiaopeng" ,"redice","is xiaopeng",REG_SZ
'ÓÖÈç:ÔÚHKEY_CURRENT_USERϵÄÏî"xiaopeng"Öн¨Á¢ÃûΪ"ceshi",¼üֵΪ2,ÀàÐÍΪREG_DWORDµÄмü
'´úÂëΪ"setkeyvalue HKEY_CURRENT_USER,"xiaopeng","ceshi",2,REG_DWORD
'******************************************************************

'*********ɾ³ýÊýÖµÃû³Æ*********************************************
Public Function deletevalue(ByVal ip As Long, ByVal keyname As String, ByVal valuename As String)
     Dim retval As Long
     Dim hKey As Long
     retval = RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey)
     If retval > 0 Then
         Exit Function
     End If
     RegDeleteValue hKey, valuename
     RegCloseKey hKey
End Function
'ʵÀý£ºÉ¾³ýHKEY_CURRENT_USERϵÄÏî"xiaopeng"ÖÐÃûΪ"redice"µÄмü
'´úÂëΪ deletevalue HKEY_CURRENT_USER ,"xiaopeng","redice"
'******************************************************************
'**********²éѯÒÑ´æÔÚµÄÊýÖµÄÚÈÝ************************************
Public Function getvalue(ByVal ip As Long, keyname As String, valuename As String) As String
     Dim retval As Long
     Dim hKey As Long
     Dim valuesetting As Variant
     Dim cddata As Long
     Dim lvalue As Long
     Dim svalue As String
     Dim lvaluetye As Long
     retval = RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey)
     If retval > 0 Then
       getvalue = ""
       Exit Function
     End If
     retval = RegQueryValueEx(hKey, valuename, 0, lvaluetype, ByVal VBNullString, cddata)
     If retval <> 0 Then
       RegCloseKey hKey
       Exit Function
     End If
     Select Case lvaluetype
           Case REG_SZ
                 svalue = String(cddata, Chr(0))
                 RegQueryValueEx hKey, valuename, 0, lvaluetype, ByVal svalue, cddata
                 valuesetting = Left$(svalue, cddata)
                 getvalue = CStr(valuesetting)
           Case REG_DWORD
                 RegQueryValueEx hKey, valuename, 0, lvaluetype, lvalue, cddata
                 valuesetting = lvalue
                 getvalue = CStr(valuesetting)
     End Select
End Function
'ʵÀý£º»ñÈ¡HKEY_CURRENT_USERϵÄÏî"xiaopeng"ÖÐÃûΪ"redice"µÄмüµÄ¼üÖµ
'´úÂëΪ getvalue HKEY_CURRENT_USER ,"xiaopeng","redice"
'*********************************************************************
 

Õª×Ô£ºÍøÂçÕûÀí

Ïà¹ØÎÄÕ²ο¼£º