VBS建立快捷方式

例1:

set WshShell = WScript.CreateObject(“WScript.Shell") ‘設置CreateObject 方法
strDesktop = WshShell.SpecialFolders(“Desktop") ‘取得「桌面」的路徑
set oShellLink = WshShell.CreateShortcut(strDesktop & “\騰訊QQ.lnk") ‘設置快捷方式將要保存到的路徑和快捷方式名,你也可以指定一個真實存在的路徑,這個範例是創建到桌面
oShellLink.TargetPath = “d:\qq\QQ木馬清除.vbs" ‘快捷方式裡的「目標」
oShellLink.WindowStyle = 1 ‘快捷方式裡的「運行方式」
oShellLink.Hotkey = “Ctrl+Alt+e" ‘快捷方式裡的「快捷鍵」
oShellLink.IconLocation = “d:\qq\qq.exe, 0″ ‘快捷方式的圖標
oShellLink.Description = “騰訊QQ" ‘快捷方式裡的「備註」
oShellLink.WorkingDirectory = “d:\qq" ‘快捷方式裡的「起始位置」
oShellLink.Save ‘建立快捷方式

例2:

如果你是創建程序的快捷方式,以下代碼即可:
set WshShell = WScript.CreateObject(“WScript.Shell") ‘設置CreateObject 方法
strDesktop = WshShell.SpecialFolders(“Desktop") ‘取得「桌面」的路徑
set oShellLink = WshShell.CreateShortcut(strDesktop & “\騰訊QQ.lnk") ‘設置快捷方式將要保存到的路徑和快捷方式名,你也可以指定一個真實存在的路徑,這個範例是創建到桌面
oShellLink.TargetPath = “d:\qq\QQ木馬清除.vbs" ‘快捷方式裡的「目標」
oShellLink.WorkingDirectory = “d:\qq" ‘快捷方式裡的「起始位置」
oShellLink.Save ‘建立快捷方式

例3:

Rem 共同創建多個快捷方式
Set WshShell = WScript.CreateObject(“WScript.Shell")
strDesktop = WshShell.SpecialFolders(“Desktop") :’特殊文件夾「桌面」
Rem 在桌面創建一個記事本快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & “\記事本.lnk")
oShellLink.TargetPath = “notepad.exe" : ‘目標
oShellLink.WindowStyle = 3 :’參數1默認窗口激活,參數3最大化激活,參數7最小化
oShellLink.Hotkey = “Ctrl+Alt+e" : ‘快捷鍵
oShellLink.IconLocation = “notepad.exe": ‘圖標
oShellLink.Description = “記事本快捷方式" : ‘備註
oShellLink.WorkingDirectory = strDesktop : ‘起始位置
oShellLink.Save : ‘創建保存快捷方式
Rem 在桌面創建一個 騰訊QQ 2007
set oShellLink = WshShell.CreateShortcut(strDesktop & “\騰訊QQ 2007 .lnk")
oShellLink.TargetPath = “D:\Tencent\QQ\QQ.exe" : ‘目標
oShellLink.WindowStyle = 3 :’參數1默認窗口激活,參數3最大化激活,參數7最小化
oShellLink.Hotkey = “Ctrl+Alt+q" : ‘快捷鍵
oShellLink.IconLocation = “D:\Tencent\QQ\QQ.exe" : ‘圖標
oShellLink.Description = “騰訊QQ 2007″ : ‘備註
oShellLink.WorkingDirectory = strDesktop : ‘起始位置
oShellLink.Save : ‘創建保存快捷方式
Rem 在桌面創建一個「微軟中國」的Url快捷方式
set oUrlLink = WshShell.CreateShortcut(strDesktop & “\百度搜索.url")
oUrlLink.TargetPath = “http://www.baidu.com/"
oUrlLink.Save

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / 變更 )

Twitter picture

You are commenting using your Twitter account. Log Out / 變更 )

Facebook照片

You are commenting using your Facebook account. Log Out / 變更 )

Google+ photo

You are commenting using your Google+ account. Log Out / 變更 )

連結到 %s