(1)REG_SZ:字符型.该类型为缺省类型 (2)REG_DWORD:双字节型. (3)REG_BINARY:二进制型.
以上三种类型第1种和第2种用得最多,第3种类型在某些场合可以用第2种加以替代,这三种类型的赋值方法如下: 对于REG_SZ型:直接用字符串赋予,如"text","string"等 对于REG_DWORD型和REG_BINARY型则有两种赋值方式
i)直接用十进制的数表示,如:0,1等. ii)用十六进制的数表示,如:0x12,0xff等. 看例:
'write.vbs Dim OperationRegistry Set OperationRegistry=WScript.CreateObject("WScript.Shell") Default=OperationRegistry.RegRead("HKCR\") '获取一个空值 (null) OperationRegistry.RegWrite "HKCR\.xxf\",Default '在根键HKEY_CLASSES_ROOT之下新建主键.xxf,并置其默认值为空 OperationRegistry.RegWrite "HKCR\.xxf\","xxffile" '在根键HKEY_CLASSES_ROOT之下新建主键.xxf,并置其默认值?quot;xxffile" OperationRegistry.RegWrite "HKCR\.xxf\value1","string" '在主键.xxf之下新建一个字符串型键值value1,并置其初始值为"string" OperationRegistry.RegWrite "HKCR\.xxf\value2",1,"REG_DWORD" '在主键.xxf之下新建一个REG_DWORD型键值value2,并置其初始值为1 OperationRegistry.RegWrite "HKCR\.xxf\value3",0Xff,"REG_BINARY" '在主键.xxf之下新建一个二进制型键值value3,并置其初始值为十六进制的ff
3、RegDelete操作详解
删除操作RegDelete主要是用来删除注册表中已存在的主键或键值,该操作是一种极其危险的操作,它能将主键或键值毫不留情的在注册表中“砍掉”,无论该键值下面有多重要的数据,它都能畅行无阻,因此在使用该操作时务必小心。
删除操作的参数形式与读操作的参数形式几乎完全相同,只是有一点小小的区别,那就是删除操作不需要将操作的返回值送给某一变量,例如:
'delete.vbs Dim OperationRegistry Set OperationRegistry=WScript.CreateObject("WScript.Shell") OperationRegistry.RegRead("HKCR\.xxf\value") '删除.xxf主键之下的value键值 OperationRegistry.RegRead("HKCR\.xxf\") '删除根键HKEY_CLASSES_ROOT之下的.xxf主键 强调一点,不要更改注册表中已存在的主键或键值,更不要将它们删除,因为对注册表进行了不当的写操作或删操作,情况严重的会导致系统崩溃!如果你真想这么做,那就请你作好注册表的备份。 应用实例
1、读本机“计算机名”
'ReadComputerName.vbs Dim ReadComputerName Set ReadComputerName=WScript.CreateObject("WScript.Shell") Dim ComputerName,RegPath RegPath="HKLM\System\CurrentControlSet\Control\ ComputerName\ComputerName\ComputerName" ComputerName=ReadComputerName.RegRead(RegPath) MsgBox("计算机名为"&ComputerName)
2、隐藏快捷方式图标上的小箭头
'Hidden.vbs Dim HiddenArrowIcon Set HiddenArrowIcon=WScript.CreateObject("WScript.Shell") Dim RegPath1,RegPath2 RegPath1="HKCR\lnkfile\IsShortCut" RegPath2="HKCR\piffile\IsShortCut" HiddenArrowIcon.RegDelete(RegPath1) HiddenArrowIcon.RegDelete(RegPath2)
3、改造“开始”菜单
'ChangeStartMenu.vbs Dim ChangeStartMenu Set ChangeStartMenu=WScript.CreateObject("WScript.Shell") RegPath="HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\" Type_Name="REG_DWORD" Key_Data=1 StartMenu_Run="NoRun" StartMenu_Find="NoFind" StartMenu_Close="NoClose" Sub Change(Argument) ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name MsgBox("Success!") End Sub Call Change(StartMenu_Run) '禁用“开始”菜单中的“运行”功能 Call Change(StartMenu_Find) '禁用“开始”菜单中的“查找”功能 Call Change(StartMenu_Close) '禁用“开始”菜单中的“关闭系统”功能
4、向Windows中添加自启动程序 该程序能在开机时自动运行。
'AddAutoRunProgram.vbs '假设该程序在c:\myfile文件夹中,文件名为autorun.exe Dim AutoRunProgram Set AutoRunProgram=WScript.CreateObject("WScript.Shell") RegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name="REG_SZ" Key_Name="AutoRun" Key_Data="C:\Myfile\autorun.exe" '该自启动程序的全路径文件名 AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name '在启动组中添加自启动程序autorun.exe MsgBox("Success!")
|