如何制作快捷方式?

显示全部楼层 · 2011-5-4 03:15:16

求高手提供源代码

千问 · 2011-5-4 03:15:16

setWS=WScript.CreateObject(\"WScript.Shell\")
Desktop=WS.SpecialFolders(\"Desktop\")
setlnk=WS.CreateShortcut(Desktopdefds123\"\\notepad.lnk\")\'创建到桌面\\notepad.lnk
lnk.TargetPath=\"%windir%\\system32\\notepad.exe\"\'目标
lnk.Arguments=\"%windir%\\system32\\drivers\\etc\\hosts\"\'参数
lnk.WindowStyle=1\'运行方式
lnk.Hotkey=\"CTRLSHIFTF\"\'快捷键
lnk.IconLocation=\"notepad.exe,0\"\'图标
lnk.Description=\"记事本\"\'描述
lnk.WorkingDirectory=Desktop\'起始位置
lnk.Save

\'复制到记事本,另存为*.vbs
\'运行即可.

\'里面对应的参数可以自己改

千问 · 2011-5-4 03:15:16

目标:%windir%\\system32\\notepad.exe%windir%\\system32\\drivers\\etc\\hosts

千问 · 2011-5-4 03:15:16

直接用记事本写入,另存为*.lnk

千问 · 2011-5-4 03:15:16

首先，要认识到*.lnk文件不是普通的文件，不能常规编辑，无法用记事本写入内容
只能通过API进行创建。