Tek tikla gizli dosyalari göstersin/gizlesin (vbs)

[velociraptor]

asagidaki kodlari bir notepad e yapistirin ve uzantisini .vbs yapin sonrasinda eger gizi dosya ve klasörleriniz Gizli ise bunlari gösterecek sekilde ayarlayacaktir eger gizli dosya ve klasörleriniz Gizlenmemis sekilde ise bunlari gizleyecektir

Kod: Tümünü seç

Set sh = CreateObject("WScript.Shell")
theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden = sh.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
MsgBox "System and hidden files will no longer appear in Explorer.",64,"Hidden File Exchange"
Else
setHidden = 1
MsgBox "System and hidden files will appear in Explorer.",64,"Hidden File Exchange"
End If
sh.RegWrite theKey,setHidden,"REG_DWORD"
Set sh = Nothing

Ceviri: velociraptor