QR-Codes erzeugen

Webdienste

• https://ogy.de

Lokale Programme

• https://code.google.com/archive/p/qrencode-win32/downloads

Skript

::::::::::::::::::::::::::::::::::::::::::::::::::::
::
::! Verwandelt den Link aus der Zwischenablage 
::! in einen QR-Code namens QR.png
::
:: Benötigt das 32-bit-Programm qrcode im Skriptverzeichnis
::
:: (c) Wolfgang Hugemann
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ECHO OFF
SETLOCAL EnableDelayedExpansion
SET NoTube=0
::
:: Der http-Link muss zuvor in die Zwischenablage kopiert worden sein
FOR /F "eol=; tokens=*" %%i IN ('powershell Get-Clipboard') DO SET LINK=%%i
SET PROT=!LINK:~0,4!
IF NOT '!PROT!'=='http' GOTO NoLink:
IF NOT EXIST %1 GOTO NoFile:
IF "%LINK:youtu=%"=="%LINK%" DO (
SET LINK="%LINK%"
SET NoTube=1
GOTO NoYouTube:
)
::
:: Langen YouTube-Link (mit Gleichheitszeichen) Kürzen
FOR /F "tokens=1,2 delims==" %%i IN ("%LINK%") DO SET ROOT=%%i & SET NAME=%%j
IF NOT %ROOT%==%LINK% SET LINK=https://youtu.be/%NAME%
:NoYouTube
::
%~dp0qrcode -o "%~dp1QR.png" -s 10 !LINK!
IF %NoTube%==1 GOTO :EOF
CALL :UMBRUCH %LINK%
magick "%~dp1QR.png" -density 100 -pointsize 20 label:!LINK! -gravity center -append -trim "%~dpn1_QR.png"
GOTO :EOF
:UMBRUCH
SET LINK=%1
SET NAME=%~n1%~x1
SET LINK=!LINK:%NAME%=!\n%NAME%
GOTO :EOF
:NoLink
ECHO Bitte zuvor den Link in die Zwischenablage kopieren.
PAUSE
GOTO :EOF
:NoFile
ECHO Bitte einen beliebigen Dateinamen im Ordner für den QR-Code übergeben.
PAUSE