用VB5讀寫注冊表實例

用VB5讀寫注冊表實例

首先新建一個項目，在新創建的窗躰上添加以下控件竝設置相應的屬性:
控件名稱屬性值
Label1 Caption注冊表鍵值:
Label2 Caption注冊名稱:
label 3 Caption空
4 label Caption注冊公司:
label 5 Caption空
label 6 Caption/[/K6 Caption 在程序的聲明部分添加以下代碼:
私有聲明函數regcreate key lib"advapi32.dll"別名" regcreate key a" (Byval HKEY爲long，Byval LP subkey爲string，phkResult爲Long)
私有聲明函數RegQueryValueEx Lib" advapi32 . dll"別名" regqueryvaluexa"(Byval hKey爲Long，ByVal lpValueName爲String，ByVal lpReserved爲Long，lpType爲Long，lpData爲 ByVal lpValueName爲String，ByVal Reserved爲Long，ByVal dwType爲Long，lpData爲Any，ByVal cbData爲Long)Long
Const error _ success = 0 &
Const error _ bad db = 1009 &
Const error _ bad key = 1010 &
Const error _ cant open = 1011 &
Const error _ cantread = 1012 &
Const error _ cant myprogram"
然後爲每個控件添加代碼，代碼如下:
private subcommand 1 _ click()
dim key value as string
dim ret value as long
dim key id as long
ret value = regcreatekey(hda 0 key _ local _ machine，regkey，keyid)
key value = text 1 . text
ret value = regsetvalueex(keyid，"注冊名稱"，0& Reg _ SZ，by 文本“”和文本2。文本""，然後
標簽3。標題=文本1。Text
Label5。標題=文本2。text
End If
End Sub

Private Sub command 2 _ Click()
Unload Me
End
End Sub

Private Sub Form _ Load()
Dim retvalue As Long
Dim key id As Long
Dim key value As String
Dim Sub subkey As String
Dim size As String
Dim bufsize Ascaption = regkey
retvalue = RegCreateKey(HKEY _ local _ machine，regkey，Key)
ifretvalue = 0 Then
subkey ="注冊名稱"
retvalue = RegQueryValueEx(keyid，subkey，0&，reg _ sz，0 & bufsize)
如果bufsize< 2，則
Key value =""
retvalue = RegSetValueEx(keyid，subkey，0 &，REG_SZ buff-1)
text 1 . text = key value
end If
label 3 . caption = key value
subkey ="注冊公司"
retvalue = RegQueryValueEx(keyid，subkey，0&，REG_SZ，0&，bufsize)
如果bufsize< 2，則
key value =""
retvalue = RegSetValueEx(keyid，subkey，0&，REG_SZ，by text = key value
End If
label 5。caption = key value
End If
End Sub