freesoft00

回复 14# pcl_test


    好的，再次谢谢！

pcl_test

回复 13# freesoft00

::创建exe文件的lnk快捷方式
@echo off
set "SrcFile=%SystemRoot%\system32\shutdown.exe"
set "Args=-s -t 2"
set "LnkFile=关机.LNK"
set "IconPath=C:\1.ico"
call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"
pause & goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
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

回复 6# apang




    ::IconLocation
我想修改快捷方式的图标文件指向，这个添加到哪里？谢谢！

ygqiang

已经解决。

::创建exe文件的lnk快捷方式
@echo off
set "SrcFile=%SystemRoot%\system32\shutdown.exe"
set "Args=-s -t 2"
set "LnkFile=关机.LNK"
call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"
pause & goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
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

回复  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，好像也没用啊。

::创建exe文件的lnk快捷方式
@echo off
set "SrcFile=%SystemRoot%\system32\shutdown.exe"
set "Args=-s -t 2"
set "LnkFile=关机.LNK"
call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"
pause & goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
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")
复制代码

apang

回复 9# ygqiang


    晕死，你在代码中找找哪里有DeskTop，把它改成 StartMenu

ygqiang

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

    多谢。。。


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

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

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

::创建exe文件的lnk快捷方式
@echo off
set "SrcFile=%SystemRoot%\system32\shutdown.exe"
set "Args=-s -t 2"
set "LnkFile=关机.LNK"
call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"
pause & goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
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

回复 7# ygqiang


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

另外，startmenu 对应的是 开始菜单

ygqiang

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

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

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

apang

回复 3# ygqiang

::创建exe文件的lnk快捷方式
@echo off
set "SrcFile=%SystemRoot%\system32\shutdown.exe"
set "Args=-s -t 2"
set "LnkFile=关机.LNK"
call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"
pause & goto :eof

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
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

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这个变量，放在""里面呢？

czjt1234

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

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

ygqiang

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

    对啊。

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

apang

目测  -s -t 2 应该算 参数