#Requires -Version 5.1

<#
.SYNOPSIS
    KelTweak v1.1 — Windows Gaming Optimization Script
.DESCRIPTION
    Anti-cheat safe (Vanguard, EAC, BattlEye) Windows gaming optimization.
    Geri alinabilir — restore modu dahil.
    Win11 25H2 (Build 26200) dogrulanmistir.
.PARAMETER Mode
    apply   : Tweakleri uygula (varsayilan)
    restore : Son yedekten geri al
.EXAMPLE
    .\KelTweak.ps1
    .\KelTweak.ps1 -Mode restore
    KelTweak.bat restore
#>

param(
    [string]$Mode = "apply"
)

# ==============================================================
# BOLUM 0 — ADMIN YETKİ KONTROLU
# ==============================================================

$_principal  = [Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()
$_isAdmin    = $_principal.IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)
$_isWebMode  = [string]::IsNullOrEmpty($PSCommandPath)   # irm | iex ile calisiyorsa true
$_webUrl     = "https://keltweaker.kelvpn.org"

# --- Admin yetkisi kontrolu ---
if (-not $_isAdmin) {
    Write-Host ""
    Write-Host "  [!] Yonetici yetkisi gerekiyor. Yukseltiliyor..." -ForegroundColor Yellow
    if ($_isWebMode) {
        # Web modu: URL'yi tekrar indirip admin olarak calistir
        $cmd     = "iex(irm '$_webUrl')"
        $encoded = [Convert]::ToBase64String([Text.Encoding]::Unicode.GetBytes($cmd))
        Start-Process powershell.exe -Verb RunAs `
            -ArgumentList "-NoProfile -ExecutionPolicy Bypass -STA -EncodedCommand $encoded"
    } else {
        # Dosya modu: ayni dosyayi admin olarak calistir
        Start-Process powershell.exe -Verb RunAs `
            -ArgumentList "-NoProfile -ExecutionPolicy Bypass -STA -File `"$PSCommandPath`" -Mode `"$Mode`""
    }
    exit 0
}

# --- STA modu kontrolu (WPF GUI icin zorunlu) ---
$_sta = [System.Threading.Thread]::CurrentThread.ApartmentState
if ($_sta -ne [System.Threading.ApartmentState]::STA) {
    if ($_isWebMode) {
        $cmd     = "iex(irm '$_webUrl')"
        $encoded = [Convert]::ToBase64String([Text.Encoding]::Unicode.GetBytes($cmd))
        Start-Process powershell.exe `
            -ArgumentList "-NoProfile -ExecutionPolicy Bypass -STA -EncodedCommand $encoded"
    } else {
        Start-Process powershell.exe `
            -ArgumentList "-NoProfile -ExecutionPolicy Bypass -STA -File `"$PSCommandPath`" -Mode `"$Mode`""
    }
    exit 0
}

# ==============================================================
# BOLUM 1 — KONSOL AYARLARI & GLOBAL DEGISKENLER
# ==============================================================

$OutputEncoding           = [System.Text.Encoding]::UTF8
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
$Host.UI.RawUI.WindowTitle = "KelTweak v1.1"
$ProgressPreference = 'SilentlyContinue'   # Checkpoint-Computer mavi bildirimini engelle

# Pencere boyutu ayarla (bazi terminallerde calismayabilir, atla)
# Windows Terminal'de (WT_SESSION) boyut zorlamak reflow sorunlarina yol acar
if (-not $env:WT_SESSION) {
    try { $Host.UI.RawUI.WindowSize = New-Object System.Management.Automation.Host.Size(104, 46) } catch {}
}

# Calisma dizini ve dosya yollari
$script:KT_Dir = if ($PSScriptRoot -and $PSScriptRoot -ne "") {
    $PSScriptRoot
} else {
    # Web modu (irm | iex): dosyalari Desktop\KelTweak klasorune kaydet
    $dsk = [Environment]::GetFolderPath("Desktop")
    $webDir = Join-Path $dsk "KelTweak"
    New-Item -ItemType Directory -Path $webDir -Force -ErrorAction SilentlyContinue | Out-Null
    $webDir
}
$script:KT_Stamp      = Get-Date -Format "yyyyMMdd_HHmmss"
$script:KT_LogPath    = Join-Path $script:KT_Dir "KelTweak_Log_$($script:KT_Stamp).txt"
$script:KT_BackupPath = Join-Path $script:KT_Dir "KelTweak_Backup_$($script:KT_Stamp).reg"
$script:KT_NewKeysPath = Join-Path $script:KT_Dir "KelTweak_NewKeys_$($script:KT_Stamp).txt"

# Log dosyasini baslat
"KelTweak v1.1 | Baslangi: $(Get-Date) | Mode: $Mode`n$('=' * 60)" |
    Out-File $script:KT_LogPath -Encoding UTF8 -ErrorAction SilentlyContinue

# ==============================================================
# BOLUM 2 — YARDIMCI FONKSIYONLAR
# ==============================================================

# -- UI --

function Write-KT-Header {
    param([string]$Text)
    $line = "=" * 68
    Write-Host ""
    Write-Host $line -ForegroundColor DarkCyan
    Write-Host "  $Text" -ForegroundColor Cyan
    Write-Host $line -ForegroundColor DarkCyan
    Write-Host ""
}

function Write-KT-Section {
    param([string]$Text)
    Write-Host ""
    Write-Host "  >> $Text" -ForegroundColor DarkYellow
    Write-Host "  $('-' * 54)" -ForegroundColor DarkGray
}

function Write-KT-Status {
    <#
    .SYNOPSIS Tweak durum satiri yazdirir.
    OK=yesil, SKIP=gri, FAIL=kirmizi, WARN=sari
    #>
    param(
        [string]$Name,
        [ValidateSet("OK","SKIP","FAIL","WARN")]
        [string]$Status,
        [string]$Detail = ""
    )
    $padded = $Name.PadRight(48)
    switch ($Status) {
        "OK"   {
            Write-Host "  [OK] " -NoNewline -ForegroundColor Green
            Write-Host $padded   -NoNewline -ForegroundColor Gray
        }
        "SKIP" {
            Write-Host "  [--] " -NoNewline -ForegroundColor DarkGray
            Write-Host $padded   -NoNewline -ForegroundColor DarkGray
        }
        "FAIL" {
            Write-Host "  [!!] " -NoNewline -ForegroundColor Red
            Write-Host $padded   -NoNewline -ForegroundColor Gray
        }
        "WARN" {
            Write-Host "  [**] " -NoNewline -ForegroundColor Yellow
            Write-Host $padded   -NoNewline -ForegroundColor Gray
        }
    }
    if ($Detail) {
        Write-Host "  $Detail" -ForegroundColor DarkGray
    } else {
        Write-Host ""
    }
    Write-KT-Log -Level $Status -Message "$Name | $Detail"
}

function Write-KT-Banner {
    param([string]$Text, [string]$Color = "Yellow")
    $line = "!" * 68
    Write-Host ""
    Write-Host $line -ForegroundColor $Color
    Write-Host "  $Text" -ForegroundColor $Color
    Write-Host $line -ForegroundColor $Color
    Write-Host ""
}

# -- Logging --

function Write-KT-Log {
    param(
        [string]$Level   = "INFO",
        [string]$Message = ""
    )
    $ts   = Get-Date -Format "HH:mm:ss.fff"
    "[$ts][$($Level.PadRight(4))] $Message" |
        Out-File $script:KT_LogPath -Append -Encoding UTF8 -ErrorAction SilentlyContinue
}

# -- Registry Altyapisi --

# Hangi key yollari yedeklendi (duplicate export onleme)
$script:KT_BackedPaths  = [System.Collections.Generic.HashSet[string]]::new([StringComparer]::OrdinalIgnoreCase)
# Script tarafindan YARATILAN (yokken olusturulan) key'ler — restore'da silinecek
$script:KT_NewKeys      = [System.Collections.Generic.List[string]]::new()
# Reboot gerektiren tweak ID'leri
$script:KT_RebootList   = [System.Collections.Generic.List[string]]::new()
# Uygulanan tweak sayaci (ozet icin)
$script:KT_Applied      = 0
$script:KT_Skipped      = 0
$script:KT_Failed       = 0

function Convert-PsPathToReg {
    # HKLM:\Foo\Bar veya Microsoft.PowerShell.Core\Registry::HKEY_LOCAL_MACHINE\Foo\Bar
    # -> HKEY_LOCAL_MACHINE\Foo\Bar
    param([string]$PsPath)
    return $PsPath `
        -replace "^Microsoft\.PowerShell\.Core\\Registry::", "" `
        -replace "^HKLM:\\",  "HKEY_LOCAL_MACHINE\" `
        -replace "^HKCU:\\",  "HKEY_CURRENT_USER\" `
        -replace "^HKU:\\",   "HKEY_USERS\" `
        -replace "^HKCR:\\",  "HKEY_CLASSES_ROOT\" `
        -replace "/", "\"
}

function Backup-KT-Key {
    <#
    Bir registry key yolunu, henuz yedeklenmemisse, .reg backup dosyasina export eder.
    Key mevcut degilse (yeni olusturulacaksa) new_keys listesine ekler.
    #>
    param([string]$PsPath)

    if ($script:KT_BackedPaths.Contains($PsPath)) { return }
    [void]$script:KT_BackedPaths.Add($PsPath)

    $regPath = Convert-PsPathToReg -PsPath $PsPath

    # Key yoksa — yeni key, restore'da silinecek
    if (-not (Test-Path $PsPath)) {
        [void]$script:KT_NewKeys.Add($regPath)
        Write-KT-Log -Level "BAK" -Message "NEW_KEY (yoktu, olusturulacak): $regPath"
        return
    }

    # Mevcut key'i gecici dosyaya export et, sonra ana backup dosyasina birlestir
    $tmpFile = [System.IO.Path]::GetTempFileName()
    try {
        & reg.exe export "$regPath" "$tmpFile" /y 2>&1 | Out-Null
        if (-not (Test-Path $tmpFile)) { return }
        if ((Get-Item $tmpFile).Length -lt 10) { return }

        $raw = Get-Content -Path $tmpFile -Raw -Encoding Unicode
        if (-not (Test-Path $script:KT_BackupPath)) {
            # Ilk export: header dahil yaz
            $raw | Out-File $script:KT_BackupPath -Encoding Unicode -NoNewline
        } else {
            # Sonraki: header satirini kaldirip ekle
            $stripped = $raw -replace "^Windows Registry Editor Version 5\.00\r?\n(\r?\n)?", ""
            $stripped | Out-File $script:KT_BackupPath -Append -Encoding Unicode -NoNewline
        }
        Write-KT-Log -Level "BAK" -Message "EXPORTED: $regPath"
    } finally {
        Remove-Item $tmpFile -ErrorAction SilentlyContinue
    }
}

function Set-Reg {
    <#
    .SYNOPSIS Registry degeri yazar. Once backup alir. Basarida $true doner.
    .PARAMETER Type    DWord | String | ExpandString | Binary | QWord | MultiString
    .PARAMETER Reboot  Bu tweak icin reboot gerekiyorsa ekle
    .PARAMETER Id      Reboot listesine eklenecek tweak ID'si
    #>
    param(
        [string]$Path,
        [string]$Name,
        [object]$Value,
        [string]$Type   = "DWord",
        [string]$Id     = "",
        [switch]$Reboot
    )
    try {
        Backup-KT-Key -PsPath $Path
        if (-not (Test-Path $Path)) {
            New-Item -Path $Path -Force -ErrorAction Stop | Out-Null
        }
        Set-ItemProperty -Path $Path -Name $Name -Value $Value -Type $Type -Force -ErrorAction Stop
        if ($Reboot -and $Id -and (-not $script:KT_RebootList.Contains($Id))) {
            [void]$script:KT_RebootList.Add($Id)
        }
        Write-KT-Log -Level "SET " -Message "$Path | $Name = $Value [$Type]"
        return $true
    } catch {
        Write-KT-Log -Level "ERR " -Message "Set-Reg FAIL | $Path | $Name | $($_.Exception.Message)"
        return $false
    }
}

function Remove-Reg {
    <#
    .SYNOPSIS Registry degerini siler (key degil, sadece value). Once backup alir.
    #>
    param(
        [string]$Path,
        [string]$Name
    )
    try {
        Backup-KT-Key -PsPath $Path
        if (Test-Path $Path) {
            Remove-ItemProperty -Path $Path -Name $Name -Force -ErrorAction SilentlyContinue
        }
        Write-KT-Log -Level "DEL " -Message "$Path | $Name"
        return $true
    } catch {
        Write-KT-Log -Level "ERR " -Message "Remove-Reg FAIL | $Path | $Name | $($_.Exception.Message)"
        return $false
    }
}

function Disable-KT-Service {
    # $null = SKIP (servis yok)  |  $false = FAIL  |  $true = OK
    # Stop-Service bazi kernel driver'larda (NetBT, rdbss vs.) asmaya neden olur.
    # Bu yuzden Stop islemi ayri bir background job'da 5 saniye timeout ile calistirilir.
    param([string]$ServiceName)
    $svc = Get-Service -Name $ServiceName -ErrorAction SilentlyContinue | Select-Object -First 1
    if (-not $svc) {
        Write-KT-Log -Level "SKIP" -Message "Service bulunamadi (normal): $ServiceName"
        return $null
    }
    try {
        Set-Service -Name $svc.Name -StartupType Disabled -ErrorAction Stop
        # Stop-Service'i background job ile calistir; 5s sonra zorla sonlandir
        $job = Start-Job -ScriptBlock {
            param($sn)
            Stop-Service -Name $sn -Force -ErrorAction SilentlyContinue 2>&1 | Out-Null
        } -ArgumentList $svc.Name
        $null = Wait-Job -Job $job -Timeout 5
        Remove-Job -Job $job -Force -ErrorAction SilentlyContinue
        Write-KT-Log -Level "SVC " -Message "DISABLED: $($svc.Name)"
        return $true
    } catch {
        Write-KT-Log -Level "ERR " -Message "Disable-Service FAIL | $($svc.Name) | $($_.Exception.Message)"
        return $false
    }
}

function Disable-KT-Task {
    param([string]$TaskPath, [string]$TaskName = "")
    try {
        if ($TaskName) {
            Disable-ScheduledTask -TaskPath $TaskPath -TaskName $TaskName -ErrorAction Stop | Out-Null
        } else {
            # TaskPath tam yol oldugunda (separator iceriyorsa) isle
            $parts = $TaskPath -split "\\" | Where-Object { $_ }
            $tName = $parts[-1]
            $tPath = "\" + ($parts[0..($parts.Count - 2)] -join "\") + "\"
            Disable-ScheduledTask -TaskPath $tPath -TaskName $tName -ErrorAction Stop | Out-Null
        }
        Write-KT-Log -Level "TSK " -Message "DISABLED task: $TaskPath $TaskName"
        return $true
    } catch {
        Write-KT-Log -Level "SKIP" -Message "Task bulunamadi / zaten devre disi: $TaskPath $TaskName"
        return $false
    }
}

