@echo off
color 0a
:head
cls
set /p url=请输入文件的位置:
set /p name=请输入快捷方式的名称:
echo ThePath = "%url%">aaa.vbs
echo lnkname = "%name%.lnk">>aaa.vbs
echo WS = "Wscript.Shell">>aaa.vbs
echo Set Shell = CreateObject(WS)>>aaa.vbs
echo Set Link = Shell.CreateShortcut(lnkname)>>aaa.vbs
echo Link.TargetPath = ThePath>>aaa.vbs
echo Link.Save>>aaa.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>aaa.vbs
echo f = fso.DeleteFile(WScript.ScriptName)>>aaa.vbs
call aaa.vbs
echo 创建完成!按任意键继续创建
pause>nul
goto:head
::说明:复制以上代码到文本文档中,保存为.bat文件,点击直接运行即可(注:部分杀毒软件可能会报毒,请允许此程序的所有操作并添加信任)
取消
评论