网页黑手1.htm

来自「适用于一些有脚本基础的人学习javascript脚本语言」· HTM 代码 · 共 44 行

HTM
44 行
字号 
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<script language=vbs>
Dim RegWsh,sReadKey,sPrompt,sFixprompt 
sFixprompt=chr(13)&chr(10)&"　是否与写入的内容相一致？:) :-) :--)" 
MsgBox "此脚本显示如何创建、读取、修改和删除注册表项。" 
Set RegWsh =CreateObject("WScript.Shell") 
MsgBox "创建项 HKCU\MyRegKey，数值为 '一级键值'" 
RegWsh.RegWrite "HKCU\MyRegKey\", "一级键值" 
sReadKey=RegWsh.RegRead("HKCU\MyRegKey\") 
sPrompt="(默认)键值为：'"&sReadKey&"'"&sFixprompt 
msgbox "读取的HKCU\MyRegKey\下"&sPrompt 
MsgBox "创建项 HKCU\MyRegKey\Entry，数值为 '二级子键'" 
RegWsh.RegWrite "HKCU\MyRegKey\Entry\", "二级子键" 
sReadKey=RegWsh.RegRead("HKCU\MyRegKey\Entry\") 
sPrompt="(默认)键值为：'"&sReadKey&"'"&sFixprompt 
msgbox "读取的HKCU\MyRegKey\Entry\下"&sPrompt 
MsgBox "修改 HKCU\MyRegKey\Entry\(默认)键值为：'修改后的二级子键'" 
RegWsh.RegWrite "HKCU\MyRegKey\Entry\", "修改后的二级子键" 
sReadKey=RegWsh.RegRead("HKCU\MyRegKey\Entry\") 
sPrompt="(默认)键值已经修改为：'"&sReadKey&"'"&sFixprompt 
msgbox "读取的HKCU\MyRegKey\Entry\下"&sPrompt 
MsgBox "将数值项 HKCU\MyRegKey\Value 设为字符类型（REG_SZ），数值为 1" 
RegWsh.RegWrite "HKCU\MyRegKey\Value", 1 
MsgBox "将数值项 HKCU\MyRegKey\Entry 设为 双字节型（REG_DWORD），数值为 2" 
RegWsh.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD" 
MsgBox "将数值项 HKCU\MyRegKey\Entry\Value1 设为 二进制类型（REG_BINARY），数值为 3" 
RegWsh.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY" 
MsgBox "以下将删除 HKCU\MyRegKey\Entry\Value1 数值" 
RegWsh.RegDelete "HKCU\MyRegKey\Entry\Value1" 
MsgBox "以下将删除 HKCU\MyRegKey\Entry 主键" 
RegWsh.RegDelete "HKCU\MyRegKey\Entry\" 
'MsgBox "以下将删除 HKCU\MyRegKey 主键" 
'RegWsh.RegDelete "HKCU\MyRegKey\" 
</script>
<P>&nbsp;</P>

</BODY>
</HTML>

网页黑手1.htm - 源码说明

本页面展示了「适用于一些有脚本基础的人学习javascript脚本语言」中的 网页黑手1.htm 源码文件，采用 HTM 编程语言编写，共 44 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与javascript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?