# ==============================================================
# BOLUM 3 — SİSTEM TESPİTİ
# ==============================================================

Write-KT-Header "KelTweak v1.1  Sistem Tespiti"

# Laptop: pil varsa laptop
$isLaptop = ($null -ne (Get-WmiObject Win32_Battery -ErrorAction SilentlyContinue))

# CPU
$_cpu       = Get-WmiObject Win32_Processor -ErrorAction SilentlyContinue | Select-Object -First 1
$cpuName    = if ($_cpu -and $_cpu.Name) { $_cpu.Name.Trim() } else { "Tespit edilemedi" }
$cpuVendor  = if ($_cpu -and ($_cpu.Manufacturer -match "AMD")) { "AMD" } else { "Intel" }

# GPU — Microsoft/Virtual/Remote gibi sahte adaptorleri filtrele
$_gpuAll    = @(Get-WmiObject Win32_VideoController -ErrorAction SilentlyContinue)
$_gpuMain   = $_gpuAll | Where-Object { $_.Name -notmatch "Microsoft|Virtual|Basic|Remote|RDP" } | Select-Object -First 1
$gpuName    = if ($_gpuMain) { $_gpuMain.Name.Trim() } else { "Bilinmiyor" }
$hasNVIDIA  = ($null -ne ($_gpuAll | Where-Object { $_.Name -match "NVIDIA" } | Select-Object -First 1))
$hasAMD_GPU = ($null -ne ($_gpuAll | Where-Object { $_.Name -match "AMD|Radeon" } | Select-Object -First 1))

# OS
$_winos       = Get-WmiObject Win32_OperatingSystem -ErrorAction SilentlyContinue
$winBuild     = [int]$_winos.BuildNumber
$isWin11      = ($winBuild -ge 22000)
$winEdition   = $_winos.Caption
$isEnterprise = ($winEdition -match "Enterprise|Education")

# RAM
$ramGB = [math]::Round((Get-WmiObject Win32_ComputerSystem).TotalPhysicalMemory / 1GB)

