添加启动项

vbs读写注册表之系统启动项添加与删除

核⼼vbs代码

'变量定义

DimwriteName,writeValue,fileName,regLoaction,regApp

'创建注册表编辑器对象

SetregApp=Object("")

'配置⽂件名

fileName=""

'输⼊键名

wr交接班记录 iteName="xiaoqiang"

'输⼊键值

writeValue="test"

'************************脚本运⾏区间********************************

'根据配置⽂件获取注册表路径数组

regLoaction=getRegPathArray(getFileText(fileN抽象思维 ame))

'写⼊注册表

writeregLoaction,writeName,writeValue

'读取写⼊的键值⽣成并⽣成结果⽂件

readregLoaction,writeName

'************************函数定义********************************

'读注册表

Functionread(regLoaction,writeName)

DimreturnStrArray(),j

j=0

IfwriteName=""orwriteValue=""then

msgbox"错误！！请输⼊键名和键值"

el

fori=0toubound(regLoaction)

ReDimPrervereturnStrArray(j)

regPath=regLoaction(i)&""&writeName

returnStrArray(j)=regPath&"?"&d(regPath)

j=j+1

Next

Endif

writeResultreturnStrArray

EndFunction

'写⼊注册表

Functionwrite(regLoaction,writeName,writeValue)

IfwriteName=""orwriteValue=""then

msgbox"错误！！请输⼊键名和键值"

el

fori=0toubound(regLoaction)

teregLoaction(i)&""&writeName,writeValue

Next

Endif

EndFunction

'输出结果⽂件

subwriteResult(contentArray)

ConstForReading=1,ForWriting=2

Dimfso,f,returnStrArray(),i

Setfso=CreateObject("stemObject")

Setf=xtFile("",2,true)

fori=0toubound(contentArray)

ine(contentArray(i))

Next

()

EndSub

'得到注册表路径数组

FunctiongetRegPathArray(sourceArray)

Dimhead,returnStrArray(),j

j=0

fori=0toubound(sourceArray)

IfsourceArray(i)="[HKEY_LOCAL_MACHINE]"then

head="HKLM"

elifsourceArray(i)="[HKEY_USERS]"then

head="HKEY_T"

elifsourceArray(i)="[HKEY_CURRENT_USER]"then

head="HKCU"

elifsourceArray(i)="[HKEY_CLASSES_ROOT]"then

head="HKCR"

elifsourceArray(i)="[HKEY_CURRENT_CONFIG]"then

head="HKEY_CURRENT_CONFIG"

el

ReDimPrervereturnStrArray(j)

str=head&split(sourceArray(i),"=")(1)

returnStrArray(j)=str

j=j+1

EndIf

Next

getRegPathArray=returnStrArray

EndFunction

'得到⽂件内容存⼊数组

FunctiongetFileText(fileName)

ConstForReading=1,ForWriting=2

Dimfso,f,returnStrArray(),i

Setfso=CreateObject("stemObject")

Setf=xtFile(fileName,1)

i=0

fstream<>true

ReDimPrervereturnStrArray(i)

returnStrArray(i)=ne()

i=i+1

loop

()

getFileText=returnStrArray

EndFunctio跳绳和跑步 n

//配置⽂件

[HKEY_LOCAL_MACHINE]

1=SoftwareMicrosoftWindowsCurrentVersionRun

2=SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun

3=SoftwareMicrosoftWindowsCurrentVersionRunOnce

4=SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce

5=SoftwareMicrosoftWindowsCurrentVersionRunOnceEx

6=SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell

7=SoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad

8=SoftwarePoliciesMicrosoftWindowsSystemScripts

[HKEY_CURRENT_USER]

1=SoftwareMicrosoftWindowsCurrentVersionRun

2=SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun

3=SoftwareMicrosoftWindowsCurrentVersionRunOnce

4=SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce

5=SoftwareMicrosoftWindowsCurrentVersionRunOnceEx

6=SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell

7=SoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad

8=SoftwarePoliciesMicrosoftWindowsSystemScripts

运⾏后得到

HKLMSoftwareMicrosoftWindowsCurrentVersionRuniaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRuniaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersionRunOnceiaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersionRunS节约粮食的内容 ervicesOnceiaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersionRunOnceExiaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersio一句话介绍自己 nPoliciesSystemShelliaoqiang?test

HKLMSoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoadiaoqiang?test

HKLMSoftwarePoliciesMicrosoftWindowsSystemScriptsiaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrentVersionRuniaoqiang?test

HKCUSoftwareMicrosoftWindows猫眼石的功效与作用 CurrentVersionPoliciesExplorerRuniaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrentVersionRunOnceiaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrentVersionRunServicesOnceiaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrent婴幼儿补钙 VersionRunOnceExiaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShelliaoqiang?test

HKCUSoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoadiaoqiang?test

HKCUSoftwarePoliciesMicrosoftWindowsSystemScriptsiaoqiang?test

注册表中的值

以下是⼩编补充

运⾏后就会发现在系统开始⾃动运⾏的⼀些启动项加⼊了如上值，所以不建议普通⽤户运⾏。

既然批量添加那么也可以批量删除

将上⾯的vbs代码中的

teregLoaction(i)&""&writeName,writeValue

替换为

eteregLoaction(i)&""&writeName

发现直接运⾏不⾏，其实注册表的删除需要⽤管理员权限才可以。

怕有些新⼿不知道如何管理员权限运⾏vbs

其实右键cmd中看到以管理员权限运⾏打开dos窗⼝，然后将vbs⽂件拖到这个dos窗⼝⾥⾯，回车运⾏即可

然后拖拉

回车后发现，并没有提⽰任何错误信息，从注册表中看到，确定这个字段已经没了。完全解决。