精品久久亚洲_69pao在线成人免费视频_黄色三级网络_亚洲国产精品激情在线观看

Private Sub Command1_Click()
Dim zcb

Dim wss As Variant '定義調(diào)用腳本所需的變量wss

 Set wss = CreateObject("WScript.Shell") '調(diào)用WS

 zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\www.yeewaa.com", "1234", "REG_SZ") '把注冊表H.._C..._C...\S...\下面的www.yeewaa.com這個項修改成1234并設(shè)置為字符型數(shù)據(jù)
End Sub

Private Sub Command2_Click()
Dim zcb

Dim wss As Variant '定義調(diào)用腳本所需的變量wss

 Set wss = CreateObject("WScript.Shell") '調(diào)用WS

 zcb = wss.RegRead("HKEY_CURRENT_USER\Software\www.yeewaa.com") '讀取注冊表H.._C..._C...\S...\下面的www.yeewaa.com這個項的值
 Text1.Text = zcb '把1234這個值輸出到文本框
End Sub

運行程序時判斷注冊表鍵是否存在，不存在就自動創(chuàng)建并賦值

Private Sub Form_Load()
On Error GoTo ErrorMsg
Dim WshShell As Object, temp As String
Dim wss As Variant '定義調(diào)用腳本所需的變量wss
Dim zcb
Set WshShell = CreateObject("wscript.shell")
temp = "HKEY_CURRENT_USER\Software\www.yeewaa.com"
WshShell.RegRead (temp) '如果無法讀取直接產(chǎn)生一個錯誤，進入到errormsg顯示信息

'下面是這個值存在顯示的功能：讀取值到text1中
'MsgBox "找到：" & temp
    Set wss = CreateObject("WScript.Shell") '調(diào)用WS
        zcb = wss.RegRead("HKEY_CURRENT_USER\Software\www.yeewaa.com") '讀取注冊表H.._C..._C...\S...\下面的www.yeewaa.com這個項的值
    If zcb <> "" Then
        Text1.Text = zcb '把www.yeewaa.com這個值輸出到文本框
    End If
Exit Sub
ErrorMsg: '如果這個值不存在，就直接創(chuàng)建，并賦值為 d:\
   Set wss = CreateObject("WScript.Shell") '調(diào)用WS
   zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\www.yeewaa.com", "d:\", "REG_SZ")
End Sub