vbs 读写注册表之系统启动项添加与删除（vb读写注册表）速看

随心笔谈2年前发布编辑

161 0

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

‘变量定义
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