个人中心
文章发布
退出
作者热门文章
- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
27
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章vbs 读写注册表之系统启动项添加与删除由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
核心vbs代码 。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
'变量定义
Dim
writeName,writeValue,fileName,regLoaction,regApp
'创建注册表编辑器对象
Set
regApp=WScript.CreateObject(
"WScript.Shell"
)
'配置文件名
fileName=
"FullScan.txt"
'输入键名
writeName=
"xiaoqiang"
'输入键值
writeValue=
"test"
'************************脚本运行区间********************************
'根据配置文件获取注册表路径数组
regLoaction=getRegPathArray(getFileText(fileName))
'写入注册表
write regLoaction,writeName,writeValue
'读取写入的键值 生成并生成结果文件
read regLoaction,writeName
'************************函数定义********************************
'读注册表
Function
read(regLoaction,writeName)
Dim
returnStrArray(),j
j=0
If
writeName=
""
or writeValue=
""
then
msgbox
"错误！！请输入键名和键值"
else
for i=0 to ubound(regLoaction)
ReDim
Preserve
returnStrArray(j)
regPath=regLoaction(i)&"\"&writeName
returnStrArray(j)=regPath&
"? "
®App.RegRead(regPath)
j=j+1
Next
End
if
writeResult returnStrArray
End
Function
'写入注册表
Function
write(regLoaction,writeName,writeValue)
If
writeName=
""
or writeValue=
""
then
msgbox
"错误！！请输入键名和键值"
else
for i=0 to ubound(regLoaction)
regApp.RegWrite regLoaction(i)&"\"&writeName,writeValue
Next
End
if
End
Function
'输出结果文件
sub writeResult(contentArray)
Const
ForReading = 1, ForWriting = 2
Dim
fso,f,returnStrArray(),i
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
Set
f = fso.OpenTextFile(
"result.txt"
, 2,true)
for i=0 to ubound(contentArray)
f.writeline(contentArray(i))
Next
f.close()
End
Sub
'得到注册表路径数组
Function
getRegPathArray(sourceArray)
Dim
head,returnStrArray(),j
j=0
for i=0 to ubound(sourceArray)
If
sourceArray(i)=
"[HKEY_LOCAL_MACHINE]"
then
head=
"HKLM"
elseif sourceArray(i)=
"[HKEY_USERS]"
then
head=
"HKEY_USERS\.DEFAULT"
elseif sourceArray(i)=
"[HKEY_CURRENT_USER]"
then
head=
"HKCU"
elseif sourceArray(i)=
"[HKEY_CLASSES_ROOT]"
then
head=
"HKCR"
elseif sourceArray(i)=
"[HKEY_CURRENT_CONFIG]"
then
head=
"HKEY_CURRENT_CONFIG"
else
ReDim
Preserve
returnStrArray(j)
str=head&split(sourceArray(i),
"="
)(1)
returnStrArray(j)=str
j=j+1
End
If
Next
getRegPathArray=returnStrArray
End
Function
'得到文件内容存入数组
Function
getFileText(fileName)
Const
ForReading = 1, ForWriting = 2
Dim
fso,f,returnStrArray(),i
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
Set
f = fso.OpenTextFile(fileName, 1)
i=0
do while f.atendofstream<>true
ReDim
Preserve
returnStrArray(i)
returnStrArray(i)=f.readline()
i=i+1
loop
f.close()
getFileText=returnStrArray
End
Function
|
//配置文件 。
FullScan.txt 。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
[HKEY_LOCAL_MACHINE]
1=\Software\Microsoft\Windows\CurrentVersion\Run
2=\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
3=\Software\Microsoft\Windows\CurrentVersion\RunOnce\
4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
5=\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
6=\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\
7=\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\
8=\Software\Policies\Microsoft\Windows\System\Scripts\
[HKEY_CURRENT_USER]
1=\Software\Microsoft\Windows\CurrentVersion\Run
2=\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
3=\Software\Microsoft\Windows\CurrentVersion\RunOnce\
4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
5=\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
6=\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\
7=\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\
8=\Software\Policies\Microsoft\Windows\System\Scripts\
|
运行后得到result.txt 。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? test
HKLM\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? test
HKLM\Software\Policies\Microsoft\Windows\System\Scripts\\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? test
HKCU\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? test
HKCU\Software\Policies\Microsoft\Windows\System\Scripts\\xiaoqiang? test
|
注册表中的值 。
以下是我小编补充 。
运行后就会发现在系统开始自动运行的一些启动项加入了如上值，所以不建议普通用户运行.
既然批量添加那么也可以批量删除 。
将上面的vbs代码中的 。
regApp.RegWrite regLoaction(i)&"\"&writeName,writeValue 。
替换为 。
regApp.RegDelete regLoaction(i)&"\"&writeName 。
发现直接运行不行，其实注册表的删除需要用管理员权限才可以.
怕有些新手不知道如何管理员权限运行vbs 。
其实右键cmd中看到 以管理员权限运行 打开 dos窗口，然后将vbs文件拖到这个dos窗口里面，回车运行即可 。
然后拖拉 。
回车后发现，并没有提示任何错误信息，从注册表中看到，确定这个字段已经没了。完全解决.
最后此篇关于vbs 读写注册表之系统启动项添加与删除的文章就讲到这里了,如果你想了解更多关于vbs 读写注册表之系统启动项添加与删除的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
27
4
0
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题，以便用事实和引用来回答。 关闭 6 年前。
如何打开注册表 Win98/98SE/Me 运行中输入regedit.exe 无权限限制 Win2000/XP 1·开始>>运行.中输入regedit 2.运行中
目录 前言 使用简单工厂改进 使用注册表改进 参考文章 前言 在上一篇文章中我们提到了抽象工厂模式初版代码的一些缺点：①客户端违反开闭原则②提供方违反开
目录 工厂方法模式的瑕疵 注册表 工厂方法模式的瑕疵 在前一篇笔记中我们介绍了工厂方法模式，示例的类图如下： 考虑一种情况：现在要在程序运行时，根据外部资源
我在一个带有一个主节点和两个节点的 AWS 集群中安装了 mesosphere，分别称为主节点、节点 1 和节点 2。主节点是可见的，节点是私有(private)的。 我得到一个默认运行的马拉松实例和
我想用 PHP 制作一个注册表，将他们的用户名和密码注册到我的 SQL 数据库中。这是我所拥有的: 配置.php: 索引.php: Deltalus Account Regi
我正在尝试将我的软件添加到注册表中，我找到了一些我可以使用的代码，但不是完整的工作代码 C/C++ 对我来说是新的，无法自己创建它。但基本思想是:检查 reg key 是否已设置(如果未创建)。 我能
我尝试创建一个注册 php 代码，这样当我不在计算机旁时我就可以注册人们，但由于某种原因，它不会创建表，也不会创建文件夹，即使不存在。 输出是: ( ! ) Notice: Undefined var
我使用 HKLM\Software\etc\etc 来存储我的基本设置，这基本上是我的程序及其相关数据库的位置。 我现在遇到的问题是我已经创建了一个 Windows 服务并且需要读取这些位置。我无法将
我正在尝试将我的软件添加到注册表中，我找到了一些我可以使用的代码片段，但不是完整的工作代码 C/C++ 对我来说是新的，我无法自己创建它。但这里是基本的想法:如果没有创建它，请检查是否设置了注册键。
1、保存以下代码到：c:\windows\system32\vdm.vbs 复制代码 代码如下: Dim Args Set Args = WScript.Argum
不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧。(绿色是标题， 蓝色的是原作者
(绿色是标题， 蓝色的是原作者，红色的部分就是需要修改的部分，根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS====== Set WshShell = WScrip
简单使用 复制代码 代码如下: <?php require_once("Zend/Loader.php"); Zend_Loader::loadCl
何谓REG文件 REG文件实际上是一种注册表脚本文件，双击REG文件即可将其中的数据导入到注册表中。利用REG文件我们可以直接对注册表进行任何修改操作，它对注册表的操作可以不受注册表编辑器被禁用的
但并不是每次都打开同一个键值，在每多时候我们还是习惯于Windows 98那样每次打开都在根目录中。 通过修改注册表可以达到这样的效果。打开HKEY_CURRENT_USER\Software\M
我应该将哪些数据和位置添加到 Windows 注册表中以正确创建文件关联？ 我问这个问题主要是因为我多年前编写的一些旧应用程序使用 Visual Studio .NET 的 Windows Insta
我想阻止对默认 docker.io 注册表的访问。为了安全/IP 保护，我们需要阻止对公共(public) Docker 集线器的推/拉访问。 已有许多尝试将此作为配置选项，但所有 PR 都不断被拒绝
Lua 提供了一个 "registry" “任何 C 代码都可以使用它来存储它需要存储的任何 Lua 值”。正如 here 所说，线程“与原始线程共享其全局环境” .但是我找不到任何地方说它是否共享注
我的软件在 HKCU\Software\mysoftware 中存储了一些值，这从来都不是问题。但是，我现在还在 HKCU\Software\mysoftware\Licenses 中存储了一些值 -
我是一名优秀的程序员,十分优秀！