Birlikte aç listesini eski haline getirmek istiyorum

[Email Bot]

Merhaba ben sistem tarafından tanınmayan dosyaya varsayılan atanan birlikte aç listesini eski haline getirmek istiyorum.
sağ tık
birlikte aç
başka bir uygulama seç
ekranındaki önceden seçtiğim varsayılan progromları sıfırlayarak listedeki kalabalığı temizlemek istiyorum, mümkün mü?
dediğim gibi o listede önceden kendi seçtiğim programları kaldırıp windowsun varsayılan önerilerine dönsün istiyorum. teşekkürler..

[velociraptor]

1. Temiz formatlanmış bir Windowstan aşağıdaki anahtarı dışa aktar.

Kod: Tümünü seç

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

2. Ardından aşağıdaki kayıt ile listeyi tezmizleyip ilk maddedeki kaydı yükle

Kod: Tümünü seç

Windows Registry Editor Version 5.00

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

[TRWE_2012]

1. Temiz formatlanmış bir Windowstan aşağıdaki anahtarı dışa aktar.

Kod: Tümünü seç

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

2. Ardından aşağıdaki kayıt ile listeyi tezmizleyip ilk maddedeki kaydı yükle

Kod: Tümünü seç

Windows Registry Editor Version 5.00

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

@Tarkan_Dost (neden? @Tarkan_Dost yazıyorum? Cevap : Kolayıma geldiği için ve de hoşuma gidiyor bu avatar ismi) çok güzel açıklamış ama ben de bunu bir adım "İLERİ SEVİYEYE" taşımak istiyorum.... (Bilirsin admin ben sağlamcıyımdır.)

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Önce yedekleme, sonra da temizleme (Windows fabrika ayarına döndürme) işlemlerini yapan, gerekirse geri yükleme (restore) yapabilen bir .vbs (Visual Basic Script)

Hedeflenen:

"Birlikte Aç" tercihlerini yedeklenmesi (.reg dosyası olarak)
Tüm dosya uzantılarının elle atanmış "UserChoice" girdilerini silinmesi (Windows Fabrika Ayarları = Windows Varsayılan)
İstenirse yedekten geri yükle (Önceki yedeğin geri yüklenmesi)

OpenWith_Reset.vbs

Bu script şunları yapar:

FileExts_Backup.reg adında yedek alır
UserChoice kayıtlarını temizler
Geri yükleme komutuyla yedeği geri alır

OpenWith_Reset.vbs İçeriği:

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

Kullanım Talimatı:

1.Not Defteri'ne bu kodu yapıştırın
2.OpenWith_Reset.vbs olarak masaüstüne kaydedin
3.Sağ tıklayıp "Yönetici olarak çalıştırın"

4.Seçenek ekranı gelir:

4.1.EVET = Yedek al + temizle
4.2.HAYIR = Yedeği geri yükle

Betiğin Ana Özellikleri :

1.Yedek Alma ======>>>> FileExts_Backup.reg dosyasına
2.Temizleme======>>>>Elle atanmış tüm UserChoice’ları kaldırır
3.Geri Yükleme======>>>>Aynı dosyadan geri çağırır
4.Yönetici Yetkisi======>>>> Gerekli'dir======>>>>Reg işlemleri için yönetici hakları gerekir

ANA UYARI NOTU :

