Kod: Tümünü seç

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts]

Kod: Tümünü seç

Option Explicit

Dim WshShell, fso, backupPath, regExportCmd, regDeleteCmd, response
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

' Kayıt yedeği yolu
backupPath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\FileExts_Backup.reg"

' Yedekleme komutu
regExportCmd = "reg export ""HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts"" """ & backupPath & """ /y"

' Silme komutu
regDeleteCmd = "reg delete ""HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts"" /f"

' Kullanıcıya işlem seçtir
response = MsgBox("1. EVET → Önce Yedekle, sonra temizle" & vbCrLf & _
                  "2. HAYIR → Sadece Yedeği geri yükle" & vbCrLf & _
                  "İptal → Çıkış", vbYesNoCancel + vbQuestion, "Birlikte Aç - Temizleme Aracı")

If response = vbYes Then
    WshShell.Run regExportCmd, 0, True
    MsgBox "Yedek alındı: " & backupPath, vbInformation, "Yedekleme Başarılı"
    
    WshShell.Run regDeleteCmd, 0, True
    MsgBox """Birlikte Aç"" kayıtları temizlendi." & vbCrLf & "Lütfen bilgisayarı yeniden başlatın.", vbInformation, "Temizleme Tamam"
    
ElseIf response = vbNo Then
    If fso.FileExists(backupPath) Then
        WshShell.Run "reg import """ & backupPath & """", 0, True
        MsgBox "Yedek başarıyla geri yüklendi." & vbCrLf & "Bilgisayarı yeniden başlatın.", vbInformation, "Geri Yükleme Tamam"
    Else
        MsgBox "Yedek bulunamadı: " & backupPath, vbExclamation, "Geri Yükleme Hatası"
    End If
Else
    MsgBox "İşlem iptal edildi.", vbInformation, "İptal"
End If

Kod: Tümünü seç

# === Birlikte Aç Yönetici Aracı ===

$extsPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts"
$extensions = Get-ChildItem -Path $extsPath | Where-Object { Test-Path "$($_.PSPath)\UserChoice" }

if ($extensions.Count -eq 0) {
    Write-Host "Hiç elle atanmış 'Birlikte Aç' kaydı bulunamadı." -ForegroundColor Yellow
    exit
}

Write-Host "`n=== Birlikte Aç Ayarları ===`n" -ForegroundColor Cyan

$i = 1
$extMap = @{}
foreach ($ext in $extensions) {
    $extMap[$i] = $ext.PSChildName
    Write-Host ("$i. {0}" -f $ext.PSChildName)
    $i++
}

Write-Host "`nNe yapmak istiyorsunuz?" -ForegroundColor Green
Write-Host "A - Tümünü Yedekle (reg dosyasına)"
Write-Host "B - Seçilenleri sil (örnek: 1,3,5)"
Write-Host "C - Tümünü sil (fabrika ayarına döndür)"
Write-Host "D - Hiçbir şey yapma, çık"
$secim = Read-Host "`nSeçiminiz (A/B/C/D)"

$backupPath = "$env:USERPROFILE\Desktop\BirlikteAc_Yedek.reg"

switch ($secim.ToUpper()) {
    "A" {
        reg export "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts" "$backupPath" /y
        Write-Host "`n??? Yedek alındı: $backupPath" -ForegroundColor Green
    }
    "B" {
        $giris = Read-Host "Silmek istediğiniz numaraları girin (virgülle ayırın, örn: 1,3,5)"
        $numaralar = $giris -split "," | ForEach-Object { $_.Trim() } | Where-Object { $_ -match '^\d+$' }
        foreach ($n in $numaralar) {
            if ($extMap.ContainsKey([int]$n)) {
                $ext = $extMap[[int]$n]
                Remove-Item -Path "$extsPath\$ext\UserChoice" -Force -ErrorAction SilentlyContinue
                Write-Host "?? Silindi: $ext" -ForegroundColor Yellow
            }
        }
        Write-Host "`n? Seçilen girdiler kaldırıldı."
    }
    "C" {
        reg export "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts" "$backupPath" /y
        Write-Host "`n??? Tüm girdiler yedeklendi: $backupPath"
        foreach ($ext in $extensions) {
            Remove-Item -Path "$extsPath\$($ext.PSChildName)\UserChoice" -Force -ErrorAction SilentlyContinue
        }
        Write-Host "`n?? Tüm kullanıcı tercihleri sıfırlandı. Windows varsayılanlarına dönüldü." -ForegroundColor Yellow
    }
    "D" {
        Write-Host "`nİşlem iptal edildi." -ForegroundColor Gray
    }
    default {
        Write-Host "`nGeçersiz seçim." -ForegroundColor Red
    }
}

Write-Host "`nİşlem tamamlandı. Kapatmak için Enter tuşuna basın."
Read-Host

Kod: Tümünü seç

Set-ExecutionPolicy RemoteSigned -Scope CurrentUser

Kod: Tümünü seç

.\BirlikteAcYonet.ps1