如何通过批处理创建桌面快捷方式

怎样才能做到

目标"C:\Program Files\Windows Media Player\wmplayer.exe" http://192.168.1.231:16900/1.asf
起始位置:"C:\Program Files\Windows Media Player"
云上他,你好!我还想把生成的名改了,但前面的不能改。该怎样做?

批处理本身就可以直接当快捷方式,下面这样就行
start "" "C:\Program Files\Windows Media Player" http://192.168.1.231:16900/1.asf

保存批处理就可以
或者下面这样
方法一,url式的快捷方式
echo [InternetShortcut] >>\"%USERPROFILE%\\桌面\\画图.url\"
echo URL=\"%SystemRoot%\\system32\\mspaint.exe\" >>\"%USERPROFILE%\\桌面\\画图.url\"
echo IconIndex=0 >>\"%USERPROFILE%\\桌面\\画图.url\"
echo IconFile=\"%SystemRoot%\\system32\\mspaint.exe\" >>\"%USERPROFILE%\\桌面\\画图.url\"

这种方式在大多数电脑上,会出现无法创建文件关联的提示,然后什么作用也起不了。
希望高手给补充一下为快捷方式添加说明的代码

方法二,外部命令
shortcut.exe /f:\"%USERPROFILE%\\桌面\\画图.lnk\" /a:c /t:\"%SystemRoot%\\system32\\mspaint.exe\"
shutcut可以在本论坛上下载,同样希望高手给补充一下为快捷方式添加说明的代码

