Gizli Dosya ve Klasörleri Göster/Gizle / VB6

S

SH!FT

Uzman üye
20 Haz 2009
1,426
0

Merhaba arkadaşlar Vb6 ile gizli dosya ve klasörleri nasıl göster/gizle yapabiliriz görelim.

Forma iki tane CommandButton ekleyin, 1. göster, 2. gizle kodu olacak. Gelelim kodlara;

Kod: 
Private Sub Command1_Click() 'göster
Dim reg As Object
Set reg = CreateObject("Wscript.Shell")
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
End Sub

Private Sub Command2_Click() 'gizle
Dim reg As Object
Set reg = CreateObject("Wscript.Shell")
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
End Sub

Kesinlikle alıntı değildir, tamamını ben yazdım.
İşine yaradıysa Teşekkür edebilirsin.
 
S

ServerXSavunma

Üye
4 Tem 2012
181
0
yazması kolay değeri ve yolu bildikten sonra değiştir olsun bitsin.
görev yöneticisini engelleme gibi
ama güzel paylaşım cidden thanks bir de korunan işletim sistemi dosyalarını gizle (önerilen) onuda bulursan bi zamet ?
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.