个人随笔和一些网文摘录
http://www.dlxp.cn

Internet Explorer桌面快捷方式的另类设置

lnk1 = "www.baidu.com"
lnk2 = "www.hao123.com"
set WshShell = WScript.CreateObject("WScript.Shell")
strLinkFile=WshShell.SpecialFolders("desktop")&"\Internet Explorer.lnk"
strDesktop = WshShell.SpecialFolders("Desktop")
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
IEPath = ProgramFiles & "\Internet Explorer\iexplore.exe"
Set objArgs = WScript.Arguments
'如果无参数运行则创建快捷方式
if objArgs.Count = 0 then
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\Internet Explorer.lnk")
    oShellLink.TargetPath = WScript.ScriptFullName
    oShellLink.Arguments = "/lnk1"
    oShellLink.IconLocation = IEPath
    oShellLink.WorkingDirectory = WshShell.CurrentDirectory
    oShellLink.Save
    WScript.quit
end if
'根据参数名打开对应的网址
Set argsNamed = objArgs.Named
if argsNamed.Exists("LNK1") Then
    WshShell.Run chr(34) & IEPath & chr(34) & " " & lnk1
end if
if argsNamed.Exists("LNK2") Then
    WshShell.Run chr(34) & IEPath & chr(34) & " " & lnk2
end if

将以上内容另存为:*.VBS即可!~

赞(0)
未经允许不得转载:Leejoa's 生活随笔 » Internet Explorer桌面快捷方式的另类设置