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

işinize Yarar Sanırım.

Program icin
Not : Net Framework 3 Ve uzeri Olmasi Gerekmektedir.

Program şoyle Calışıyor

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

Bu Klasore 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
Ac dediğimizde Yeniden Acıyo icine ekleme yaparak geri kitliyoruz

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

Uygulamanın Resmi






Program Ektedir.
Bu Arada VirusTotal Analiz
https://www.virustotal.com/file/6f0f...is/1328188078

Download

PHP Code:
http://www.filejungle.com/f/hmKTjS/Klasor 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.StartupPat h + "Dosya")) = True Then
MsgBox("Klasor 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.")
Shell("cmd /c attrib +s +h +R " & """Control Panel.""")

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.", "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 ire.txt") Then
MsgBox("Şifre Daha Once Oluşturulmuştur.. Lutfen Giriş Yapınız")
Button4.Enabled = False
Else
Dim fs As System.IO.FileStream = New System.IO.FileStream("C:windows ire.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 ire.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 ire.txt")

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

Dim fs As System.IO.FileStream = New System.IO.FileStream("C:windows ire.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

https://www.virustotal.com/file/6f0f...is/1328188078


__________________