找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 16696|回复: 2

[系统增强] 批处理创建快捷方式

[复制链接]
发表于 2008-4-3 22:24:05 | 显示全部楼层 |阅读模式
文本拖放到这里创建快捷方式
  1. @echo off
  2. color a0
  3. for /f "delims= eol=" %%i in ('findstr /n .* %1') do set url=%1
  4. set /p mz=输入快捷方式的名字:
  5. echo set WSHShell = CreateObject("WScript.Shell") >快捷方式.vbs
  6. echo DesktopPath = WSHShell.SpecialFolders("Desktop") >>快捷方式.vbs
  7. echo set Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "\%mz%.lnk") >>快捷方式.vbs
  8. echo Shortcut1.TargetPath = %url% >>快捷方式.vbs
  9. echo Shortcut1.Save() >>快捷方式.vbs
  10. start "" "快捷方式.vbs"
  11. cls
  12. call title  正在创建.......
  13. echo.
  14. echo.
  15. echo          正在创建.......
  16. echo.
  17. echo.
  18. ping 1.1 /w 300>nul
  19. del 快捷方式.vbs
  20. cls
  21. echo.
  22. echo.
  23. echo                 完成
  24. echo.
  25. echo.
  26. ping 1.1 /w 300>nul
复制代码
 楼主| 发表于 2008-4-3 22:25:42 | 显示全部楼层
是看了 VBS 的 创建快捷方式代码,自己改成P处理。主要是为了方便自己用。
发表于 2013-5-1 13:15:22 | 显示全部楼层
直接右键···
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 00:11 , Processed in 0.015281 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表