• Instalación de Wine y sus dependencias.
• Interfaz gráfica para Wine.
• Asociación automática de archivos .exe en el gestor de archivos.
• Generación automática de iconos (miniaturas) para ejecutables de Windows.
• Fuentes TrueType de Windows.
• Runtimes de Visual Basic,Visual C++, .NET Framework y .NET 6.0+
• DirectX y codecs de video.
• Librerías DLL específicas y componentes auxiliares.
• Acceso a la consola CMD de Windows

#!/bin/bash
set -e

###############################################################################
#                              CONFIGURATION                                  #
###############################################################################

DESKTOP_DIR="$(xdg-user-dir DESKTOP)"

###############################################################################
#                                  FUNCTIONS                                  #
###############################################################################

create_desktop_launcher() {
    local EXEC_PATH="$1"               # Path to executable or URL (required)
    local APP_NAME="$2"                # Display name of the app (required)
    local COMMENT="${3:-}"             # Comment/description (optional)
    local ICON_PATH="${4:-}"           # Path to icon file or URL (optional)
    local TERMINAL="${5:-false}"       # true or false to run in terminal (optional, default false)
    local TYPE="${6:-Application}"     # Desktop entry type (Application, Link, etc.) (optional)
    local CATEGORIES="${7:-Utility;}"  # Categories for the launcher (optional)
    local ARGS="${8:-}"                # Arguments for the executable (optional)
    local DESKTOP_FILE="${9:-$DESKTOP_DIR/$APP_NAME.desktop}" # Path to .desktop file (optional)

    # Validate required params
    if [ -z "$EXEC_PATH" ] || [ -z "$APP_NAME" ]; then
        echo "❌ Usage: create_desktop_launcher <exec_path> <app_name> [comment] [icon_path] [terminal:true|false] [type] [categories] [args] [desktop_file]"
        return 1
    fi

    # Handle icon: if URL, download it to ~/.local/share/icons/<app_name>.png
    if [[ "$ICON_PATH" == http* ]]; then
        local ICON_DIR="$HOME/.local/share/icons"
        mkdir -p "$ICON_DIR"
        local SAFE_APP_NAME=$(echo "$APP_NAME" | tr '[:upper:]' '[:lower:]' | tr ' ' '_')
        local LOCAL_ICON_PATH="$ICON_DIR/$SAFE_APP_NAME.png"

        if [ ! -f "$LOCAL_ICON_PATH" ]; then
            # echo "⬇️ Downloading icon from URL: $ICON_PATH"
            if command -v wget > /dev/null 2>&1; then
                wget -qO "$LOCAL_ICON_PATH" "$ICON_PATH"
            elif command -v curl > /dev/null 2>&1; then
                curl -sL "$ICON_PATH" -o "$LOCAL_ICON_PATH"
            else
                echo "❌ Neither wget nor curl found. Cannot download icon for desktop launcher."
                # return 1
            fi

            if [ ! -f "$LOCAL_ICON_PATH" ]; then
                echo "❌ Icon download failed for desktop launcher. Check your internet connection or URL."
                # return 1
            fi
        fi
        ICON_PATH="$LOCAL_ICON_PATH"
    fi

    # Write .desktop file
    {
        echo "[Desktop Entry]"
        echo "Name=$APP_NAME"
        [ -n "$COMMENT" ] && echo "Comment=$COMMENT"
        echo "Exec=$EXEC_PATH $ARGS"
        [ -n "$ICON_PATH" ] && echo "Icon=$ICON_PATH"
        echo "Terminal=$TERMINAL"
        echo "Type=$TYPE"
        echo "Categories=$CATEGORIES"
    } > "$DESKTOP_FILE"
}

create_thunar_custom_action() {
  local UCA_FILE="$HOME/.config/Thunar/uca.xml"
  local UNIQUE_ID="$1"
  local ICON="$2"
  local NAME="$3"
  local SUBMENU="$4"
  local COMMAND="$5"
  local DESCRIPTION="$6"
  local RANGE="$7"
  local PATTERNS="$8"
  local EXTRA_TAGS="${9}"

  if [ ! -f "$UCA_FILE" ]; then
    sudo mkdir -p "$(dirname "$UCA_FILE")"
    echo '<?xml version="1.0" encoding="UTF-8"?>
<actions>
</actions>' > "$UCA_FILE"
    # echo "✨ Created new uca.xml configuration file."
  fi

  if grep -q "<unique-id>$UNIQUE_ID</unique-id>" "$UCA_FILE"; then
    # echo "⚠️ Custom Action '$NAME' already exists in Thunar."
    return
  fi

  local ACTION_BLOCK="  <action>
    <icon>$ICON</icon>
    <name>$NAME</name>
    <submenu>$SUBMENU</submenu>
    <unique-id>$UNIQUE_ID</unique-id>
    <command>$COMMAND</command>
    <description>$DESCRIPTION</description>
    <range>$RANGE</range>
    <patterns>$PATTERNS</patterns>"
  
  if [ -n "$EXTRA_TAGS" ]; then
    ACTION_BLOCK="${ACTION_BLOCK}
    $EXTRA_TAGS"
  fi

  ACTION_BLOCK="${ACTION_BLOCK}
  </action>"

  awk -v block="$ACTION_BLOCK" '
    /<\/actions>/ {
      print block
    }
    { print }
  ' "$UCA_FILE" > "$UCA_FILE.tmp" && mv "$UCA_FILE.tmp" "$UCA_FILE"
  # echo "✅ Custom Action '$NAME' added successfully to Thunar."
}

###############################################################################
#                            MAIN SCRIPT EXECUTION                            #
###############################################################################

echo "ℹ️ INFO: This script will install Wine and required components and tools"
echo "          to integrate and run Windows applications on your Linux system."
echo ""
echo "⚠️ About 10 GB of free space is required to download and install all componentes."
echo "    The installation may take approximately 40~60 minutes."
echo 
echo -n "Do you want to continue? [Y/N]: "
while true; do
    read -n1 confirm
    echo
    if [[ -z "$confirm" || "$confirm" =~ ^[Yy]$ ]]; then
        break
    elif [[ "$confirm" =~ ^[Nn]$ ]]; then
        echo "❌ Operation cancelled."
        exit 1
    else
        echo "⚠️ Invalid option. Please press Y or N."
    fi
done
clear

echo "🛠️ Adding support for 32-bit architecture and packages (required to install wine32)..."
sudo dpkg --add-architecture i386

echo -e "\n🔄 Updating package list to fetch latest info..."
sudo apt-get update

echo -e "\n🍷 Installing Wine (wine32, wine64), required to run Windows apps on Linux..."
# https://www.winehq.org/
sudo apt-get install --install-recommends -y wine wine32 wine64 libwine fonts-wine

echo -e "\n🍷 Installing Qt GUI for Wine..."
# https://github.com/brezerk/q4wine
sudo apt-get install --install-recommends -y q4wine

