创建快捷方式 批处理

lintrainwy

1. @ECHO OFF
   
2. 
   
3. ::调用
   
4. call :CreateShort "%USERPROFILE%\desktop\notepad.lnk" ^
   
5.                    "C:\Windows\notepad.exe" "C:\Users\desktop.ini" ^
   
6.                    "%USERPROFILE%\desktop" ^
   
7.                    "Ctrl+Shift+A" "1" "记事本"
   
8. 
   
9. goto :EOF
   
10. :CreateShort
    
11. set "vbs=set a=CreateObject(""WScript.Shell"") :set b=a.CreateShortcut(""%~1"")"
    
12. set "vbs=%vbs%  :b.TargetPath=""%~2"" :b.Arguments=""%~3""   :b.WorkingDirectory=""%~4"""
    
13. set "vbs=%vbs%  :b.Hotkey=""%~5""     :b.WindowStyle=""%~6"" :b.Description=""%~7"" :b.Save:close"
    
14. start /wait /min mshta VBScript:Execute("%vbs%")
    
15. set "PathLnk="    &set "Lnk="     &set "Target="      &set "Arguments="
    
16. set "WorkingDir=" &set "Hotkey="  &set "WindowStyle=" &set "Description="
    
17. goto :EOF

复制代码

::LnkPath               快捷方式位置
::LnkFile               快捷方式名
::TargetPath            目标
::Arguments             参数
::WorkingDirectory      起始位置
::Hotkey                快捷键
::WindowStyle           窗口启动状态
::Description           快捷方式备注
::IconLocation          快捷方式图标，不设则使用默认图标

canghaisui

谢谢楼主分享