Uzantıları Sıfırlayan .VBS Betiği
Gönderilme zamanı: 13 Şub 2025 18:26
Aşağıda, kullanıcıdan sıfırlamak istediği dosya uzantısını girmesini isteyen ve ardından belirtilen uzantı için varsayılan uygulamayı sıfırlayan bir VBS betiği bulunmaktadır. Bu betik, belirli dosya uzantıları için varsayılan uygulamaları sıfırlamak amacıyla Windows kayıt defterini kullanır.
reset_file_extension.vbs
Kod: Tümünü seç
Option Explicit
Dim objShell, fileExtension, regPath, regValue
' Kullanıcıdan dosya uzantısını al
fileExtension = InputBox("Sıfırlamak istediğiniz dosya uzantısını (örneğin: .txt) girin:", "Dosya Uzantısı Sıfırlama")
' Dosya uzantısının geçerli olup olmadığını kontrol et
If fileExtension = "" Then
WScript.Echo "Hiçbir uzantı girmediniz. İşlem iptal edildi."
WScript.Quit
End If
' Kayıt defteri yolu ve değeri
regPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Associations\" & fileExtension & "\UserChoice"
regValue = "ProgId"
' Kayıt defterinden değeri sil
On Error Resume Next
WScript.Shell.RegDelete regPath & "\" & regValue
If Err.Number <> 0 Then
WScript.Echo "Hata: " & Err.Description
Err.Clear
Else
WScript.Echo fileExtension & " uzantısı için varsayılan uygulama sıfırlandı."
End If
On Error GoTo 0
' Temizlik
Set objShell = Nothing
Kullanıcıdan Girdi Alma: Kullanıcıdan sıfırlamak istediği dosya uzantısını alır. Örneğin, .txt, .vbs gibi.
Kayıt Defteri Yolu: regPath değişkeni, kullanıcının girdiği dosya uzantısına göre doğru kayıt defteri yolunu oluşturur.
Hata Kontrolü: Kayıt defterinden değeri silmeye çalışırken hata kontrolü yapılır. Eğer bir hata oluşursa, kullanıcıya hata mesajı gösterilir.
Sonuç Mesajı: Eğer işlem başarılı olursa, kullanıcıya uzantının varsayılan uygulamasının sıfırlandığına dair bir mesaj gösterilir.
Kullanım Talimatları:
Not Defteri'ni açın.
Yukarıdaki kodu kopyalayın ve Not Defteri'ne yapıştırın.
Dosyayı reset_file_extension.vbs adıyla kaydedin (dosya uzantısının .vbs olduğuna dikkat edin).
Oluşturduğunuz dosyayı çift tıklayarak çalıştırın.
Açılan kutucukta sıfırlamak istediğiniz dosya uzantısını (örneğin: .txt) girin ve "Tamam" butonuna tıklayın.
Dikkat:
Bu betik, yalnızca belirtilen dosya uzantısı için varsayılan uygulamayı sıfırlamaya çalışır. Ancak, bazı dosya uzantıları için varsayılan uygulamaları sıfırlamak, sistemde beklenmedik sonuçlara yol açabilir.Kayıt defterinde değişiklik yapmadan önce, önemli verilerinizi yedeklemeniz önerilir.