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

原创 2003年02月26日 08:48:00

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

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

OK!

代码如下:

' ****************************************************
'
请务必引用 “Windows Script Host Object Model" Lib
'
'
****************************************************
'
'
****************************************************
'
                   Note:
'
'
需引用“Windows Script Host Object Model" Lib
'
"HKLM" 指 "HKEY_LOCAL_MACHINE"
'
"HKCU" 指 "HKEY_CURRENT_USER"
'
其它几个注册表主键依次类推,但必须大写
'
适用于vb 6 简体中文版
'
可以读出瑞星的安装ID
'
'
******************************************************
'
          by Downmoon
'
'
         QQ: 23409408
'
'
        1000sun@163.com
'
'
           2003-2-16
'
'
*****************************************************

Option   Explicit
Dim  mynumber  As   Integer
Private  Reg

 

Private   Sub del_reg_Click() Sub  del_reg_Click()
Dim  Cancel  As   Integer
Dim  mydelete  As   String
If   MsgBox ( " Are u sure to delete "   &  vbTab  &   " HKLMSOFTWARERisingRavMyRising "   &  vbTab  &   " ? " , vbYesNo,  " 确认前先保存注册表!!! " =  vbNo  Then
            Cancel 
=   True
            
Else
                       
            mydelete 
=  Reg.RegDelete( " HKLMSOFTWARERisingRavMyRising " )

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

End Sub


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


 

Private   Sub Form_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
End Sub


Private   Sub read_reg_Click() Sub  read_reg_Click()
MsgBox  ( " ^_^! Your rising ID is : "   &   Chr ( 13 &   Chr ( 13 &   Chr ( 13 &  vbTab  &  Reg.RegRead( " HKLMSOFTWARERisingRavNetID " &   Chr ( 13 &   Chr ( 13 &   Chr ( 13 &   Chr ( 13 &  vbTab  &   " OK? " )
End Sub



Private   Sub reg_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  &   " into  AutoRun! " )
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  &   " out of  AutoRun! " )
reg_run.Caption 
=   " 启动自运行 "
' 测试
'
Label1.Caption = mynumber
GoTo  num

   
End   If
  
num:
mynumber 
=  mynumber  +   1

 

End Sub


Private   Sub write_reg_Click() Sub  write_reg_Click()
Dim  Cancel  As   Integer
Dim  mytest  As   String
If   MsgBox ( " Really write "   &  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
End Sub

VB中使用API操作注册表

使用 Windows API 注册表函数    所谓 API(Application Programing Interface) 是 Windows 提供的一个32位环境下的应用程序编程接口,其中包括...
  • longhui666888
  • longhui666888
  • 2005年12月24日 11:03
  • 5018

真正的VB木马,不用WINSOCK控件

 这篇文章不是我写的,我也正在研究,里面很多代码都有错误,希望高手把代码调试完了发给我,谢了`~~~(奉劝各位学VB的朋友,不要以为用WINSOCK控件连接的两个窗口就是木马,VB木马真正的核心还是A...
  • zyx_hawk
  • zyx_hawk
  • 2007年07月30日 10:31
  • 1811

VB6读取注册表

Dim WshShell, bKey Set WshShell = CreateObject("Wscript.Shell") bKey = WshShell.RegRead("HKEY_CU...
  • karl_han
  • karl_han
  • 2014年05月13日 11:15
  • 1818

VB 更改注册表键权限

VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   0  None   ClientHeight    =   885   ClientL...
  • chenhui530
  • chenhui530
  • 2007年10月03日 12:35
  • 5989

VB中如何实现注册表的读写

毫不夸张的说,注册表相当于Windows的“心”,几乎所有的Windows应用程序都毫不例外的要在这里边“安家筑巢”,如果你也用VB编写了一个程序,是不是也想在注册表里占有一席之地呢(即使刚才没有,现...
  • pingyou
  • pingyou
  • 2005年05月26日 19:51
  • 1349

一个好用的 VB 注册表操作类模块

具体使用一看就明白了,来自 CSDNOption ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"...
  • snlmgytO
  • snlmgytO
  • 2005年09月25日 20:06
  • 1617

VB 注册表操作

'*****下面先声明一些常量****************************************** Public Const HKEY_CLASSES_ROOT = &H800000...
  • lbuskeep
  • lbuskeep
  • 2012年12月06日 02:24
  • 1071

VB 遍历注册表代码。

转帖 来自huangzhieling---------------------------------------------------------- 添加一下控件:2   个list     2 ...
  • chongan_wang
  • chongan_wang
  • 2009年01月20日 11:35
  • 1440

用VB操作注册表

用VB操作注册表(一)梦里水乡 认识登录数据库(Registry)我们在这里主要通过由Windows系统本身提供的注册表编辑器regedit.exe来认识登录数据库(Registry)1、Key和Su...
  • Suprman
  • Suprman
  • 2006年12月23日 20:25
  • 2754

用VB判断注册表某键下是否存在某值。

 Private Const HKEY_CURRENT_USER = &H80000001Private Const HKEY_LOCAL_MACHINE = &H80000002Private Co...
  • chongan_wang
  • chongan_wang
  • 2009年01月20日 11:23
  • 2243
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:不用API,也能玩注册表--vb !(downmoon原创)
举报原因:
原因补充:

(最多只允许输入30个字)