VB中应用WSH读写注册表

领测软件测试网

　　 
　　VB中应用WSH读写注册表

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

　　这里，我们只讨论读写注册表和建立快捷方式。
　　首先在工程的references中选中windows scripting host object model，再来看一下下面的代码。

　dim wsh_shell, urllink, deskpath

　set wsh_shell = new iwshshell_class
　wsh_shell.regwrite "hklmsoftwarearchtide", "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:devstudiomyprojectsdesktop arrow esdoc.ico"
　　.hotkey = "ctrl+shift+d"
　　.workingdirectory = deskpath 注释：起始位置
　　.windowstyle = wshnormalfocus
　注释：可以设的值有wshhide、wshmaximizedfocus、wshminimizedfocus、
　注释：wshminimizednofocus、wshnormalfocus、wshnormalnofocus
　end with
　urllink.save 注释：保存快捷方式

　　wsh的功能很强大，还有许多应用不是一时讲得完的，大家好好发掘吧^_^ 

文章来源于领测软件测试网 https://www.ltesting.net/