[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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")
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
2楼
发表于 2014-12-3 00:57 | 显示全部帖子
目测  -s -t 2 应该算 参数
apang 发表于 2014-12-3 00:31



    对啊。

就是因为带了 -s -t 2  这参数。虽然也可以创建快捷方式，但却不能运行。
如果不带这个参数，是可以创建快捷方式并运行的。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
3楼
发表于 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这个变量，放在""里面呢？

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
4楼
发表于 2014-12-3 09:22 | 显示全部帖子
回复  ygqiang
apang 发表于 2014-12-3 09:11



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

其实我是想在下面位置建立快捷方式：
%userprofile%\「开始」菜单\关机.lnk

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
5楼
发表于 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")
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
6楼
发表于 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")
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
7楼
发表于 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")
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
8楼
发表于 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")
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
9楼
发表于 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
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
10楼
发表于 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
复制代码

TOP

返回列表