kaynak klasörünün yolunu bulmada kolay bir yol paylaşmak zorunda kalmamız sistemin ne hale geldiğinin bir göstergesi.

Diyelimki bilgisayar başından kalktınız o sırada Kızınız/Oğlunuz bilgisayara oturdu ve internetten indirdiği bir duvar kağıdını arkaplan olarak ayarladı , buraya kadar sorun yok , siz resmi okadar beğendinizki işyerinizdeki laptopunuzda da kullanmak istiyorsunuz , muhtemelen indirilenler klasöründedir diye düşündünüz baktınız yok , Masasütünü sağ tıkladınız - Kişiselleştirme - Arkaplan ayarları kısmına baktınız resmin ön görünümü orada ama basitçe arkaplan resmini kopyalayacak bir seçenek yok.

Gözat kısmına tıkladınız Resimler klasörü açıldı (Orada zaten yok) , iş sinir edici bir hal almaya başladı arkadaş duvar kağıdımı kopyalamak istiyorum , nekadar basit bir istek , Microsoft bunu karşılamaktan aciz malesef , bu onlar için Satürne uzay aracı yollamaktan daha zor olmalı ki böyle bir seçeneği koydularsa bile ben göremiyorum , haa varsada zaten ilk başta bulamadıysam alsınlar bu sistemi başlarına çalsınlar burada mesele yine duvar kağıdı değil mesele kullanıcı kontrolüne en küçük bir duvar kağıdı olayında bile izin vermemek , Onlar yönetecek , onların dediği olacak (Ama parasını siz vereceksiniz - Vay be ne güzel dünya).

Bir tıkla Windows Arkaplan (Duvar kağıdı) nın bulunduğu yeri açın

Windows 11 ve 10 Duvar kağıdının yolunu aşağıdaki registry kaydında "TranscodedImageCache" anahtarında Binary değeri olarak saklar.

HKEY_CURRENT_USER\Control Panel\Desktop

Aşağıdaki resimde bunu açıkça görüyoruz

Bir scriptle bu ikilik kod şeklinde saklanan mevcut duvar kağıdının yolunu buldurtup klasörü açtırtırsak sorun hallolacaktır , işte burada yardımımıza vbscript koşuyor aşağıdaki script bu işe yarıyor yani mevcut duvar kağıdımız hangi klasörde ise o klasörü açıyor.

Const HKCU = &H80000001 'HKEY_CURRENT_USER

sComputer = "."   

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
            & sComputer & "\root\default:StdRegProv")

sKeyPath = "Control Panel\Desktop\"
sValueName = "TranscodedImageCache"
oReg.GetBinaryValue HKCU, sKeyPath, sValueName, sValue


sContents = ""

For i = 24 To UBound(sValue)
  vByte = sValue(i)
  If vByte <> 0 And vByte <> "" Then
    sContents = sContents & Chr(vByte)
  End If
Next

CreateObject("Wscript.Shell").Run "explorer.exe /select,""" & sContents & """"

Bu kodları bir not defterine yapıştırıp bir isim verelim ve uzantısı .vbs olacak şekilde kaydedelim sonrasındada çalıştıralım

örneğimize geri dönersek , çocuk bu duvar kağıdını "D:\hepsi\wallpapers\0" klasörüne kaydetmiş ki script çalıştırılınca bu klasör açıldı ve evet resim oradaydı , scriptin hazır halini aşağıdan indirebilirsiniz. Üstte kodları verilen Script yeniden kodlanmış olup Windows 11 , Windows 10 , Windows 8.1 , Windows 8 ve Windows 7 de duvar kağıdının konumunu açacak şekle getirilmiştir , ilaveten sayılan tüm sistemlerde sağ tuşa eklenecek şekilde bir ilave kodlama yapılmış olup isteyen aşağıdakilerden birini kullanabilir.

1. Duvark_kagidini_bul.vbe dosyasını kullanıp duvar kağıdı konumunu açabilir

2. isteyen "Wallpaper_bul" klasörü içerisindeki - sagtusa_ekle.vbe ile sağ tuşuna Duvar Kağıdını Bul seçeneği ekleyebilir.

Eğer sağ tuştan Duvar Kağıdını Bul eklentisini silmek istiyorsanız "wallpaper_bul" klasörü içerisindeki "sagtustan_sil.vbe" yi kullanarak eklentiyi sağ tuşunuzdan silebilirsiniz.

- Sağ tuşa Duvar kağıdı konumunu aç kısayolu Burada

- Tema dosyalarını kurmadan duvar kağıtlarını alalım Burada

- Bing duvar kağıtlarını filigransız indirelim Burada

- Windows 10 kilit ekranı görselini saklayalım Burada

- Windows 10 kilit ekranı resimlerini otomatik kaydetmek Burada

21 Şubat 2018 Tarihli başlık güncellendi