echo -e "\n🍷 Installing Winbind, required for Windows user authentication integration with Wine..."
# https://www.samba.org/samba/docs/current/man-html/winbindd.8.html
sudo apt-get install -y winbind

echo -e "\n🍷 Installing WineTricks for automatic installation of Windows runtimes and libraries with Wine..."
# https://github.com/Winetricks/winetricks
sudo apt-get install --install-recommends -y winetricks
# Installs latest winetricks script, allowing later dotnetdesktop8 and dotnetdesktop9 runtime installation.
# https://github.com/Winetricks/winetricks/issues/2178#issuecomment-2299877869
yes | sudo winetricks --self-update # Use sudo, it requires @root permissions to self update.

echo -e "\n🍷 Installing wine-binfmt, which causes Wine to be invoked automatically whenever a Windows .exe file is to be launched..."
# https://packages.debian.org/sid/wine-binfmt
# https://binfmt-support.nongnu.org/
sudo apt-get install -y wine-binfmt binfmt-support

if command -v thunar >/dev/null 2>&1; then
    echo -e "\n📦 Installing Tumbler and its plugins to enable thumbnail generation for various file types in Thunar file manager."
    # https://docs.xfce.org/xfce/thunar/4.14/tumbler
    # https://packages.debian.org/sid/xfce/tumbler-plugins-extra
    sudo apt-get install -y tumbler tumbler-plugins-extra
fi

echo -e "\n📦 Installing icoextract-thumbnailer (exe-thumbnailer), which generates thumbnail previews for Windows .exe files in your file manager..."
# https://github.com/jlu5/icoextract?tab=readme-ov-file#installing-from-source
sudo apt-get install --install-recommends -y icoextract-thumbnailer

echo -e "\n🆕 Creating file: '/usr/local/share/thumbnailers/exe-thumbnailer.thumbnailer' with thumbnail previews configuration for Windows PE files..."
# https://github.com/jlu5/icoextract/blob/master/exe-thumbnailer.thumbnailer
sudo mkdir -p "/usr/local/share/thumbnailers/" && { 
  if [ ! -f "/usr/local/share/thumbnailers/exe-thumbnailer.thumbnailer" ]; then
    sudo tee "/usr/local/share/thumbnailers/exe-thumbnailer.thumbnailer" > /dev/null << EOF
[Thumbnailer Entry]
Exec=exe-thumbnailer -v -s %s %i %o
MimeType=application/x-ms-dos-executable;application/x-dosexec;application/x-msdownload;application/vnd.microsoft.portable-executable
EOF
  fi
}

echo -e "\n🧹 Removing existing Wine configuration in '~/.wine' (if any)..."
rm -rf ~/.wine

echo -e "\n🆕 Creating new Wine configuration with Windows 10 settings..."
sudo WINEPREFIX="/root/.wine" wine-stable winecfg -v win10
WINEPREFIX=~/.wine wine-stable winecfg -v win10

echo -e "\n🅰️ Installing Microsoft Windows fonts for better app compatibility..."
winetricks --unattended corefonts calibri cambria consolas uff

echo -e "\n⚙️ Installing Microsoft Windows runtimes..."
winetricks --unattended vb6run
winetricks --unattended vcrun6sp6 vcrun2005 vcrun2008 vcrun2010 vcrun2012 vcrun2013
winetricks --unattended --force vcrun2022 # Force installation due installer file checksum missmatch.
{
  winetricks --unattended dotnet48
  # These registry keys forces all .NET Framework assemblies to run on the latest installed CLR (i.e., dotnet48)
  # It also solves issue: https://bugs.winehq.org/show_bug.cgi?id=41727#c5
  wine reg add "HKLM\\Software\\Microsoft\\.NETFramework" /v "OnlyUseLatestCLR" /t "REG_DWORD" /d "0001" /f
  wine reg add "HKLM\\Software\\WOW6432Node\\Microsoft\\.NetFramework" /v "OnlyUseLatestCLR" /t "REG_DWORD" /d "0001" /f
}
winetricks --unattended dotnetdesktop6 dotnetdesktop7
 # .NET 8 and .NET 9 are available only from latest winetricks release which we got with 'winetricks --self-update' command.
winetricks --unattended dotnetdesktop8 dotnetdesktop9

echo -e "\n🎥 Installing codecs for media playback (also useful for Windows video games)..."
winetricks --unattended cinepak directshow ffdshow l3codecx openal

echo -e "\n📚 Installing essential Microsoft Windows libraries..."
winetricks --unattended cabinet crypt32 dbghelp gdiplus hid iertutil msacm32 msxml6 \
                        ole32 oleaut32 setupapi uiribbon urlmon webio wininet 

echo -e "\n🖥️ Installing DirectX runtimes and APIs for graphics and gaming..."
winetricks --unattended d3dx9 d3dx10 dxdiag d3drm d3dxof dx8vb dxtrans \
                        devenum dinput8 directmusic directplay mdx sdl

echo -e "\n🖥️ Installing Vulkan APIs for advanced graphics support..."
winetricks --unattended dxvk vkd3d

echo -e "\n💾 Installing Microsoft Windows CMD..."
winetricks --unattended cmd

echo -e "\n🔄 Restoring Wine configuration to Windows 10 settings..."
wine winecfg -v win10

