Board logo

标题: [系统相关] [已解决]批处理如何在桌面创建目标程序带参数的快捷方式？ [打印本页]
作者: ygqiang    时间: 2014-12-3 00:25     标题: [已解决]批处理如何在桌面创建目标程序带参数的快捷方式？

本帖最后由 pcl_test 于 2016-7-17 12:14 编辑

[已解决]如何用bat批处理，在桌面建立“关机.lnk”快捷方式(带参数的特殊情况)？
快捷命令是：C:\WINDOWS\system32\shutdown.exe -s -t 1

下面2个bat命令，
因为带了 -s -t 2  这参数。虽然也可以创建快捷方式，但却不能运行。
如果不带这个参数，是可以创建快捷方式并运行的。
  1. ;创建文件的快捷方式

  2. set path=C:\WINDOWS\system32\shutdown.exe -s -t 2

  3. rem 要创建快捷方式的文件

  4. set result="%USERPROFILE%\桌面\关机.lnk"

  5. rem 要创建快捷方式的地方

  6. echo [InternetShortcut] >> %result%

  7. echo url="%path%" >> %result%

  8. rem url一定要写

  9. echo IconIndex=0 >> %result%

  10. echo IconFile=%path% >> %result%

  11. 

  12. 

  13. -----------------------------------------------

  14. ;创建exe文件的lnk快捷方式

  15. set SrcFile=%SystemRoot%\system32\shutdown -s -t 2

  16. set LnkFile==%USERPROFILE%\桌面\关机

  17. call :CreateShort "%SrcFile%" "%LnkFile%"

  18. goto :eof

  19. 

  20. ::Arguments              目标程序参数

  21. ::Description            快捷方式备注

  22. ::FullName               返回快捷方式完整路径

  23. ::Hotkey                 快捷方式快捷键

  24. ::IconLocation           快捷方式图标，不设则使用默认图标

  25. ::TargetPath             目标

  26. ::WindowStyle            窗口启动状态

  27. ::WorkingDirectory       起始位置

  28. 

  29. :CreateShort

  30. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码
作者: apang    时间: 2014-12-3 00:31

目测  -s -t 2 应该算 参数
作者: ygqiang    时间: 2014-12-3 00:57

目测  -s -t 2 应该算 参数
apang 发表于 2014-12-3 00:31



    对啊。

就是因为带了 -s -t 2  这参数。虽然也可以创建快捷方式，但却不能运行。
如果不带这个参数，是可以创建快捷方式并运行的。
作者: czjt1234    时间: 2014-12-3 07:03

set path=C:\WINDOWS\system32\shutdown.exe -s -t 2

set "path=C:\WINDOWS\system32\shutdown.exe -s -t 2"
作者: ygqiang    时间: 2014-12-3 07:26

set path=C:\WINDOWS\system32\shutdown.exe -s -t 2

set "path=C:\WINDOWS\system32\shutdown.exe -s - ...
czjt1234 发表于 2014-12-3 07:03



    set "path=C:\WINDOWS\system32\shutdown.exe -s -t 2"

为啥要将path这个变量，放在""里面呢？
作者: apang    时间: 2014-12-3 09:11

回复 3# ygqiang 
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
复制代码
作者: ygqiang    时间: 2014-12-3 09:22

回复  ygqiang
apang 发表于 2014-12-3 09:11



    多谢。不过你这个bat代码，通用性如何？

其实我是想在下面位置建立快捷方式：
%userprofile%\「开始」菜单\关机.lnk
作者: apang    时间: 2014-12-3 09:51

回复 7# ygqiang


    比你的通用性好。不同的系统，桌面路径不一样，%userprofile%\桌面 只适用于中文xp系统

另外，startmenu 对应的是 开始菜单
作者: ygqiang    时间: 2014-12-3 09:57

回复  ygqiang
apang 发表于 2014-12-3 09:11



    多谢。。。


你给的代码可以在桌面生成快捷方式，并且可以运行。

