在不使用API的情况下玩注册表的方法

在不使用API的情况下玩注册表的方法

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

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

OK!

代码如下:

在不使用API的情况下玩注册表的方法 ' ****************************************************
在不使用API的情况下玩注册表的方法 ' 请务必引用“WindowsScriptHostObjectModel"Lib
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
****************************************************
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
****************************************************
在不使用API的情况下玩注册表的方法 ' Note:
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
需引用“WindowsScriptHostObjectModel"Lib
在不使用API的情况下玩注册表的方法 ' "HKLM"指"HKEY_LOCAL_MACHINE"
在不使用API的情况下玩注册表的方法 ' "HKCU"指"HKEY_CURRENT_USER"
在不使用API的情况下玩注册表的方法 ' 其它几个注册表主键依次类推,但必须大写
在不使用API的情况下玩注册表的方法 ' 适用于vb6简体中文版
在不使用API的情况下玩注册表的方法 ' 可以读出瑞星的安装ID
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
******************************************************
在不使用API的情况下玩注册表的方法 ' byDownmoon
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
QQ:23409408
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
1000sun@163.com
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
2003-2-16
在不使用API的情况下玩注册表的方法 '
在不使用API的情况下玩注册表的方法 '
*****************************************************
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 Option Explicit
在不使用API的情况下玩注册表的方法 Dim mynumber As Integer
在不使用API的情况下玩注册表的方法 Private Reg
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub del_reg_Click()
在不使用API的情况下玩注册表的方法
Dim Cancel As Integer
在不使用API的情况下玩注册表的方法 Dim mydelete As String
在不使用API的情况下玩注册表的方法 If MsgBox ( " Areusuretodelete " & vbTab & " HKLMSOFTWARERisingRavMyRising " & vbTab & " ? " ,vbYesNo, " 确认前先保存注册表!!! " ) = vbNo Then
在不使用API的情况下玩注册表的方法 Cancel = True
在不使用API的情况下玩注册表的方法 Else
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 mydelete
= Reg.RegDelete( " HKLMSOFTWARERisingRavMyRising " )
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
MsgBox " AlreadyDeleted!!!! " & vbTab & Chr ( 13 ) & " HKLMSOFTWARERisingRavMyRising====D: isingRavRav.exe "
在不使用API的情况下玩注册表的方法 End If
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
EndSub

在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub Form_Load()
在不使用API的情况下玩注册表的方法 mynumber
= 0
在不使用API的情况下玩注册表的方法 Set Reg = New IWshShell_Class
在不使用API的情况下玩注册表的方法
EndSub

在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub Form_Unload(Cancel As Integer )
在不使用API的情况下玩注册表的方法 ilovedownmoon.Caption
= " 再见 "
在不使用API的情况下玩注册表的方法 If ilovedownmoon.WindowState <> 1 Then
在不使用API的情况下玩注册表的方法 Dim I As Long
在不使用API的情况下玩注册表的方法 For I = 50 To ilovedownmoon.Height
在不使用API的情况下玩注册表的方法
If ilovedownmoon.Height > 400 Then
在不使用API的情况下玩注册表的方法 ilovedownmoon.Height = ilovedownmoon.Height - 30
在不使用API的情况下玩注册表的方法 End If
在不使用API的情况下玩注册表的方法 Next I
在不使用API的情况下玩注册表的方法
For I = 50 To ilovedownmoon.Width
在不使用API的情况下玩注册表的方法
If ilovedownmoon.Width > 500 Then
在不使用API的情况下玩注册表的方法 ilovedownmoon.Width = ilovedownmoon.Width - 30
在不使用API的情况下玩注册表的方法 End If
在不使用API的情况下玩注册表的方法 Next I
在不使用API的情况下玩注册表的方法
End If
在不使用API的情况下玩注册表的方法 End
在不使用API的情况下玩注册表的方法 EndSub

在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub read_reg_Click()
在不使用API的情况下玩注册表的方法
MsgBox ( " ^_^!YourrisingIDis: " & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & vbTab & Reg.RegRead( " HKLMSOFTWARERisingRavNetID " ) & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & Chr ( 13 ) & vbTab & " OK? " )
在不使用API的情况下玩注册表的方法
EndSub

在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub reg_run_Click()
在不使用API的情况下玩注册表的方法
On Error Resume Next
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
Dim myrun As String
在不使用API的情况下玩注册表的方法 Dim mynorun As String
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
If mynumber 2 = 0 Then
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 myrun
= Reg.RegWrite( " HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer " , " C:WINNTsystem32cdplayer.exe " , " REG_SZ " )
在不使用API的情况下玩注册表的方法
MsgBox ( Chr ( 13 ) & vbTab & " added " & Chr ( 13 ) & vbTab & vbTab & " C:WINNTsystem32cdplayer.exe " & Chr ( 13 ) & vbTab & " intoAutoRun! " )
在不使用API的情况下玩注册表的方法 reg_run.Caption
= " 取消自运行 "
在不使用API的情况下玩注册表的方法 ' 测试
在不使用API的情况下玩注册表的方法 ' Label1.Caption=mynumber
在不使用API的情况下玩注册表的方法 GoTo num
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
Else
在不使用API的情况下玩注册表的方法 mynorun = Reg.RegDelete( " HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer " )
在不使用API的情况下玩注册表的方法
MsgBox ( Chr ( 13 ) & vbTab & " Deleted " & Chr ( 13 ) & vbTab & vbTab & " C:WINNTsystem32cdplayer.exe " & Chr ( 13 ) & vbTab & " outofAutoRun! " )
在不使用API的情况下玩注册表的方法 reg_run.Caption
= " 启动自运行 "
在不使用API的情况下玩注册表的方法 ' 测试
在不使用API的情况下玩注册表的方法 ' Label1.Caption=mynumber
在不使用API的情况下玩注册表的方法 GoTo num
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
End If
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 num:
在不使用API的情况下玩注册表的方法 mynumber
= mynumber + 1
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
EndSub

在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法 在不使用API的情况下玩注册表的方法
Private Sub write_reg_Click()
在不使用API的情况下玩注册表的方法
Dim Cancel As Integer
在不使用API的情况下玩注册表的方法 Dim mytest As String
在不使用API的情况下玩注册表的方法 If MsgBox ( " Reallywrite " & vbTab & " HKLMSOFTWARERisingRavMyRising " & vbTab & " ? " ,vbYesNo, " 确认前先保存注册表!!! " ) = vbNo Then
在不使用API的情况下玩注册表的方法 Cancel = True
在不使用API的情况下玩注册表的方法 Else
在不使用API的情况下玩注册表的方法 mytest = Reg.RegWrite( " HKLMSOFTWARERisingRavMyRising " , " D: isingRavRav.exe " , " REG_SZ " )
在不使用API的情况下玩注册表的方法
' REG_SZ表示键的类型,为缺省值。
在不使用API的情况下玩注册表的方法 MsgBox " HKLMSOFTWARERisingRavMyRising====D: isingRavRav.exe " & vbTab & Chr ( 13 ) & " Writed!!!!! "
在不使用API的情况下玩注册表的方法
在不使用API的情况下玩注册表的方法
End If
在不使用API的情况下玩注册表的方法 EndSub