不用API，也能玩注册表--vb !(downmoon原创）

不用API，也能玩注册表--vb !(downmoon原创）

补充： 需新建四个command ,
名称依次为
write_reg
read_reg
del_reg
reg_run
对应Caption为：
建立新键
读取注册表
删除新键
启动自运行

OK！

代码如下：

' ****************************************************
' 请务必引用“WindowsScriptHostObjectModel"Lib
'
' ****************************************************
'
' ****************************************************
' Note:
'
' 需引用“WindowsScriptHostObjectModel"Lib
' "HKLM"指"HKEY_LOCAL_MACHINE"
' "HKCU"指"HKEY_CURRENT_USER"
' 其它几个注册表主键依次类推，但必须大写
' 适用于vb6简体中文版
' 可以读出瑞星的安装ID
'
' ******************************************************
' byDownmoon
'
' QQ:23409408
'
' [e-mail]
'
' 2003-2-16
'
' *****************************************************

Option Explicit
Dim mynumber As Integer
Private Reg



Private Subdel_reg_Click() Sub del_reg_Click()
Dim Cancel As Integer
Dim mydelete As String
If MsgBox ( " Areusuretodelete " & vbTab & " HKLMSOFTWARERisingRavMyRising " & vbTab & " ? " ,vbYesNo, " 确认前先保存注册表！！！ " ) = vbNo Then
Cancel = True
Else

mydelete = Reg.RegDelete( " HKLMSOFTWARERisingRavMyRising " )

MsgBox " AlreadyDeleted!!!! " & vbTab & Chr ( 13 ) & " HKLMSOFTWARERisingRavMyRising====D: isingRavRav.exe "
End If

EndSub

Private SubForm_Load() Sub Form_Load()
mynumber = 0
Set Reg = New IWshShell_Class
EndSub



Private SubForm_Unload() Sub Form_Unload(Cancel As Integer )
ilovedownmoon.Caption = " 再见 "
If ilovedownmoon.WindowState <> 1 Then
Dim I As Long
For I = 50 To ilovedownmoon.Height
If ilovedownmoon.Height > 400 Then
ilovedownmoon.Height = ilovedownmoon.Height - 30
End If
Next I
For I = 50 To ilovedownmoon.Width
If ilovedownmoon.Width > 500 Then
ilovedownmoon.Width = ilovedownmoon.Width - 30
End If
Next I
End If
End
EndSub

Private Subread_reg_Click() Sub read_reg_Click()
MsgBox ( " ^_^!YourrisingIDis: " & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & vbTab & Reg.RegRead( " HKLMSOFTWARERisingRavNetID " ) & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & vbTab & " OK？ " )
EndSub


Private Subreg_run_Click() Sub reg_run_Click()
On Error Resume Next

Dim myrun As String
Dim mynorun As String


If mynumber 2 = 0 Then


myrun = Reg.RegWrite( " HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer " , " C:WINNTsystem32cdplayer.exe " , " REG_SZ " )
MsgBox ( Chr ( 13 ) & vbTab & " added " & Chr ( 13 ) & vbTab & vbTab & " C:WINNTsystem32cdplayer.exe " & Chr ( 13 ) & vbTab & " intoAutoRun! " )
reg_run.Caption = " 取消自运行 "
' 测试
' Label1.Caption=mynumber
GoTo num

Else
mynorun = Reg.RegDelete( " HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer " )
MsgBox ( Chr ( 13 ) & vbTab & " Deleted " & Chr ( 13 ) & vbTab & vbTab & " C:WINNTsystem32cdplayer.exe " & Chr ( 13 ) & vbTab & " outofAutoRun! " )
reg_run.Caption = " 启动自运行 "
' 测试
' Label1.Caption=mynumber
GoTo num

End If

num:
mynumber = mynumber + 1



EndSub

Private Subwrite_reg_Click() Sub write_reg_Click()
Dim Cancel As Integer
Dim mytest As String
If MsgBox ( " Reallywrite " & vbTab & " HKLMSOFTWARERisingRavMyRising " & vbTab & " ? " ,vbYesNo, " 确认前先保存注册表！！！ " ) = vbNo Then
Cancel = True
Else
mytest = Reg.RegWrite( " HKLMSOFTWARERisingRavMyRising " , " D: isingRavRav.exe " , " REG_SZ " )
' REG_SZ表示键的类型，为缺省值。
MsgBox " HKLMSOFTWARERisingRavMyRising====D: isingRavRav.exe " & vbTab & Chr ( 13 ) & " Writed!!!!! "

End If
EndSub