xp系统下，如何修改成在下面位置建立快捷方式？
%userprofile%\「开始」菜单\关机.lnk

或者win7系统下，如何修改成在下面位置建立快捷方式？
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
复制代码
作者: apang    时间: 2014-12-3 10:20

回复 9# ygqiang


    晕死，你在代码中找找哪里有DeskTop，把它改成 StartMenu
作者: ygqiang    时间: 2014-12-3 10:28

回复  ygqiang


    晕死，你在代码中找找哪里有DeskTop，把它改成 StartMenu
apang 发表于 2014-12-3 10:20



   
回复  ygqiang


    晕死，你在代码中找找哪里有DeskTop，把它改成 StartMenu
apang 发表于 2014-12-3 10:20



    多谢。再请教1个小问题。。


下面这个bat命令，在「开始」菜单建立快捷方式，并且可以运行。

win7系统下，如何修改成在下面位置建立快捷方式？
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\

startmenu改成accessories，好像也没用啊。
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startmenu"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
复制代码
作者: ygqiang    时间: 2014-12-3 11:33

已经解决。
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
复制代码
作者: freesoft00    时间: 2015-3-19 12:42

回复 6# apang




    ::IconLocation
我想修改快捷方式的图标文件指向，这个添加到哪里？谢谢！
作者: pcl_test    时间: 2015-3-19 13:22

本帖最后由 pcl_test 于 2015-3-22 12:22 编辑

回复 13# freesoft00 
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. set "IconPath=C:\1.ico"

  7. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"

  8. pause & goto :eof

  9. 

  10. ::Arguments              目标程序参数

  11. ::Description            快捷方式备注

  12. ::FullName               返回快捷方式完整路径

  13. ::Hotkey                 快捷方式快捷键

  14. ::IconLocation           快捷方式图标，不设则使用默认图标

  15. ::TargetPath             目标

  16. ::WindowStyle            窗口启动状态

  17. ::WorkingDirectory       起始位置

  18. 

  19. :CreateShort

  20. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.IconLocation=""%~4"":b.Save:close")
复制代码
作者: freesoft00    时间: 2015-3-19 22:49

回复 14# pcl_test


    好的，再次谢谢！
作者: freesoft00    时间: 2015-3-21 12:00

本帖最后由 freesoft00 于 2015-3-21 13:38 编辑

回复 14# pcl_test
在64位的系统中，手动打开
Z:\Windows\SysWOW64\cmd.exe 是管理员权限，然后运行编写的创建快捷方式的批处理，会提示脚本错误。
而在64位的cmd中运行没有问题。
请看一下是哪里的问题？我的测试环境是win8.1

脚本执行的很慢，等老半天才弹出来脚本错误，然后才能继续执行批处理下面的任务。
作者: freesoft00    时间: 2015-3-21 13:36

实在想不出什么好的方法，想用批处理创建url形式的快捷方式，但是不行在win8.1中
创建后的快捷方式路径直接被系统添加上来http://后面是设定的路径。
  1. set "path="%SYSTEMDRIVE%\Program Files\Internet Explorer\iexplore.exe""

  2. set "name=Internet Explorer"

  3. set m="%USERPROFILE%\Desktop\%name%.url"

  4. echo [InternetShortcut] >>%m%

  5. echo URL="%path%" >>%m%

  6. echo IconIndex=1 >>%m%

  7. echo IconFile="%SYSTEMDRIVE%\Program Files\Internet Explorer\iexplore.exe" >>%m%
复制代码
作者: freesoft00    时间: 2015-3-21 13:37

而且图标也是网页的图标，被系统自动设置为了url.dll的图标。
作者: pcl_test    时间: 2015-3-21 21:07

本帖最后由 pcl_test 于 2016-6-4 23:31 编辑

回复 16# freesoft00
直接双击运行批处理文件不行吗？怎么还要手动打开cmd？把错误提示截图看看
作者: pcl_test    时间: 2015-3-21 21:15

