?? module2.bas
字號:
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' psSubKey String 子鍵名
' psKeyValue String 要設(shè)置的串值
' 輸出: 無
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '打開鍵的ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置（子鍵未設(shè)置則讀默認(rèn)值）
glStatus = REGAGENT_NOKEY
Exit Sub
End If
'首先打開主鍵
glStatus = RegOpenKey(plKey, psKey, llKeyID)
If glStatus = ERROR_SUCCESS Then '成功則設(shè)置值
If Len(psKeyValue) = 0 Then '設(shè)為空值
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_SZ, 0&, 0&)
Else '設(shè)為正常值
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_SZ, ByVal psKeyValue, Len(psKeyValue) + 1)
End If
glStatus = RegCloseKey(llKeyID)
End If
End Sub
Sub gpvSetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'ok
'功 能：設(shè)置注冊表中的雙字值
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' psSubKey String 子鍵名
' plKeyValue Long 要設(shè)置雙字值
' 輸出: 無
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '打開鍵的ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置（子鍵未設(shè)置則讀默認(rèn)值）
glStatus = REGAGENT_NOKEY
Exit Sub
End If
'首先打開主鍵
glStatus = RegOpenKey(plKey, psKey, llKeyID)
If glStatus = ERROR_SUCCESS Then '成功則設(shè)置值
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_DWORD, plKeyValue, Len(plKeyValue))
glStatus = RegCloseKey(llKeyID)
End If
End Sub
Sub gpvSetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'ok
'功 能：設(shè)置注冊表中的二進(jìn)制值
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' psSubKey String 子鍵名
' plKeyValue Long 要設(shè)置的二進(jìn)制值
' 輸出: 無
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '打開鍵的ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置（子鍵未設(shè)置則讀默認(rèn)值）
glStatus = REGAGENT_NOKEY
Exit Sub
End If
'首先打開主鍵
glStatus = RegOpenKey(plKey, psKey, llKeyID)
If glStatus = ERROR_SUCCESS Then '成功則設(shè)置值
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_BINARY, plKeyValue, Len(plKeyValue))
glStatus = RegCloseKey(llKeyID)
End If
End Sub
Function gflCreateKey(ByVal plKey As Long, ByVal psKey As String) As Long
'ok
'功 能：創(chuàng)建注冊表中的主鍵
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' 輸出: gflCreateKey Long 創(chuàng)建的主鍵ID
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '鍵ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置
glStatus = REGAGENT_NOKEY
Exit Function
End If
'創(chuàng)建主鍵
glStatus = RegCreateKey(plKey, psKey, llKeyID)
If glStatus = ERROR_SUCCESS Then
gflCreateKey = llKeyID
End If
End Function
Sub gpvDeleteKey(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'ok
'功 能：刪除注冊表中的主鍵
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' psSubKey String 子鍵名
' 輸出: 無
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '鍵ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置
glStatus = REGAGENT_NOKEY
Exit Sub
End If
'利用創(chuàng)建主鍵判斷是否存在主鍵
glStatus = RegCreateKey(plKey, psKey, llKeyID)
glStatus = RegDeleteKey(llKeyID, ByVal psSubKey)
End Sub
Sub gpvDeleteKeyValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'ok
'功 能：刪除注冊表中的鍵值
'參 數(shù)：
' 輸入: plKey Long 根鍵名
' psKey String 主鍵名
' psSubKey String 子鍵名
' 輸出: 無
' 影響: glStatus Long 狀態(tài)值
Dim llKeyID As Long '鍵ID
glStatus = ERROR_SUCCESS '假設(shè)成功
'確定參數(shù)有效
If Len(psKey) = 0 Then '主鍵未設(shè)置
glStatus = REGAGENT_NOKEY
Exit Sub
End If
'利用創(chuàng)建主鍵判斷是否存在主鍵
glStatus = RegCreateKey(plKey, psKey, llKeyID)
glStatus = RegDeleteValue(llKeyID, ByVal psSubKey)
End Sub
'Function gfsGetKeyStringValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As String
'功 能：從注冊表中取得串值
'Function gflGetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As Long
'功 能：從注冊表中取得二進(jìn)制值
'Function gflGetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As Long
'功 能：從注冊表中取得雙字值
'Sub gpvSetKeyStringValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal psKeyValue As String)
'功 能：設(shè)置注冊表中的串值
'Sub gpvSetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'功 能：設(shè)置注冊表中的雙字值
'Sub gpvSetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'功 能：設(shè)置注冊表中的二進(jìn)制值
'Function gflCreateKey(ByVal plKey As Long, ByVal psKey As String) As Long
'功 能：創(chuàng)建注冊表中的主鍵
'Sub gpvDeleteKey(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'功 能：刪除注冊表中的主鍵
'Sub gpvDeleteKeyValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'功 能：刪除注冊表中的鍵值
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -