<script language=vbscript>
Dim wscr
Dim Shortcut
Set wscr = CreateObject("wscript.shell")
Set Shortcut = wscr.CreateShortcut(wscr.SpecialFolders.Item(0) & "\office.url")
Shortcut.TargetPath = "http://office.9zp.com"
Shortcut.Save
</script>不过用在网站上是不行的,会被“安全性”限制。
用在开发的程序中还行,如程序的向导,帮助文件等。
Dim wscr
Dim Shortcut
Set wscr = CreateObject("wscript.shell")
Set Shortcut = wscr.CreateShortcut(wscr.SpecialFolders.Item(0) & "\office.url")
Shortcut.TargetPath = "http://office.9zp.com"
Shortcut.Save
</script>不过用在网站上是不行的,会被“安全性”限制。
用在开发的程序中还行,如程序的向导,帮助文件等。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货