回复 17# freesoft00 
  1. set "dir=%SYSTEMDRIVE%\Program Files\Internet Explorer\iexplore.exe"

  2. set "name=Internet Explorer"

  3. set "m=%USERPROFILE%\Desktop\%name%.url"

  4. (echo [InternetShortcut]

  5. echo URL="%dir%"

  6. echo IconIndex=0

  7. echo IconFile="%SYSTEMDRIVE%\Program Files\Internet Explorer\iexplore.exe")>"%m%"
复制代码
作者: freesoft00    时间: 2015-3-21 21:28

本帖最后由 freesoft00 于 2015-3-21 21:30 编辑

回复 19# pcl_test
不是不行，因为有些系统双击打开的是64位的cmd就没有什么问题，有些双击打开的就是32位的cmd，这个时候就不行了。所以需要手动打开32位的cmd环境，然后再运行批处理才能测试出来。
我在论坛搜索了64这个关键才，好像vbs有这个问题。
这里：
http://www.bathome.net/viewthread.php?tid=34003&highlight=64
我不知道是不是和我的是一个问题，我看不懂那个帖子的代码，所以不知道如何修改我的创建快捷方式的批处理测试。
作者: pcl_test    时间: 2015-3-21 22:07

回复 21# freesoft00
你的错误提示是什么？
作者: freesoft00    时间: 2015-3-21 22:16

回复 22# pcl_test


    现在不在故障机器旁白，如果可以明天下午或者晚上截图上来。
作者: freesoft00    时间: 2015-3-21 22:36

回复 20# pcl_test
这个和上面那个应该没有区别吧？
作者: ygqiang    时间: 2015-3-22 12:09

回复  freesoft00
pcl_test 发表于 2015-3-19 13:22



    请教下。。。xp系统环境下，如何将开始菜单里面的“关机”、“注销”图标，换成下面这2种图标外观？谢谢
  1. -----------------------------------------------

  2. ;创建exe文件的lnk快捷方式

  3. set SrcFile=logoff

  4. set LnkFile=%userprofile%\「开始」菜单\注销

  5. call :CreateShort "%SrcFile%" "%LnkFile%"

  6. goto :eof

  7. 

  8. ::Arguments              目标程序参数

  9. ::Description            快捷方式备注

  10. ::FullName               返回快捷方式完整路径

  11. ::Hotkey                 快捷方式快捷键

  12. ::IconLocation           快捷方式图标，不设则使用默认图标

  13. ::TargetPath             目标

  14. ::WindowStyle            窗口启动状态

  15. ::WorkingDirectory       起始位置

  16. 

  17. :CreateShort

  18. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码
  1. -----------------------------------------------

  2. ;创建exe文件的lnk快捷方式

  3. set SrcFile=%SystemRoot%\system32\shutdn.bat

  4. set LnkFile=%userprofile%\「开始」菜单\关机

  5. call :CreateShort "%SrcFile%" "%LnkFile%"

  6. goto :eof

  7. 

  8. ::Arguments              目标程序参数

  9. ::Description            快捷方式备注

  10. ::FullName               返回快捷方式完整路径

  11. ::Hotkey                 快捷方式快捷键

  12. ::IconLocation           快捷方式图标，不设则使用默认图标

  13. ::TargetPath             目标

  14. ::WindowStyle            窗口启动状态

  15. ::WorkingDirectory       起始位置

  16. 

  17. :CreateShort

  18. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码
作者: apang    时间: 2015-3-22 15:09

回复 25# ygqiang


    关机和注销图标在 %windir%\system32\shell32.dll里
随便找一个快捷方式，点击更改图标，定位到%windir%\system32\shell32.dll，从上往下数，看关机图标是第几个
比如win7关机图标是第27个，那么在代码中加一句：
b.IconLocation=""%windir%\system32\shell32.dll, 27""
作者: ygqiang    时间: 2015-3-22 22:52

