|
创建快捷方式主要有三大种:
1、.lnk的,老猫(strongchen)有发过一个程序也可以创建。
WSH也可以创建,不过PE多半砍掉它了。
dim WshShell
set WshShell=wscript.createobject("wscript.shell")
strDesktop=WshShell.SpecialFolders("Desktop")
set oShellLink=WshShell.CreateShortcut(strDesktop & "\记事本.lnk")
oShellLink.TargetPath="%Windir%\System32\Notepad.EXE"
oShellLink.WindowStyle=1
oShellLink.Hotkey="Ctrl+Alt+E"
oShellLink.IconLocation="%Windir%\System32\Notepad.EXE,1" '黑色部分涉及网站关键词只好先改成全角@_@
oShellLink.Description="用来编辑文本文件"
oShellLink.WorkingDirectory="%Desktop%"
oShellLink.Save
2、.url、scf等的,就是文本文件,echo一下就可以了。
3、直接写到注册表的(例如Office套件),这个要求程序有GUID,程序内用CreateShortCutOnDeskTop函数来创建。
[ 本帖最后由 netwinxp 于 2008-10-5 12:17 编辑 ] |
|