2个回答
2013-08-15
展开全部
以创建迅雷快捷方式为例,快捷键F5@echo offset vbs=%temp%\ShortCut.vbs
for /f "delims=:" %%a in ('findstr /n /b "::code" %0') do (more +%%a %0>"%vbs%")set desk=%ALLUSERSPROFILE%\桌面
set prog=C:\Program Files\Thunder Network\Thunder\Program\Thunder.exeecho.&echo 正在创建快捷方式
start /wait "" "%vbs%" "%prog%" "%desk%\迅雷.lnk":end
echo.&echo 按任意键退出!
if exist "%vbs%" del "%vbs%"
pause>nul
exit::code
Dim WshShell,Shortcut,fso
Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shortcut=WshShell.CreateShortCut(Wscript.Arguments(1))
Shortcut.TargetPath=Wscript.Arguments(0)
Shortcut.Hotkey="F5"
Shortcut.Save
for /f "delims=:" %%a in ('findstr /n /b "::code" %0') do (more +%%a %0>"%vbs%")set desk=%ALLUSERSPROFILE%\桌面
set prog=C:\Program Files\Thunder Network\Thunder\Program\Thunder.exeecho.&echo 正在创建快捷方式
start /wait "" "%vbs%" "%prog%" "%desk%\迅雷.lnk":end
echo.&echo 按任意键退出!
if exist "%vbs%" del "%vbs%"
pause>nul
exit::code
Dim WshShell,Shortcut,fso
Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shortcut=WshShell.CreateShortCut(Wscript.Arguments(1))
Shortcut.TargetPath=Wscript.Arguments(0)
Shortcut.Hotkey="F5"
Shortcut.Save
2013-08-15
展开全部
输入 制定的路径
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询