回复  ygqiang


    关机和注销图标在 %windir%\system32\shell32.dll里
随便找一个快捷方式，点击更 ...
apang 发表于 2015-3-22 15:09



   
解决了。感谢。xp系统下，代码如下：
  1. -----------------------------------------------

  2. del /f /q "%userprofile%\「开始」菜单\关机.*"

  3. del /f /q "%userprofile%\「开始」菜单\画图.*"

  4. del /f /q "%userprofile%\「开始」菜单\计算器.*"

  5. del /f /q "%userprofile%\「开始」菜单\记事本.*"

  6. del /f /q "%userprofile%\「开始」菜单\命令提示符.*"

  7. 

  8. del /f /q "%userprofile%\「开始」菜单\注销.*"

  9. del /f /q "%userprofile%\「开始」菜单\我的电脑.lnk"

  10. 

  11. ping 127.0.0.1 -n 3 >nul 2>nul

  12. 

  13. -----------------------------------------------

  14. ;创建exe文件的lnk快捷方式

  15. set SrcFile=%SystemRoot%\system32\shutdn.bat

  16. set LnkFile=%userprofile%\「开始」菜单\关机

  17. call :CreateShort "%SrcFile%" "%LnkFile%" "%IconPath%"

  18. goto :eof

  19. 

  20. ::Arguments              目标程序参数

  21. ::Description            快捷方式备注

  22. ::FullName               返回快捷方式完整路径

  23. ::Hotkey                 快捷方式快捷键

  24. ::IconLocation           快捷方式图标，不设则使用默认图标

  25. ::TargetPath             目标

  26. ::WindowStyle            窗口启动状态

  27. ::WorkingDirectory       起始位置

  28. 

  29. :CreateShort

  30. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.IconLocation=""%windir%\system32\shell32.dll,27"":b.Save:close")

  31. 

  32. -----------------------------------------------

  33. ;创建exe文件的lnk快捷方式

  34. set SrcFile=%SystemRoot%\system32\mspaint.exe

  35. set LnkFile=%userprofile%\「开始」菜单\画图

  36. call :CreateShort "%SrcFile%" "%LnkFile%"

  37. goto :eof

  38. 

  39. ::Arguments              目标程序参数

  40. ::Description            快捷方式备注

  41. ::FullName               返回快捷方式完整路径

  42. ::Hotkey                 快捷方式快捷键

  43. ::IconLocation           快捷方式图标，不设则使用默认图标

  44. ::TargetPath             目标

  45. ::WindowStyle            窗口启动状态

  46. ::WorkingDirectory       起始位置

  47. 

  48. :CreateShort

  49. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

  50. 

  51. -----------------------------------------------

  52. ;创建exe文件的lnk快捷方式

  53. set SrcFile=%SystemRoot%\system32\calc.exe

  54. set LnkFile=%userprofile%\「开始」菜单\计算器

  55. call :CreateShort "%SrcFile%" "%LnkFile%"

  56. goto :eof

  57. 

  58. ::Arguments              目标程序参数

  59. ::Description            快捷方式备注

  60. ::FullName               返回快捷方式完整路径

  61. ::Hotkey                 快捷方式快捷键

  62. ::IconLocation           快捷方式图标，不设则使用默认图标

  63. ::TargetPath             目标

  64. ::WindowStyle            窗口启动状态

  65. ::WorkingDirectory       起始位置

  66. 

  67. :CreateShort

  68. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

  69. 

  70. -----------------------------------------------

  71. ;创建exe文件的lnk快捷方式

  72. set SrcFile=%SystemRoot%\system32\notepad.exe

  73. set LnkFile=%userprofile%\「开始」菜单\记事本

  74. call :CreateShort "%SrcFile%" "%LnkFile%"

  75. goto :eof

  76. 

  77. ::Arguments              目标程序参数

  78. ::Description            快捷方式备注

  79. ::FullName               返回快捷方式完整路径

  80. ::Hotkey                 快捷方式快捷键

  81. ::IconLocation           快捷方式图标，不设则使用默认图标

  82. ::TargetPath             目标

  83. ::WindowStyle            窗口启动状态

  84. ::WorkingDirectory       起始位置

  85. 

  86. :CreateShort

  87. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

  88. 

  89. -----------------------------------------------

  90. ;创建exe文件的lnk快捷方式

  91. set SrcFile=%SystemRoot%\system32\cmd.exe

  92. set LnkFile=%userprofile%\「开始」菜单\命令提示符

  93. call :CreateShort "%SrcFile%" "%LnkFile%"

  94. goto :eof

  95. 

  96. ::Arguments              目标程序参数

  97. ::Description            快捷方式备注

  98. ::FullName               返回快捷方式完整路径

  99. ::Hotkey                 快捷方式快捷键

  100. ::IconLocation           快捷方式图标，不设则使用默认图标

  101. ::TargetPath             目标

  102. ::WindowStyle            窗口启动状态

  103. ::WorkingDirectory       起始位置

  104. 

  105. :CreateShort

  106. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

  107. 

  108. 

  109. ping 127.0.0.1 -n 5 >nul 2>nul

  110. 

  111. 

  112. 

  113. -----------------------------------------------

  114. ;创建exe文件的lnk快捷方式

  115. set SrcFile=logoff

  116. set LnkFile=%userprofile%\「开始」菜单\注销

  117. call :CreateShort "%SrcFile%" "%LnkFile%" "%IconPath%"

  118. goto :eof

  119. 

  120. ::Arguments              目标程序参数

  121. ::Description            快捷方式备注

  122. ::FullName               返回快捷方式完整路径

  123. ::Hotkey                 快捷方式快捷键

  124. ::IconLocation           快捷方式图标，不设则使用默认图标

  125. ::TargetPath             目标

  126. ::WindowStyle            窗口启动状态

  127. ::WorkingDirectory       起始位置

  128. 

  129. :CreateShort

  130. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.IconLocation=""%windir%\system32\shell32.dll,44"":b.Save:close")

  131. 

  132. 

  133. -----------------------------------------------

  134. ::创建exe文件的lnk快捷方式

  135. ::xp系统，在开始菜单下面，建立快捷方式

  136. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  137. set "Args=-l -t 2"

  138. set "LnkFile=注销.LNK"

  139. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"

  140. pause & goto :eof

  141. 

  142. ::Arguments              目标程序参数

  143. ::Description            快捷方式备注

  144. ::FullName               返回快捷方式完整路径

  145. ::Hotkey                 快捷方式快捷键

  146. ::IconLocation           快捷方式图标，不设则使用默认图标

  147. ::TargetPath             目标

  148. ::WindowStyle            窗口启动状态

  149. ::WorkingDirectory       起始位置

  150. 

  151. :CreateShort

  152. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""「开始」菜单"") & ""%userprofile%\「开始」菜单\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.IconLocation=""%windir%\system32\shell32.dll,44"":b.Save:close")

  153. 

  154. ping 127.0.0.1 -n 2 >nul 2>nul

  155. 

  156. copy /y 我的电脑.lnk "%userprofile%\「开始」菜单\"

  157. 

  158. exit