# SSD tespiti: C: surucusunun fiziksel disk turune bak
# NOT: Get-Disk.MediaType NVMe SSD'lerde "Unspecified" donebilir.
#      Get-PhysicalDisk daha guvenilir + BusType=NVMe kontrolu eklendi.
$osDriveSSD = $false
try {
    $_cPart = Get-Partition -ErrorAction Stop |
              Where-Object { $_.DriveLetter -eq 'C' } |
              Select-Object -First 1
    if ($_cPart) {
        $_ph = Get-PhysicalDisk -ErrorAction SilentlyContinue |
               Where-Object { $_.DeviceId -eq [string]$_cPart.DiskNumber } |
               Select-Object -First 1
        if ($_ph) {
            $osDriveSSD = ($_ph.MediaType -eq "SSD") -or ($_ph.BusType -eq "NVMe")
        } else {
            $_cDisk = Get-Disk -Number $_cPart.DiskNumber -ErrorAction Stop
            $osDriveSSD = ($_cDisk.MediaType -eq "SSD") -or ($_cDisk.BusType -eq "NVMe")
        }
    }
} catch {
    try {
        $bootDisk = Get-WmiObject Win32_DiskPartition -ErrorAction Stop |
                    Where-Object { $_.BootPartition -eq $true } |
                    Select-Object -First 1
        if ($bootDisk -and $bootDisk.Name -match 'Disk #(\d+)') {
            $osDiskNum = [int]$Matches[1]
            $_pd = Get-WmiObject -Namespace root\Microsoft\Windows\Storage `
                   -Class MSFT_PhysicalDisk -ErrorAction Stop |
                   Where-Object { $_.DeviceId -eq [string]$osDiskNum } |
                   Select-Object -First 1
            if ($_pd) { $osDriveSSD = ($_pd.MediaType -eq 4) -or ($_pd.BusType -eq 17) }
        }
    } catch { $osDriveSSD = $false }
}

# Aktif fiziksel NIC
$nicName = "Bulunamadi"; $nicGuid = $null; $activeNic = $null
try {
    $activeNic = Get-NetAdapter -Physical -ErrorAction Stop |
                 Where-Object { $_.Status -eq "Up" } |
                 Select-Object -First 1
    if ($activeNic) { $nicName = $activeNic.Name; $nicGuid = $activeNic.InterfaceGuid }
} catch {}

# GPU PnP InstanceId (MSI mode icin)
$gpuInstanceId = $null
try {
    $gpuInstanceId = (Get-PnpDevice -Class Display -ErrorAction SilentlyContinue |
                      Where-Object { $_.Status -eq "OK" } | Select-Object -First 1).InstanceId
} catch {}

# SvcHostSplitThresholdInKB: RAM bazli (ramGB * 1024 * 1024 KB)
$svcHostThresholdKB = $ramGB * 1024 * 1024

# ==============================================================
# BOLUM 4 — TESPİT TABLOSU
# ==============================================================

function Show-DetectionTable {
    $lw = 22

    function KT-Row {
        param([string]$Label, [string]$Value, [string]$Color = "White")
        Write-Host "  $($Label.PadRight($lw)): " -NoNewline -ForegroundColor DarkGray
        Write-Host $Value -ForegroundColor $Color
    }

    KT-Row "Cihaz Tipi"     $(if ($isLaptop) { "Dizustu (Laptop)" }  else { "Masaustu (Desktop)" }) `
                            $(if ($isLaptop) { "Yellow" } else { "Green" })
    KT-Row "Islemci"        $cpuName
    KT-Row "CPU Ureticisi"  $cpuVendor `
                            $(if ($cpuVendor -eq "AMD") { "Cyan" } else { "Blue" })
    KT-Row "GPU"            $gpuName
    KT-Row "GPU Turu"       $(if ($hasNVIDIA) { "NVIDIA" } elseif ($hasAMD_GPU) { "AMD" } else { "Diger" }) `
                            $(if ($hasNVIDIA) { "Green" } elseif ($hasAMD_GPU) { "Red" } else { "Gray" })
    KT-Row "RAM"            "${ramGB} GB"
    KT-Row "Isletim Sistemi" ($winEdition -replace "Microsoft Windows ", "")
    KT-Row "Windows Build"  "Build $winBuild $(if ($isWin11) { '(Win11)' } else { '(Win10)' })" `
                            $(if ($isWin11) { "Green" } else { "Yellow" })
    KT-Row "OS Diski"       $(if ($osDriveSSD) { "SSD" } else { "HDD - bazi tweakler atlanacak" }) `
                            $(if ($osDriveSSD) { "Green" } else { "Yellow" })
    KT-Row "Ag Adaptoru"   $nicName
    Write-Host ""
    Write-Host "  Sisteminizle uyumlu iyilestirmeler yapilacak." -ForegroundColor Cyan
    Write-Host ""
}

Show-DetectionTable

# Tespit sonuclari loga yaz
Write-KT-Log -Level "SYS " -Message "Laptop=$isLaptop | CPU=$cpuVendor | NVIDIA=$hasNVIDIA | AMD_GPU=$hasAMD_GPU | SSD=$osDriveSSD | Win11=$isWin11 | RAM=${ramGB}GB | Build=$winBuild"

# ==============================================================
# BOLUM 5 — RESTORE MODU
# ==============================================================

if ($Mode -eq "restore") {
    Write-KT-Header "KelTweak  Geri Alma (Restore) Modu"

    $backupFiles  = Get-ChildItem -Path $script:KT_Dir -Filter "KelTweak_Backup_*.reg" -ErrorAction SilentlyContinue |
                    Sort-Object LastWriteTime -Descending
    $newKeyFiles  = Get-ChildItem -Path $script:KT_Dir -Filter "KelTweak_NewKeys_*.txt" -ErrorAction SilentlyContinue |
                    Sort-Object LastWriteTime -Descending

    if (-not $backupFiles) {
        Write-Host "  [!!] Hic yedek dosyasi bulunamadi!" -ForegroundColor Red
        Write-Host "  Aranan dizin: $($script:KT_Dir)" -ForegroundColor DarkGray
        Write-Host ""
        Read-Host "  Cikis icin Enter'a basin"
        exit 1
    }

    Write-Host "  Mevcut yedekler:" -ForegroundColor Gray
    $i = 1
    foreach ($f in $backupFiles | Select-Object -First 5) {
        Write-Host "  [$i] $($f.Name)  ($($f.LastWriteTime.ToString('dd.MM.yyyy HH:mm')))" -ForegroundColor DarkCyan
        $i++
    }
    Write-Host ""
    $sel = Read-Host "  Geri yuklenecek yedek numarasi (Enter = en son [1])"
    if ($sel -eq "" -or $sel -eq "1") { $sel = 1 }
    $selIdx = [int]$sel - 1
    if ($selIdx -lt 0 -or $selIdx -ge $backupFiles.Count) { $selIdx = 0 }

    $chosenBackup = $backupFiles[$selIdx]
    Write-Host ""
    Write-Host "  Secilen yedek: $($chosenBackup.Name)" -ForegroundColor Yellow
    $confirm = Read-Host "  Bu yedegi geri yuklemek istiyor musunuz? [E/H]"
    if ($confirm -notmatch "^[Ee]") {
        Write-Host "  Iptal edildi." -ForegroundColor Gray
        exit 0
    }

    Write-Host ""
    Write-Host "  Registry geri yukleniyor..." -ForegroundColor Yellow
    $regOut = & reg.exe import "$($chosenBackup.FullName)" 2>&1
    if ($LASTEXITCODE -eq 0) {
        Write-Host "  [OK] Registry geri yuklendi." -ForegroundColor Green
    } else {
        Write-Host "  [!!] Registry geri yukleme hatasi: $regOut" -ForegroundColor Red
    }

    # Yeni eklenen key'leri sil (eslesik new_keys dosyasini bul)
    $matchedNewKeys = $newKeyFiles | Where-Object {
        $_.Name -replace "KelTweak_NewKeys_", "" -replace ".txt", "" -eq
        $chosenBackup.Name -replace "KelTweak_Backup_", "" -replace ".reg", ""
    } | Select-Object -First 1

    if ($matchedNewKeys) {
        $keysToDelete = Get-Content $matchedNewKeys.FullName -ErrorAction SilentlyContinue | Where-Object { $_.Trim() }
        if ($keysToDelete) {
            Write-Host ""
            Write-Host "  Script tarafindan eklenen kayit yollari siliniyor..." -ForegroundColor Yellow
            foreach ($key in $keysToDelete) {
                & reg.exe delete "$key" /f 2>&1 | Out-Null
                Write-Host "  [--] Silindi: $key" -ForegroundColor DarkGray
            }
        }
    }

    Write-Host ""
    Write-Host "  Geri alma tamamlandi." -ForegroundColor Green
    Write-Host "  Tam etkili olmasi icin sistemi yeniden baslatmaniz onerilir." -ForegroundColor Yellow
    Write-Host ""
    $rb = Read-Host "  Simdi yeniden baslatilsin mi? [E/H]"
    if ($rb -match "^[Ee]") {
        Restart-Computer -Force
    }
    exit 0
}

# ==============================================================
# BOLUM 6 — PROFİL SECİM MENUSU
# ==============================================================

function Show-ProfileMenu {
    Write-KT-Header "Adim 1/4  Profil Secimi"

    Write-Host "  Hangi profili uygulamak istiyorsunuz?" -ForegroundColor White
    Write-Host ""
    Write-Host "  [1] Temel " -NoNewline -ForegroundColor White
    Write-Host "  Guvenli tweakler: Telemetri, Gizlilik, Boot, Yardimci servisler" -ForegroundColor Cyan
    Write-Host "       Tum kullanicilara uygundur. Geri donus en kolay." -ForegroundColor DarkGray
    Write-Host ""
    Write-Host "  [2] Oyun  " -NoNewline -ForegroundColor White
    Write-Host "  Temel + CPU/GPU/Ag/Girdi optimizasyonu. Anti-cheat uyumlu." -ForegroundColor Green
    Write-Host "       ONERILEN PROFIL. 82 tweakin cogunlugu dahil." -ForegroundColor DarkGray
    Write-Host ""
    Write-Host "  [3] Tam   " -NoNewline -ForegroundColor White
    Write-Host "  Oyun + Tum servisler, zamanli gorevler, debloat uygulamalari." -ForegroundColor Yellow
    Write-Host "       En kapsamli. Daha fazla degisiklik. Dikkatli kullan." -ForegroundColor DarkGray
    Write-Host ""

    $sel = ""
    do {
        $sel = Read-Host "  Seciminiz [1/2/3]  (Enter = 2 Oyun)"
        if ($sel -eq "") { $sel = "2" }
    } while ($sel -notmatch "^[123]$")

    $profile = @{ "1" = "basic"; "2" = "gaming"; "3" = "full" }[$sel]
    $pname   = switch ($profile) { "basic" { "Temel" }; "gaming" { "Oyun" }; "full" { "Tam" } }

    Write-Host ""
    Write-Host "  Secilen: " -NoNewline -ForegroundColor DarkGray
    Write-Host $pname -ForegroundColor Cyan
    Write-Host ""
    return $profile
}

# ==============================================================
# BOLUM 7 — OPSİYONEL TWEAKLER  (WPF GUI)
# ==============================================================

function Show-ToggleMenu {

    # WPF gerekliliklerini yukle
    Add-Type -AssemblyName PresentationFramework
    Add-Type -AssemblyName PresentationCore
    Add-Type -AssemblyName WindowsBase

    # Tweak tanimlari — Cat, Id, L (etiket), K (opts anahtari),
    # G (guard scriptblock), W (uyari), Desc (aciklama)
    $defs = @(
        # ---- Arayuz (Win11) ----
        @{ Cat="Arayuz (Win11)";   Id="QOL22a"; L="Gorev Cubugu sol hizala";          K="TaskbarLeft";   G={ $isWin11 };                                   W="";                                                    Desc="Win11 varsayilani ortali. Klasik sol hizaya doner." }
        @{ Cat="Arayuz (Win11)";   Id="QOL22b"; L="Arama kutusunu kaldir";            K="SearchBoxOff";  G={ $isWin11 };                                   W="";                                                    Desc="Gorev cubugundaki arama kutusunu tamamen kaldirir." }
        @{ Cat="Arayuz (Win11)";   Id="QOL22c"; L="Task View butonunu kaldir";        K="TaskViewOff";   G={ $isWin11 };                                   W="";                                                    Desc="Coklu masaustu (Task View) butonunu gorev cubugundan kaldirir." }
        @{ Cat="Arayuz (Win11)";   Id="QOL13";  L="Aero Snap kapat";                  K="AeroSnapOff";   G={ $true };                                      W="";                                                    Desc="Pencereleri ekran kenarina sururken otomatik yari ekrana yapismasi engellenir." }
        @{ Cat="Arayuz (Win11)";   Id="QOL32";  L="Koyu tema uygula";                 K="DarkTheme";     G={ $true };                                      W="";                                                    Desc="Sistem ve uygulama temasini karanlik (Dark) moda alir." }
        # ---- Ekran / GPU ----
        @{ Cat="Ekran / GPU";      Id="DSP02";  L="Adaptive Sync / FreeSync";         K="AdaptiveSync";  G={ $true };                                      W="VRR destekli monitoru olmayanlarda etkisizdir";       Desc="G-Sync/FreeSync destekli monitorlerde sunum zamanlamasini optimize eden registry tweaki uygulanir." }
        @{ Cat="Ekran / GPU";      Id="GPU10";  L="Auto HDR etkinlestir";             K="AutoHDR";       G={ $isWin11 };                                   W="Aktif HDR modu ve HDR destekli monitoru olmali";      Desc="SDR oyunlarini HDR monitorde otomatik HDR'a donusturur. Win11 + aktif HDR modu gereklidir." }
        @{ Cat="Ekran / GPU";      Id="GPU07";  L="HDCP kapat (NVIDIA)";              K="HdcpOff";       G={ $hasNVIDIA };                                 W="Netflix/Disney+ gibi DRM akis hizmetleri bozulabilir"; Desc="NVIDIA HDCP icerik koruma protokolu devre disi birakilir. Reboot sonrasi etkin olur." }
        # ---- Gizlilik ----
        @{ Cat="Gizlilik";         Id="PRV09";  L="DRM online dogrulama kapat";       K="WinDrmOff";     G={ $true };                                      W="Cevrimdisi DRM icerik oynatimi etkilenebilir";        Desc="Windows DRM lisanslarinin internet uzerinden dogrulanmasi engellenir." }
        # ---- Islemci ----
        @{ Cat="Islemci";          Id="CPU11";  L="CPU Idle kapat (Intel desktop)";   K="CpuIdle";       G={ -not $isLaptop -and $cpuVendor -eq "Intel" }; W="ISI BELIRGIN ARTAR - iyi sogutma zorunlu";            Desc="Intel CPU C-state uyku moduna girmez. Dusuk input latency saglar, ancak isi belirgin arttirir." }
        # ---- Debloat - Kapat ----
        @{ Cat="Debloat";  Id="WinAI";  L="Windows AI ve Copilot kaldir";     K="WinAI";         G={ $isWin11 };                                   W="Feature update sonrasi geri gelebilir, tekrar calistir"; Desc="Copilot sidebar, AppX ve Copilot+ PC Recall ozelligi (DISM) kaldirilir." }
        @{ Cat="Debloat";  Id="DBL05";  L="Windows Ink Workspace kapat";      K="WinInk";        G={ $true };                                      W="";                                                    Desc="Gorev cubugundaki kalem/stylus calisma alani butonu gizlenir (registry)." }
        # ---- Debloat - Kaldir ----
        @{ Cat="Debloat"; Id="DBL11";  L="Xbox uygulamalari kaldir";         K="Xbox";          G={ $true };                                      W="Xbox Game Pass kullananlar secmesin";                  Desc="Xbox oyun servisleri AppX paketleri kaldirilir. Game Bar registry ile zaten kapalidir." }
        @{ Cat="Debloat"; Id="DBL16";  L="OneDrive kaldir";                  K="OneDrive";      G={ $true };                                      W="Aktif senkronizasyon kullananlar secmesin";            Desc="OneDrive /uninstall calistirilir. Dosyalara dokunulmaz." }
        @{ Cat="Debloat"; Id="DBL12";  L="Cortana kaldir";                   K="Cortana";       G={ $true };                                      W="";                                                    Desc="Cortana AppX paketi kaldirilir. Win11'de Copilot ile birlestirildi." }
        @{ Cat="Debloat"; Id="DBL13";  L="Clipchamp kaldir";                 K="Clipchamp";     G={ $true };                                      W="";                                                    Desc="Microsoft Clipchamp video duzenleyici AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL14";  L="Mail ve Calendar kaldir";          K="MailCal";       G={ $true };                                      W="";                                                    Desc="Dahili Posta ve Takvim uygulamasi kaldirilir." }
        @{ Cat="Debloat"; Id="DBL15";  L="Skype kaldir";                     K="Skype";         G={ $true };                                      W="";                                                    Desc="Skype AppX kaldirilir. Masaustu Skype etkilenmez." }
        @{ Cat="Debloat"; Id="DBL18";  L="Feedback Hub kaldir";              K="FeedbackHub";   G={ $true };                                      W="";                                                    Desc="Windows Geribildirim Merkezi AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL19";  L="Phone Link kaldir";                K="PhoneLink";     G={ $true };                                      W="";                                                    Desc="Android-PC baglantisi (Phone Link) AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL20";  L="Windows Maps kaldir";              K="WinMaps";       G={ $true };                                      W="";                                                    Desc="Windows Haritalar AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL21";  L="Mixed Reality Portal kaldir";      K="MixedReality";  G={ $true };                                      W="";                                                    Desc="VR/MR portal AppX kaldirilir. SVC16 ile servisi zaten kapalidir." }
        @{ Cat="Debloat"; Id="DBL22";  L="Dev Home kaldir";                  K="DevHome";       G={ $true };                                      W="";                                                    Desc="Windows Dev Home gelistirici merkezi AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL23";  L="Bing uygulamalari kaldir";         K="BingApps";      G={ $true };                                      W="";                                                    Desc="Bing Hava Durumu, Haber, Arama AppX paketleri kaldirilir." }
        @{ Cat="Debloat"; Id="DBL24";  L="Outlook for Windows kaldir";       K="OutlookNew";    G={ $true };                                      W="Klasik Office/Outlook etkilenmez";                    Desc="Web tabanli yeni Outlook uygulamasi kaldirilir. Klasik Office paketi etkilenmez." }
        @{ Cat="Debloat"; Id="DBL25";  L="Solitaire Collection kaldir";      K="Solitaire";     G={ $true };                                      W="";                                                    Desc="Microsoft Solitaire Collection AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL26";  L="Sticky Notes kaldir";              K="StickyNotes";   G={ $true };                                      W="";                                                    Desc="Microsoft Sticky Notes AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL27";  L="Power Automate Desktop kaldir";    K="PowerAutomate"; G={ $true };                                      W="";                                                    Desc="Power Automate Desktop AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL28";  L="Sound Recorder kaldir";            K="SoundRecorder"; G={ $true };                                      W="";                                                    Desc="Windows Ses Kaydedici AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL29";  L="3D Viewer kaldir";                 K="ThreeDViewer";  G={ $true };                                      W="";                                                    Desc="Microsoft 3D Viewer AppX kaldirilir." }
        @{ Cat="Debloat"; Id="DBL30";  L="Office Hub kaldir";                K="OfficeHub";     G={ $true };                                      W="";                                                    Desc="Microsoft Office Hub AppX kaldirilir. Klasik Office etkilenmez." }
        @{ Cat="Debloat"; Id="DBL31";  L="Teams Chat kaldir";                K="TeamsChat";     G={ $true };                                      W="";                                                    Desc="Win11 dahili Teams Chat AppX kaldirilir. Kurumsal Teams etkilenmez." }
    )

    # Guard'i gecen item'lari filtrele
    $items = [System.Collections.Generic.List[hashtable]]::new()
    foreach ($d in $defs) { if (& $d.G) { $items.Add($d) } }

    # Renk yardimcilari
    function HexColor($hex) {
        $hex = $hex.TrimStart('#')
        $r = [Convert]::ToByte($hex.Substring(0,2),16)
        $g = [Convert]::ToByte($hex.Substring(2,2),16)
        $b = [Convert]::ToByte($hex.Substring(4,2),16)
        [System.Windows.Media.SolidColorBrush][System.Windows.Media.Color]::FromRgb($r,$g,$b)
    }

    # Temel pencere XAML
    [xml]$xaml = @"
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="KelTweak v1.1  --  Opsiyonel Tweakler"
        Width="720" Height="680"
        MinWidth="540" MinHeight="400"
        Background="#1A1A1A"
        WindowStartupLocation="CenterScreen">
  <Grid>
    <Grid.RowDefinitions>
      <RowDefinition Height="Auto"/>
      <RowDefinition Height="*"/>
      <RowDefinition Height="Auto"/>
    </Grid.RowDefinitions>
    <Border Grid.Row="0" Background="#252525" Padding="20,14,20,14">
      <StackPanel>
        <TextBlock Text="Opsiyonel Tweakler" FontSize="15" FontWeight="Bold" Foreground="White"/>
        <TextBlock Text="Uygulamak istediklerini isaretleyip Uygula'ya tikla." FontSize="11" Foreground="#777777" Margin="0,2,0,0"/>
      </StackPanel>
    </Border>
    <ScrollViewer Grid.Row="1" Name="Scroller" VerticalScrollBarVisibility="Auto" Padding="0,4,0,4">
      <StackPanel Name="Panel" Margin="18,8,18,8"/>
    </ScrollViewer>
    <Border Grid.Row="2" Background="#252525" Padding="20,12,20,12">
      <Grid>
        <TextBlock Name="SelInfo" Text="0 item secildi" Foreground="#777" FontSize="11" VerticalAlignment="Center"/>
        <StackPanel Orientation="Horizontal" HorizontalAlignment="Right">
          <Button Name="BtnNone" Content="Hicbirini Secme" Padding="14,7" Margin="0,0,8,0"
                  Background="#3A3A3A" Foreground="#CCCCCC" BorderBrush="Transparent"
                  Cursor="Hand" FontSize="12"/>
          <Button Name="BtnApply" Content="  Uygula  " Padding="22,7"
                  Background="#1565C0" Foreground="White" BorderBrush="Transparent"
                  Cursor="Hand" FontWeight="Bold" FontSize="12"/>
        </StackPanel>
      </Grid>
    </Border>
  </Grid>
</Window>
"@

    $reader = [System.Xml.XmlNodeReader]::new($xaml)
    $script:_ktWin   = [System.Windows.Markup.XamlReader]::Load($reader)
    $panel            = $script:_ktWin.FindName("Panel")
    $selInfo          = $script:_ktWin.FindName("SelInfo")
    $script:_ktCBList = [System.Collections.Generic.List[System.Windows.Controls.CheckBox]]::new()

    # Panel'i doldur
    $curCat = ""
    foreach ($item in $items) {
        # Kategori basligi
        if ($item.Cat -ne $curCat) {
            if ($curCat -ne "") {
                $sep = New-Object System.Windows.Controls.Separator
                $sep.Background = HexColor "#333333"
                $sep.Margin     = "0,8,0,6"
                $panel.Children.Add($sep) | Out-Null
            }
            $curCat = $item.Cat
            $catTB  = New-Object System.Windows.Controls.TextBlock
            $catTB.Text       = $item.Cat.ToUpper([System.Globalization.CultureInfo]::InvariantCulture)
            $catTB.Foreground = HexColor "#4A90D9"
            $catTB.FontSize   = 10
            $catTB.FontWeight = "Bold"
            $catTB.Margin     = "2,4,0,5"
            $panel.Children.Add($catTB) | Out-Null
        }

        # Kart (Border) - item konteyner
        $card           = New-Object System.Windows.Controls.Border
        $card.Background  = HexColor "#272727"
        $card.CornerRadius = [System.Windows.CornerRadius]::new(5)
        $card.Margin      = "0,2,0,2"
        $card.Padding     = "12,9,12,9"

        $cardStack = New-Object System.Windows.Controls.StackPanel

        # CheckBox
        $cb           = New-Object System.Windows.Controls.CheckBox
        $cb.Tag        = $item.K
        $cb.Foreground = HexColor "#EEEEEE"
        $cb.FontSize   = 13

        $cbLabel           = New-Object System.Windows.Controls.TextBlock
        $cbLabel.Text       = $item.L
        $cbLabel.TextWrapping = "Wrap"
        $cbLabel.Foreground = HexColor "#EEEEEE"
        $cb.Content = $cbLabel

        # CheckBox degisince selInfo guncelle
        $cb.Add_Checked({
            $cnt = ($script:_ktCBList | Where-Object { $_.IsChecked }).Count
            $selInfo.Text = "$cnt item secildi"
        })
        $cb.Add_Unchecked({
            $cnt = ($script:_ktCBList | Where-Object { $_.IsChecked }).Count
            $selInfo.Text = "$cnt item secildi"
        })

        $cardStack.Children.Add($cb) | Out-Null

        # Aciklama
        if ($item.Desc) {
            $descTB           = New-Object System.Windows.Controls.TextBlock
            $descTB.Text       = $item.Desc
            $descTB.FontSize   = 10
            $descTB.Foreground = HexColor "#777777"
            $descTB.TextWrapping = "Wrap"
            $descTB.Margin     = "22,3,0,0"
            $cardStack.Children.Add($descTB) | Out-Null
        }

        # Uyari
        if ($item.W) {
            $warnTB           = New-Object System.Windows.Controls.TextBlock
            $warnTB.Text       = "!  $($item.W)"
            $warnTB.FontSize   = 10
            $warnTB.Foreground = HexColor "#FFB74D"
            $warnTB.TextWrapping = "Wrap"
            $warnTB.Margin     = "22,2,0,0"
            $cardStack.Children.Add($warnTB) | Out-Null
        }

        $card.Child = $cardStack
        $panel.Children.Add($card) | Out-Null
        $script:_ktCBList.Add($cb) | Out-Null
    }

    # Buton olaylari
    $script:_ktWin.FindName("BtnApply").Add_Click({
        $script:_ktWin.Close()
    })
    $script:_ktWin.FindName("BtnNone").Add_Click({
        foreach ($cb in $script:_ktCBList) { $cb.IsChecked = $false }
        $script:_ktWin.Close()
    })

    # GUI'yi ac (bloklu)
    $script:_ktWin.ShowDialog() | Out-Null

    # Sonuclari topla
    $allKeys = @("TaskbarLeft","SearchBoxOff","TaskViewOff","AeroSnapOff","DarkTheme",
                 "AdaptiveSync","AutoHDR","HdcpOff","WinDrmOff","CpuIdle",
                 "WinAI","Xbox","OneDrive","WinInk","Cortana","Clipchamp","MailCal","Skype",
                 "FeedbackHub","PhoneLink","WinMaps","MixedReality","DevHome","BingApps",
                 "OutlookNew","Solitaire","StickyNotes","PowerAutomate","SoundRecorder",
                 "ThreeDViewer","OfficeHub","TeamsChat")
    $result = @{}
    foreach ($k in $allKeys)          { $result[$k] = $false }
    foreach ($cb in $script:_ktCBList) {
        if ($cb.Tag -and $cb.IsChecked -eq $true) { $result[$cb.Tag] = $true }
    }
    return $result
}
# ==============================================================
# BOLUM 8 — DNS SECİMİ
# ==============================================================

function Show-DnsMenu {
    Write-KT-Header "Adim 3/4  DNS Secimi"

    Write-Host "  Mevcut DNS : " -NoNewline -ForegroundColor DarkGray
    try {
        $curDns = (Get-DnsClientServerAddress -InterfaceAlias $nicName -AddressFamily IPv4 `
                   -ErrorAction Stop).ServerAddresses
        if ($curDns) {
            Write-Host ($curDns -join ", ") -ForegroundColor DarkCyan
        } else { Write-Host "(tespit edilemedi)" -ForegroundColor DarkGray }
    } catch { Write-Host "(tespit edilemedi)" -ForegroundColor DarkGray }
    Write-Host ""

    $dnsOpts = @(
        @{ Key="1"; Name="Cloudflare"; P="1.1.1.1";       S="1.0.0.1";          Note="Hizli + gizlilik odakli" }
        @{ Key="2"; Name="Google    "; P="8.8.8.8";       S="8.8.4.4";          Note="Genis ag, stabil" }
        @{ Key="3"; Name="Quad9    " ; P="9.9.9.9";       S="149.112.112.112";  Note="Guvenlik odakli, zararli domain engeller" }
        @{ Key="4"; Name="AdGuard  " ; P="94.140.14.14";  S="94.140.15.15";     Note="Reklam + izleyici engelleme" }
        @{ Key="5"; Name="Koru     " ; P="";              S="";                  Note="Mevcut DNS ayarlarini degistirme" }
    )

    foreach ($d in $dnsOpts) {
        Write-Host "  [$($d.Key)] " -NoNewline -ForegroundColor White
        Write-Host "$($d.Name)  " -NoNewline -ForegroundColor Cyan
        if ($d.P) { Write-Host "$($d.P) / $($d.S)  " -NoNewline -ForegroundColor DarkCyan }
        Write-Host $d.Note -ForegroundColor DarkGray
    }
    Write-Host ""

    $sel = ""
    do {
        $sel = Read-Host "  Seciminiz [1-5]  (Enter = 1 Cloudflare)"
        if ($sel -eq "") { $sel = "1" }
    } while ($sel -notmatch "^[12345]$")

    if ($sel -eq "5") { return $null }
    return $dnsOpts[[int]$sel - 1]
}

# ==============================================================
# BOLUM 9 — ONAY & YEDEKLEME
# ==============================================================

function Show-ConfirmScreen {
    param(
        [string]$Profile,
        [hashtable]$Opts,
        $DnsChoice
    )

    Write-KT-Header "Adim 4/4  Onay"

    $pname = switch ($Profile) {
        "basic"  { "Temel  (telemetri, gizlilik, boot)" }
        "gaming" { "Oyun   (temel + CPU/GPU/Ag/Girdi)" }
        "full"   { "Tam    (oyun + servisler + debloat)" }
    }
    Write-Host "  Profil          : $pname" -ForegroundColor White

    $optNames = $Opts.GetEnumerator() |
                Where-Object { $_.Value -eq $true } |
                ForEach-Object { $_.Key } | Sort-Object
    if ($optNames) {
        $optStr = if ($optNames.Count -le 4) { $optNames -join ", " } else { "$($optNames.Count) opsiyon secildi" }
        Write-Host "  Opsiyonel aktif : $optStr" -ForegroundColor Yellow
    } else {
        Write-Host "  Opsiyonel       : Hicbiri" -ForegroundColor DarkGray
    }

    if ($DnsChoice) {
        Write-Host "  DNS             : $($DnsChoice.Name.Trim())  ($($DnsChoice.P))" -ForegroundColor White
    } else {
        Write-Host "  DNS             : Degistirilmeyecek" -ForegroundColor DarkGray
    }

    Write-Host ""
    Write-Host "  Yapilacaklar:" -ForegroundColor Gray
    Write-Host "    1. Windows Restore Point olusturulacak" -ForegroundColor DarkGray
    Write-Host "    2. Registry yedegi -> KelTweak_Backup_$($script:KT_Stamp).reg" -ForegroundColor DarkGray
    Write-Host "    3. Tweakler uygulanacak" -ForegroundColor DarkGray
    Write-Host "    4. Log -> KelTweak_Log_$($script:KT_Stamp).txt" -ForegroundColor DarkGray
    Write-Host ""

    if ($isLaptop) {
        Write-Host "  [**] LAPTOP MODU: Pil omrunu etkileyen tweakler otomatik atlanacak." -ForegroundColor Yellow
    }
    if (-not $osDriveSSD) {
        Write-Host "  [**] HDD TESPIT EDILDI: Superfetch/Prefetch/Indexing tweakleri atlanacak." -ForegroundColor Yellow
    }
    if (-not $isWin11) {
        Write-Host "  [**] WIN10 MODU: Win11-spesifik tweakler atlanacak." -ForegroundColor Yellow
    }
    Write-Host ""

    $c = Read-Host "  Devam edilsin mi? [E/H]"
    return ($c -match "^[Ee]")
}

function New-KT-RestorePoint {
    Write-Host "  Restore Point olusturuluyor..." -NoNewline -ForegroundColor Yellow
    try {
        # Gun icinde birden fazla RP izni
        $null = Set-Reg -Path "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore" `
                        -Name "SystemRestorePointCreationFrequency" -Value 0 -Id "RP_FREQ"
        Checkpoint-Computer -Description "KelTweak v1.1 Uygulama Oncesi" `
                            -RestorePointType "MODIFY_SETTINGS" -ErrorAction Stop
        Write-Host " Tamam." -ForegroundColor Green
        Write-KT-Log -Level "RP  " -Message "Restore Point olusturuldu"
    } catch {
        Write-Host " Basarisiz (devam ediliyor)." -ForegroundColor Yellow
        Write-KT-Log -Level "WARN" -Message "Restore Point hatasi: $($_.Exception.Message)"
    }
}

# ==============================================================
# BOLUM 10 — ANA AKIM
# ==============================================================

$script:KT_Profile = Show-ProfileMenu
$script:KT_Opts    = Show-ToggleMenu
$script:KT_DNS     = Show-DnsMenu

$doApply = Show-ConfirmScreen `
    -Profile   $script:KT_Profile `
    -Opts      $script:KT_Opts `
    -DnsChoice $script:KT_DNS

if (-not $doApply) {
    Write-Host ""
    Write-Host "  Iptal edildi. Hicbir degisiklik yapilmadi." -ForegroundColor Yellow
    Write-Host ""
    Read-Host "  Cikis icin Enter"
    exit 0
}

New-KT-RestorePoint
Write-Host ""

# ==============================================================
# BOLUM 11 — TWEAK FONKSIYONLARI
# ==============================================================

# ---- Kisayol yardimci fonksiyonlar (sadece tweak bolumleri) ----

function _ok   { param([string]$n, [string]$d = "") Write-KT-Status $n "OK"   $d; $script:KT_Applied++ }
function _skip { param([string]$n, [string]$d = "") Write-KT-Status $n "SKIP" $d; $script:KT_Skipped++ }
function _fail { param([string]$n, [string]$d = "") Write-KT-Status $n "FAIL" $d; $script:KT_Failed++ }
function _warn { param([string]$n, [string]$d = "") Write-KT-Status $n "WARN" $d; $script:KT_Applied++ }

function _sr {
    # Set Registry + durum yaz
    param([string]$n, [string]$p, [string]$k, $v,
          [string]$t = "DWord", [string]$id = "", [switch]$rb)
    if (Set-Reg -Path $p -Name $k -Value $v -Type $t -Id $id -Reboot:$rb) { _ok $n }
    else { _fail $n }
}

function _dr {
    # Delete Registry value + durum yaz
    param([string]$n, [string]$p, [string]$k)
    if (Remove-Reg -Path $p -Name $k) { _ok $n }
    else { _fail $n }
}

function _sv {
    # Disable Service + durum yaz
    param([string]$n, [string]$svc)
    $r = Disable-KT-Service $svc
    if     ($r -eq $true)  { _ok   $n }
    elseif ($null -eq $r)  { _skip $n "Sistemde bulunmuyor" }
    else                   { _fail $n }
}

function _tk {
    # Disable Scheduled Task + durum yaz
    param([string]$n, [string]$path, [string]$task = "")
    if (Disable-KT-Task $path $task) { _ok $n }
    else { _skip $n "Gorev bulunamadi veya zaten devre disi" }
}

# ==============================================================
# SYS — Timer & Guc
# ==============================================================

function Invoke-SYS {
    Write-KT-Section "Timer & Guc Optimizasyonu"
    if ($script:_pL -lt 2) { return }

    # SYS01 — PowerThrottling kapat
    if ($isLaptop) { _skip "SYS01  PowerThrottling kapat" "Laptop" }
    else { _sr "SYS01  PowerThrottling kapat" `
               "HKLM:\SYSTEM\CurrentControlSet\Control\Power\PowerThrottling" `
               "PowerThrottlingOff" 1 -id "SYS01" }

    # SYS02 — GlobalTimerResolutionRequests (Win11 only, reboot)
    if (-not $isWin11) { _skip "SYS02  GlobalTimerResolutionRequests" "Win10 - sadece Win11" }
    else { _sr "SYS02  GlobalTimerResolutionRequests" `
               "HKLM:\SYSTEM\CurrentControlSet\Control\Session Manager\kernel" `
               "GlobalTimerResolutionRequests" 1 -id "SYS02" -rb }

    # SYS09 — bcdedit disabledynamictick
    if ($isLaptop) { _skip "SYS09  disabledynamictick" "Laptop" }
    else {
        & bcdedit /set disabledynamictick yes 2>&1 | Out-Null
        if ($LASTEXITCODE -eq 0) {
            if (-not $script:KT_RebootList.Contains("SYS09")) { [void]$script:KT_RebootList.Add("SYS09") }
            _ok "SYS09  disabledynamictick" $(if ($cpuVendor -eq "AMD") { "AMD: Intel'e gore daha az etkili" } else { "" })
        } else { _fail "SYS09  disabledynamictick" }
    }

    # SYS10 — Automatic Maintenance kapat
    _sr "SYS10  Automatic Maintenance kapat" `
        "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\Maintenance" `
        "MaintenanceDisabled" 1 -id "SYS10"

    # SYS03 — Hibernate kapat
    if ($isLaptop) { _skip "SYS03  Hibernate kapat" "Laptop - FastBoot etkilenebilir" }
    else {
        & powercfg /hibernate off 2>&1 | Out-Null
        if ($LASTEXITCODE -eq 0) { _ok "SYS03  Hibernate kapat" "7-8GB disk kazanci" }
        else { _fail "SYS03  Hibernate kapat" }
    }

    # SYS04 — Modern Standby kapat (sadece desktop)
    if ($isLaptop) { _skip "SYS04  Modern Standby kapat" "Laptop - uyku/uyanma bozulabilir" }
    else {
        _sr "SYS04  Modern Standby kapat" `
            "HKLM:\SYSTEM\CurrentControlSet\Control\Power" "CsEnabled" 0 -id "SYS04" -rb
    }

    # SYS07 — Boot timeout = 5s
    & bcdedit /timeout 5 2>&1 | Out-Null
    if ($LASTEXITCODE -eq 0) { _ok "SYS07  Boot timeout = 5s" }
    else { _fail "SYS07  Boot timeout" }

    # SYS08 — WPBT kapat (OEM yazilim enjeksiyonu engelle)
    _sr "SYS08  WPBT kapat" `
        "HKLM:\SYSTEM\CurrentControlSet\Control\Session Manager" "DisableWpbtExecution" 1 -id "SYS08"

    # SYS11 — ServicesPipeTimeout = 30s (boot hizi)
    _sr "SYS11  ServicesPipeTimeout = 30s" `
        "HKLM:\SYSTEM\CurrentControlSet\Control" "ServicesPipeTimeout" 30000 -id "SYS11"
}

# ==============================================================
# CPU — Zamanlama & Oncelik
# ==============================================================

function Invoke-CPU {
    Write-KT-Section "CPU Zamanlama & Oncelik"
    if ($script:_pL -lt 2) { return }

    # CPU01 — Core Parking kapat
    $cpPath = "HKLM:\SYSTEM\CurrentControlSet\Control\Power\PowerSettings\54533251-82be-4824-96c1-47b60b740d00\0cc5b647-c1df-4637-891a-dec35c318583"
    if ($isLaptop) { _skip "CPU01  Core Parking kapat" "Laptop" }
    else {
        $note = if ($cpuVendor -eq "AMD") { "AMD: Infinity Fabric etkilenebilir" } else { "" }
        if (Set-Reg -Path $cpPath -Name "ValueMax" -Value 0 -Id "CPU01") { _ok "CPU01  Core Parking kapat" $note }
        else { _fail "CPU01  Core Parking kapat" }
    }

    # CPU02 — Win32PrioritySeparation = 38 (hardcode, her zaman gaming+)
    _sr "CPU02  Win32PrioritySeparation = 38" `
        "HKLM:\SYSTEM\CurrentControlSet\Control\PriorityControl" `
        "Win32PrioritySeparation" 38 -id "CPU02"

    # CPU03 — CSRSS Priority Boost
    $csrPath = "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\csrss.exe\PerfOptions"
    $r3a = Set-Reg -Path $csrPath -Name "CpuPriorityClass" -Value 4 -Id "CPU03"
    $r3b = Set-Reg -Path $csrPath -Name "IoPriority"       -Value 3 -Id "CPU03"
    if ($r3a -and $r3b) { _ok "CPU03  CSRSS Priority Boost" } else { _fail "CPU03  CSRSS Priority Boost" }

    # CPU04 — SvcHostSplitThresholdInKB (RAM bazli, dinamik)
    _sr "CPU04  SvcHostSplitThreshold (${ramGB}GB RAM)" `
        "HKLM:\SYSTEM\CurrentControlSet\Control" `
        "SvcHostSplitThresholdInKB" $svcHostThresholdKB -id "CPU04"

    # CPU05 — FTH kapat
    _sr "CPU05  FTH (Fault Tolerant Heap) kapat" `
        "HKLM:\SOFTWARE\Microsoft\FTH" "Enabled" 0 -id "CPU05"

    # CPU06 — MMCSS SystemResponsiveness = 10
    $mmPath = "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Multimedia\SystemProfile"
    _sr "CPU06  MMCSS SystemResponsiveness = 10" $mmPath "SystemResponsiveness"    10 -id "CPU06"

    # CPU07 — MMCSS NetworkThrottlingIndex = 10
    _sr "CPU07  MMCSS NetworkThrottlingIndex = 10" $mmPath "NetworkThrottlingIndex" 10 -id "CPU07"

    # CPU08 — MMCSS NoLazyMode = 1
    _sr "CPU08  MMCSS NoLazyMode = 1" $mmPath "NoLazyMode" 1 -id "CPU08"

    # CPU09 — MMCSS Games Priority / GPU Priority / Scheduling Category
    $gamesPath = "$mmPath\Tasks\Games"
    $r9a = Set-Reg -Path $gamesPath -Name "Priority"             -Value 6       -Id "CPU09"
    $r9b = Set-Reg -Path $gamesPath -Name "GPU Priority"         -Value 8       -Id "CPU09"
    $r9c = Set-Reg -Path $gamesPath -Name "Scheduling Category"  -Value "High"  -Type String -Id "CPU09"
    if ($r9a -and $r9b -and $r9c) { _ok "CPU09  MMCSS Games Priority/GPU Priority/High" }
    else { _fail "CPU09  MMCSS Games Priority" }

    # CPU10 — Interrupt Affinity: AllCloseProcessors (DevicePolicy=1)
    $affPath = "Interrupt Management\Affinity Policy"
    if ($gpuInstanceId) {
        $gpuAff = "HKLM:\SYSTEM\CurrentControlSet\Enum\$gpuInstanceId\Device Parameters\$affPath"
        if (Set-Reg -Path $gpuAff -Name "DevicePolicy" -Value 1 -Id "CPU10") {
            if (-not $script:KT_RebootList.Contains("CPU10")) { [void]$script:KT_RebootList.Add("CPU10") }
            _ok "CPU10  Interrupt Affinity GPU (AllCloseProcessors)"
        } else { _fail "CPU10  Interrupt Affinity GPU" }
    } else { _skip "CPU10  Interrupt Affinity GPU" "GPU InstanceId tespit edilemedi" }

    if ($activeNic -and $activeNic.PnpDeviceID) {
        $nicAff = "HKLM:\SYSTEM\CurrentControlSet\Enum\$($activeNic.PnpDeviceID)\Device Parameters\$affPath"
        if (Set-Reg -Path $nicAff -Name "DevicePolicy" -Value 1 -Id "CPU10") {
            _ok "CPU10  Interrupt Affinity NIC (AllCloseProcessors)"
        } else { _fail "CPU10  Interrupt Affinity NIC" }
    } else { _skip "CPU10  Interrupt Affinity NIC" "NIC bulunamadi" }

    # CPU11 — CPU Idle kapat (sadece opsiyonel + Intel desktop)
    if ($script:KT_Opts.CpuIdle) {
        & powercfg /setacvalueindex SCHEME_CURRENT SUB_PROCESSOR IDLEDISABLE 1 2>&1 | Out-Null
        & powercfg /setactive SCHEME_CURRENT 2>&1 | Out-Null
        _ok "CPU11  CPU Idle (C-state) kapat" "Isi artacak!"
    }
}

# ==============================================================
# GPU — Sunum & Rendering
# ==============================================================

function Invoke-GPU {
    Write-KT-Section "GPU Sunum & Rendering"
    if ($script:_pL -lt 2) { return }

    $gfxPath  = "HKLM:\SYSTEM\CurrentControlSet\Control\GraphicsDrivers"
    $gcPath   = "HKCU:\System\GameConfigStore"
    $dxPath   = "HKCU:\Software\Microsoft\DirectX\UserGpuPreferences"
    $dwmPath  = "HKLM:\SOFTWARE\Microsoft\Windows\Dwm"
    $schedPath = "HKLM:\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Scheduler"

    # GPU01 — HAGS ac (HwSchMode = 2, reboot)
    _sr "GPU01  HAGS (HwSchMode = 2)" $gfxPath "HwSchMode" 2 -id "GPU01" -rb

    # GPU02 — Fullscreen Optimizations kapat
    _sr "GPU02  Fullscreen Optimizations kapat" $gcPath "GameDVR_FSEBehaviorMode" 2 -id "GPU02"

    # GPU03 + DBL01 — GameDVR kapat (birlestirilmis)
    Set-Reg -Path $gcPath -Name "GameDVR_Enabled" -Value 0 -Id "GPU03" | Out-Null
    Set-Reg -Path $gcPath -Name "GameDVR_HonorUserFSEBehaviorMode" -Value 0 -Id "GPU03" | Out-Null
    $gdPath = "HKLM:\SOFTWARE\Microsoft\PolicyManager\default\ApplicationManagement\AllowGameDVR"
    if (Set-Reg -Path $gdPath -Name "value" -Value 0 -Id "GPU03") { _ok "GPU03+DBL01  GameDVR kapat" }
    else { _fail "GPU03+DBL01  GameDVR kapat" }

    # GPU04 — MSI Mode GPU (InstanceId bazli)
    if ($gpuInstanceId) {
        $gpuMSI = "HKLM:\SYSTEM\CurrentControlSet\Enum\$gpuInstanceId\Device Parameters\Interrupt Management\MessageSignaledInterruptProperties"
        if (Set-Reg -Path $gpuMSI -Name "MSISupported" -Value 1 -Id "GPU04") {
            if (-not $script:KT_RebootList.Contains("GPU04")) { [void]$script:KT_RebootList.Add("GPU04") }
            _ok "GPU04  MSI Mode GPU" "Reboot sonrasi etkin"
        } else { _fail "GPU04  MSI Mode GPU" }
    } else { _skip "GPU04  MSI Mode GPU" "GPU InstanceId tespit edilemedi" }

    # GPU05/06 — NVIDIA P-State / Preemption (NVIDIA spesifik)
    if (-not $hasNVIDIA) {
        _skip "GPU05/06  NVIDIA P-State / Preemption" "AMD GPU"
    } else {
        # Not: surucu bazli yol degisebilir, sessizce dene
        $nvBase = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}"
        $nvSub  = Get-ChildItem $nvBase -ErrorAction SilentlyContinue |
                  Where-Object { (Get-ItemProperty $_.PSPath -Name "DriverDesc" -ErrorAction SilentlyContinue).DriverDesc -match "NVIDIA" } |
                  Select-Object -First 1
        if ($nvSub) {
            Set-Reg -Path "$($nvSub.PSPath)\KMD" -Name "Preemption" -Value 0 -Id "GPU06" -ErrorAction SilentlyContinue | Out-Null
            _ok "GPU05/06  NVIDIA Preemption kapat" "P-State lock surucu bazli - NV Panel'den yapilmali"
        } else { _warn "GPU05/06  NVIDIA surucu yolu bulunamadi" "NV Control Panel'den manuel ayarla" }
    }

    # GPU08 + GPU09 — DirectX Flip Model + VRR Optimize (tek key, birlestirilmis)
    $dxVal = "SwapEffectUpgradeEnable=1;VRROptimizeEnable=1;"
    _sr "GPU08+09  DirectX Flip + VRR Optimize" $dxPath "DirectXUserGlobalSettings" $dxVal -t String -id "GPU08"

    # GPU12 — DWM VsyncIdleTimeout = 0
    _sr "GPU12  DWM VsyncIdleTimeout = 0" $schedPath "VsyncIdleTimeout" 0 -id "GPU12"

    # GPU13 = DSP04 — MPO kapat / OverlayTestMode = 5 (tek write, reboot)
    _sr "GPU13=DSP04  MPO kapat (OverlayTestMode=5)" $dwmPath "OverlayTestMode" 5 -id "GPU13" -rb

    # --- Opsiyonel GPU tweakleri ---

    # GPU07 — HDCP kapat (NVIDIA only, opsiyonel)
    if ($script:KT_Opts.HdcpOff -and $hasNVIDIA) {
        $nvBase = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}"
        $nvSub  = Get-ChildItem $nvBase -ErrorAction SilentlyContinue |
                  Where-Object { (Get-ItemProperty $_.PSPath -Name "DriverDesc" -ErrorAction SilentlyContinue).DriverDesc -match "NVIDIA" } |
                  Select-Object -First 1
        if ($nvSub) {
            if (Set-Reg -Path $nvSub.PSPath -Name "RMHdcpKeyglobZero" -Value 1 -Id "GPU07") {
                if (-not $script:KT_RebootList.Contains("GPU07")) { [void]$script:KT_RebootList.Add("GPU07") }
                _ok "GPU07  HDCP kapat (NVIDIA)" "Reboot sonrasi etkin"
            } else { _fail "GPU07  HDCP kapat" }
        } else { _skip "GPU07  HDCP kapat" "NVIDIA surucu yolu bulunamadi" }
    }

    # GPU10 — Auto HDR (Win11, opsiyonel, GPU08/09 ile ayni key)
    if ($script:KT_Opts.AutoHDR -and $isWin11) {
        $dxCurrent = (Get-ItemProperty -Path $dxPath -Name "DirectXUserGlobalSettings" -ErrorAction SilentlyContinue).DirectXUserGlobalSettings
        if ($dxCurrent -notmatch "AutoHDREnable=1") {
            $dxNew = if ($dxCurrent) { "$dxCurrent`AutoHDREnable=1;" } else { "AutoHDREnable=1;" }
            if (Set-Reg -Path $dxPath -Name "DirectXUserGlobalSettings" -Value $dxNew -Type String -Id "GPU10") {
                _ok "GPU10  Auto HDR etkinlestirildi"
            } else { _fail "GPU10  Auto HDR" }
        } else { _skip "GPU10  Auto HDR" "Zaten aktif" }
    }
}

# ==============================================================
# NET — Ag Optimizasyonu
# ==============================================================

function Invoke-NET {
    Write-KT-Section "Ag Optimizasyonu"
    if ($script:_pL -lt 2) { return }

    # NET01 — Nagle Algoritmasi kapat (NIC GUID bazli)
    if ($nicGuid) {
        $tcpPath = "HKLM:\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\$nicGuid"
        Set-Reg -Path $tcpPath -Name "TcpAckFrequency" -Value 1 -Id "NET01" | Out-Null
        if (Set-Reg -Path $tcpPath -Name "TCPNoDelay" -Value 1 -Id "NET01") { _ok "NET01  Nagle Algoritmasi kapat" "NIC: $nicName" }
        else { _fail "NET01  Nagle Algoritmasi kapat" }
    } else { _skip "NET01  Nagle Algoritmasi kapat" "NIC GUID tespit edilemedi" }

    # NET02 — NIC Power Saving kapat (registry)
    if ($nicGuid) {
        $nicRegBase = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}"
        $nicFound   = $false
        try {
            Get-ChildItem $nicRegBase -ErrorAction Stop | ForEach-Object {
                $nid = (Get-ItemProperty $_.PSPath -Name "NetCfgInstanceId" -ErrorAction SilentlyContinue).NetCfgInstanceId
                if ($nid -and $nid -eq $nicGuid) {
                    Set-Reg -Path $_.PSPath -Name "PnPCapabilities" -Value 0x18 -Id "NET02" | Out-Null
                    $nicFound = $true
                }
            }
        } catch {}
        if ($nicFound) { _ok "NET02  NIC Power Saving kapat" }
        else { _skip "NET02  NIC Power Saving kapat" "NIC kaydi bulunamadi" }
    } else { _skip "NET02  NIC Power Saving kapat" "NIC GUID yok" }

    # NET03 — RSC kapat
    try {
        Disable-NetAdapterRsc -Name "*" -ErrorAction Stop 2>&1 | Out-Null
        _ok "NET03  RSC kapat"
    } catch { _skip "NET03  RSC kapat" "Desteklenmiyor veya zaten kapali" }

    # NET04 — Delivery Optimization kapat
    _sr "NET04  Delivery Optimization kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\DeliveryOptimization" "DODownloadMode" 0 -id "NET04"

	# NET05 — MSI Mode NIC (activeNic.PnpDeviceID ile dogrudan — fuzzy esleme yok)
    if ($activeNic -and $activeNic.PnpDeviceID) {
        $nicMSI = "HKLM:\SYSTEM\CurrentControlSet\Enum\$($activeNic.PnpDeviceID)\Device Parameters\Interrupt Management\MessageSignaledInterruptProperties"
        if (Set-Reg -Path $nicMSI -Name "MSISupported" -Value 1 -Id "NET05") {
            if (-not $script:KT_RebootList.Contains("NET05")) { [void]$script:KT_RebootList.Add("NET05") }
            _ok "NET05  MSI Mode NIC" "Reboot sonrasi etkin"
        } else { _fail "NET05  MSI Mode NIC" }
    } else { _skip "NET05  MSI Mode NIC" "NIC PnpDeviceID tespit edilemedi" }

    # NET06 — DNS degistir
    if ($script:KT_DNS -and $script:KT_DNS.P -and $nicName -ne "Bulunamadi") {
        try {
            & netsh interface ip set dns "$nicName" static $($script:KT_DNS.P) primary 2>&1 | Out-Null
            & netsh interface ip add dns "$nicName" $($script:KT_DNS.S) index=2 2>&1 | Out-Null
            _ok "NET06  DNS degistirildi" "$($script:KT_DNS.Name.Trim()): $($script:KT_DNS.P) / $($script:KT_DNS.S)"
        } catch { _fail "NET06  DNS degistirildi" }
    } else { _skip "NET06  DNS" "Degistirme secildi" }

    # NET10 — Browser Background kapat (Chrome + Edge)
    Set-Reg -Path "HKLM:\SOFTWARE\Policies\Google\Chrome" -Name "BackgroundModeEnabled" -Value 0 -Id "NET10" | Out-Null
    _sr "NET10  Browser Background kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Edge" "BackgroundModeEnabled" 0 -id "NET10"

    # NET07 — SMB Optimize (LAN/NAS hizi)
    $smbPath = "HKLM:\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters"
    Set-Reg -Path $smbPath -Name "DisableBandwidthThrottling" -Value 1 -Id "NET07" | Out-Null
    _sr "NET07  SMB Optimize" $smbPath "FileInfoCacheEntriesMax" 1024 -id "NET07"

    # NET08 — Administrative Shares kapat (C$, ADMIN$)
    _sr "NET08  Administrative Shares kapat" `
        "HKLM:\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" "AutoShareWks" 0 -id "NET08"
}

# ==============================================================
# INP — Giris Aygitlari & Mouse
# ==============================================================

function Invoke-INP {
    Write-KT-Section "Giris Aygitlari & Mouse"
    if ($script:_pL -lt 2) { return }

    # INP01 — Mouse Acceleration kapat
    $mousePath = "HKCU:\Control Panel\Mouse"
    Set-Reg -Path $mousePath -Name "MouseSpeed"      -Value "0" -Type String -Id "INP01" | Out-Null
    Set-Reg -Path $mousePath -Name "MouseThreshold1" -Value "0" -Type String -Id "INP01" | Out-Null
    if (Set-Reg -Path $mousePath -Name "MouseThreshold2" -Value "0" -Type String -Id "INP01") { _ok "INP01  Mouse Acceleration kapat" }
    else { _fail "INP01  Mouse Acceleration kapat" }

    # INP03 — USB Selective Suspend kapat
    if ($isLaptop) { _skip "INP03  USB Selective Suspend kapat" "Laptop - USB sarj etkiIesimi" }
    else { _sr "INP03  USB Selective Suspend kapat" "HKLM:\SYSTEM\CurrentControlSet\Services\USB" "DisableSelectiveSuspend" 1 -id "INP03" }

    # INP04 — HID Device Power Saving kapat (WMI bazli)
    try {
        $hidCount = 0
        Get-PnpDevice -Class HIDClass -ErrorAction Stop | Where-Object { $_.Status -eq "OK" } | ForEach-Object {
            $eid = $_.InstanceId -replace '\\', '\\\\'
            Set-CimInstance -Namespace root\wmi `
                -Query "SELECT * FROM MSPower_DeviceEnable WHERE InstanceName LIKE '%$eid%'" `
                -Property @{ Enable = $false } -ErrorAction SilentlyContinue
            $hidCount++
        }
        if ($hidCount -gt 0) { _ok "INP04  HID Device Power Saving kapat" "$hidCount cihaz" }
        else { _skip "INP04  HID Device Power Saving kapat" "HID cihaz bulunamadi" }
    } catch { _skip "INP04  HID Device Power Saving kapat" "WMI sorgusu basarisiz" }

    # INP05 — Sticky / Filter / Toggle Keys kapat
    Set-Reg -Path "HKCU:\Control Panel\Accessibility\StickyKeys"      -Name "Flags" -Value "506" -Type String -Id "INP05" | Out-Null
    Set-Reg -Path "HKCU:\Control Panel\Accessibility\Keyboard Response" -Name "Flags" -Value "122" -Type String -Id "INP05" | Out-Null
    if (Set-Reg -Path "HKCU:\Control Panel\Accessibility\ToggleKeys"  -Name "Flags" -Value "58"  -Type String -Id "INP05") { _ok "INP05  Sticky/Filter/Toggle Keys kapat" }
    else { _fail "INP05  Sticky/Filter/Toggle Keys kapat" }

    # INP07 — MenuShowDelay = 0 (sag tik menu ani)
    _sr "INP07  MenuShowDelay = 0" "HKCU:\Control Panel\Desktop" "MenuShowDelay" "0" -t String -id "INP07"
}

# ==============================================================
# MEM — Bellek & Depolama
# ==============================================================

function Invoke-MEM {
    Write-KT-Section "Bellek & Depolama"
    if ($script:_pL -lt 2) { return }

    # MEM01 + SVC04 — SysMain kapat (SSD only)
    if (-not $osDriveSSD) { _skip "MEM01/SVC04  SysMain (Superfetch) kapat" "HDD - acik birakilmali" }
    else { _sv "MEM01/SVC04  SysMain (Superfetch) kapat" "SysMain" }

    # MEM02 — Prefetch kapat (SSD only)
    if (-not $osDriveSSD) { _skip "MEM02  Prefetch kapat" "HDD" }
    else {
        _sr "MEM02  Prefetch kapat" `
            "HKLM:\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters" `
            "EnablePrefetcher" 0 -id "MEM02"
    }

    # MEM08 + SVC05 — Windows Search Indexing kapat (SSD only)
    if (-not $osDriveSSD) { _skip "MEM08/SVC05  Windows Search Indexing kapat" "HDD - acik birakilmali" }
    else { _sv "MEM08/SVC05  Windows Search Indexing kapat" "WSearch" }

    # MEM03 — Disk Quotas kapat
    _sr "MEM03  Disk Quotas kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows NT\DiskQuota" "Enable" 0 -id "MEM03"

    # MEM04 — Icon Cache buyut (default 500 -> 4096)
    _sr "MEM04  Icon Cache = 4096" `
        "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer" "Max Cached Icons" "4096" -t String -id "MEM04"

    # MEM05 — Thumbnail Cache koruma (dusuk disk alani uyarisinda silinmesin)
    _sr "MEM05  Thumbnail Cache koru" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" `
        "DisableThumbnailCache" 0 -id "MEM05"

    # MEM06 — Folder Type Discovery kapat (Explorer klasor tipi degistirmesin)
    _sr "MEM06  Folder Type Discovery kapat" `
        "HKCU:\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags\AllFolders\Shell" `
        "FolderType" "NotSpecified" -t String -id "MEM06"
}

# ==============================================================
# SVC — Windows Servisleri
# ==============================================================

function Invoke-SVC {
    Write-KT-Section "Windows Servisleri"

    # Temel (level 1+): Telemetri + gercekten gereksiz servisler
    if ($script:_pL -ge 1) {
        _sv "SVC01  DiagTrack (Telemetri)"           "DiagTrack"
        _sv "SVC02  WerSvc (Error Reporting)"        "WerSvc"
        _sv "SVC08  RetailDemo"                      "RetailDemo"
        _sv "SVC09  wisvc (Windows Insider)"         "wisvc"
        _sv "SVC13  MapsBroker (Haritalar)"          "MapsBroker"
        _sv "SVC14  Fax"                             "Fax"
        _sv "SVC15  WMPNetworkSvc"                   "WMPNetworkSvc"
        _sv "SVC17  TrkWks (Link Tracking)"          "TrkWks"
    }

    # Oyun (level 2+): Ek servisler
    if ($script:_pL -ge 2) {
        # PcaSvc Manual (Disabled degil — eski yazilim uyumu icin)
        try { Set-Service -Name "PcaSvc" -StartupType Manual -ErrorAction SilentlyContinue
              Stop-Service -Name "PcaSvc" -Force -ErrorAction SilentlyContinue
              _ok "SVC03  PcaSvc (Manual olarak ayarlandi)" }
        catch { _fail "SVC03  PcaSvc" }
        _sv "SVC07  lfsvc (Konum)"                   "lfsvc"
        _sv "SVC10  PhoneSvc (Telefon)"              "PhoneSvc"
        _sv "SVC11  WalletService (MS Pay)"          "WalletService"
        _sv "SVC16  MixedRealityOpenXRSvc (VR)"      "MixedRealityOpenXRSvc"
        _sv "SVC19  OneSyncSvc (Sync Host)"          "OneSyncSvc_*"
        _sv "SVC20  UCPD (App guncelleme zorla)"     "UCPD"
    }

    # Tam (level 3): Kalan servisler
    if ($script:_pL -ge 3) {
        _sv "SVC12a SCardSvr (Smart Card)"           "SCardSvr"
        _sv "SVC12b ScDeviceEnum (Smart Card)"       "ScDeviceEnum"
        _sv "SVC12c SCPolicySvc (Smart Card)"        "SCPolicySvc"
        # NetBT — eski LAN paylasimlariyla uyumluluk
        _sv "SVC18  NetBT (NetBIOS over TCP)"        "NetBT"
        # Spooler — yazici kullananlar icin dikkatli
        try { Set-Service -Name "Spooler" -StartupType Manual -ErrorAction SilentlyContinue
              _ok "SVC06  Spooler (Manual)" }
        catch { _fail "SVC06  Spooler" }
    }
}

# ==============================================================
# TSK — Zamanlanmis Gorevler
# ==============================================================

function Invoke-TSK {
    Write-KT-Section "Zamanlanmis Gorevler"
    if ($script:_pL -lt 2) { return }

    _tk "TSK01  Compatibility Appraiser"      "\Microsoft\Windows\Application Experience\" "Microsoft Compatibility Appraiser"
    _tk "TSK02  ProgramDataUpdater"           "\Microsoft\Windows\Application Experience\" "ProgramDataUpdater"
    _tk "TSK03  StartupAppTask"               "\Microsoft\Windows\Application Experience\" "StartupAppTask"
    _tk "TSK04  CEIP Consolidator"            "\Microsoft\Windows\Customer Experience Improvement Program\" "Consolidator"
    _tk "TSK05  CEIP KernelCeipTask"          "\Microsoft\Windows\Customer Experience Improvement Program\" "KernelCeipTask"
    _tk "TSK06  CEIP Uploader"                "\Microsoft\Windows\Customer Experience Improvement Program\" "Uploader"
    _tk "TSK07  CEIP UsbCeip"                 "\Microsoft\Windows\Customer Experience Improvement Program\" "UsbCeip"
    _tk "TSK08  DiskDiagnosticDataCollector"  "\Microsoft\Windows\DiskDiagnostic\" "Microsoft-Windows-DiskDiagnosticDataCollector"
    _tk "TSK09  Feedback DmClient"            "\Microsoft\Windows\Feedback\Siuf\" "DmClient"
    _tk "TSK10  Feedback DmClientOnScenario"  "\Microsoft\Windows\Feedback\Siuf\" "DmClientOnScenarioDownload"
    _tk "TSK11  WER QueueReporting"           "\Microsoft\Windows\Windows Error Reporting\" "QueueReporting"
    _tk "TSK12  CloudExperienceHost"          "\Microsoft\Windows\CloudExperienceHost\" "CreateObjectTask"
    _tk "TSK13a Maps MapsToastTask"           "\Microsoft\Windows\Maps\" "MapsToastTask"
    _tk "TSK13b Maps MapsUpdateTask"          "\Microsoft\Windows\Maps\" "MapsUpdateTask"
    _tk "TSK14  RetailDemo Cleanup"           "\Microsoft\Windows\RetailDemo\" "CleanupOfflineContent"

    # TSK15 — NVIDIA Telemetri (NVIDIA GPU only)
    if ($hasNVIDIA) {
        _tk "TSK15a NVIDIA NvTmMon"           "\NvTm\" "NvTmMon"
        _tk "TSK15b NVIDIA NvTmRep"           "\NvTm\" "NvTmRep"
        _tk "TSK15c NVIDIA NvTmRepOnLogon"    "\NvTm\" "NvTmRepOnLogon"
    } else { _skip "TSK15  NVIDIA Telemetri Tasks" "AMD GPU" }
}

# ==============================================================
# PRV — Gizlilik & Telemetri
# ==============================================================

function Invoke-PRV {
    Write-KT-Section "Gizlilik & Telemetri"
    if ($script:_pL -lt 1) { return }

    # PRV01 — AllowTelemetry (Home/Pro min 1; Enterprise 0)
    $telVal = if ($isEnterprise) { 0 } else { 1 }
    if (Set-Reg -Path "HKLM:\SOFTWARE\Policies\Microsoft\Windows\DataCollection" -Name "AllowTelemetry" -Value $telVal -Id "PRV01") {
        _ok "PRV01  AllowTelemetry = $telVal" $(if ($isEnterprise) { "Enterprise: 0 uygulandi" } else { "Home/Pro: min deger 1" })
    } else { _fail "PRV01  AllowTelemetry" }

    # PRV02 — ContentDelivery Manager kapat
    $cdm = "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\ContentDeliveryManager"
    @("ContentDeliveryAllowed","FeatureManagementEnabled","OemPreInstalledAppsEnabled",
      "PreInstalledAppsEnabled","PreInstalledAppsEverEnabled","SilentInstalledAppsEnabled",
      "SubscribedContent-338388Enabled","SubscribedContent-338389Enabled",
      "SubscribedContent-353698Enabled","SystemPaneSuggestionsEnabled") |
    ForEach-Object { Set-Reg -Path $cdm -Name $_ -Value 0 -Id "PRV02" | Out-Null }
    _ok "PRV02  ContentDelivery Manager kapat"

    # PRV03 — TailoredExperiences
    _sr "PRV03  TailoredExperiences kapat" `
        "HKCU:\SOFTWARE\Policies\Microsoft\Windows\CloudContent" `
        "DisableTailoredExperiencesWithDiagnosticData" 1 -id "PRV03"

    # PRV04 — Activity Feed
    _sr "PRV04  Activity Feed kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\System" "EnableActivityFeed" 0 -id "PRV04"

    # PRV05 — Bing Search taskbar'dan kaldir
    _sr "PRV05  Bing Search (taskbar) kapat" `
        "HKCU:\SOFTWARE\Policies\Microsoft\Windows\Explorer" "DisableSearchBoxSuggestions" 1 -id "PRV05"

    # PRV06 — Advertising ID
    _sr "PRV06  Advertising ID kapat" `
        "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\AdvertisingInfo" "Enabled" 0 -id "PRV06"

    # PRV08 — Clipboard history + sync
    Set-Reg -Path "HKCU:\Software\Microsoft\Clipboard" -Name "EnableClipboardHistory"        -Value 0 -Id "PRV08" | Out-Null
    _sr "PRV08  Clipboard History + Sync kapat" `
        "HKCU:\Software\Microsoft\Clipboard" "CloudClipboardAutomaticUpload" 0 -id "PRV08"

    # PRV12 — PowerShell Telemetri (environment variable)
    try {
        [System.Environment]::SetEnvironmentVariable("POWERSHELL_TELEMETRY_OPTOUT", "1", "Machine")
        _ok "PRV12  PowerShell Telemetri kapat"
    } catch { _fail "PRV12  PowerShell Telemetri kapat" }

    # PRV14 — Error Reporting kapat
    _sr "PRV14  Error Reporting kapat" `
        "HKLM:\SOFTWARE\Microsoft\Windows\Windows Error Reporting" "Disabled" 1 -id "PRV14"

    # PRV10 — NVIDIA Telemetri registry (gaming+, NVIDIA only)
    if ($script:_pL -ge 2) {
        if ($hasNVIDIA) {
            _sr "PRV10  NVIDIA Telemetri kapat" `
                "HKLM:\SOFTWARE\NVIDIA Corporation\NvControlPanel2\Client" "OptInOrOutPreference" 0 -id "PRV10"
        } else { _skip "PRV10  NVIDIA Telemetri" "AMD GPU" }
    }

    # PRV11 — NVIDIA Gizlilik (NVIDIA only)
    if ($hasNVIDIA) {
        _sr "PRV11  NVIDIA Gizlilik kapat" `
            "HKLM:\SOFTWARE\NVIDIA Corporation\NvControlPanel2\Client" "OptInOrOutPreference" 0 -id "PRV11"
    } else { _skip "PRV11  NVIDIA Gizlilik" "AMD GPU" }

    # PRV13 — WinGet Telemetri kapat
    _sr "PRV13  WinGet Telemetri kapat" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\WinGet" "TelemetryEnabled" 0 -id "PRV13"

    # PRV15 — Arama gecmisi kapat
    _sr "PRV15  Arama gecmisi kapat" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\SearchSettings" "IsDeviceSearchHistoryEnabled" 0 -id "PRV15"

    # PRV17 — Online ipuclari kapat
    _sr "PRV17  Online ipuclari kapat" `
        "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer" "AllowOnlineTips" 0 -id "PRV17"

    # PRV19 — Duvar kagidi gecmisini temizle
    $wpPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapers"
    if (Test-Path $wpPath) {
        try {
            $wpProps = Get-ItemProperty -Path $wpPath -ErrorAction SilentlyContinue
            if ($wpProps) {
                $wpProps.PSObject.Properties |
                    Where-Object { $_.Name -match "^RecentWallpaper" } |
                    ForEach-Object {
                        Remove-Reg -Path $wpPath -Name $_.Name | Out-Null
                    }
            }
            _ok "PRV19  Duvar kagidi gecmisi temizlendi"
        } catch { _skip "PRV19  Duvar kagidi gecmisi" "Okunamadi" }
    } else { _skip "PRV19  Duvar kagidi gecmisi" "Key yok" }

    # PRV22 — RSOP Logging kapat (ev kullanicisi icin gereksiz)
    _sr "PRV22  RSOP Logging kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\System" "RSoPLogging" 0 -id "PRV22"

    # --- Opsiyonel ---

    # PRV09 — Windows DRM internet erisimi kapat
    if ($script:KT_Opts.WinDrmOff) {
        _sr "PRV09  DRM internet erisimi kapat" `
            "HKLM:\SOFTWARE\Policies\Microsoft\WMDRM" "DisableOnline" 1 -id "PRV09"
    }

    # PRV16 — Son acilan program/belge gecmisi kapat (direkt)
    _sr "PRV16  Son belge/program gecmisi kapat" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" "Start_TrackProgs" 0 -id "PRV16"
}

# ==============================================================
# DBL — Debloat
# ==============================================================

function Invoke-DBL {
    Write-KT-Section "Debloat"
    if ($script:_pL -lt 1) { return }

    # --- Direkt (policy / registry) ---

    _sr "DBL04  Consumer Features kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\CloudContent" "DisableWindowsConsumerFeatures" 1 -id "DBL04"

    Set-Reg -Path "HKLM:\SOFTWARE\Policies\Microsoft\MRT" -Name "DontOfferThroughWUAU" -Value 1 -Id "DBL06" | Out-Null
    _sr "DBL06  MRT engelle" `
        "HKLM:\SOFTWARE\Policies\Microsoft\MRT" "DontRunMRTOffline" 1 -id "DBL06"

    _sr "DBL07  Background Apps kapat" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\BackgroundAccessApplications" "GlobalUserDisabled" 1 -id "DBL07"

    _sr "DBL08  WU Driver Updates kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" "ExcludeWUDriversInQualityUpdate" 1 -id "DBL08"

    _sr "DBL09  Store Open With onerisi kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\Explorer" "NoUseStoreOpenWith" 1 -id "DBL09"

    _sr "DBL10  Finish Setup ekrani kapat" `
        "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\UserProfileEngagement" "ScoobeSystemSettingEnabled" 0 -id "DBL10"

    if ($script:_pL -ge 2) {
        Set-Reg -Path "HKLM:\SOFTWARE\Policies\Microsoft\Edge" -Name "BackgroundModeEnabled" -Value 0 -Id "DBL17" | Out-Null
        _sr "DBL17  Edge arka plan modu kapat" `
            "HKLM:\SOFTWARE\Policies\Microsoft\Edge" "StartupBoostEnabled" 0 -id "DBL17"
    }

    # DBL02 — Widgets kaldir (Tam profil)
    if ($script:_pL -ge 3) {
        try {
            Get-AppxPackage "*WebExperience*" -AllUsers -ErrorAction SilentlyContinue |
                Remove-AppxPackage -AllUsers -ErrorAction SilentlyContinue
            _ok "DBL02  Widgets (WebExperience) kaldirildi"
        } catch { _fail "DBL02  Widgets kaldir" }
    }

    # --- Opsiyonel ---

    # DBL05 — Windows Ink kapat
    if ($script:KT_Opts.WinInk) {
        _sr "DBL05  Windows Ink kapat" `
            "HKCU:\Software\Microsoft\Windows\CurrentVersion\PenWorkspace" "PenWorkspaceButtonDesiredVisibility" 0 -id "DBL05"
    }

    # WinAI — Copilot (DBL03) + Recall (PRV21)
    if ($script:KT_Opts.WinAI -and $isWin11) {
        Set-Reg -Path "HKCU:\Software\Policies\Microsoft\Windows\WindowsCopilot" `
                -Name "TurnOffWindowsCopilot" -Value 1 -Id "DBL03" | Out-Null
        _sr "DBL03  Copilot policy kapat" `
            "HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsCopilot" "TurnOffWindowsCopilot" 1 -id "DBL03"
        try {
            Get-AppxPackage "*Copilot*" -ErrorAction SilentlyContinue |
                Remove-AppxPackage -AllUsers -ErrorAction SilentlyContinue
            _ok "DBL03  Copilot AppX kaldirildi"
        } catch { _skip "DBL03  Copilot AppX" "AppX bulunamadi" }
        # PRV21 — Recall kapat (Copilot+ PC, DISM)
        try {
            & dism /Online /Disable-Feature /FeatureName:Recall /Quiet 2>&1 | Out-Null
            if ($LASTEXITCODE -eq 0) { _ok "PRV21  Recall kapat" }
            else { _skip "PRV21  Recall kapat" "Copilot+ PC degil veya ozellik yok" }
        } catch { _skip "PRV21  Recall kapat" "DISM hatasi" }
    }

    # DBL11 — Xbox kaldir
    if ($script:KT_Opts.Xbox) {
        $xboxPkgs = Get-AppxPackage "*Xbox*" -AllUsers -ErrorAction SilentlyContinue |
                    Where-Object { $_.PackageFamilyName -notmatch "XboxGameCallableUI" }
        if ($xboxPkgs) {
            $xOk = 0
            foreach ($pkg in $xboxPkgs) {
                try { Remove-AppxPackage -Package $pkg.PackageFullName -AllUsers -ErrorAction Stop; $xOk++ }
                catch {}
            }
            if ($xOk -gt 0) { _ok "DBL11  Xbox uygulamalari kaldirildi" "$xOk paket" }
            else { _skip "DBL11  Xbox kaldir" "Zaten yok veya tumu korumal" }
        } else { _skip "DBL11  Xbox kaldir" "Zaten yok" }
    }

    # DBL16 — OneDrive kaldir
    if ($script:KT_Opts.OneDrive) {
        $odSetup = @(
            "$env:LOCALAPPDATA\Microsoft\OneDrive\OneDriveSetup.exe",
            "$env:ProgramFiles\Microsoft OneDrive\OneDriveSetup.exe"
        ) | Where-Object { Test-Path $_ } | Select-Object -First 1
        if ($odSetup) {
            & $odSetup /uninstall 2>&1 | Out-Null
            _ok "DBL16  OneDrive kaldirildi"
        } else { _skip "DBL16  OneDrive kaldir" "OneDriveSetup.exe bulunamadi" }
    }

    # Opsiyonel AppX listesi
    $appxOpts = @(
        @{ K="Cortana";       N="DBL12  Cortana";                P=@("*Microsoft.549981C3F5F10*") }
        @{ K="Clipchamp";     N="DBL13  Clipchamp";              P=@("*Clipchamp*") }
        @{ K="MailCal";       N="DBL14  Mail ve Calendar";       P=@("*windowscommunicationsapps*") }
        @{ K="Skype";         N="DBL15  Skype";                  P=@("*SkypeApp*") }
        @{ K="FeedbackHub";   N="DBL18  Feedback Hub";           P=@("*WindowsFeedbackHub*") }
        @{ K="PhoneLink";     N="DBL19  Phone Link";             P=@("*YourPhone*") }
        @{ K="WinMaps";       N="DBL20  Windows Maps";           P=@("*WindowsMaps*") }
        @{ K="MixedReality";  N="DBL21  Mixed Reality Portal";   P=@("*MixedReality*") }
        @{ K="DevHome";       N="DBL22  Dev Home";               P=@("*DevHome*") }
        @{ K="BingApps";      N="DBL23  Bing Uygulamalari";      P=@("*BingWeather*","*BingNews*","*BingSearch*") }
        @{ K="OutlookNew";    N="DBL24  Outlook for Windows";    P=@("*OutlookForWindows*") }
        @{ K="Solitaire";     N="DBL25  Solitaire Collection";   P=@("*MicrosoftSolitaireCollection*") }
        @{ K="StickyNotes";   N="DBL26  Sticky Notes";           P=@("*MicrosoftStickyNotes*") }
        @{ K="PowerAutomate"; N="DBL27  Power Automate Desktop"; P=@("*PowerAutomateDesktop*") }
        @{ K="SoundRecorder"; N="DBL28  Sound Recorder";         P=@("*WindowsSoundRecorder*") }
        @{ K="ThreeDViewer";  N="DBL29  3D Viewer";              P=@("*Microsoft3DViewer*") }
        @{ K="OfficeHub";     N="DBL30  Office Hub";             P=@("*MicrosoftOfficeHub*") }
        @{ K="TeamsChat";     N="DBL31  Teams Chat";             P=@("*MicrosoftTeams*") }
    )
    foreach ($a in $appxOpts) {
        if ($script:KT_Opts[$a.K]) {
            $removed = 0
            foreach ($pattern in $a.P) {
                try {
                    $pkg = Get-AppxPackage $pattern -ErrorAction SilentlyContinue
                    if ($pkg) { $pkg | Remove-AppxPackage -AllUsers -ErrorAction SilentlyContinue; $removed++ }
                } catch {}
            }
            if ($removed -gt 0) { _ok $a.N }
            else { _skip $a.N "Zaten yok" }
        }
    }
}

# ==============================================================
# QOL — Oyun Kalite & Arayuz
# ==============================================================

function Invoke-QOL {
    Write-KT-Section "Arayuz ve Kullanim Kolayligi"
    if ($script:_pL -lt 2) { return }

    $adv  = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
    $expl = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer"
    $desk = "HKCU:\Control Panel\Desktop"
    $cdm  = "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\ContentDeliveryManager"

    # QOL01 — Klasik ses mikseri (Win11)
    if ($isWin11) {
        _sr "QOL01  Klasik ses mikseri" `
            "HKCU:\Software\Microsoft\Windows NT\CurrentVersion\MTCUVC" "EnableMtcUvc" 0 -id "QOL01"
    } else { _skip "QOL01  Klasik ses mikseri" "Win11 degil" }

    # QOL03 — Aero Shake kapat
    _sr "QOL03  Aero Shake kapat" $adv "DisallowShaking" 1 -id "QOL03"

    # QOL04 — Alt+Tab Edge sekme filtresi (Win11)
    if ($isWin11) {
        _sr "QOL04  Alt+Tab Edge sekme filtresi" $adv "MultiTaskingAltTabFilter" 3 -id "QOL04"
    } else { _skip "QOL04  Alt+Tab Edge sekme filtresi" "Win11 degil" }

    # QOL06 — Explorer ayri process
    _sr "QOL06  Explorer ayri process" $adv "SeparateProcess" 1 -id "QOL06"

    # QOL08 — Kisayol metni kaldir
    _sr "QOL08  Kisayol metni kaldir" $expl "link" ([byte[]](0,0,0,0)) -t Binary -id "QOL08"

    # QOL09 — NumLock giris ekraninda acik
    try {
        & reg.exe add "HKU\.DEFAULT\Control Panel\Keyboard" /v "InitialKeyboardIndicators" `
            /t REG_SZ /d "2147483650" /f 2>&1 | Out-Null
        _ok "QOL09  NumLock giris ekraninda acik"
    } catch { _fail "QOL09  NumLock giris ekraninda acik" }

    # QOL10 — Giris ekrani blur efekti kapat
    _sr "QOL10  Giris ekrani blur kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\System" "DisableAcrylicBackgroundOnLogon" 1 -id "QOL10"

    # QOL11 — Duvar kagidi JPEG kalite = 100
    _sr "QOL11  Duvar kagidi JPEG kalite = 100" $desk "JPEGImportQuality" 100 -id "QOL11"

    # QOL12 — Klasik sag tik menusu (Win11)
    if ($isWin11) {
        _sr "QOL12  Klasik sag tik menusu" `
            "HKCU:\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32" `
            "(Default)" "" -t String -id "QOL12"
    } else { _skip "QOL12  Klasik sag tik menusu" "Win11 degil" }

    # QOL14 — Restore Point siklik siniri kaldir
    _sr "QOL14  Restore Point siklik siniri kaldir" `
        "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore" `
        "SystemRestorePointCreationFrequency" 0 -id "QOL14"

    # QOL17 — Dosya uzantilarini goster
    _sr "QOL17  Dosya uzantilarini goster" $adv "HideFileExt" 0 -id "QOL17"

    # QOL18 — Gizli dosyalari goster
    _sr "QOL18  Gizli dosyalari goster" $adv "Hidden" 1 -id "QOL18"

    # QOL19 — Explorer This PC'den ac
    _sr "QOL19  Explorer This PC'den ac" $adv "LaunchTo" 1 -id "QOL19"

    # QOL20 — Sag tikta End Task (Win11 22H2+)
    if ($isWin11) {
        _sr "QOL20  Sag tikta End Task" `
            "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarDeveloperSettings" `
            "TaskbarEndTask" 1 -id "QOL20"
    } else { _skip "QOL20  Sag tikta End Task" "Win11 degil" }

    # QOL21 — Start menu oneriler kapat (Win11)
    if ($isWin11) {
        _sr "QOL21  Start menu oneriler kapat" $adv "Start_IrisRecommendations" 0 -id "QOL21"
    } else { _skip "QOL21  Start menu oneriler kapat" "Win11 degil" }

    # QOL23 — Windows Spotlight kapat
    _sr "QOL23  Windows Spotlight kapat" $cdm "RotatingLockScreenEnabled" 0 -id "QOL23"

    # QOL24 — Ayarlar banner/ipucu kapat
    Set-Reg -Path $cdm -Name "SubscribedContent-338393Enabled" -Value 0 -Id "QOL24" | Out-Null
    _sr "QOL24  Ayarlar ipucu kapat" $cdm "SubscribedContent-353694Enabled" 0 -id "QOL24"

    # QOL25 — Windows geri bildirim kapat
    _sr "QOL25  Windows geri bildirim kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows\DataCollection" "DoNotShowFeedbackNotifications" 1 -id "QOL25"

    # QOL26 — Yazim denetimi kapat
    _sr "QOL26  Yazim denetimi kapat" `
        "HKCU:\Software\Microsoft\TabletTip\1.7" "EnableSpellChecking" 0 -id "QOL26"

    # QOL27 — Store Auto Updates kapat
    _sr "QOL27  Store Auto Updates kapat" `
        "HKLM:\SOFTWARE\Policies\Microsoft\WindowsStore" "AutoDownload" 2 -id "QOL27"

    # QOL28 — USB sorun bildirimleri kapat
    _sr "QOL28  USB sorun bildirimleri kapat" `
        "HKCU:\Software\Microsoft\Shell\USB" "NotifyOnUsbErrors" 0 -id "QOL28"

    # QOL29 — VoIP Audio Ducking kapat
    _sr "QOL29  VoIP Audio Ducking kapat" `
        "HKCU:\Software\Microsoft\Multimedia\Audio" "UserDuckingPreference" 3 -id "QOL29"

    # QOL30 — Game Mode etkinlestir
    _sr "QOL30  Game Mode etkinlestir" `
        "HKCU:\Software\Microsoft\GameBar" "AutoGameModeEnabled" 1 -id "QOL30"

    # QOL31 — Long paths enable
    _sr "QOL31  Long paths enable" `
        "HKLM:\SYSTEM\CurrentControlSet\Control\FileSystem" "LongPathsEnabled" 1 -id "QOL31"

    # QOL33 — Visual Effects animasyonlari kapat
    _sr "QOL33  Visual Effects animasyonlar kapat" `
        "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects" "VisualFXSetting" 2 -id "QOL33"

    # QOL34 — Explorer kompakt gorunum (Win11)
    if ($isWin11) {
        _sr "QOL34  Explorer kompakt gorunum" $adv "UseCompactMode" 1 -id "QOL34"
    } else { _skip "QOL34  Explorer kompakt gorunum" "Win11 degil" }

    # QOL35 — Son kullanilan dosyalari gosterme kapat
    _sr "QOL35  Son dosyalari gosterme kapat" $expl "ShowRecent" 0 -id "QOL35"

    # QOL36 — Sik kullanilan klasorleri gosterme kapat
    _sr "QOL36  Sik klasorleri gosterme kapat" $expl "ShowFrequent" 0 -id "QOL36"

    # QOL37 — Dosya Gezgini Home sekmesi kaldir (Win11)
    if ($isWin11) {
        $homeNs = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{f874310e-b6b7-47dc-bc84-b9e6b38f5903}"
        if (Test-Path $homeNs) {
            try {
                Backup-KT-Key -PsPath $homeNs
                Remove-Item -Path $homeNs -Recurse -Force -ErrorAction Stop
                _ok "QOL37  Dosya Gezgini Home sekmesi kaldirildi"
            } catch { _fail "QOL37  Dosya Gezgini Home sekmesi" }
        } else { _skip "QOL37  Dosya Gezgini Home sekmesi" "Zaten yok" }
    } else { _skip "QOL37  Dosya Gezgini Home sekmesi" "Win11 degil" }

    # QOL38 — Dosya Gezgini Gallery sekmesi kaldir (Win11)
    if ($isWin11) {
        $galleryNs = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{e88865ea-0e1c-4e20-9aa6-edcd0212c87c}"
        if (Test-Path $galleryNs) {
            try {
                Backup-KT-Key -PsPath $galleryNs
                Remove-Item -Path $galleryNs -Recurse -Force -ErrorAction Stop
                _ok "QOL38  Dosya Gezgini Gallery sekmesi kaldirildi"
            } catch { _fail "QOL38  Dosya Gezgini Gallery sekmesi" }
        } else { _skip "QOL38  Dosya Gezgini Gallery sekmesi" "Zaten yok" }
    } else { _skip "QOL38  Dosya Gezgini Gallery sekmesi" "Win11 degil" }

    # SEC02 — Windows Defender CPU Limit = %25
    _sr "SEC02  Defender CPU Limit %25" `
        "HKLM:\SOFTWARE\Policies\Microsoft\Windows Defender\Scan" "AvgCPULoadFactor" 25 -id "SEC02"

    # --- Opsiyonel: Arayuz ---

    # QOL13 — Aero Snap kapat
    if ($script:KT_Opts.AeroSnapOff) {
        _sr "QOL13  Aero Snap kapat" $desk "WindowArrangementActive" 0 -id "QOL13"
    }

    # QOL32 — Koyu tema
    if ($script:KT_Opts.DarkTheme) {
        $themePath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize"
        Set-Reg -Path $themePath -Name "AppsUseLightTheme"   -Value 0 -Id "QOL32" | Out-Null
        if (Set-Reg -Path $themePath -Name "SystemUsesLightTheme" -Value 0 -Id "QOL32") {
            _ok "QOL32  Koyu tema"
        } else { _fail "QOL32  Koyu tema" }
    }

    # QOL22a/b/c — Taskbar (Win11, opsiyonel)
    if ($isWin11) {
        if ($script:KT_Opts.TaskbarLeft) {
            _sr "QOL22a Taskbar sol hizala" $adv "TaskbarAl" 0 -id "QOL22a"
        }
        if ($script:KT_Opts.SearchBoxOff) {
            _sr "QOL22b Arama kutusu kapat" `
                "HKCU:\Software\Microsoft\Windows\CurrentVersion\Search" "SearchboxTaskbarMode" 0 -id "QOL22b"
        }
        if ($script:KT_Opts.TaskViewOff) {
            _sr "QOL22c Gorev Gorunumu butonu kapat" $adv "ShowTaskViewButton" 0 -id "QOL22c"
        }
    }
}

# ==============================================================
# LAT — Latency Hijyen (DPC/ISR)
# ==============================================================

function Invoke-LAT {
    Write-KT-Section "Latency Hijyen"
    if ($script:_pL -lt 2) { return }

    # LAT05 — Win32PrioritySeparation ek backup (CPU02 ile set edilen degeri garanti altina al)
    # Bazi OEM sistemlerde bu anahtar farkli bir yerden override edilebilir.
    # Asil deger: HKLM:\SYSTEM\CurrentControlSet\Control\PriorityControl (CPU02 tarafindan yazildi)
    # Burada sadece varsa Policies altindaki override'i kaldiriyoruz.
    $prvPrio = "HKLM:\SOFTWARE\Policies\Microsoft\Windows NT\Windows\PriorityControl"
    if (Test-Path $prvPrio) {
        Remove-Reg -Path $prvPrio -Name "Win32PrioritySeparation" | Out-Null
        _ok "LAT05  Win32PrioritySeparation policy override sil"
    } else { _skip "LAT05  Win32PrioritySeparation policy override" "Override yok, gerek kalmadi" }

    # LAT01 — OEM latency override'larini sil
    $latBase = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4d36e967-e325-11ce-bfc1-08002be10318}"
    $latKeys = @("ExitLatency","LatencyTolerance","WakeLatency","IdleLatencyTolerance")
    $latDone = 0
    try {
        Get-ChildItem $latBase -ErrorAction SilentlyContinue | ForEach-Object {
            $ps = "$($_.PSPath)\PowerSettings"
            if (Test-Path $ps) {
                foreach ($lk in $latKeys) {
                    if ($null -ne (Get-ItemProperty $ps -Name $lk -ErrorAction SilentlyContinue).$lk) {
                        Remove-Reg -Path $ps -Name $lk | Out-Null
                        $latDone++
                    }
                }
            }
        }
    } catch {}
    if ($latDone -gt 0) { _ok "LAT01  Power Latency Overrides silindi" "$latDone deger" }
    else { _skip "LAT01  Power Latency Overrides" "Sistemde OEM override bulunamadi" }

    # LAT02 — D3TransitionLatency sil
    _dr "LAT02  D3TransitionLatency silindi" `
        "HKLM:\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Power" "D3TransitionLatency"

    # LAT03 — HidUsb WakeFromSuspend kapat
    _sr "LAT03  HidUsb WakeFromSuspend kapat" `
        "HKLM:\SYSTEM\CurrentControlSet\Services\HidUsb" "DisableWakeFromSuspend" 1 -id "LAT03"

    # LAT04 — ForceHCResetOnResume
    _sr "LAT04  ForceHCResetOnResume = 1" `
        "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}" `
        "ForceHCResetOnResume" 1 -id "LAT04"
}

# ==============================================================
# DSP — Ekran & Monitor
# ==============================================================

function Invoke-DSP {
    Write-KT-Section "Ekran & Monitor"
    if ($script:_pL -lt 2) { return }

    # DSP01 — Monitor Power Save kapat
    if ($isLaptop) { _skip "DSP01  Monitor Power Save kapat" "Laptop" }
    else {
        & powercfg /setacvalueindex SCHEME_CURRENT SUB_VIDEO VIDEOIDLE 0 2>&1 | Out-Null
        & powercfg /setactive SCHEME_CURRENT 2>&1 | Out-Null
        _ok "DSP01  Monitor Power Save kapat"
    }

    # DSP02 — Adaptive Sync / FreeSync (opsiyonel)
    if ($script:KT_Opts.AdaptiveSync) {
        $dispPath = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000"
        _sr "DSP02  Adaptive Sync / FreeSync registry" $dispPath "RMSwapChainReady" 1 -id "DSP02"
    } else { _skip "DSP02  Adaptive Sync" "Opsiyonel - secilmedi" }

    # DSP03 — PanelSelfRefresh kapat
    if ($isLaptop) { _skip "DSP03  PanelSelfRefresh kapat" "Laptop - pil tasarrufu ozelligi" }
    else {
        $pnlPath = "HKLM:\SYSTEM\CurrentControlSet\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000"
        _sr "DSP03  PanelSelfRefresh kapat" $pnlPath "PanelSelfRefreshEnable" 0 -id "DSP03"
    }

    # DSP04 = GPU13 — MPO/OverlayTestMode GPU bolumunde zaten uygulandi
    _skip "DSP04=GPU13  MPO" "GPU bolumunde uygulandi (tek write)"
}

# ==============================================================
# NIC — Gelismis Adaptor Ayarlari
# ==============================================================

function Invoke-NIC-Advanced {
    Write-KT-Section "NIC Gelismis Ayarlar"
    if ($script:_pL -lt 2 -or -not $activeNic) { return }

    # Her ureticinin isimlendirmesi farkli — dene/atla
    $advProps = @(
        "Energy Efficient Ethernet", "Advanced EEE", "Green Ethernet",
        "Interrupt Moderation", "Interrupt Moderation Rate",
        "Enable PME", "Power Saving Mode",
        "Wake on Magic Packet", "Wake on Pattern Match",
        "Flow Control"
    )
    $applied = 0; $notFound = 0
    foreach ($prop in $advProps) {
        try {
            Set-NetAdapterAdvancedProperty -Name $activeNic.Name -DisplayName $prop `
                -DisplayValue "Disabled" -ErrorAction Stop
            $applied++
        } catch { $notFound++ }
    }
    if ($applied -gt 0) { _ok "NIC Advanced Props" "$applied uygulandi, $notFound NIC'te yok" }
    else { _skip "NIC Advanced Props" "Hicbir ozellik bu NIC'te bulunamadi" }
}

# ==============================================================
# CACHE — Gecici Dosya Temizligi
# ==============================================================

function Invoke-Cache {
    Write-KT-Section "Onbellek & Gecici Dosyalar"

    # DNS flush
    & ipconfig /flushdns 2>&1 | Out-Null
    _ok "Cache  DNS onbellegi temizlendi"

    # %TEMP% ve Windows\Temp — 1 gunden eski dosyalar
    $tempDirs = @($env:TEMP, "C:\Windows\Temp")
    $freed = 0
    foreach ($dir in $tempDirs) {
        if (Test-Path $dir) {
            Get-ChildItem $dir -Recurse -Force -ErrorAction SilentlyContinue |
                Where-Object { -not $_.PSIsContainer -and $_.LastWriteTime -lt (Get-Date).AddDays(-1) } |
                ForEach-Object {
                    try { Remove-Item $_.FullName -Force -ErrorAction SilentlyContinue; $freed++ } catch {}
                }
        }
    }
    _ok "Cache  Gecici dosyalar temizlendi" "$freed dosya"
}

# ==============================================================
# BOLUM 12 — TUM TWEAKLERI CALISTIR
# ==============================================================

# Profil seviyesi — menu seciminden sonra set edilir
$script:_pL = switch ($script:KT_Profile) { "basic" { 1 }; "gaming" { 2 }; "full" { 3 }; default { 2 } }

Write-Host ""
Write-KT-Header "Tweakler Uygulaniyor  [Profil: $($script:KT_Profile.ToUpper([System.Globalization.CultureInfo]::InvariantCulture))]"

Invoke-SYS
Invoke-CPU
Invoke-GPU
Invoke-NET
Invoke-INP
Invoke-MEM
Invoke-SVC
Invoke-TSK
Invoke-PRV
Invoke-DBL
Invoke-QOL
Invoke-LAT
Invoke-DSP
Invoke-NIC-Advanced
Invoke-Cache

# ==============================================================
# BOLUM 13 — KAYDET, OZET, REBOOT
# ==============================================================

# Yeni eklenen key listesini dosyaya kaydet (restore icin)
if ($script:KT_NewKeys.Count -gt 0) {
    $script:KT_NewKeys | Out-File $script:KT_NewKeysPath -Encoding UTF8 -ErrorAction SilentlyContinue
    Write-KT-Log -Level "INFO" -Message "Yeni key listesi kaydedildi: $($script:KT_NewKeys.Count) adet -> $script:KT_NewKeysPath"
}

Write-Host ""
Write-KT-Header "Ozet"

Write-Host "  Uygulanan : " -NoNewline -ForegroundColor DarkGray
Write-Host $script:KT_Applied  -ForegroundColor Green
Write-Host "  Atlanan   : " -NoNewline -ForegroundColor DarkGray
Write-Host $script:KT_Skipped  -ForegroundColor DarkGray
Write-Host "  Hata      : " -NoNewline -ForegroundColor DarkGray
Write-Host $script:KT_Failed   -ForegroundColor $(if ($script:KT_Failed -gt 0) { "Red" } else { "DarkGray" })
Write-Host "  Toplam    : $($script:KT_Applied + $script:KT_Skipped + $script:KT_Failed)" -ForegroundColor Gray
Write-Host ""
Write-Host "  Log    : $(Split-Path $script:KT_LogPath -Leaf)" -ForegroundColor DarkGray
if (Test-Path $script:KT_BackupPath) {
    Write-Host "  Yedek  : $(Split-Path $script:KT_BackupPath -Leaf)" -ForegroundColor DarkGray
    Write-Host "  Geri almak icin: KelTweak.bat restore" -ForegroundColor DarkGray
}
Write-Host ""

# Reboot kuyrugu
if ($script:KT_RebootList.Count -gt 0) {
    Write-Host "  Yeniden baslatma gerektiren tweakler:" -ForegroundColor Yellow
    foreach ($item in $script:KT_RebootList) {
        Write-Host "    - $item" -ForegroundColor DarkYellow
    }
    Write-Host ""
    $rb = Read-Host "  Simdi yeniden baslatilsin mi? [E/H]"
    if ($rb -match "^[Ee]") {
        Write-Host "  Yeniden baslatiliyor..." -ForegroundColor Yellow
        Write-KT-Log -Level "INFO" -Message "Kullanici istegiyle reboot"
        Start-Sleep 2
        Restart-Computer -Force
    } else {
        Write-Host "  Manuel olarak yeniden baslatmayi unutma!" -ForegroundColor Yellow
        Write-Host ""
        Read-Host "  Cikis icin Enter"
    }
} else {
    Write-Host "  Tum degisiklikler aninda etkin oldu." -ForegroundColor Green
    Write-Host ""
    Read-Host "  Cikis icin Enter"
}