KOD İÇERİĞİ :
Kod: Tümünü seç
Option Explicit
Dim objShell, objFSO, strIconCachePath
' Shell nesnesini oluştur
Set objShell = CreateObject("WScript.Shell")
' İkon önbelleği dosyasının yolu
strIconCachePath = objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer\iconcache*")
' FileSystemObject nesnesini oluştur
Set objFSO = CreateObject("Scripting.FileSystemObject")
' İkon önbelleği dosyalarını sil
If objFSO.FolderExists(objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")) Then
Dim file
For Each file In objFSO.GetFolder(objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")).Files
If InStr(file.Name, "iconcache") > 0 Then
file.Delete
End If
Next
End If
' Bilgilendirme mesajı
MsgBox "İkon önbelleği temizlendi. Oturumunuz kapatılacak.", vbInformation, "Tamamlandı"
' Kullanıcı oturumunu kapat
objShell.Run "shutdown -l", 0, False
' Temizleme işlemi tamamlandı
Set objFSO = Nothing
Set objShell = Nothing
Bu kod, Windows işletim sisteminde ikon önbelleğini temizlemek için kullanılan bir VBScript'tir. İşleyişi şu şekildedir:
Shell ve FileSystemObject Oluşturma: WScript.Shell ve Scripting.FileSystemObject nesneleri oluşturulur.
İkon Önbelleği Yolu: İkon önbelleği dosyalarının bulunduğu dizin belirlenir.
Dosyaları Silme: Belirtilen dizindeki "iconcache" içeren dosyalar döngü ile bulunur ve silinir.
Bilgilendirme Mesajı: Kullanıcıya ikon önbelleğinin temizlendiğine dair bir mesaj kutusu gösterilir.
Oturumu Kapatma: Kullanıcı oturumu kapatılır.
Sonuç olarak, bu script ikon önbelleğini temizleyip kullanıcıyı oturumdan çıkartır.(Oturum ekranında siz tekrar sistem'e giriş yapacaksınız.)
NOTLAR :
Betiği "Yönetici olarak çalıştırın"....
Betiği uygulamadan önce çalışan tüm uygulamalardan çıkın/kayıt ederek çıkın.
Bizzat Windows11 Yapı 22H2 x64 Home İşletim Sisteminde , TRWE_2012 tarafından denendi....!!!.Sonuç "OLUMLU"...!!!