应用 WSH 读写注册表和建立快捷方式 (转)[@more@]关于WSH在VB中的用法
这里,我们只讨论读写注册表和建立快捷方式。
首先在工程的References中选中 windows Scripting Host object Model,再来看一下下面的代码。
Dim WSH_ shell, urlLink, deskPath
Set WSH_shell = New IWshShell_Class
WSH_shell.RegWrite "HKLMSoftwareArchT ide", "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_D word”、“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:DevStudioMyProjectsDesktop ArrowResdoc.ico"
.Hotkey = "CTRL+SHIFT+D"
.WorkingDirectory = deskPath '起始位置
.WindowStyle = WshNormalFocus
'可以设的值有WshHide、WshMaximizedFocus、WshMinimizedFocus、
'WshMinimizedNoFocus、WshNormalFocus、WshNormalNoFocus
End With
urlLink.Save '保存快捷方式
WSH的功能很强大,还有许多应用不是一时讲得完的,大家好好发掘吧^_^
这里,我们只讨论读写注册表和建立快捷方式。
首先在工程的References中选中 windows Scripting Host object Model,再来看一下下面的代码。
Dim WSH_ shell, urlLink, deskPath
Set WSH_shell = New IWshShell_Class
WSH_shell.RegWrite "HKLMSoftwareArchT ide", "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_D word”、“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:DevStudioMyProjectsDesktop ArrowResdoc.ico"
.Hotkey = "CTRL+SHIFT+D"
.WorkingDirectory = deskPath '起始位置
.WindowStyle = WshNormalFocus
'可以设的值有WshHide、WshMaximizedFocus、WshMinimizedFocus、
'WshMinimizedNoFocus、WshNormalFocus、WshNormalNoFocus
End With
urlLink.Save '保存快捷方式
WSH的功能很强大,还有许多应用不是一时讲得完的,大家好好发掘吧^_^
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10790690/viewspace-951114/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10790690/viewspace-951114/