Daha önceki konularımızdan birinde , Klasör , herhangi bir dosya veya Programa erişimi nasıl engelleyebileceğimiz ile ilgili bazı bilgiler paylaşmıştık Burada , sizlerden aldığımız emailler ,
1. Birden fazla dosya ile bu yasaklama yapılıyor
2. Yasaklama yapılmak istendiğinde sorulan soruya bir cevap verilmesi gerekiyor , yoksa çalışmıyor
Varsayalım bilgisayar her açıldığında otomatik olarak bir dosyaya erişimi engellemek isteyelim işte bu durumda soru sorulacağı için otomatikleştirme işlemi gerçekleşmeyecektir , tüm bu handikapların bertaraf edilmesi amacıyla sizler için biraz kodları kurcaladım ve ortaya bu başlığın konusu olan bir tıkla herhangi bir soruya cevap verilmeden yasaklama / yasağı kaldırma .vbs scripti ortaya çıktı. Scripti oluştururken aşılması gereken iki sıkıntı vardı :
- Yasaklama veya Yasağı aşma iki değil tek bir doya ile yapılsın
- Soruya otomatik olarak gereken cevap verilsin , ki nasılı üstte linki verilen başlıkta açıklanmıştı lakin küçük bir ayrıntı gözümden kaçmış.
1. Bir tıkla Klasöre erişimi yasaklama (.vbs)
Kardeşiniz veya başka birileri ile Bilgisyarınızı aynı hesap altında kullanıyorsanız görmesini istemediğiniz , resim , video yazışma ... olabilir eğer bunları içeren bir Klasöre erişimini yasaklamak istiyorsanız aşağıdaki scripti kullanabilirsiniz
' www.sodum.net - Velociraptor Option Explicit Dim strHomeFolder, strHome, strUser Dim intRunError, objShell, objFSO strHomeFolder = "deneme" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strHomeFolder) Then ' Klasöre kullanici izni atayalim intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " _ & strHomeFolder & " /d everyone ", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & strUser & " to home folder " & strHomeFolder End If End If WScript.Quit
Gelelim üstteki kodun nasıl kullanılacağına , öncelikle kodları bir Notepad e yapıştırın ve uzantısı .vbs olacak şekilde kaydedin sonra kodun aşağıdaki kısmını:
strHomeFolder = "deneme" deneme yi yasaklamak istediğiniz klasör ismi ile değiştirin. yasaklandıktan sonra klasör açmaya çalışıldığında aşağıdaki şekilde uyarı verecektir
Yasağı aşmak için ise aşağıdaki Scripti kullanabilirsiniz , yine klasör ismini değiştirmeyi unutmayın
Bir tıkla Klasöre erişim yasağını kaldırma (.vbs)
' www.sodum.net - Velociraptor Option Explicit Dim strHomeFolder, strHome, strUser Dim intRunError, objShell, objFSO strHomeFolder = "deneme" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strHomeFolder) Then ' Assign user permission to home folder. intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " _ & strHomeFolder & " /g Everyone:F ", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & strUser & " to home folder " & strHomeFolder End If End If WScript.Quit
Elbette öncesinde klasörü görünmez yapmayı da deneyebilirsiniz yani ;
1. Gizli dosya ve klasörleri görünür yapalım
2. Yasaklayacağımız KLasörü sağ tıklayıp Gizli kısmına tik koyalım , daha sonra scripti çalıştıralım
Böylece hem gizli hemde erişilmez bir klasörümüz olacaktır , elbette vbs kodları buna görede düzenlenebilir.
NOT: Üstteki kodlar sadece Türkçe sistemlerde düzgün çalışacak onun dışındakilerde kodlar düzenlenmezsse çalışmayacaktır. Test sistemim Windows 7 x64 tür fakat üst sistemlerdede sorunsuz çalışması gerekir , ayrıca Xp de icacls olmadığından kodlarda kullanılmamıştır , kısacası Xp dede sorun çıkarmadan çalışması gerekir.
- Sağ tuşa program eklemeyi otomatikleştirmek - Burada
- Sağ tuşa vbs veya bat scripti eklemek - Burada
- Bir Dosya veya klasöre erişimi engelleyip gizleyelim Burada
- Dosya,klasör veya programlara erişimi yasaklama Burada
- Sağ tuş ile klasör ve dosyalara erişimi engelleme Burada
- Bir kullanıcıya dizin erişimini yasaklama Burada