开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2014-01-15
详细说明： 非常经典，其中的内容全是精华啊！ 强烈推荐下下来看看！ 下面摘取了其中的一片文章： 不用API，也能玩注册表--vb ! 补充： 需新建四个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() Dim Cancel As Integer Dim mydelete As String If MsgBox("Are u sure to delete" & vbTab & "HKLM\SOFTWARE\Rising\Rav\MyRising" & vbTab & "?", vbYesNo, "确认前先保存注册表！！！") = vbNo Then Cancel = True Else mydelete = Reg.RegDelete("HKLM\SOFTWARE\Rising\Rav\MyRising") MsgBox " Already Deleted!!!!" & vbTab & Chr(13) & "HKLM\SOFTWARE\Rising\Rav\MyRising==== D:\rising\Rav\Rav.exe" End If End Sub Private Sub Form_Load() mynumber = 0 Set Reg = New IWshShell_Class End Sub Private 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() MsgBox ("^_^! Your rising ID is :" & Chr(13) & Chr(13) & Chr(13) & vbTab & Reg.RegRead("HKLM\SOFTWARE\Rising\Rav\NetID") & Chr(13) & Chr(13) & Chr(13) & Chr(13) & vbTab & "OK？") End Sub Private Sub reg_run_Click() On Error Resume Next Dim myrun As String Dim mynorun As String If mynumber \ 2 = 0 Then myrun = Reg.RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\cdplayer", "C:\WINNT\system32\cdplayer.exe", "REG_SZ") MsgBox (Chr(13) & vbTab & "added " & Chr(13) & vbTab & vbTab & "C:\WINNT\system32\cdplayer.exe" & Chr(13) & vbTab & "into AutoRun!") reg_run.Caption = "取消自运行" '测试 'Label1.Caption = mynumber GoTo num Else mynorun = Reg.RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\cdplayer") MsgBox (Chr(13) & vbTab & "Deleted " & Chr(13) & vbTab & vbTab & "C:\WINNT\system32\cdplayer.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() Dim Cancel As Integer Dim mytest As String If MsgBox("Really write" & vbTab & "HKLM\SOFTWARE\Rising\Rav\MyRising" & vbTab & "?", vbYesNo, "确认前先保存注册表！！！") = vbNo Then Cancel = True Else mytest = Reg.RegWrite("HKLM\SOFTWARE\Rising\Rav\MyRising", "D:\rising\Rav\Rav.exe", "REG_SZ") 'REG_SZ 表示键的类型，为缺省值。 MsgBox "HKLM\SOFTWARE\Rising\Rav\MyRising==== D:\rising\Rav\Rav.exe" & vbTab & Chr(13) & "Writed!!!!!" End If End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
