|
|
应用 WSH 读写注册表和建立快捷方式 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
关于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的功能很强大,还有许多应用不是一时讲得完的,大家好好发掘吧^_^
|
|
相关文章:相关软件: |
|