创建快捷方式

范本

Option Explicit
Dim wshShell, Shortcut
Dim strDir, strName
strName = "命令提示符"
Set wshShell = WSH.CreateObject("WScript.Shell")
  strDir = wshShell.SpecialFolders("Desktop")
  Set Shortcut = wshShell.CreateShortcut(strDir &_
    "\" & strName & ".lnk")
    Shortcut.TargetPath = "C:\Windows\System32\cmd.exe"
    Shortcut.WindowStyle = 1
    Shortcut.Hotkey = "CTRL+ALT+U"
    Shortcut.Description = "这是命令提示符程序描述"
    Shortcut.WorkingDirectory = strDir
    Shortcut.Save
  Set Shortcut = Nothing
Set wshShell = Nothing

Option Explicit

Dim wshShell, Shortcut

Dim strDir, strName

strName = "命令提示符"

Set wshShell = WSH.CreateObject("WScript.Shell")

strDir = wshShell.SpecialFolders("Desktop")

Set Shortcut = wshShell.CreateShortcut(strDir &_

"\" & strName & ".lnk")

Shortcut.TargetPath = "C:\Windows\System32\cmd.exe"

Shortcut.WindowStyle = 1

Shortcut.Hotkey = "CTRL+ALT+U"

Shortcut.Description = "这是命令提示符程序描述"

Shortcut.WorkingDirectory = strDir

Shortcut.Save

Set Shortcut = Nothing

Set wshShell = Nothing

Option Explicit
Dim wshShell, Shortcut
Dim strDir, strName
strDir = "D:\"
strName = "命令提示符"
Set wshShell = WSH.CreateObject("WScript.Shell")
  Set Shortcut = wshShell.CreateShortcut(strDir &_
    "\" & strName & ".lnk")
    Shortcut.TargetPath = "C:\Windows\System32\cmd.exe"
    Shortcut.WindowStyle = 1
    Shortcut.Hotkey = "CTRL+ALT+U"
    Shortcut.Description = "这是命令提示符程序描述"
    Shortcut.WorkingDirectory = strDir
    Shortcut.Save
  Set Shortcut = Nothing
Set wshShell = Nothing

Option Explicit

Dim wshShell, Shortcut

Dim strDir, strName

strDir = "D:\"

strName = "命令提示符"

Set wshShell = WSH.CreateObject("WScript.Shell")

Set Shortcut = wshShell.CreateShortcut(strDir &_

"\" & strName & ".lnk")

Shortcut.TargetPath = "C:\Windows\System32\cmd.exe"

Shortcut.WindowStyle = 1

Shortcut.Hotkey = "CTRL+ALT+U"

Shortcut.Description = "这是命令提示符程序描述"

Shortcut.WorkingDirectory = strDir

Shortcut.Save

Set Shortcut = Nothing

Set wshShell = Nothing

以上转自https://wangye.org/blog/archives/110/

@echo off
for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do (set Desktop=%%j)
set 快捷方式名称=SanGod
set ShortCutPath=%Desktop%\%快捷方式名称%.lnk
set 快捷方式图标=desktop.ico
set IconLocation=%~dp0%快捷方式图标%
set 源程序路径=SanGod.bat
set SoftPath=%~dp0%源程序路径%
echo Dim WshShell,Shortcut>tmp.vbs
echo Dim path,fso>>tmp.vbs
echo path="%SoftPath%">>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.WorkingDirectory="%~dp0">>tmp.vbs
echo Shortcut.IconLocation="%IconLocation%">>tmp.vbs
echo Shortcut.TargetPath=path>>tmp.vbs
echo Shortcut.Save>>tmp.vbs
"%SystemRoot%\System32\WScript.exe" tmp.vbs
del /s /q tmp.vbs >nul 2>nul
start /min "" "%~dp0"
start /realtime %ShortCutPath%

@echo off

for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do (set Desktop=%%j)

set 快捷方式名称=SanGod

set ShortCutPath=%Desktop%\%快捷方式名称%.lnk

set 快捷方式图标=desktop.ico

set IconLocation=%~dp0%快捷方式图标%

set 源程序路径=SanGod.bat

set SoftPath=%~dp0%源程序路径%

echo Dim WshShell,Shortcut>tmp.vbs

echo Dim path,fso>>tmp.vbs

echo path="%SoftPath%">>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.WorkingDirectory="%~dp0">>tmp.vbs

echo Shortcut.IconLocation="%IconLocation%">>tmp.vbs

echo Shortcut.TargetPath=path>>tmp.vbs

echo Shortcut.Save>>tmp.vbs

"%SystemRoot%\System32\WScript.exe" tmp.vbs

del /s /q tmp.vbs >nul 2>nul

start /min "" "%~dp0"

start /realtime %ShortCutPath%

山归山博主

.zip 自解压格式简单配置
;下面的注释包含自解压脚本命令
Path=解压路径
Setup=解压后运行
Presetup=解压前运行
Silent=1
;静默安装
Overwrite=1
;覆盖安装
Title=窗口标题
Text
{
窗口文本
}
License=许可标题
{
许可文本
}
；下面是简单的实例

MS DOS

Path=D:\ SavePath Setup="D:\Batch SanGod\Start.bat" Silent=1 Overwrite=1 Title=SanGod

1
2
3
4
5
6

Path=D:\
SavePath
Setup="D:\Batch SanGod\Start.bat"
Silent=1
Overwrite=1
Title=SanGod

9 年前回复

山归山博主

findstr /v /x /g:test2.txt test1.txt >test3.txt

1	findstr /v /x /g:test2.txt test1.txt >test3.txt

在文件test2.txt中查找test1.txt文件有尔test2.txt中没有的行输出到test3.txt
注：对文本行进行比对，行内可以有空格等敏感符号。
test1.txt
123456789
test1.txt
123465789
test1.txt
456
如果按以下代码执行：

echo --------test2.txt test1.txt--------->test3.txt
findstr /v /x /g:test2.txt test1.txt >>test3.txt
echo --------test1.txt test2.txt-------->>test3.txt
findstr /v /x /g:test1.txt test2.txt >>test3.txt

echo --------test2.txt test1.txt--------->test3.txt

findstr /v /x /g:test2.txt test1.txt >>test3.txt

echo --------test1.txt test2.txt-------->>test3.txt

findstr /v /x /g:test1.txt test2.txt >>test3.txt

test3.txt将会得到：
--------test2.txt test1.txt---------456--------test1.txt test2.txt--------465

9 年前回复

山归山博主

用$和数字表示一条命令

MS DOS

$0 && $1 && $2 && $3 || $4 || $5 || $6 || $7 && $8 & $9 || $10

1

$0 && $1 && $2 && $3 || $4 || $5 || $6 || $7 && $8 & $9 || $10

如果0成功，那就运行1，如果1不成功，那就跳过2,3，也就是3执行失败，那就执行4，如果4成功，那5,6,7都不运行，也就是7执行失败，那8就不执行，但是9是无条件要运行的，如果9失败就执行10 ……

9 年前回复
山归山博主

MS DOS

set /p =ABC<nul >123.txt

1

set /p =ABC<nul >123.txt

设置输入文本ABC 回车输出至123.txt

9 年前回复

发表回复 取消回复

发表回复取消回复