VB 6.0对于注册表的写和读的基础代码 【快速复制本文链接】

    2018-5-10 10:20 | 2018-5-10/14:15
549 ° 来自:PC
Private Sub Command1_Click()
Dim zcb

Dim wss As Variant '定义调用脚本所需的变量wss

 Set wss = CreateObject("WScript.Shell") '调用WS

 zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\cosowo.cn", "1234", "REG_SZ") '把注册表H.._C..._C...\S...\下面的cosowo.cn这个项修改成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\cosowo.cn") '读取注册表H.._C..._C...\S...\下面的cosowo.cn这个项的值
 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\cosowo.cn"
WshShell.RegRead (temp) '如果无法读取直接产生一个错误,进入到errormsg显示信息

'下面是这个值存在显示的功能:读取值到text1中
'MsgBox "找到:" & temp
    Set wss = CreateObject("WScript.Shell") '调用WS
        zcb = wss.RegRead("HKEY_CURRENT_USER\Software\cosowo.cn") '读取注册表H.._C..._C...\S...\下面的cosowo.cn这个项的值
    If zcb <> "" Then
        Text1.Text = zcb '把cosowo.cn这个值输出到文本框
    End If
Exit Sub
ErrorMsg: '如果这个值不存在,就直接创建,并赋值为 d:\
   Set wss = CreateObject("WScript.Shell") '调用WS
   zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\cosowo.cn", "d:\", "REG_SZ")
End Sub

上一篇: VB 6.0对于选择文件和文件夹的基础操作和代码
下一篇: 怕吗:1千多买的耐克只穿1天就废,厂家:没售后
您可能还喜欢这些:

亲,沙发正空着,还不快来抢?

欢迎在下面留言

记住我的个人信息
Back to Top