月光软件站 - 编程文档 - VB语言 - 应用 WSH 读写注册表和建立快捷方式

VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·一个简单的MP3播放器
·VB中使用EXCEL输出
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单（一）
·VB打造超酷个性化菜单（六）
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

应用 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的功能很强大，还有许多应用不是一时讲得完的，大家好好发掘吧^_^

相关文章：

相关软件：