Betiği kullanmadan önce "BİR GERİ YÜKLEME NOKTASI" oluşturun.(kendime güveniyorum ama Windows'a asla güvenmiyorum--->>Olayın özeti)

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

EKRAN GÖRÜNTÜSÜ :

NOT:

Betiği kayıt ederken, karakter kodlamasını UTF-8'den ANSI'ye çevirin ki "Türkçe Karakter Sorunu" oluşmasın.


NOT - 2:

Bu betik, Windows işletim sisteminin kayıt defteri (Registry) ile etkileşimde bulunduğu için genellikle Windows 7, Windows 8, Windows 10 ve Windows 11 gibi sürümlerle uyumludur. Ancak, Windows'un daha eski sürümleri (örneğin, Windows XP) için de çalışabilir, çünkü "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts" anahtarı bu sürümlerde de bulunmaktadır.


Güle güle kullanın....

[TRWE_2012]

PS1 KOD İÇERİĞİ : BirlikteAcYonet.ps1

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

BETİK AÇIKLAMASI :

Bu betik, Windows'ta "Birlikte Aç" listesine elle atanmış uygulama tercihlerinin yönetimini kolaylaştırır. Çalıştırıldığında:

Önce, sistemde hangi dosya uzantılarına elle bir program atandığını listeler (örneğin .txt, .jpg).

Ardından sana 4 seçenek sunar:

A: Tüm kayıtları .reg dosyasına yedekler.

B: Listeden numara vererek seçtiğin kayıtları siler (tercihi sıfırlar).

C: Tüm elle atamaları siler ve fabrika ayarına döndürür (önce yedek alır).

D: Hiçbir işlem yapmadan çıkar.

Silme işlemi sadece "UserChoice" kısmını kaldırır, yani sistem dosya türünü tanımaya devam eder ama artık kullanıcıya program sormaya başlar. Bu şekilde Windows’un önerdiği varsayılan uygulamalar yeniden görünür.

EKRAN GÖRÜNTÜSÜ :

NOT:

Betiği kullanmadan önce "BİR GERİ YÜKLEME NOKTASI" oluşturun.

Betiği kayıt ederken ANSI karakter kodlamasını kullanın.

Betiği şu komutla çalıştırın:

(ilk kullanım için) ------------>>> Windows Sistem Kısıtlamasını "Geçici" aşmak için.

Kod: Tümünü seç

Set-ExecutionPolicy RemoteSigned -Scope CurrentUser

Kod: Tümünü seç

.\BirlikteAcYonet.ps1

BİLGİLENDİRME NOTU (Ayrıntılı İçerik Açıklaması) :

Kodladığım betik'te eksik özellikler olabilir.Düzeltebilirim.Sonuçta ben uzman kodlayıcı filan değilim, amatörüm ama eski bir Microsoft Visual Basıc 6.0 kullanıcısıyım.

Bana inanmıyormusunuz? ( eski bir Microsoft Visual Basıc 6.0 kullanıcısıyım. ) Alın size ispat ekran görüntüsü.....

Bu yazılımı yeni sürüm Windows11'e yada Windows10'a kurmaya çalışın bakalım kurabilecek misiniz? Cevabı : "dino-user"ler dışında bu yazılımı normal WindowsPC kullanıcısı en güncel sistem'e kuramaz....!!! Kurmaya çalışsa bile çok çeşitli hatalar alır/alacaktır.

[burak35]

Bi ben yapamadım şöyle güzel scriptler. Neyse ben reg tweaklere devam.

[TRWE_2012]

Yok ben bu betik olayını istemiyorum derseniz, bu portable sağ menü yazılımı işinizi görür..

Çalışması için :

1.Sisteminiz de MS-NetFramework 3,5 sp1 ve 4.0 yüklü olmalı

2.Sisteminiz de MS-C-Runtime bileşenleri de yüklü olmalı

Not:

Yazılımın arayüzü Çince'dir.Resmi GitHub sayfasından "İngilizce dil " dosyasını indirip :

dizinine atmanız yeterlidir.

3.Yazılımı yönetici modunda çalıştırın.

Not:

Eski "birlikte aç" yazılımları :

1.

2.

1.madde'teki sadece ekledikleriniz silmenize izin verir.2.madde ise doğrudan kayıt defteri içinden ilişkilendirme yapar.(silme olayı yoktur.).WindowsXP zamanından kalma kadim antika yazılımdır.

[Kayserilifatih]

Ben olsam programla uğraşmam direkt Tarkan abinin verdiği yolla çözerdim işi daha pratik olurdu şimdi programla falan uğraşamam

[burak35]

Reg tweak akar.

[velociraptor]

Umarım soruyu soran arkadaş kendince uygun gördüğü yöntemi kullanır.

[burak35]

Context menu manager güzelmiş yalnız. Arayüzü falan hoşuma gitti.