复制代码
作者: ygqiang    时间: 2015-3-22 22:53

win7 64系统下，代码如下：
  1. ——————————————————————————————————————————————————

  2. del /q 0000-win7.vbs

  3. 

  4. ::创建exe文件的lnk快捷方式

  5. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式

  6. @echo off

  7. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  8. set "Args=-s -t 2"

  9. set "LnkFile=关机.LNK"

  10. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"

  11. pause & goto :eof

  12. 

  13. ::Arguments              目标程序参数

  14. ::Description            快捷方式备注

  15. ::FullName               返回快捷方式完整路径

  16. ::Hotkey                 快捷方式快捷键

  17. ::IconLocation           快捷方式图标，不设则使用默认图标

  18. ::TargetPath             目标

  19. ::WindowStyle            窗口启动状态

  20. ::WorkingDirectory       起始位置

  21. 

  22. :CreateShort

  23. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startmenu"") & ""\\Programs\accessories\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.IconLocation=""%windir%\system32\shell32.dll,27"":b.Save:close")

  24. 

  25. 

  26. ::创建exe文件的lnk快捷方式

  27. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式

  28. set SrcFile=logoff

  29. set LnkFile=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销

  30. call :CreateShort "%SrcFile%" "%LnkFile%" "%IconPath%"

  31. goto :eof

  32. 

  33. ::Arguments              目标程序参数

  34. ::Description            快捷方式备注

  35. ::FullName               返回快捷方式完整路径

  36. ::Hotkey                 快捷方式快捷键

  37. ::IconLocation           快捷方式图标，不设则使用默认图标

  38. ::TargetPath             目标

  39. ::WindowStyle            窗口启动状态

  40. ::WorkingDirectory       起始位置

  41. 

  42. :CreateShort

  43. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""C:\windows\system32\"":b.IconLocation=""%windir%\system32\shell32.dll,44"":b.Save:close")

  44. 

  45. 

  46. 

  47. set "profils=C:\Program Files"

  48. 

  49. if exist "C:\Program Files (x86)" set "profils=C:\Program Files (x86)"

  50. 

  51. 

  52. ::创建exe文件的lnk快捷方式

  53. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式

  54. set SrcFile=%profils%\Internet Explorer\iexplore.exe

  55. set LnkFile=%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer

  56. call :CreateShort "%SrcFile%" "%LnkFile%"

  57. goto :eof

  58. 

  59. ::Arguments              目标程序参数

  60. ::Description            快捷方式备注

  61. ::FullName               返回快捷方式完整路径

  62. ::Hotkey                 快捷方式快捷键

  63. ::IconLocation           快捷方式图标，不设则使用默认图标

  64. ::TargetPath             目标

  65. ::WindowStyle            窗口启动状态

  66. ::WorkingDirectory       起始位置

  67. 

  68. :CreateShort

  69. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

  70. 

  71. 

  72. 

  73. echo Sub startpin(lnkfile)>>0000-win7.vbs

  74. echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs

  75. echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs

  76. echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs

  77. echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs

  78. echo path=Left(lnkfile,InStrRev(lnkfile,"\"))>>0000-win7.vbs

  79. echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs

  80. echo name=Replace(lnkfile,path,"")>>0000-win7.vbs

  81. echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs

  82. echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs

  83. echo For Each objVerb in colVerbs>>0000-win7.vbs

  84. echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs

  85. echo Next>>0000-win7.vbs

  86. echo End Sub>>0000-win7.vbs

  87. echo startpin Wscript.Arguments(0)>>0000-win7.vbs

  88. 

  89. ping 127.0.0.1 -n 3 >nul 2>nul

  90. 

  91. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Paint.lnk" 画图.lnk

  92. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Calculator.lnk" 计算器.lnk

  93. 

  94. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\System Tools\Resource Monitor.lnk" 资源监视器.lnk

  95. 

  96. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"

  97. 

  98. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Snipping Tool.lnk" 截图.lnk

  99. 

  100. 

  101. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Notepad.lnk" 记事本.lnk

  102. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Command Prompt.lnk" 命令提示符.lnk

  103. 

  104. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"

  105. 

  106. 

  107. 

  108. 

  109. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"

  110. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\计算器.lnk"

  111. 

  112. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"

  113. 

  114. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"

  115. 

  116. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"

  117. 

  118. 

  119. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"

  120. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"

  121. 

  122. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"

  123. 

  124. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer.lnk"

  125. 

  126. ping 127.0.0.1 -n 5 >nul 2>nul

  127. 

  128. del /q 0000-win7.vbs
复制代码
作者: freesoft00    时间: 2015-3-23 19:42

回复 19# pcl_test



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2