Vb.2010 Klasör Gizleme

[RooTKhaLeD]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Merhaba Arkadaslar
Vb. De Bir PRg Yazmak istedim..
Bitti Sonunda Sizler Le de Paylaşayım Dedim..

işinize Yarar Sanırım.

Program için
Not : Net Framework 3 Ve üzeri Olmasi Gerekmektedir.

Program şöyle Çalışıyor

İlk Olarak Şifremizi oluşturuyoruz..
Daha Sonra giriş yapıyoruz
giriş yaptıkdan sonra
Klasör oluştur dediğimizde Prg yi nerede çalıştırdıysak orada Dosya isminde bir Klasör oluşturuyor.

Bu Klasöre istediğimiz dosyalari atabiliriz.

Daha Sonra Kilitle dediğimizde Dosyamizi kaybediyor.
Başka bir Kullanıcının Bu Dosyayı bulması % 0 gibi bişe diyebilirim
Aç dediğimizde Yeniden Acıyo içine ekleme yaparak geri kitliyoruz

Uygulamayı istek Üzerine biraz Değiştirdim..
Kullanım Dahada Rahatladı Sanırım..

Uygulamanın Resmi

Program Ektedir.
Bu Arada VirusTotal Analiz

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Download

PHP Code:

http://www.filejungle.com/f/hmKTjS/Klasör Gizleme.rar
​

Ekte De Bulunmaktadır.
​

Programın Code leri Buyrun..


PHP Code:

Imports System.IO
Imports System.IO.FileInfo

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dosya As String = "Dosya"
If (System.IO.Directory.Exists(Application.StartupPath + "\Dosya")) = True Then
MsgBox("Klasör Kullanımda")
Button1.Enabled = False
Else
My.Computer.FileSystem.CreateDirectory("Dosya")
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

My.Computer.FileSystem.RenameDirectory("Dosya", "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}")
Shell("cmd /c attrib +s +h +R " & """Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}""")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

My.Computer.FileSystem.RenameDirectory(Application.StartupPath & "\" & "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}", "Dosya")
Shell("attrib -s -h -R " & "Dosya")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Try

If System.IO.File.Exists("C:\windows\fire.txt") Then
MsgBox("Şifre Daha Önce Oluşturulmuştur.. Lütfen Giriş Yapınız")
Button4.Enabled = False
Else
Dim fs As System.IO.FileStream = New System.IO.FileStream("C:\windows\fire.txt", IO.FileMode.Append, IO.FileAccess.Write)

Dim yazdirma As System.IO.StreamWriter = New System.IO.StreamWriter(fs)
Dim s As String = TextBox3.Text

yazdirma.Write(s)
yazdirma.Close()
fs.Close()
End If


Catch

End Try

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim oku As String = My.Computer.FileSystem.ReadAllText("C:\windows\fire.txt")

If oku = TextBox2.Text Then
Button3.Enabled = True
Button2.Enabled = True
Button5.Enabled = False
Button5.BackColor = Color.Red
Button5.ForeColor = Color.White
TextBox2.Text = ""
Else
MsgBox("Yanlış Şifre Girdiniz")
TextBox2.Text = ""
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button3.Enabled = False
Button2.Enabled = False
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim oku As String = My.Computer.FileSystem.ReadAllText("C:\windows\fire.txt")

If oku = TextBox4.Text Then
My.Computer.FileSystem.DeleteFile("C:\Windows\fire.txt")

Dim fs As System.IO.FileStream = New System.IO.FileStream("C:\windows\fire.txt", IO.FileMode.Append, IO.FileAccess.Write)

Dim yazdirma As System.IO.StreamWriter = New System.IO.StreamWriter(fs)
Dim s As String = TextBox5.Text
MsgBox("Şifre Değiştirme işlemi Tamamlanmıştır..", MsgBoxStyle.Information, "Şifre")

yazdirma.Write(s)
yazdirma.Close()
fs.Close()
Else
MsgBox("Eski Şifre uyuşmuyor. Litfen YEniden Deneyiniz..", MsgBoxStyle.Critical, "Hata")

End If
TextBox4.Text = ""
TextBox5.Text = ""

End Sub


Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Close()

End Sub
End Class
​

Program Ektedir.
Bu Arada VirusTotal Analiz

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

 

[cixcocuk97]

ResimLer Ölmüş Kilit.