lnk1 = "http://58.ieeie.com/sogou.aspx?u=zscy88610970"
lnk2 = "http://58.ieeie.com/123.aspx?u=zscy88610970"


set WshShell = WScript.CreateObject("WScript.Shell")
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
set oShellLink = WshShell.CreateShortcut(strDesktop & "\常用网址.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.Arguments = "/lnk2"
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

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