應用 WSH 讀寫登錄檔和建立快捷方式 (轉)

應用 WSH 讀寫登錄檔和建立快捷方式 (轉)[@more@]關於WSH在VB中的用法

　　這裡，我們只討論讀寫登錄檔和建立快捷方式。
　　首先在工程的References中選中 Scripting Host Model，再來看一下下面的程式碼。

　Dim WSH_, urlLink, deskPath

　Set WSH_shell = New IWshShell_Class
　WSH_shell.RegWrite "HKLMSoftwareArchT", "first"

　'以上兩句新建了一個IWshShell_Class例項，然後在HKEY_LOCAL_MACHINE下
　'建立一個主鍵，並寫入字串值。注意應用HKCU代表HKEY_CURRENT_USER、
　'HKCR代表HKEY_CLASSES_，以此類推...
　'與登錄檔相關的原型如下：
　'Function RegRead(bstrName As String)　讀登錄檔，bstrName為鍵名
　'Sub RegDelete(bstrName As String)　　 刪除主鍵
　'Sub RegWrite(bstrName As String, pvValue, [pvarType])
　'[pvarType]可以省略，或為“REG_D”、“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的功能很強大，還有許多應用不是一時講得完的，大家好好發掘吧^_^