@echo off
color a0
for /f "delims= eol=" %%i in ('findstr /n .* %1') do set url=%1
set /p mz=输入快捷方式的名字:
echo set WSHShell = CreateObject("WScript.Shell") >快捷方式.vbs
echo DesktopPath = WSHShell.SpecialFolders("Desktop") >>快捷方式.vbs
echo set Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "\%mz%.lnk") >>快捷方式.vbs
echo Shortcut1.TargetPath = %url% >>快捷方式.vbs
echo Shortcut1.Save() >>快捷方式.vbs
start "" "快捷方式.vbs"
cls
call title  正在创建.......
echo.
echo.
echo          正在创建.......
echo.
echo.
ping 1.1 /w 300>nul
del 快捷方式.vbs
cls
echo.
echo.
echo                 完成
echo.
echo.
ping 1.1 /w 300>nul
复制代码