echo -e "\n🧹 Cleaning winetricks cache folder in '~/.cache/winetricks'..."
rm -rf ~/.cache/winetricks/*

echo -e "\n🚀 Creating desktop link: 'Wine (C:\)'..."
if command -v dolphin >/dev/null 2>&1; then
    WINE_DIR_ICON="folder-windows-symbolic"
else
    WINE_DIR_ICON="wine"
fi
printf '%s\n' \
"[Desktop Entry]" \
"Type=Link" \
'Name=Wine (C:\\)' \
"Icon=$WINE_DIR_ICON" \
"URL=file://$HOME/.wine/drive_c" \
> "$DESKTOP_DIR/wine-open-drive_c.desktop"

echo -e "\n🚀 Creating desktop launcher: 'Wine Configuration'..."
create_desktop_launcher \
    "wine-stable winecfg" \
    "Wine Configuration" \
    "Launch Wine Configuration" \
    "wine-stable" \
    "false" \
    "Application" \
    "Utility;" \
    "" \
    "$DESKTOP_DIR/wine-configuration.desktop"

echo -e "\n🚀 Creating desktop launcher: 'Qt GUI for Wine'..."
create_desktop_launcher \
    "q4wine" \
    "Qt GUI for Wine" \
    "Launch Qt GUI for Wine" \
    "q4wine" \
    "false" \
    "Application" \
    "Utility;" \
    "" \
    "$DESKTOP_DIR/qt-gui-for-wine.desktop"

echo -e "\n🚀 Creating desktop launcher: 'Winetricks'..."
create_desktop_launcher \
    "winetricks --gui" \
    "Winetricks" \
    "Launch Winetricks with GUI" \
    "winetricks" \
    "false" \
    "Application" \
    "Utility;" \
    "" \
    "$DESKTOP_DIR/winetricks.desktop"

if command -v thunar >/dev/null 2>&1; then
    CMD_EXEC="xfce4-terminal --title=\"CMD\" --color-bg=#000000 --color-text=#FFFFFF -e 'sudo wine-stable cmd.exe'"
    CMD_RUN_IN_TERMINAL=true
elif command -v dolphin >/dev/null 2>&1; then
    CMD_EXEC="konsole --hold -e sudo wine-stable cmd.exe"
    CMD_RUN_IN_TERMINAL=false
fi
if [[ -n "$CMD_EXEC" ]]; then
    echo -e "\n🚀 Creating desktop launcher: 'CMD'..."
    create_desktop_launcher \
        "$CMD_EXEC" \
        "CMD" \
        "Launch Microsoft Windows CMD as root" \
        "https://upload.wikimedia.org/wikipedia/commons/7/7b/CMD-Icon_%28small%29.png" \
        $CMD_RUN_IN_TERMINAL \
        "Application" \
        "Utility;" \
        "" \
        "$DESKTOP_DIR/cmd.desktop"
fi

if command -v thunar >/dev/null 2>&1; then

    echo -e "\n🚀 Creating Thunar custom action: 'Run with Wine'..."
    create_thunar_custom_action \
        "wine-run-with-wine" \
        "wine" \
        "Run with Wine" \
        "" \
        "wine-stable %f" \
        "Run a Microsoft Windows executable with Wine" \
        "*" \
        "*.exe" \
        "<other-files/>"

    echo -e "\n🚀 Creating Thunar custom action: 'Run with Wine (Terminal)'..."
    create_thunar_custom_action \
        "wine-run-with-wine-terminal" \
        "wine" \
        "Run with Wine (Terminal)" \
        "" \
        "xfce4-terminal --hold -e &quot;wine-stable %f&quot;" \
        "Run a Microsoft Windows executable with Wine (Terminal)" \
        "*" \
        "*.exe" \
        "<other-files/>"

    echo -e "\n🚀 Creating Thunar custom action: 'Open CMD here'..."
    create_thunar_custom_action \
        "wine-open-cmd-here" \
        "cmd" \
        "Open CMD here" \
        "" \
        "sudo xfce4-terminal --title=&quot;CMD&quot; --color-bg=#000000 --color-text=#FFFFFF -e &quot;wine start /wait /b /d %f cmd&quot;" \
        "Open a Windows CMD in the current directory" \
        "*" \
        "*" \
        "<directories/>"

    echo -e "\n🚀 Creating Thunar custom action: 'Open in Explorer (Wine)'..."
    create_thunar_custom_action \
        "wine-open-in-explorer" \
        "folder" \
        "Open in Explorer (Wine)" \
        "" \
        "wine-stable explorer %f" \
        "Open the current directory in Explorer (Wine)" \
        "*" \
        "*" \
        "<directories/>"

fi

echo -n -e "\n🏁 Operation completed."
echo
read -n1 -r -s -p "Press any key to finish..."
echo
exit

sudo apt install -y dotnet-runtime-8.0
sudo apt install -y dotnet-runtime-9.0

#!/bin/bash

###############################################################################
#                            MAIN SCRIPT EXECUTION                            #
###############################################################################

echo "⚠️ WARNING: This script will uninstall Wine and related components, directories, caches and configurations COMPLETELY."
echo 
echo -n "Do you want to continue? [Y/N]: "
while true; do
    read -n1 confirm
    echo
    if [[ -z "$confirm" || "$confirm" =~ ^[Yy]$ ]]; then
        break
    elif [[ "$confirm" =~ ^[Nn]$ ]]; then
        echo "❌ Operation cancelled."
        exit 1
    else
        echo "⚠️ Invalid option. Please press Y or N."
    fi
done
clear

# Remove wine directory, including "drive_c" and its contents.
WINEPREFIX="/root/.wine" winetricks --unattended annihilate
WINEPREFIX="$HOME/.wine" winetricks --unattended annihilate

sudo rm -rf "/root/.wine"
rm -rf "$HOME/.wine"
rm -rf "$HOME/.cache/winetricks"

# Remove packages that are part of Wine or strictly related to.
sudo apt-get remove --purge -y wine wine32 wine64 libwine fonts-wine \
                               q4wine winetricks wine-binfmt

# Remove auxiliary packages that are not strictly tied to Wine but are "safe" to remove.
sudo apt-get remove --purge -y binfmt-support winbind \
                               samba-common samba-common-bin samba-dsdb-modules

# Additional package cleanup. 
sudo apt-get autoremove -y
sudo apt-get clean

echo -e "\n🏁 Operation completed."
read -n1 -r -s -p "Press any key to finish..."
echo
exit 0

#!/bin/bash
# Script para instalar badblocks en Ubuntu/Debian
 
# Actualizar repositorios
sudo apt update
 
# Instalar e2fsprogs que incluye badblocks
sudo apt install -y e2fsprogs
 
# Confirmar instalación
if command -v badblocks > /dev/null; then
  echo "badblocks se ha instalado correctamente en Ubuntu/Debian."
else
  echo "Error: badblocks no se pudo instalar."
fi

#!/bin/bash
 
# Verificar si se está ejecutando como root
if [ "$EUID" -ne 0 ]; then
  echo "Por favor, ejecuta este script como root (usando sudo)."
  exit 1
fi
 
# Listar todos los discos disponibles
echo "Discos disponibles en el sistema:"
lsblk -d -o NAME,SIZE,MODEL
 
# Solicitar al usuario que seleccione un disco
read -p "Introduce el nombre del disco que deseas probar (por ejemplo, sda): " disk
 
# Verificar si el disco existe
if [ ! -b "/dev/$disk" ]; then
  echo "El disco /dev/$disk no existe. Por favor, verifica e intenta de nuevo."
  exit 1
fi
 
# Determinar el tamaño de sector físico
sector_size=$(cat /sys/block/$disk/queue/physical_block_size)
 
# Determinar el tamaño de bloque para badblocks
if [ "$sector_size" -eq 512 ]; then
  block_size=512
elif [ "$sector_size" -eq 4096 ]; then
  block_size=4096
else
  block_size=1024  # Valor predeterminado si no se puede determinar
fi
 
# Obtener la RAM total en GB (truncada a entero)
ram_total_gb=$(free -g | awk '/^Mem:/{print $2}')
 
# Determinar el valor adecuado para -c en función de la RAM
# 
# El parámetro -c de badblocks (que indica cuántos bloques se prueban en cada pasada) 
# sí que debería ajustarse en función de la cantidad de RAM disponible, 
# especialmente si se ejecuta en modo destructivo (-w) 
# porque este modo consume mucha memoria, ya que mantiene múltiples patrones en memoria para comparar.
if [ "$ram_total_gb" -lt 1 ]; then
  block_count=65536      # ~256MB
elif [ "$ram_total_gb" -lt 2 ]; then
  block_count=131072     # ~512MB
elif [ "$ram_total_gb" -lt 3 ]; then
  block_count=262144     # ~1GB
elif [ "$ram_total_gb" -lt 4 ]; then
  block_count=524288     # ~2GB
elif [ "$ram_total_gb" -lt 5 ]; then
  block_count=786432     # ~3GB
elif [ "$ram_total_gb" -lt 6 ]; then
  block_count=1048576    # ~4GB
elif [ "$ram_total_gb" -lt 7 ]; then
  block_count=1310720    # ~5GB
elif [ "$ram_total_gb" -lt 8 ]; then
  block_count=1572864    # ~6GB
elif [ "$ram_total_gb" -lt 9 ]; then
  block_count=1835008    # ~7GB
elif [ "$ram_total_gb" -lt 10 ]; then
  block_count=2097152    # ~8GB
elif [ "$ram_total_gb" -lt 11 ]; then
  block_count=2359296    # ~9GB
else
  block_count=2621440    # ~10GB
fi
 
echo "RAM detectada: $ram_total_gb GB"
echo "Usando block_count para badblocks: $block_count"
 
# Mostrar la información al usuario
echo
echo "Has seleccionado el disco /dev/$disk."
echo "Tamaño de sector físico: $sector_size bytes."
echo "Tamaño de bloque para badblocks: $block_size bytes."
echo "Memoria RAM detectada: $ram_total_gb GB"
echo "Valor calculado para -c (bloques a probar por pasada): $block_count"
echo
 
# Confirmar antes de ejecutar badblocks
read -p "¿Deseas ejecutar badblocks en modo destructivo en /dev/$disk? Esto borrará TODOS los datos del disco. (s/n): " confirm
 
if [[ "$confirm" =~ ^[Ss]$ ]]; then
  echo "Ejecutando badblocks en /dev/$disk..."
  badblocks -wsv -b $block_size -c $block_count /dev/$disk
  echo "Prueba completada."
else
  echo "Operación cancelada por el usuario."
  exit 0
fi

• Reallocated Sector Count
• Reported Uncorrectable Errors
• Current Pending Sector Count
• Uncorrectable Sector Count

sudo fdisk -l

sudo badblocks -wsv -b 4096 -c 131072 /dev/sde

-b

-c

-c 65536

$isoPath = Join-Path $PSScriptRoot "CD-ROM.iso"

...
Show-WelcomeScreen
# Confirm-Continue
Mount-ISO
# Show-GoodbyeScreen

<#PSScriptInfo
.VERSION 1.0
.GUID 14688e75-298c-1112-a2d0-1234567890aa
.AUTHOR ElektroStudios
.COMPANYNAME ElektroStudios
.COPYRIGHT ElektroStudios © 2025
#>
 
<#
===========================================================================================
|                                                                                         |
|                                        Variables                                        |
|                                                                                         |
===========================================================================================
#>
 
$isoPath = Join-Path $PSScriptRoot "CD-ROM.iso"
 
<#
===========================================================================================
|                                                                                         |
|                                    Functions                                            |
|                                                                                         |
===========================================================================================
#>
 
function Show-WelcomeScreen {
    Clear-Host
    Write-Host ""
    Write-Host " $($host.ui.RawUI.WindowTitle)"
    Write-Host " +==================================================+"
    Write-Host " |                                                 |"
    Write-Host " | This script will mount a virtual drive with the |"
    Write-Host " | ISO file of the specified path.                 |"
    Write-Host " |                                                 |"
    Write-Host " +=================================================+"
    Write-Host ""
    Write-Host " Script Settings            " -ForegroundColor DarkGray
    Write-Host " ===========================" -ForegroundColor DarkGray
    Write-Host " ISO File: $([System.IO.Path]::GetFullPath($isoPath))" -ForegroundColor Gray
    Write-Host ""
}
 
function Confirm-Continue {
    Write-Host " Press 'Y' key to continue or 'N' to exit."
    Write-Host ""
    Write-Host " -Continue? (Y/N)"
    do {
        $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
        $char = $key.Character.ToString().ToUpper()
        if ($char -ne "Y" -and $char -ne "N") {
            [console]::beep(1500, 500)
        }
    } while ($char -ne "Y" -and $char -ne "N")
    if ($char -eq "N") {Exit(1)} else {Clear-Host}
}
 
function Mount-ISO {
    if (Test-Path $isoPath) {
        try {
            $fullPath = (Resolve-Path $isoPath).Path
            $alreadyMounted = $null
            try {
                $alreadyMounted = Get-DiskImage -ImagePath $fullPath -ErrorAction Stop
            } catch {
            }
 
            if ($alreadyMounted -and $alreadyMounted.Attached) {
                Write-Host "ISO is already mounted. Skipping mount." -ForegroundColor Cyan
            } else {
                try {
                    $image = Mount-DiskImage -ImagePath $fullPath -PassThru -ErrorAction Stop
                    Write-Host "Virtual drive has been mounted successfully." -ForegroundColor Green
                } catch {
                    Write-Host "Error while mounting the ISO:" -ForegroundColor Red
                    Write-Host $_.Exception.Message -ForegroundColor Yellow
                }
            }
        }
        catch {
            Write-Host "Failed to mount the virtual drive." -ForegroundColor Red
            Write-Host $_.Exception.Message -ForegroundColor Yellow
        }
    } else {
        Write-Warning "ISO file not found at: $isoPath"
    }
}
 
function Show-GoodbyeScreen {
    Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green
    Write-Host ""
    Write-Host "Press any key to exit..."
    $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown")
    Exit(0)
}
 
<#
===========================================================================================
|                                                                                         |
|                                         Main                                            |
|                                                                                         |
===========================================================================================
#>
 
[System.Console]::Title = "Mount ISO file - by Elektro"
#[System.Console]::SetWindowSize(150, 45)
[CultureInfo]::CurrentUICulture = "en-US"
 
try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { }
 
Show-WelcomeScreen
Confirm-Continue
Mount-ISO
Show-GoodbyeScreen
 

<#PSScriptInfo
.VERSION 1.0
.GUID 14688e75-298c-1112-a2d0-1234567890ab
.AUTHOR ElektroStudios
.COMPANYNAME ElektroStudios
.COPYRIGHT ElektroStudios © 2025
#>
 
<#
===========================================================================================
|                                                                                         |
|                                        Variables                                        |
|                                                                                         |
===========================================================================================
#>
 
$isoPath = Join-Path $PSScriptRoot "CD-ROM.iso"
 
<#
===========================================================================================
|                                                                                         |
|                                    Functions                                            |
|                                                                                         |
===========================================================================================
#>
 
function Show-WelcomeScreen {
    Clear-Host
    Write-Host ""
    Write-Host " $($host.ui.RawUI.WindowTitle)"
    Write-Host " +======================================================+"
    Write-Host " |                                                      |"
    Write-Host " | This script will dismount a virtual drive previously |"
    Write-Host " | mounted with the ISO file of the specified path.     |"
    Write-Host " |                                                      |"
    Write-Host " +======================================================+"
    Write-Host ""
    Write-Host " Script Settings            " -ForegroundColor DarkGray
    Write-Host " ===========================" -ForegroundColor DarkGray
    Write-Host " ISO File: $([System.IO.Path]::GetFullPath($isoPath))" -ForegroundColor Gray
    Write-Host ""
}
 
function Confirm-Continue {
    Write-Host " Press 'Y' key to continue or 'N' to exit."
    Write-Host ""
    Write-Host " -Continue? (Y/N)"
    do {
        $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
        $char = $key.Character.ToString().ToUpper()
        if ($char -ne "Y" -and $char -ne "N") {
            [console]::beep(1500, 500)
        }
    } while ($char -ne "Y" -and $char -ne "N")
    if ($char -eq "N") {Exit(1)} else {Clear-Host}
}
 
function Dismount-ISO {
    if (Test-Path $isoPath) {
        try {
            $fullPath = (Resolve-Path $isoPath).Path
            $alreadyMounted = $null
            try {
                $alreadyMounted = Get-DiskImage -ImagePath $fullPath -ErrorAction Stop
            } catch {
            }
            if ($alreadyMounted -and $alreadyMounted.Attached) {
                try {
                    Dismount-DiskImage -ImagePath $fullPath -ErrorAction Stop
                    Write-Host "Virtual drive has been dismounted successfully." -ForegroundColor Green
                } catch {
                    Write-Host "Error while dismounting the virtual drive:" -ForegroundColor Red
                    Write-Host $_.Exception.Message -ForegroundColor Yellow
                }
            } else {
                Write-Host "No virtual drive mounted for this ISO. Nothing to dismount." -ForegroundColor Cyan
            }
        }
        catch {
            Write-Host "Failed to dismount the virtual drive." -ForegroundColor Red
            Write-Host $_.Exception.Message -ForegroundColor Yellow
        }
    } else {
        Write-Warning "ISO file not found at: $isoPath"
    }
}
 
function Show-GoodbyeScreen {
    Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green
    Write-Host ""
    Write-Host "Press any key to exit..."
    $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown")
    Exit(0)
}
 
<#
===========================================================================================
|                                                                                         |
|                                         Main                                            |
|                                                                                         |
===========================================================================================
#>
 
[System.Console]::Title = "Dismount ISO file - by Elektro"
#[System.Console]::SetWindowSize(150, 45)
[CultureInfo]::CurrentUICulture = "en-US"
 
try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { }
 
Show-WelcomeScreen
Confirm-Continue
Dismount-ISO
Show-GoodbyeScreen
 

Imports DevCase.RAR
Imports DevCase.RAR.Commands

Dim archivePath As String = "C:\New Archive.rar"
Dim filesToAdd As String = "C:\Directory to add\"
 
Dim command As New RarCreationCommand(RarCreationMode.Add, archivePath, filesToAdd) With {
    .RarExecPath = ".\rar.exe",
    .RarLicenseData = "(Your license key)",
    .RecurseSubdirectories = True,
    .EncryptionProperties = Nothing,
    .SolidCompression = False,
    .CompressionMode = RarCompressionMode.Normal,
    .DictionarySize = RarDictionarySize.Mb__128,
    .OverwriteMode = RarOverwriteMode.Overwrite,
    .FilePathMode = RarFilePathMode.ExcludeBaseDirFromFileNames,
    .FileTimestamps = RarFileTimestamps.All,
    .AddQuickOpenInformation = TriState.True,
    .ProcessHardLinksAsLinks = True,
    .ProcessSymbolicLinksAsLinks = TriState.True,
    .DuplicateFileMode = RarDuplicateFileMode.Enabled,
    .FileChecksumMode = RarFileChecksumMode.BLAKE2sp,
    .ArchiveComment = New RarArchiveComment("Hello world!"),
    .RecoveryRecordPercentage = 0,
    .VolumeSplitOptions = Nothing,
    .FileTypesToStore = Nothing
}

Console.WriteLine($"Command-line arguments: {command}")

MessageBox.Show(command.ToString())

Using rarExecutor As New RarCommandExecutor(command)
 
    AddHandler rarExecutor.OutputDataReceived,
        Sub(sender As Object, e As DataReceivedEventArgs)
            Console.WriteLine($"[Output] {Date.Now:yyyy-MM-dd HH:mm:ss} - {e.Data}")
        End Sub
 
    AddHandler rarExecutor.ErrorDataReceived,
        Sub(sender As Object, e As DataReceivedEventArgs)
            If e.Data IsNot Nothing Then
                Console.WriteLine($"[Error] {Date.Now:yyyy-MM-dd HH:mm:ss} - {e.Data}")
            End If
        End Sub
 
    AddHandler rarExecutor.Exited,
        Sub(sender As Object, e As EventArgs)
            Dim pr As Process = DirectCast(sender, Process)
            Dim rarExitCode As RarExitCode = DirectCast(pr.ExitCode, RarExitCode)
            Console.WriteLine($"[Exited] {Date.Now:yyyy-MM-dd HH:mm:ss} - rar.exe process has terminated with exit code {pr.ExitCode} ({rarExitCode})")
        End Sub
 
    Dim exitcode As RarExitCode = rarExecutor.ExecuteRarAsync().Result
End Using

''' <summary>
''' Converts a <see cref="Date"/> object to a long friendly date string based on the current culture.
''' <para></para>
''' For example:
''' <list type="bullet">
'''   <item><description>English<para></para>11 May, 2025</description></item>
'''   <item><description>Spanish<para></para>11 de mayo de 2025</description></item>
'''   <item><description>German<para></para>11. Mai 2025</description></item>
''' </list>
''' </summary>
''' 
''' <param name="[date]">
''' The <see cref="Date"/> object to be formatted.
''' </param>
''' 
''' <returns>
''' A string representing the formatted date, based on the current culture.
''' </returns>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Function ToLongFriendlyDateString([date] As Date) As String
 
    Return DateExtensions.ToLongFriendlyDateString([date], CultureInfo.CurrentCulture)
End Function
 
''' <summary>
''' Converts a <see cref="Date"/> object to a long friendly date string based on the specified culture.
''' <para></para>
''' For example:
''' <list type="bullet">
'''   <item><description>English<para></para>11 May, 2025</description></item>
'''   <item><description>Spanish<para></para>11 de mayo de 2025</description></item>
'''   <item><description>German<para></para>11. Mai 2025</description></item>
''' </list>
''' </summary>
''' 
''' <param name="[date]">
''' The <see cref="Date"/> object to be formatted.
''' </param>
''' 
''' <param name="provider">
''' The culture information used to format the date.
''' </param>
''' 
''' <returns>
''' A string representing the formatted date, based on the specified culture.
''' </returns>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Function ToLongFriendlyDateString([date] As Date, provider As IFormatProvider) As String
 
    Dim culture As CultureInfo = TryCast(provider, CultureInfo)
    If culture IsNot Nothing Then
 
        Select Case culture.TwoLetterISOLanguageName.ToLower()
            Case "es", "ca", "gl", "pt" ' Spanish, Catalonian, Galego, Portuguese
                Return [date].ToString("dd 'de' MMMM 'de' yyyy", provider)
 
            Case "de" ' Deutsch
                Return [date].ToString("dd'.' MMMM yyyy", provider)
 
            Case Else ' Do nothing.
                Exit Select
        End Select
    End If
 
    Return [date].ToString("dd MMMM, yyyy", provider)
End Function
 
''' <summary>
''' Converts a <see cref="Date"/> object to a long friendly date string based on the current culture.
''' <para></para>
''' For example:
''' <list type="bullet">
'''   <item><description>English<para></para>11 May, 2025 at 23:59:59</description></item>
'''   <item><description>Spanish<para></para>11 de mayo de 2025 a las 23:59:59</description></item>
''' </list>
''' </summary>
''' 
''' <param name="[date]">
''' The <see cref="Date"/> object to be formatted.
''' </param>
''' 
''' <returns>
''' A string representing the formatted date, based on the current culture.
''' </returns>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Function ToLongFriendlyDateAndTimeString([date] As Date) As String
 
    Return DateExtensions.ToLongFriendlyDateAndTimeString([date], CultureInfo.CurrentCulture)
End Function
 
''' <summary>
''' Converts a <see cref="Date"/> object to a long friendly date string based on the specifies culture.
''' <para></para>
''' For example:
''' <list type="bullet">
'''   <item><description>English<para></para>11 May, 2025 at 23:59:59</description></item>
'''   <item><description>Spanish<para></para>11 de mayo de 2025 a las 23:59:59</description></item>
''' </list>
''' </summary>
''' 
''' <param name="[date]">
''' The <see cref="Date"/> object to be formatted.
''' </param>
''' 
''' <param name="provider">
''' The culture information used to format the date.
''' </param>
''' 
''' <returns>
''' A string representing the formatted date, based on the specified culture.
''' </returns>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Function ToLongFriendlyDateAndTimeString([date] As Date, provider As IFormatProvider) As String
 
    Dim culture As CultureInfo = TryCast(provider, CultureInfo)
    If culture IsNot Nothing Then
 
        Select Case culture.TwoLetterISOLanguageName.ToLower()
            Case "en" ' English
                Return [date].ToString($"'{ToLongFriendlyDateString([date], provider)}' 'at' HH:mm:ss", provider)
 
            Case "es" ' Spanish
                Return [date].ToString($"'{ToLongFriendlyDateString([date], provider)}' 'a las' HH:mm:ss", provider)
 
            Case Else ' Do nothing.
                Exit Select
        End Select
    End If
 
    Return [date].ToString($"'{ToLongFriendlyDateString([date], provider)}' '—' HH:mm:ss", provider)
End Function

''' <summary>
''' Sends a custom command to the Cloudflare Warp CLI executable (<c>warp-cli.exe</c>) 
''' and captures both standard output and error output.
''' </summary>
''' 
''' <param name="command">
''' The command-line argument to be passed to warp-cli executable. 
''' For example: <c>connect</c>, <c>disconnect</c>, <c>status</c>, etc.
''' </param>
''' 
''' <param name="refOutput">
''' Returns the standard output returned by the warp-cli process.
''' </param>
''' 
''' <param name="refErrorOutput">
''' Returns the standard error output returned by the warp-cli process.
''' </param>
''' 
''' <param name="warpCliFilePath">
''' Optional path to the warp-cli executable. If <c>Nothing</c> is specified, the method defaults to:
''' <c>%ProgramFiles%\Cloudflare\Cloudflare Warp\warp-cli.exe</c>.
''' </param>
''' 
''' <returns>
''' The exit code returned by the warp-cli process. A value of 0 typically indicates success.
''' </returns>
''' 
''' <exception cref="System.IO.FileNotFoundException">
''' Thrown if the specified or default warp-cli executable file is not found on the system.
''' </exception>
''' 
''' <exception cref="System.TimeoutException">
''' Thrown if the warp-cli process takes longer than 60 seconds to complete.
''' </exception>
''' 
''' <exception cref="System.Exception">
''' Thrown if any other unexpected error occurs while attempting to execute the warp-cli process.
''' The original exception is wrapped as the inner exception.
''' </exception>
<DebuggerStepThrough>
Public Shared Function CloudflareWarpCliSendCommand(command As String,
                                                    ByRef refOutput As String,
                                                    ByRef refErrorOutput As String,
                                                    Optional warpCliFilePath As String = Nothing) As Integer
 
    ' Prevents concurrent execution of the method from multiple threads within the same process.
    ' This static lock object ensures that only one thread can execute the critical section at a time,
    ' avoiding race conditions or conflicts when invoking the Warp CLI.
    Static WarpCliLock As New Object()
 
    Static spaceChar As Char = " "c
 
    SyncLock WarpCliLock
        If String.IsNullOrEmpty(warpCliFilePath) Then
            warpCliFilePath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles),
                                           "Cloudflare\Cloudflare Warp\warp-cli.exe")
        End If
 
        Try
            If Not System.IO.File.Exists(warpCliFilePath) Then
                Throw New System.IO.FileNotFoundException("The Warp CLI executable was not found.", warpCliFilePath)
            End If
 
            Using pr As New Process()
                pr.StartInfo.FileName = warpCliFilePath
                pr.StartInfo.Arguments = command
                pr.StartInfo.UseShellExecute = False
                pr.StartInfo.CreateNoWindow = True
                pr.StartInfo.RedirectStandardOutput = True
                pr.StartInfo.RedirectStandardError = True
 
                pr.Start()
                If Not pr.WaitForExit(60000) Then ' Waits a maximum of 60 seconds
                    pr.Kill()
                    Throw New TimeoutException("warp-cli process has timed out.")
                End If
 
                refOutput = pr.StandardOutput.ReadToEnd().Trim(Environment.NewLine.ToCharArray().Concat({spaceChar}).ToArray())
                refErrorOutput = pr.StandardError.ReadToEnd().Trim(Environment.NewLine.ToCharArray().Concat({spaceChar}).ToArray())
 
                Return pr.ExitCode
            End Using
 
        Catch ex As Exception
            Throw New Exception($"Failed to execute warp-cli process. See inner exception for details.", ex)
        End Try
    End SyncLock
End Function

''' <summary>
''' Draws an overlay image onto the specified <see cref="Image"/> at a given position and scale factor.
''' </summary>
''' 
''' <param name="refImg">
''' The source <see cref="Image"/> to modify. The overlay image will be drawn directly on this image.
''' </param>
''' 
''' <param name="overlayImg">
''' The overlay image to draw on the source <paramref name="refImg"/>.
''' </param>
''' 
''' <param name="scale">
''' The relative image scale factor to determine overlay image size. Lower values increase the size of the overlay image.
''' </param>
''' 
''' <param name="position">
''' The position/alignment where the overlay image should be drawn (e.g., bottom-right).
''' </param>
''' 
''' <param name="margin">
''' The margin (in pixels) from the edge of the image to position the overlay image.
''' <para></para>
''' This value has different meaning depending on <paramref name="position"/> parameter:
''' <para></para>
''' <list type="bullet">
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopLeft"/>, <see cref="ContentAlignment.TopRight"/>,
'''       <para></para> 
'''       <see cref="ContentAlignment.BottomLeft"/> and <see cref="ContentAlignment.BottomRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the diagonal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleLeft"/> and <see cref="ContentAlignment.MiddleRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the horizontal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopCenter"/> and <see cref="ContentAlignment.BottomCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the vertical offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> is ignored.</description>
'''   </item>
''' </list>
''' </param>
''' 
''' <param name="transparentColor">
''' Optional. A <see cref="Color"/> to use as transparency to draw the overlay image.
''' </param>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Sub DrawImageScaled(ByRef refImg As Image, overlayImg As Image,
                       scale As Single, position As ContentAlignment, margin As Single,
                       Optional transparentColor As Color? = Nothing)
 
    If refImg Is Nothing Then
        Throw New ArgumentNullException(NameOf(refImg))
    End If
 
    If overlayImg Is Nothing Then
        Throw New ArgumentNullException(NameOf(overlayImg))
    End If
 
    If margin < 0 Then
        Throw New ArgumentOutOfRangeException(NameOf(margin), margin, "Margin must be greater than or equal to 0.")
    End If
 
    If scale < 1 Then
        Throw New ArgumentOutOfRangeException(NameOf(scale), scale, "Font scale must be greater than or equal to 1.")
    End If
 
    Using g As Graphics = Graphics.FromImage(refImg)
        g.SmoothingMode = SmoothingMode.AntiAlias
        g.InterpolationMode = InterpolationMode.HighQualityBicubic
        g.PixelOffsetMode = PixelOffsetMode.HighQuality
        g.CompositingQuality = CompositingQuality.HighQuality
 
        Dim targetSize As Single = Math.Max(refImg.Width, refImg.Height) / scale
        Dim aspectRatio As Single = CSng(overlayImg.Width / overlayImg.Height)
 
        Dim drawWidth As Single
        Dim drawHeight As Single
 
        If overlayImg.Width >= overlayImg.Height Then
            drawWidth = targetSize
            drawHeight = targetSize / aspectRatio
        Else
            drawHeight = targetSize
            drawWidth = targetSize * aspectRatio
        End If
 
        Dim posX As Single = 0
        Dim posY As Single = 0
 
        Select Case position
            Case ContentAlignment.TopLeft
                posX = margin
                posY = margin
 
            Case ContentAlignment.TopCenter
                posX = (refImg.Width - drawWidth) / 2
                posY = margin
 
            Case ContentAlignment.TopRight
                posX = refImg.Width - drawWidth - margin
                posY = margin
 
            Case ContentAlignment.MiddleLeft
                posX = margin
                posY = (refImg.Height - drawHeight) / 2
 
            Case ContentAlignment.MiddleCenter
                posX = (refImg.Width - drawWidth) / 2
                posY = (refImg.Height - drawHeight) / 2
 
            Case ContentAlignment.MiddleRight
                posX = refImg.Width - drawWidth - margin
                posY = (refImg.Height - drawHeight) / 2
 
            Case ContentAlignment.BottomLeft
                posX = margin
                posY = refImg.Height - drawHeight - margin
 
            Case ContentAlignment.BottomCenter
                posX = (refImg.Width - drawWidth) / 2
                posY = refImg.Height - drawHeight - margin
 
            Case ContentAlignment.BottomRight
                posX = refImg.Width - drawWidth - margin
                posY = refImg.Height - drawHeight - margin
 
            Case Else
                Throw New InvalidEnumArgumentException(NameOf(position), position, GetType(ContentAlignment))
        End Select
 
        If transparentColor.HasValue Then
            Using attr As New Imaging.ImageAttributes()
                attr.SetColorKey(transparentColor.Value, transparentColor.Value)
 
                Dim destRect As New Rectangle(CInt(posX), CInt(posY), CInt(drawWidth), CInt(drawHeight))
                g.DrawImage(overlayImg, destRect, 0, 0, overlayImg.Width, overlayImg.Height, GraphicsUnit.Pixel, attr)
            End Using
        Else
            g.DrawImage(overlayImg, posX, posY, drawWidth, drawHeight)
        End If
    End Using
End Sub
 
''' <summary>
''' Draws text onto the specified <see cref="Image"/> at a given position and scale factor.
''' </summary>
''' 
''' <param name="refImg">
''' The <see cref="Image"/> to modify. The text will be drawn directly on this image.
''' </param>
''' 
''' <param name="text">
''' The text to draw on the image.
''' </param>
''' 
''' <param name="scale">
''' The relative image scale factor to determine font size. Lower values increase the size of the text.
''' <para></para>
''' Suggested value is from 10 to 20.
''' </param>
''' 
''' <param name="position">
''' The position/alignment where the text should be drawn (e.g., bottom-right).
''' </param>
''' 
''' <param name="margin">
''' The margin (in pixels) from the edge of the image to position the text.
''' <para></para>
''' This value has different meaning depending on <paramref name="position"/> parameter:
''' <para></para>
''' <list type="bullet">
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopLeft"/>, <see cref="ContentAlignment.TopRight"/>,
'''       <para></para> 
'''       <see cref="ContentAlignment.BottomLeft"/> and <see cref="ContentAlignment.BottomRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the diagonal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleLeft"/> and <see cref="ContentAlignment.MiddleRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the horizontal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopCenter"/> and <see cref="ContentAlignment.BottomCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the vertical offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> is ignored.</description>
'''   </item>
''' </list>
''' </param>
''' 
''' <param name="font">
''' Optional. A custom <see cref="Font"/> to use. If not provided, a bold <c>Arial</c> font is used.
''' <para></para>
''' Note: Custom font size (<see cref="System.Drawing.Font.Size"/>) is ignored. It is determined by <paramref name="scale"/> parameter.
''' </param>
''' 
''' <param name="textColor">
''' Optional. The color of the text. 
''' <para></para>
''' Default value is <see cref="Color.White"/>.
''' </param>
''' 
''' <param name="outlineColor">
''' Optional. The color of the text outline.
''' <para></para>
''' Default value is <see cref="Color.Black"/>.
''' </param>
''' 
''' <param name="outlineThickness">
''' Optional. The thickness of the outline, in pixels.
''' <para></para>
''' Default value is 2 pixels.
''' </param>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Sub DrawTextScaled(ByRef refImg As Image, text As String, scale As Single,
                      position As ContentAlignment, margin As Single,
                      Optional font As Font = Nothing,
                      Optional textColor As Color = Nothing,
                      Optional outlineColor As Color = Nothing,
                      Optional outlineThickness As Short = 2)
 
    If margin < 0 Then
        Throw New ArgumentOutOfRangeException(NameOf(margin), margin, "Margin must be greater than or equal to 0.")
    End If
 
    If scale < 1 Then
        Throw New ArgumentOutOfRangeException(NameOf(scale), scale, "Font scale must be greater than or equal to 1.")
    End If
 
    If textColor = Nothing Then
        textColor = Color.White
    End If
 
    If outlineColor = Nothing Then
        outlineColor = Color.Black
    End If
 
    Using g As Graphics = Graphics.FromImage(refImg)
        g.SmoothingMode = SmoothingMode.AntiAlias
        g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
        g.InterpolationMode = InterpolationMode.HighQualityBicubic
        g.PixelOffsetMode = PixelOffsetMode.HighQuality
        g.CompositingQuality = CompositingQuality.HighQuality
 
        Dim rawFontSize As Single = Math.Max(refImg.Width, refImg.Height) / scale
        Dim maxAllowedFontSize As Single = Math.Min(refImg.Width, refImg.Height)
        Dim fontSize As Single = Math.Min(rawFontSize, maxAllowedFontSize)
 
        Using textFont As Font =
        If(font IsNot Nothing, New Font(font.FontFamily, fontSize, font.Style, GraphicsUnit.Pixel, font.GdiCharSet, font.GdiVerticalFont),
                               New Font("Arial", fontSize, FontStyle.Bold, GraphicsUnit.Pixel))
 
            Dim textSize As SizeF = g.MeasureString(text, textFont)
            Dim posX As Single = 0
            Dim posY As Single = 0
 
            Select Case position
                Case ContentAlignment.TopLeft
                    posX = margin
                    posY = margin
 
                Case ContentAlignment.TopCenter
                    posX = (refImg.Width - textSize.Width) / 2
                    posY = margin
 
                Case ContentAlignment.TopRight
                    posX = refImg.Width - textSize.Width - margin
                    posY = margin
 
                Case ContentAlignment.MiddleLeft
                    posX = margin
                    posY = (refImg.Height - textSize.Height) / 2
 
                Case ContentAlignment.MiddleCenter
                    posX = (refImg.Width - textSize.Width) / 2
                    posY = (refImg.Height - textSize.Height) / 2
 
                Case ContentAlignment.MiddleRight
                    posX = refImg.Width - textSize.Width - margin
                    posY = (refImg.Height - textSize.Height) / 2
 
                Case ContentAlignment.BottomLeft
                    posX = margin
                    posY = refImg.Height - textSize.Height - margin
 
                Case ContentAlignment.BottomCenter
                    posX = (refImg.Width - textSize.Width) / 2
                    posY = refImg.Height - textSize.Height - margin
 
                Case ContentAlignment.BottomRight
                    posX = refImg.Width - textSize.Width - margin
                    posY = refImg.Height - textSize.Height - margin
 
                Case Else
                    Throw New InvalidEnumArgumentException(NameOf(position), position, GetType(ContentAlignment))
            End Select
 
            Using outlineBrush As New SolidBrush(outlineColor)
 
                For dx As Short = -outlineThickness To outlineThickness
                    For dy As Short = -outlineThickness To outlineThickness
                        If dx <> 0 OrElse dy <> 0 Then
                            g.DrawString(text, textFont, outlineBrush, posX + dx, posY + dy)
                        End If
                    Next dy
                Next dx
            End Using
 
            Using textBrush As New SolidBrush(textColor)
                g.DrawString(text, textFont, textBrush, posX, posY)
            End Using
        End Using ' font
    End Using ' g
End Sub
 
''' <summary>
''' Draws a number onto the specified <see cref="Image"/> at a given position and scale factor.
''' </summary>
''' 
''' <param name="refImg">
''' The <see cref="Image"/> to modify. The number will be drawn directly on this image.
''' </param>
''' 
''' <param name="number">
''' The number to draw on the image.
''' </param>
''' 
''' <param name="scale">
''' The relative image scale factor to determine font size. Lower values increase the size of the text.
''' <para></para>
''' Suggested value is from 10 to 20.
''' </param>
''' 
''' <param name="position">
''' The position/alignment where the number should be drawn (e.g., bottom-right).
''' </param>
''' 
''' <param name="margin">
''' The margin (in pixels) from the edge of the image to position the text.
''' <para></para>
''' This value has different meaning depending on <paramref name="position"/> parameter:
''' <para></para>
''' <list type="bullet">
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopLeft"/>, <see cref="ContentAlignment.TopRight"/>,
'''       <para></para> 
'''       <see cref="ContentAlignment.BottomLeft"/> and <see cref="ContentAlignment.BottomRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the diagonal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleLeft"/> and <see cref="ContentAlignment.MiddleRight"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the horizontal offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.TopCenter"/> and <see cref="ContentAlignment.BottomCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> specifies the vertical offset.</description>
'''   </item>
'''   <item>
'''     <term>
'''       <see cref="ContentAlignment.MiddleCenter"/>
'''     </term>
'''     <description><para></para><paramref name="margin"/> is ignored.</description>
'''   </item>
''' </list>
''' </param>
''' 
''' <param name="font">
''' Optional. A custom <see cref="Font"/> to use. If not provided, a bold <c>Arial</c> font is used.
''' <para></para>
''' Note: Custom font size (<see cref="System.Drawing.Font.Size"/>) is ignored. It is determined by <paramref name="scale"/> parameter.
''' </param>
''' 
''' <param name="textColor">
''' Optional. The color of the text. 
''' <para></para>
''' Default value is <see cref="Color.White"/>.
''' </param>
''' 
''' <param name="outlineColor">
''' Optional. The color of the text outline.
''' <para></para>
''' Default value is <see cref="Color.Black"/>.
''' </param>
''' 
''' <param name="outlineThickness">
''' Optional. The thickness of the outline, in pixels.
''' <para></para>
''' Default value is 2 pixels.
''' </param>
<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Sub DrawNumberScaled(ByRef refImg As Image, number As Integer, scale As Single,
                        position As ContentAlignment, margin As Single,
                        Optional font As Font = Nothing,
                        Optional textColor As Color = Nothing,
                        Optional outlineColor As Color = Nothing,
                        Optional outlineThickness As Short = 2)
 
    DrawTextScaled(refImg, CStr(number), scale, position, margin, font, textColor, outlineColor, outlineThickness)
End Sub