-
2018/5/10 10:20 | 2018/5/10/14:15
VB 6.0对于注册表的写和读的基础代码 【快速复制本文链接】
Private Sub Command1_Click()
Dim zcb
End Sub
Private Sub Command2_Click()
Dim zcb
Text1.Text = zcb '把1234这个值输出到文本框
End Sub
Dim zcb
Dim wss As Variant '定义调用脚本所需的变量wss
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\pc354.com", "1234", "REG_SZ") '把注册表H.._C..._C...\S...\下面的pc354.com这个项修改成1234并设置为字符型数据End Sub
Private Sub Command2_Click()
Dim zcb
Dim wss As Variant '定义调用脚本所需的变量wss
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.RegRead("HKEY_CURRENT_USER\Software\pc354.com") '读取注册表H.._C..._C...\S...\下面的pc354.com这个项的值Text1.Text = zcb '把1234这个值输出到文本框
End Sub
运行程序时判断注册表键是否存在,不存在就自动创建并赋值
Private Sub Form_Load()
On Error GoTo ErrorMsg
Dim WshShell As Object, temp As String
Dim wss As Variant '定义调用脚本所需的变量wss
Dim zcb
Set WshShell = CreateObject("wscript.shell")
temp = "HKEY_CURRENT_USER\Software\pc354.com"
WshShell.RegRead (temp) '如果无法读取直接产生一个错误,进入到errormsg显示信息
'下面是这个值存在显示的功能:读取值到text1中
'MsgBox "找到:" & temp
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.RegRead("HKEY_CURRENT_USER\Software\pc354.com") '读取注册表H.._C..._C...\S...\下面的pc354.com这个项的值
If zcb <> "" Then
Text1.Text = zcb '把pc354.com这个值输出到文本框
End If
Exit Sub
ErrorMsg: '如果这个值不存在,就直接创建,并赋值为 d:\
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\pc354.com", "d:\", "REG_SZ")
End Sub
亲,沙发正空着,还不快来抢?
欢迎在下面留言