Rem 以下為VbScript腳本
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊檔案夾“桌面”
Rem 在桌面創建一個記事本快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\360安全瀏覽器.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Chrome-bin\360se.exe" : '目標
oShellLink.WindowStyle = 3 :'引數1默認視窗激活,引數3最大化激活,引數7最小化
oShellLink.Hotkey = "Ctrl+Alt+e" : '快捷鍵
oShellLink.IconLocation = "C:\Program Files (x86)\Chrome-bin\360se.exe"'圖示
oShellLink.Description = "360瀏覽器快捷方式" : '備注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '創建保存快捷方式
想把第6行的目標替換為"C:\Program Files\360\360se.exe" http://www.baidu.com 這樣一個目標該怎么改那
謝謝大俠
uj5u.com熱心網友回復:
如果你的這段代碼沒有其它問題,那在 oShellLink.Save 之前加上這一句就可以了:
oShellLink.Arguments = "http://www.baidu.com"
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/101134.html
標籤:VB基礎類
