发送快捷方式

1. 首先，准备一个存放快捷方式的文件夹
   比如：D:\Program Files\S\
2. 创建一个文件，并修改第一行

strFolder = "D:\Program Files\S\"
Set unNamedArguments = WScript.Arguments.UnNamed 
set WshShell = WScript.CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
for count = 0 to wscript.arguments.count-1 Step 1 
    filename = unNamedArguments.Item(count) 
    Set objFile = objFSO.GetFile(filename) 
    set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk") 
    oShellLink.TargetPath = filename 
    oShellLink.WindowStyle = 1 
    oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename) 
    oShellLink.Save 
NEXT

3. 将文件命名为send.vbs
4. 双击运行send.vbs，然后去查看右键菜单就行了。