📄 网页黑手1.htm

📁 这是一些关于JavaScript的学习资料希望对大家有用

💻 HTM

字号:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE> - 品络科技 pinluo.com</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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -