@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('mshta "JavaScript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(clipboardData.getData('text'));close()"') do (set "StrClip=%%i")
"%ProgramFiles%\7-Zip\7z" a -mx=9 -myx=9 -mmt=6 -ms=on -mtm=off -mtc=off -mta=off -mtr=off -m0=LZMA2:d=384m:fb=273:lc=3 -mmc=1000000000 "%StrClip%.7z" "%StrClip%\*"