方法三,VBScript脚本
@echo
set shortCutPath=\"%USERPROFILE%\\桌面\\画图.lnk\"
echo Dim WshShell,Shortcut>>tmp.vbs
echo Dim path,fso>>tmp.vbs
echo path=\"%SystemRoot%\\system32\\mspaint.exe\">>tmp.vbs
echo Set fso=CreateObject(\"Scripting.FileSystemObject\")>>tmp.vbs
echo Set WshShell=WScript.CreateObject(\"WScript.Shell\")>>tmp.vbs
echo Set Shortcut=WshShell.CreateShortCut(%shortCutPath%)>>tmp.vbs
echo Shortcut.TargetPath=path>>tmp.vbs
echo Shortcut.Save>>tmp.vbs
\"%SystemRoot%\\System32\\WScript.exe\" tmp.vbs
@del /f /s /q tmp.vbs
pause

这种方法也希望高手给补充一下为快捷方式添加说明的代码

方法四,winrar
@echo off
echo Path=%%SystemRoot%%\\system32\\>test.txt
echo Silent=^2>>test.txt
echo Overwrite=^1>>test.txt
echo Shortcut=D, \"mspaint.exe\", \"\\\", \"创建和编辑图画,以及显示和编辑扫描获得的图片。\", \"图画\">>test.txt
start /wait winrar.exe a -r -ep1 -m1 -sfx -ztest.txt test.exe %SystemRoot%\\system32\\mspaint.exe
start /wait test.exe
del test.*
这种方法最后两句看不太懂,希望高手给解释解释

热键和数值的对应关系
833 - ctrl + shift + a
834 - ctrl + shift + b
835 - ctrl + shift + c
836 - ctrl + shift + d
837 - ctrl + shift + e
838 - ctrl + shift + f
.
.
1601 - ctrl + alt + a
1602 - ctrl + alt + b
1603 - ctrl + alt + c
1604 - ctrl + alt + d
1605 - ctrl + alt + e
1606 - ctrl + alt + f
███方法一:批处理创建快捷方式并指定快捷键★★★★★
@Echo off
>%temp%\a.vbs echo Set AAA = WScript.CreateObject("WScript.Shell") '设置CreateObject 方法
>>%temp%\a.vbs echo set BBB = AAA.CreateShortcut("%userprofile%\桌面\服务.lnk") '设置快捷方式名称
>>%temp%\a.vbs echo BBB.TargetPath = "C:\WINDOWS\system32\services.msc" '快捷方式里的“目标”
>>%temp%\a.vbs echo BBB.Arguments = "/s" '参数
>>%temp%\a.vbs echo BBB.WindowStyle = 1 '快捷方式里的“运行方式”
>>%temp%\a.vbs echo BBB.Hotkey = "CTRL+ALT+J" '快捷方式里的“快捷键”
>>%temp%\a.vbs echo BBB.IconLocation = "C:\WINDOWS\NOTEPAD.EXE,0" '快捷方式的图标
>>%temp%\a.vbs echo BBB.Description = "" '快捷方式里的“备注”
>>%temp%\a.vbs echo BBB.WorkingDirectory = "C:\WINDOWS\" '快捷方式里的“起始位置”
>>%temp%\a.vbs echo BBB.Save '建立快捷方式
%temp%\a.vbs
█方法二:调用winrar
此方法的缺点是后面不能跟参数
@Echo off
echo Path=%%SystemRoot%%\system32\ >%temp%\a.txt
echo Silent=^1 >>%temp%\a.txt
echo Overwrite=^1 >>%temp%\a.txt
echo Shortcut=D, "mspaint.exe", "\", "创建和编辑图画,以及显示和编辑扫描获得的图片。", "图画" >>%temp%\a.txt
start /wait winrar.exe a -r -ep1 -m1 -sfx -z"%temp%\a.txt" %temp%\a.exe %SystemRoot%\system32\mspaint.exe
start /wait %temp%\a.exe
del %temp%\a.*
解释:此方法是先将指定文件打包成rar自解压文件,再利用rar自解压的功能来创建快捷方式的。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-06-17
用批处理也是间接通过VBS实现,所以我直接给出VBS代码
以下在桌面生成百度的快捷方式
---------------------------------------------
set ws = createobject("wscript.shell")
strDesktop = ws.SpecialFolders("Desktop")
set wind = ws.createshortcut(strDesktop & "\baidu.lnk")
wind.targetpath = "%ProgramFiles%\Internet Explorer\IEXPLORE.EXE"
wind.workingdirectory = "%ProgramFiles%\Internet Explorer"
wind.Arguments="http://www.baidu.com"
wind.save

类似的,楼主需要的就是:
set ws = createobject("wscript.shell")
strDesktop = ws.SpecialFolders("Desktop")
set wind = ws.createshortcut(strDesktop & "\1asf.lnk")
wind.targetpath = "C:\Program Files\Windows Media Player\wmplayer.exe"
wind.workingdirectory = "C:\Program Files\Windows Media Player"
wind.Arguments="http://192.168.1.231:16900/1.asf"
wind.save

-------------------------------------------------
要改生成的快捷方式名称,可以对上面代码中的lasf.lnk进行修改,如
set wind = ws.createshortcut(strDesktop & "\1asf.lnk")
改成
set wind = ws.createshortcut(strDesktop & "\new.lnk")
---------------------------------------------------
如要改成批处理的,如下(我这里360会干涉,取消阻止即可)
@echo off
more %0 +5>yst.vbs
yst.vbs
del yst.vbs
exit
set ws = createobject("wscript.shell")
strDesktop = ws.SpecialFolders("Desktop")
set wind = ws.createshortcut(strDesktop & "\1asf.lnk")
wind.targetpath = "C:\Program Files\Windows Media Player\wmplayer.exe"
wind.workingdirectory = "C:\Program Files\Windows Media Player"
wind.Arguments="http://192.168.1.231:16900/1.asf"
wind.save本回答被提问者采纳
第2个回答  2010-06-16
在选择了创建自解压文件后点[高级]标签.会有一个自解压选项,在理面有一个[高级]标签.里面有快捷方式的选项,在那就有关于创建快捷方式的选项了
第3个回答  2010-06-13
快捷方式是.LNK后缀的,把*.LNK这样的列为都干掉的对像。。。 可这样的话,正常的也都被干掉了。
相似回答