Etkin Olmayan Simgeleri Gizle (SiL)

[Arman]

Selam Arkadaslar.

Gecen haftalarda resimdeki kullanilmayan simgeleri tamamen kaldirmakla ilgili bir ipucu vardi.Ama ozaman baska birsey aradigim icin sonra bakarim diye düsündüm.Fakat simdi bir türlü bulamiyorum ipucunu.Kaldigim programlarin bile orada kalintilari var ve eger mümkünse bana lazim olmayan diger simgeleride kaldirmak istiyordum.
System: Win XP Pro SP2
Ilginize Simdiden Cok TESEKKÜRLER.


SAYGILARIMLA...

[Laneth]

XP için:

Kod: Tümünü seç

http://www.kellys-korner-xp.com/regs_edits/xp_pastitems.vbs

komut istemiyle aç ve islem tamam

benim olay ki 60'yakın vardı



İslem ayda bir kez tekrarlanmalı

Kolay gelsin

[Arman]

Süper Dostum.

Tekrar Cok TESEKKÜR EDERiM.




SAYGILARIMLA...

[uçs]

XP için:

Kod: Tümünü seç

http://www.kellys-korner-xp.com/regs_edits/xp_pastitems.vbs

komut istemiyle aç ve islem tamam

benim olay ki 60'yakın vardı



İslem ayda bir kez tekrarlanmalı

Kolay gelsin

Bende çalısmadı.. :!:

[Laneth]

agbi olay bu; script'e sag tık/"komut istemiyle aç ve bu ekran gelecek, "evet" diyeceksin islem bu kadar

olayı masaüstünde yap, hiç bir program çalısmasın, sadece script çalısacak vs

[uçs]

Siyah ekranın açılmasıyla kaybolması bir oluyor.Onaylama penceresi çıkmıyor.. :!:

[Laneth]

'xp_pastitems.vbs - Remove Past Items from the System Tray
'Based on fixes by Doug Knox and Kelly Theriot.
'© Doug Knox and Kelly Theriot - 8/23/2003

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then

On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream"

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr & "© Doug Knox and Kelly Theriot", 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr & "© Doug Knox and Kelly Theriot", 4096, "User Cancelled"

End If

Agbi not defterini aç, kaydı copy/paste yap, ".vbs" uzantısı ile "kaydet" bakalım

Kolay gelsin

[skinnycem]

Bu olay ne ise yarıyor?

[uçs]

silenceman olmadı.. :!:

[Laneth]

silenceman olmadı.. :!:

check etmek lazım

[uçs]

Gösterdigin dosyayı sag tık aç dedigim zaman bos siyah ekran açılmasıyla kapanması bir oluyor.. :!:

[Laneth]

manuel temizleme yolu bulunursa eklenecektir

Kolay gelsin

[uçs]

manuel temizleme yolu bulunursa eklenecektir

Kolay gelsin

O.K.