@echo off
chcp 65001 >nul
setlocal disabledelayedexpansion
set "script=%~0" & set "script_path=%~f0" & set "script_dir=%~dp0" & set "script_name=%~n0" & set "script_ext=%~x0" & set "script_name_ext=%~nx0"
set "param1=%~1" & set "param1_path=%~f1" & set "param1_dir=%~dp1" & set "param1_name=%~n1" & set "param1_ext=%~x1" & set "param1_name_ext=%~nx1"
setlocal enabledelayedexpansion
if /i "!cd!"=="!SystemRoot!\System32" ( cd /d "!script_dir!" )
powershell -NoProfile -Command "Write-Host '[ !script_name_ext! ]' -ForegroundColor Cyan" && echo.
powershell -NoProfile -Command "Write-Host '将输入的文本编码为二维码图片' -ForegroundColor Green"
powershell -NoProfile -Command "Write-Host 'QR 码版本：1-40 自适应，数据模式：字节模式，字符编码：UTF8' -ForegroundColor Green"
powershell -NoProfile -Command "Write-Host '纠错等级：最高（H），每模块像素数：16，边缘留白模块数：6' -ForegroundColor Green"
powershell -NoProfile -Command "Write-Host '输出 png、jpg、svg、html、md 等格式的二维码图片文件' -ForegroundColor Green"
powershell -NoProfile -Command "Write-Host '双击运行时，按提示输入要生成二维码的文本；也可以在参数 1 传入一个非空的文本参数' -ForegroundColor Green"
powershell -NoProfile -Command "Write-Host '对一个文本处理完成后，可继续输入下一个文本' -ForegroundColor Green"
echo.
REM 检查 ZXing.Net 组件
set "zxing_path="
if exist "!script_dir!zxing.dll" (
set "zxing_path=!script_dir!zxing.dll"
) else if exist "!cd!\zxing.dll" (
set "zxing_path=!cd!\zxing.dll"
) else if exist "!script_dir!..\zxing.dll" (
set "zxing_path=!script_dir!..\zxing.dll"
) else if exist "..\zxing.dll" (
set "zxing_path=..\zxing.dll"
)
if "!zxing_path!" == "" (
echo 错误：缺少 ZXing.Net 组件 & REM
echo 请从 https://github.com/micjahn/ZXing.Net/releases 下载，然后把 net4.5 目录下的 zxing.dll 放到脚本所在文件夹 & REM
"explorer.exe" "https://github.com/micjahn/ZXing.Net/releases"
echo.
pause
exit /b 1
)
set "qr_text=!param1!"
:loop
:input_text
if "!qr_text!"=="" (
echo 请输入要生成二维码的文本：
set /p "qr_text="
if !errorlevel! neq 0 (
echo 无输入，退出脚本
echo.
exit /b 1
)
echo.
) else (
echo 要处理的文本："!qr_text!"
echo.
)
if "!qr_text!"=="" (
echo 输入不能为空，请重新输入
echo.
goto input_text
)
set "qr_text=!qr_text:"=!"
if "!qr_text!"=="" (
echo 输入不能为空，请重新输入
echo.
goto input_text
)
REM 从自身文件末尾的 -----BEGIN POWERSHELL CODE----- / -----END POWERSHELL CODE----- 之间提取 PowerShell 代码
powershell -NoProfile -Command ^
"[System.Console]::OutputEncoding=[System.Text.Encoding]::UTF8;" ^
"$lines = Get-Content -Encoding UTF8 -LiteralPath $env:script_path;" ^
"$begin = [array]::IndexOf($lines, '-----BEGIN POWERSHELL CODE-----') + 1;" ^
"$end = [array]::IndexOf($lines, '-----END POWERSHELL CODE-----');" ^
"if ($begin -lt 1 -or $end -lt $begin) {" ^
" Write-Host '错误：未找到内嵌的 PowerShell 代码块' -ForegroundColor Red;" ^
" exit 1;" ^
"};" ^
"$code = $lines[$begin..($end - 1)] -join [System.Environment]::NewLine;" ^
"Invoke-Expression $code"
if !errorlevel! neq 0 (
echo 错误：生成二维码失败
) else (
echo 生成成功
)
echo.
set "qr_text="
goto loop
echo.
pause
exit /b
-----BEGIN POWERSHELL CODE-----
[System.Console]::OutputEncoding=[System.Text.Encoding]::UTF8;
try {
Add-Type -Path $env:zxing_path;
Add-Type -AssemblyName System.Drawing;
Add-Type -AssemblyName PresentationCore;
Add-Type -AssemblyName WindowsBase;
$qrText = $env:qr_text;
if ([string]::IsNullOrWhiteSpace($qrText)) {
Write-Host '错误：文本为空，无法生成二维码' -ForegroundColor Red;
exit 1;
}
$baseName = 'qrcode';
# QR 码版本 1-40 自适应，数据按 UTF-8 字节模式编码
# 纠错等级 H，每模块像素数 16，边缘留白模块数 6
$scale = 16;
$quiet = 6;
$options = [ZXing.QrCode.QrCodeEncodingOptions]::new();
$options.Width = 0;
$options.Height = 0;
$options.Margin = $quiet;
$options.CharacterSet = 'UTF-8';
$options.DisableECI = $false;
$options.ErrorCorrection = [ZXing.QrCode.Internal.ErrorCorrectionLevel]::H;
$options.QrCompact = $false;
$pngWriter = [ZXing.BarcodeWriter]::new();
$pngWriter.Format = [ZXing.BarcodeFormat]::QR_CODE;
$pngWriter.Options = $options;
$matrix = $pngWriter.Encode($qrText);
$imageSize = $matrix.Width * $scale;
$options.Width = $imageSize;
$options.Height = $imageSize;
# 位图：1-bit PNG、PNG 与 JPG
$bitmap = $pngWriter.Write($qrText);
$oneBitPngPath = [System.IO.Path]::Combine($env:script_dir, $baseName + '.1bit.png');
$sourceStream = [System.IO.MemoryStream]::new();
try {
$bitmap.Save($sourceStream, [System.Drawing.Imaging.ImageFormat]::Png);
$pngBytes = $sourceStream.ToArray();
$sourceStream.Position = 0;
$sourceDecoder = [System.Windows.Media.Imaging.BitmapDecoder]::Create($sourceStream, [System.Windows.Media.Imaging.BitmapCreateOptions]::PreservePixelFormat, [System.Windows.Media.Imaging.BitmapCacheOption]::OnLoad);
$oneBitSource = [System.Windows.Media.Imaging.FormatConvertedBitmap]::new();
$oneBitSource.BeginInit();
$oneBitSource.Source = $sourceDecoder.Frames[0];
$oneBitSource.DestinationFormat = [System.Windows.Media.PixelFormats]::BlackWhite;
$oneBitSource.EndInit();
$pngEncoder = [System.Windows.Media.Imaging.PngBitmapEncoder]::new();
$pngEncoder.Frames.Add([System.Windows.Media.Imaging.BitmapFrame]::Create($oneBitSource));
$oneBitStream = [System.IO.File]::Create($oneBitPngPath);
try {
$pngEncoder.Save($oneBitStream);
} finally {
$oneBitStream.Dispose();
}
} finally {
$sourceStream.Dispose();
}
$pngPath = [System.IO.Path]::Combine($env:script_dir, $baseName + '.png');
[System.IO.File]::WriteAllBytes($pngPath, $pngBytes);
$jpgPath = [System.IO.Path]::Combine($env:script_dir, $baseName + '.jpg');
$jpegCodec = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | Where-Object { $_.MimeType -eq 'image/jpeg' } | Select-Object -First 1;
$encoderParams = [System.Drawing.Imaging.EncoderParameters]::new(1);
$encoderParams.Param[0] = [System.Drawing.Imaging.EncoderParameter]::new([System.Drawing.Imaging.Encoder]::Quality, [int64]100);
$bitmap.Save($jpgPath, $jpegCodec, $encoderParams);
$encoderParams.Dispose();
$bitmap.Dispose();
# 矢量图：SVG
$svgWriter = [ZXing.BarcodeWriterSvg]::new();
$svgWriter.Format = [ZXing.BarcodeFormat]::QR_CODE;
$svgWriter.Options = $options;
$svgImage = $svgWriter.Write($qrText);
$svgSizeAttr = ' ';
$htmlLines = @(
'',
'',
'