VB语言

本类阅读TOP10

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

分类导航
VC语言Delphi
VB语言ASP
PerlJava
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的功能很强大,还有许多应用不是一时讲得完的,大家好好发掘吧^_^


相关文章

相关软件