应用 WSH 读写注册表和建立快捷方式

关于WSH在VB中的用法

这里，我们只讨论读写注册表和建立快捷方式。

首先在工程的References中选中Windows Scripting Host Object Model，再来看一下下面的代码。

Dim WSH_shell, urlLink, deskPath

Set WSH_shell = New IWshShell_Class

WSH_shell.RegWrite "HKLM\Software\ArchTide\", "first"

'以上两句新建了一个IWshShell_Class实例，然后在HKEY_LOCAL_MACHINE下

'建立一个主键，并写入字符串值。注意应用HKCU代表HKEY_CURRENT_USER、

'HKCR代表HKEY_CLASSES_ROOT，以此类推...

'与注册表相关的函数原型如下：

'Function RegRead(bstrName As String)读注册表，bstrName为键名

'Sub RegDelete(bstrName As String) 删除主键

'Sub RegWrite(bstrName As String, pvValue, [pvarType])

'[pvarType]可以省略，或为“REG_DWORD”、“REG_BINARY”

deskPath = WSH_shell.SpecialFolders("Desktop") '获得桌面路径

'可以用WSH_shell.ExpandEnvironmentStrings("%windir%")获得Windows路径

Set urlLink = WSH_shell.CreateShortcut(deskPath & "\ok.lnk")

With urlLink

.TargetPath = deskPath & "\无标题.txt"

.IconLocation = "D:\DevStudio\MyProjects\Desktop Arrow\Res\doc.ico"

.Hotkey = "CTRL+SHIFT+D"

.WorkingDirectory = deskPath '起始位置

.WindowStyle = WshNormalFocus

'可以设的值有WshHide、WshMaximizedFocus、WshMinimizedFocus、

'WshMinimizedNoFocus、WshNormalFocus、WshNormalNoFocus

End With

urlLink.Save '保存快捷方式

WSH的功能很强大，还有许多应用不是一时讲得完的，大家好好发掘吧^_^