VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中应用WSH读写注册表
发表评论(0)作者:wxj_lake, 平台:VB6.0+Win98, 阅读:10453, 日期:2000-12-16
VB中应用WSH读写注册表

作者:wxj_lake 中国软件开发中心



  这里,我们只讨论读写注册表和建立快捷方式。
  首先在工程的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的功能很强大,还有许多应用不是一时讲得完的,大家好好发掘吧^_^