Screenpresso.bat

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::																								::
::							https://linktr.ee/hieuckit											::
::		Github:				https://github.com/hieuck/curl-uri-wget-download-setup				::
::		Facebook:			https://www.facebook.com/ZzhieuhuhongzZ/							::
::		Donate to me:		Vietcombank - 9966595263 - LE TRUNG HIEU							::
::																								::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ECHO OFF
pushd "%~dp0"

REM Run As Administrator
>nul reg add hkcu\software\classes\.Admin\shell\runas\command /f /ve /d "cmd /x /d /r set \"f0=%%2\" &call \"%%2\" %%3" &set _= %*
>nul fltmc || if "%f0%" neq "%~f0" ( cd.>"%tmp%\runas.Admin" &start "%~n0" /high "%tmp%\runas.Admin" "%~f0" "%_:"=""%" &exit /b )

REM Detect Windows Architecture
set "ARCH=x86"
if exist "%SystemRoot%\SysWOW64" set "ARCH=x64"

title _Hieuck.IT_'s Windows Application Setting Up...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Cau Hinh %SoftName%. Vui Long Cho...
@echo off
REM Required Configuration Settings

set "Extract7z="
set "License="

set "SoftName=Screenpresso"
set "Process=Screenpresso.exe"

set "FileName="
set "SoftNameVersion=2.1.13.0"
set "FileDLwB=Screenpresso*.exe"

set "OpenAfterInstall="

set "SupportOldWindows=Yes"
set "Support32Bit=No"
set "UserAgent=Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3"

REM Split the version number into parts %Major%.%Minor%.%Build%.%Revision%=!SoftNameVersion!
for /f "tokens=1-4 delims=." %%a in ("%SoftNameVersion%") do (
	set "Major=%%a"
	set "Minor=%%b"
	set "Build=%%c"
	set "Revision=%%d"
)

REM Set code based on Windows Architecture
REM Source Link: https://www.screenpresso.com/download/

set "LinkForOldWindows="
set "LinkForOldWindows32bit="
set "LinkForOldWindows64bit="

set "Link="
set "LinkForAllWindows32bit="
set "LinkForAllWindows64bit=https://www.screenpresso.com/binaries/releases/stable/dotnet47/Screenpresso.exe"

set "LinkFromGithub="
set "LinkFromDropbox="
set "LinkFromOneDrive="

set "SoftPath=%ProgramFiles%\Learnpulse\Screenpresso"
set "SoftPathFor32bit="
set "SoftPathFor64bit="

set "QuietMode=deploy --install --programfiles --quiet"

set "Cr4ckFile="
set "Cr4ckPath="

set "Shortcut="
set "NoticeOption="

REM MenuChoice Configuration
setlocal EnableDelayedExpansion

:menu
set "Menu1=Official Website"
set "Menu2=My Github"
set "Menu3=My Dropbox"
set "Menu4=My OneDrive"

set "MenuOptions="
if not "!LinkFromGithub!"=="" (
	set "MenuOptions=!MenuOptions!	2. %Menu2%"
)
if not "!LinkFromDropbox!"=="" (
	set "MenuOptions=!MenuOptions!	3. %Menu3%"
)
if not "!LinkFromOneDrive!"=="" (
	set "MenuOptions=!MenuOptions!	4. %Menu4%"
)

if not "!MenuOptions!"=="" (
	echo Do you want to use the download link from:
	echo.
	echo 1. %Menu1%%MenuOptions%
) else (
	echo You have chosen to download from: %Menu1%
	goto NextStepAfterChosen
)

REM The number corresponding to the default choice
set "defaultChoice=1"

set "OptionsChoice="
if not "!LinkFromGithub!"=="" (
	set "OptionsChoice=!OptionsChoice! or 2"
)
if not "!LinkFromDropbox!"=="" (
	set "OptionsChoice=!OptionsChoice! or 3"
)
if not "!LinkFromOneDrive!"=="" (
	set "OptionsChoice=!OptionsChoice! or 4"
)
echo Select an option (1%OptionsChoice%) [Default is %defaultChoice%]: 
choice /c 1234 /t 5 /d %defaultChoice% /n >nul

REM Check the errorlevel to determine the choice made by the user
if "%errorlevel%"=="1" (
	set "choice=1"
) else if "%errorlevel%"=="2" (
	set "choice=2"
) else if "%errorlevel%"=="3" (
	set "choice=3"
) else if "%errorlevel%"=="4" (
	set "choice=4"
)

REM Display the choice made
if "%choice%"=="1" (
	REM Official Website
	echo You have chosen to download from: %Menu1%
	goto NextStepAfterChosen
) else if "%choice%"=="2" (
	REM My Github
	echo You have chosen to download from: %Menu2%
	if not "%LinkFromGithub%"=="" (
		set "LinkForOldWindows="
		set "LinkForOldWindows32bit="
		set "LinkForOldWindows64bit="

		set "Link=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/Setup/%LinkFromGithub%"
		set "LinkForAllWindows32bit="
		set "LinkForAllWindows64bit="
		goto NextStepAfterChosen
	) else (
		echo No download link available yet in %Menu2%.&echo.&goto menu
	)
) else if "%choice%"=="3" (
	REM My Dropbox
	echo You have chosen to download from: %Menu3%
	if not "%LinkFromDropbox%"=="" (
		set "LinkForOldWindows="
		set "LinkForOldWindows32bit="
		set "LinkForOldWindows64bit="

		set "Link=%LinkFromDropbox%"
		set "LinkForAllWindows32bit="
		set "LinkForAllWindows64bit="
		goto NextStepAfterChosen
	) else (
		echo No download link available yet in %Menu3%.&echo.&goto menu
	)
) else if "%choice%"=="4" (
	REM My OneDrive
	echo You have chosen to download from: %Menu4%
	if not "%LinkFromOneDrive%"=="" (
		set "LinkForOldWindows="
		set "LinkForOldWindows32bit="
		set "LinkForOldWindows64bit="

		set "Link=%LinkFromOneDrive%"
		set "LinkForAllWindows32bit="
		set "LinkForAllWindows64bit="
		goto NextStepAfterChosen
	) else (
		echo No download link available yet in %Menu4%.&echo.&goto menu
	)
) else (
	echo Invalid choice. Please select 1, 2, 3, or 4.
	goto menu
)

endlocal
:NextStepAfterChosen

REM Convert to direct download Link.
setlocal enabledelayedexpansion

REM Check if the Link contains "www.dropbox.com" and replace it
echo !Link! | findstr /i /c:"www.dropbox.com" >nul
if !errorlevel!==0 (
	set "Link=!Link:www.dropbox.com=dl.dropboxusercontent.com!"
	goto TheNextStepOfDirectDownloadLink
)

REM Check if the Link contains "/view*" and extract the file ID
echo !Link! | findstr /i /c:"/view" >nul
if !errorlevel!==0 (
	for /f "tokens=5 delims=/" %%a in ("!Link!") do (
		set "file_id=%%a"
	)
	REM Remove "/view*" and construct the download link
	set "Link=https://drive.google.com/uc?export=download&id=!file_id!"
	goto TheNextStepOfDirectDownloadLink
)

REM Check if the Link contains "open?id=" and convert it
echo !Link! | findstr /i /c:"open?id=" >nul
if !errorlevel!==0 (
	REM Replace "open?id=" with "uc?export=download&id"
	set "Link=!Link:open?id=uc?export=download&id!"
	
	REM Split the Link at "&usp=drive_fs" and keep the first part
	for /f "tokens=2,* delims=&" %%a in ("!Link!") do (
		set "Link=https://drive.google.com/uc?export=download&%%a"
	)

	goto TheNextStepOfDirectDownloadLink
)

REM Check if the Link contains "sharepoint.com" and convert it
echo !Link! | findstr /i /c:"sharepoint.com" >nul
if !errorlevel!==0 (
	for /f "delims=? tokens=1" %%a in ("!Link!") do (
		set "Base_Link=%%a"
	)
	set "Link=!Base_Link!?download=1"
	goto TheNextStepOfDirectDownloadLink
)
endlocal
:TheNextStepOfDirectDownloadLink

REM Check Compatibility for 32-bit
if /i "%Support32Bit%"=="No" (
	if /i "%ARCH%"=="x86" (
		echo Notice: This software is only compatible with Windows 64-bit operating systems. Exiting in 3 seconds...
		for /l %%i in (3,-1,1) do (
			echo Exiting in %%i seconds...
			timeout /t 1 /nobreak >nul
		)
		exit
	)
)

REM Check Windows OS Version and Check Support Old Windows
setlocal EnableDelayedExpansion
for /f "tokens=4 delims=[.] " %%i in ('ver') do (
	set "version1=%%i"
)

for /f "tokens=5 delims=[.] " %%i in ('ver') do (
	set "version2=%%i"
)
set "version=%version1%.%version2%"

if "%version%"=="6.1" goto ForOldWindows
goto ForNewWindows
endlocal

:ForOldWindows
if /i "%SupportOldWindows%"=="No" (
	echo Sorry, this software is not compatible with Windows 7. Exiting in 3 seconds...
	for /l %%i in (3,-1,1) do (
		echo Exiting in %%i seconds...
		timeout /t 1 /nobreak >nul
	)
	exit
) else (
	if /i "%ARCH%"=="x86" (
		if not "%LinkForOldWindows32bit%"=="" (
			set "Link=%LinkForOldWindows32bit%"
		) else (
			if not "%LinkForOldWindows%"=="" (
				set "Link=%LinkForOldWindows%"
			) else (
				if not "%LinkForAllWindows32bit%"=="" (
					set "Link="%LinkForAllWindows32bit%"
				) else (
					set "Link=%Link%"
				)
			)
		)
		if not "%SoftPathFor32bit%"=="" set "SoftPath=%SoftPathFor32bit%"
	) else (
		if not "%LinkForOldWindows64bit%"=="" (
			set "Link=%LinkForOldWindows64bit%"
		) else (
			if not "%LinkForOldWindows%"=="" (
				set "Link=%LinkForOldWindows%"
			) else (
				if not "%LinkForAllWindows64bit%"=="" (
					set "Link=%LinkForAllWindows64bit%"
				) else (
					set "Link=%Link%"
				)
			)
		)
		if not "%SoftPathFor64bit%"=="" set "SoftPath=%SoftPathFor64bit%"
	)
)
goto NextStepForCheckOSVersion

:ForNewWindows
if /i "%ARCH%"=="x86" (
	if not "%LinkForAllWindows32bit%"=="" set "Link=%LinkForAllWindows32bit%"
	if not "%SoftPathFor32bit%"=="" set "SoftPath=%SoftPathFor32bit%"
) else (
	if not "%LinkForAllWindows64bit%"=="" set "Link=%LinkForAllWindows64bit%"
	if not "%SoftPathFor64bit%"=="" set "SoftPath=%SoftPathFor64bit%"
)

:NextStepForCheckOSVersion
REM Extract with 7z
if /i "%Extract7z%"=="Yes" (
	set "Admin=Yes"
	set "Link7zdll=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z/7z.dll"
	set "Link7zexe=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z/7z.exe"
	if /i "%ARCH%"=="x86" (
		set "Link7zdll=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z32/7z.dll"
		set "Link7zexe=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z32/7z.exe"
	)
	if not "%SoftPath%"=="" (
		set "SoftPath=%SoftPath%"
	) else (
		set "SoftPath=%ProgramFiles%\%SoftName%"
	)
	if not "%Shortcut%"=="" (
		set "Shortcut=%Shortcut%"
	) else (
		set "Shortcut=Yes"
	)
) else (
	if not "%Shortcut%"=="" (
		set "Shortcut=%Shortcut%"
	) else (
		set "Shortcut=No"
	)
)

REM Set up information related to software cr4cking
if /i "%License%"=="Yes" (
	set "Admin=Yes"
	set "Cr4ckLink=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/Cr4ck/!Cr4ckFile!.rar"
	set "Link7zdll=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z/7z.dll"
	set "Link7zexe=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z/7z.exe"
	if /i "%ARCH%"=="x86" (
		set "Link7zdll=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z32/7z.dll"
		set "Link7zexe=https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/7z32/7z.exe"
	)
	if not "%Cr4ckPath%"=="" (
		set "Cr4ckPath=%Cr4ckPath%"
	) else (
		set "Cr4ckPath=%SoftPath%"
	)
)

REM Check File Name
REM Data structure to store format-extension information
set "Formats=7z exe msi rar zip"

for %%F in ("%FileName%") do (
	set "BaseName=%%~nF"
	if not "%%~xF"=="" (
		set "Extension=%%~xF"
	) else (
		set "Extension=.HieuckIT"
		set "BaseName=%FileName%"
	)
)

if not "%FileName%"=="" (
	if not "%BaseName%"=="" (
		REM Loop through the formats in the data structure
		for %%F in (%Formats%) do (
			REM Check if FileName matches the format
			if /i "%FileName%"=="%%~F" (
				set "BaseName=%SoftName%"
				set "Extension=.%%~F"
				set "FileName=%BaseName%%Extension%"
				goto :Continue_Check_FileName
			)
		)

		REM Check if FileName doesn't match any format
		if not "%FileName%"=="%BaseName%%Extension%" (
			set "FileName=%BaseName%%Extension%"
		)
	) else (
		set "FileName=%SoftName%%Extension%"
	)
) else (
	if not "%Link:~-3%"=="" (
		REM Extract the extension from Link
		set "BaseName=%SoftName%"
		set "LinkExtension=%Link:~-3%"
		REM Check if LinkExtension is not in Formats
		echo %Formats% | find /i "%LinkExtension%" >nul
		if errorlevel 1 (
			set "Extension=%LinkExtension%"
		) else (
			set "Extension=.HieuckIT"
		)
		set "FileName=%BaseName%%Extension%"
		goto :Continue_Check_FileName
	) else (
		set "FileName=%SoftName%.HieuckIT"
	)
)

:Continue_Check_FileName
REM Check if Link's extension matches any format and differs from FileName's extension
set "LinkExtension=%Link:~-3%"
for %%F in (%Formats%) do (
	REM Check if the extracted extension matches the format and differs from FileName's extension
	if /i "%LinkExtension%"=="%%~F" if not "%Extension%"=="%%~F" (
		REM set "BaseName=%SoftName%"
		set "Extension=.%%~F"
		set "FileName=%BaseName%%Extension%"
		goto :ExportResult
	)
)

REM If Link's extension didn't match any format or matched FileName's extension, use Link's extension for FileName
set "LinkExtension=%Link:~-3%"
set "FoundFormat="
for %%F in (%Formats%) do (
	if /i "%LinkExtension%"=="%%~F" (
		set "FoundFormat=1"
		set "Extension=.%%~F"
	)
)

if not defined FoundFormat (
	if "%Extension%"=="" (
		set "Extension=.HieuckIT"
	)
)

:ExportResult
set "FileName=%BaseName%%Extension%"

echo Information related to %SoftName%:> %Temp%\hieuckitlog.txt
echo.>> %Temp%\hieuckitlog.txt
echo Link: %Link:&=^&%>> %Temp%\hieuckitlog.txt
echo FileName: %FileName%>> %Temp%\hieuckitlog.txt
if not "%SoftPath%"=="" echo SoftPath: %SoftPath%>> %Temp%\hieuckitlog.txt
if not "%Cr4ckFile%"=="" echo Cr4ckFile: %Cr4ckFile%>> %Temp%\hieuckitlog.txt
if not "%Cr4ckLink%"=="" echo Cr4ckLink: %Cr4ckLink%>> %Temp%\hieuckitlog.txt
if not "%Cr4ckPath%"=="" echo Cr4ckPath: %Cr4ckPath%>> %Temp%\hieuckitlog.txt
echo Shortcut: %Shortcut%>> %Temp%\hieuckitlog.txt

if /i "%NoticeOption%"=="Yes" (
	type "%Temp%\hieuckitlog.txt"
	timeout /t 2
)

REM Check if Command Prompt is running with administrator privileges
net session >nul 2>&1
if %errorlevel% == 0 (
	echo Command Prompt is running as Administrator.
) else (
	if /i "%Admin%"=="Yes" (
		echo Please Run as Administrator. Exiting in 3 seconds...
		for /l %%i in (3,-1,1) do (
			echo Exiting in %%i seconds...
			timeout /t 1 /nobreak >nul
		)
		exit
	) else (
		echo Warning: This program may not function correctly without administrator privileges.
		for /l %%i in (3,-1,1) do (
			echo Starting in %%i seconds...
			timeout /t 1 /nobreak >nul
		)
	)
)

REM Terminate the %SoftName% Process
tasklist | find /i "%Process%" > nul
if %errorlevel% equ 0 (
	taskkill /im "%Process%" /f
)

REM Save the value of the %time% variable before running the batch script
set start_time=%time%

REM Check if .NET Framework 4.8 is installed
setlocal EnableDelayedExpansion

:ndp48check
set "InstallCount=0"

:ndp48checkAgain
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" /v Release | find "0x8234d" >nul

if errorlevel 1 (
	REM .NET Framework 4.8 is not installed, prompt for installation
	echo .NET Framework 4.8 is not installed on your computer.
	echo We will proceed with the installation.
	echo Please wait...
	goto ndp48download
) else (
	echo .NET Framework 4.8 is already installed on your computer.
	goto ndp48end
)

:ndp48download
REM Replace the "NetFx48_Download_URL" below with the actual download URL for .NET Framework 4.8
REM You can download the installer from the official Microsoft website or any trusted source.
set "Linkndp48=https://go.microsoft.com/fwlink/?LinkId=2085155"
if exist "wget.exe" (
	wget --no-check-certificate --show-progress -q -O "ndp48-web.exe" -U "%UserAgent%" "%Linkndp48%"
) else (
	curl -L --max-redirs 20 -A "%UserAgent%" -o "ndp48-web.exe" "%Linkndp48%" --insecure
)

for /R %%i in ("ndp48*exe") do set "ndp48=%%i"
%ndp48% /q /norestart

set /A "InstallCount+=1"
if !InstallCount! LSS 2 goto ndp48checkAgain
goto ndp48end

:ndp48end
endlocal

REM Download
title _Hieuck.IT_'s Windows Application Downloading...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Tai %SoftName%. Vui Long Cho...
@echo off
echo Downloading %SoftName%...
if exist "wget.exe" (
	wget --no-check-certificate --show-progress -q -O "%FileName%" -U "%UserAgent%" "%Link%"
) else (
	curl -L --max-redirs 20 -A "%UserAgent%" -o "%FileName%" "%Link%" --insecure || (
		echo.
		echo wget.exe or curl.exe not found to download, please download at: > %Temp%\hieuckitlog.txt
		echo. >> %Temp%\hieuckitlog.txt
		echo wget: https://github.com/hieuck/curl-uri-wget-download-setup/raw/main/wget.exe >> %Temp%\hieuckitlog.txt
		echo wget: https://eternallybored.org/misc/wget/ >> %Temp%\hieuckitlog.txt
		echo curl: https://curl.se/download.html >> %Temp%\hieuckitlog.txt
		type "%Temp%\hieuckitlog.txt"
		start "" "%Temp%\hieuckitlog.txt"
	)
)

REM Download with browser
setlocal EnableDelayedExpansion

for %%F in ("%FileName%") do set "size=%%~zF"
if %size% equ 0 (
	echo %SoftName% download failed. File size is 0KB. Downloading with browser....
	goto DLwB
) else (
	goto ExitDLwB
)

:DLwB
if exist "%UserProfile%\OneDrive\Downloads" (
	pushd "%UserProfile%\OneDrive\Downloads"
) else (
	pushd "%UserProfile%\Downloads"
)

start "" "%Link%" /WAIT /D "%~dp0" /B "%FileName%"
if not "%FileDLwB%"=="" set "FileDLwB=%FileDLwB%"

:CheckExist
for /R %%i in ("%FileDLwB%") do set "FileNameDLwB=%%i"
if not exist "%FileNameDLwB%" (
	timeout /t 1 /nobreak >nul & goto CheckExist
)

echo Download completed with the browser. Installation in progress...
move /y "%FileNameDLwB%" "%~dp0%FileName%"

endlocal
:ExitDLwB
pushd "%~dp0"

if not exist "%FileName%" (
	echo Download %SoftName% failed.
	echo Please check your network connection. Exiting in 3 seconds...
	for /l %%i in (3,-1,1) do (
		echo Exiting in %%i seconds...
		timeout /t 1 /nobreak >nul
	)
	exit
)

title _Hieuck.IT_'s Windows Application Downloading 7-Zip...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Tai 7-Zip. Vui Long Cho...
@echo off
echo Downloading 7-Zip...
if /i "%Extract7z%"=="Yes" (
	if exist "wget.exe" (
		wget --no-check-certificate --show-progress -q -O "7z.dll" -U "%UserAgent%" "%Link7zdll%"
		wget --no-check-certificate --show-progress -q -O "7z.exe" -U "%UserAgent%" "%Link7zexe%"
	) else (
		curl -L --max-redirs 20 -A "%UserAgent%" -o "7z.dll" "%Link7zdll%" --insecure
		curl -L --max-redirs 20 -A "%UserAgent%" -o "7z.exe" "%Link7zexe%" --insecure
	)
)

REM Install
title _Hieuck.IT_'s Windows Application Installing...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Cai Dat %SoftName%. Vui Long Cho...
@echo off
echo Installing %SoftName%... Please 'Delete the key' if 'The license key is invalid.'
if /i "%Extract7z%"=="Yes" (
	@7z l "%FileName%" > nul 2>&1
	if %errorlevel% equ 0 (
		@7z x -p123 "%FileName%" -o"%SoftPath%" -aoa -y
	) else (
		@7z x "%FileName%" -o"%SoftPath%" -aoa -y
	)
) else (
	"%FileName%" %QuietMode%
)

REM Check Installation Process
echo Checking if %SoftName% installation is complete...
setlocal EnableDelayedExpansion
set count=0
:waitloop
timeout /t 1 /nobreak > nul
set /a count+=1
if exist "%SoftPath%\%Process%" goto installed
if !count! equ 30 goto timeout
goto waitloop
:timeout
echo Timeout: %SoftName% installation has not completed in 30 seconds.
goto end
:installed
echo %SoftName% has been installed successfully.
echo.>> %Temp%\hieuckitlog.txt
echo %SoftName% has been installed successfully.>> %Temp%\hieuckitlog.txt
timeout /t 2
:end

REM License
title _Hieuck.IT_'s Windows Application Cr4cking...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Cau Hinh %SoftName%. Vui Long Cho...
@echo off
if /i "%License%"=="Yes" (
	echo Cr4cking %SoftName%...
	if exist "wget.exe" (
		if not exist "7z.dll" if not exist "7z.exe" (
			wget --no-check-certificate --show-progress -q -O "7z.dll" -U "%UserAgent%" "%Link7zdll%"
			wget --no-check-certificate --show-progress -q -O "7z.exe" -U "%UserAgent%" "%Link7zexe%"
		)
		wget --no-check-certificate --show-progress -q -O "%Cr4ckFile%" -U "%UserAgent%" "%Cr4ckLink%"
	) else (
		if not exist "7z.dll" if not exist "7z.exe" (
			curl -L --max-redirs 20 -A "%UserAgent%" -o "7z.dll" "%Link7zdll%" --insecure
			curl -L --max-redirs 20 -A "%UserAgent%" -o "7z.exe" "%Link7zexe%" --insecure
		)
		curl -L --max-redirs 20 -A "%UserAgent%" -o "%Cr4ckFile%" "%Cr4ckLink%" --insecure
	)
	if exist "%Cr4ckFile%" (
		@7z.exe x -p123 "%Cr4ckFile%" -o"%Cr4ckPath%" -aoa -y
		echo Successfully Cr4cked %SoftName%.
		echo.>> %Temp%\hieuckitlog.txt
		echo Successfully Cr4cked %SoftName%.>> %Temp%\hieuckitlog.txt
		del "%Cr4ckFile%"
	) else (
		echo Cr4cking %SoftName% failed.
		echo Please try running the script as Administrator.
	)
)

echo Please exit Screenpresso when the 'Operation succeeded' command below appears
echo Once Screenpresso is launched, please exit the application.
netsh advfirewall firewall show rule name="Block Screenpresso" > nul
if %errorlevel% neq 0 (
    netsh advfirewall firewall add rule name="Block Screenpresso" dir=out action=block program="%ProgramFiles%\Learnpulse\Screenpresso\Screenpresso.exe" enable=yes
)

"%SoftPath%\%Process%" license --activate [3]-[screenpressopro]-[1314]-[Meffi/tPORt]-[11/10/2022]-[CCmBVJV+jaQzzj6K1OypBEp0a4JLoGunMBnIZRsEKNau6wDIOaYGz6pG81MT6JJSeOS/OIdBsMBMzCBHrDBHgQ==] --quiet

REM Shortcut
if /i "%Shortcut%"=="No" (
	echo Creating Shortcut is skipped.
	goto CleanUp
)

if exist "%SoftPath%\%Process%" (
	set "TargetFile=%SoftPath%\%Process%"
) else (
	echo %SoftName% does not exist in directory "%SoftPath%". Exiting script.
	exit /b 1
)

set "ShortcutName=%SoftName%.lnk"
set "ShortcutPath=%Public%\Desktop\%ShortcutName%"

echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%ShortcutPath%" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%TargetFile%" >> CreateShortcut.vbs
echo oLink.WorkingDirectory = "%SoftPath%" >> CreateShortcut.vbs
echo oLink.Description = "Shortcut to %SoftName%" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs

if exist "%Public%\Desktop\%ShortcutName%" (
	echo Creating Shortcut complete.
	echo Creating Shortcut complete.>> %Temp%\hieuckitlog.txt
) else (
	echo Creating Shortcut failed.
)

REM Clean Up
:CleanUp
title _Hieuck.IT_'s Windows Application Cleaning Up...
color 0B
mode con:cols=120 lines=17
if not exist "wget.exe" mode con:cols=80 lines=17
@cls
echo.
echo.
echo.
@echo     ±Û          ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo        ²Û       ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛ   ÛÛÛ ÛÛÛ     ÛÛÛÛÛ   ÛÛÛ    ÛÛÛ
@echo       Û         ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛ    ÛÛÛ   ÛÛÛ ÛÛÛ   Û ÛÛÛ ÛÛ  ÛÛÛ    ÛÛÛ
@echo     ±Û   ²²²²²  ÛÛÛ   ÛÛÛ ÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛ  ÛÛÛ  ÛÛ ÛÛÛ    ÛÛÛ ²
@echo.
@echo                 The current date and time are: %date% %time%
@echo                 Dang Don Dep %SoftName%. Vui Long Cho...
@echo off
echo Cleaning up temporary files...
echo.>> %Temp%\hieuckitlog.txt
setlocal EnableDelayedExpansion
set count=0
set deleteSuccess=0
:waitloopcheck
if exist "7z.dll" del "7z.dll">> %Temp%\hieuckitlog.txt 2>&1
if exist "7z.exe" del "7z.exe">> %Temp%\hieuckitlog.txt 2>&1
if exist "%FileName%" (
	del "%FileName%">> %Temp%\hieuckitlog.txt 2>&1
	if not exist "%FileName%" set deleteSuccess=1
)
timeout /t 1 /nobreak > nul
set /a count+=1
if !deleteSuccess! equ 1 (
	echo The %SoftName% installer has been deleted.
	echo The %SoftName% installer has been deleted.>> %Temp%\hieuckitlog.txt
	goto endcheck
) else (
	echo.>> %Temp%\hieuckitlog.txt
)
if !count! equ 30 goto timeoutcheck
goto waitloopcheck
:timeoutcheck
echo Timeout: Deletion failed. Please delete the file manually.
echo Timeout: Deletion failed. Please delete the file manually.>> %Temp%\hieuckitlog.txt
:endcheck
REM Save the value of the %time% variable after the batch script finishes
set end_time=%time%

REM Convert the start and end times to seconds
for /f "tokens=1-3 delims=:." %%a in ("%start_time%") do set /a "start_seconds=(((%%a*60)+1%%b %% 100)*60)+1%%c %% 100"
for /f "tokens=1-3 delims=:." %%a in ("%end_time%") do set /a "end_seconds=(((%%a*60)+1%%b %% 100)*60)+1%%c %% 100"

REM Calculate the elapsed time in seconds
set /a elapsed_time=%end_seconds%-%start_seconds%

echo Time elapsed: %elapsed_time% seconds.

REM Open After Install
if not "%OpenAfterInstall%"=="" (
	call "%SoftPath%\%Process%"
)

echo The script will automatically close in 3 seconds.
for /l %%i in (3,-1,1) do (
	echo Closing in %%i seconds...
	timeout /t 1 /nobreak >nul
)
echo Please close the script manually if automatically close fails.
popd