Dosya ve Klasör Saklama Programı Yapımı / VB6
Merhaba arkadaşlar yine basit kodlarla eğlenceli bir program yapacağız.
Öncelikle programın mantığı şudur; şifreli bir giriş ekranı vardır.
System32'de yada daha da derinde bir klasör oluşturur. Program aracılığıyla klasöre erişim yapılır. Dosya saklanabilir, ortak kullanım bilgisayarları için idealdir.
İhtiyaçlarımız;
2 adet Form.
1. Forma bir TextBox ve bir CommandButton yerleştirip, kodu yapıştırıyoruz.
bu form giriş ekranı olacak oradaki "123" şifremizdir.Oraya kendinize uygun bir şifre yazabilirsiniz.
2. Forma bir adet WebBrowser ekleyip, kodu yapıştırıyoruz. WebBrowser nasıl eklenir diyebilicek arkadaşlar için; Ctrl + T kombinasyonu ile Componets ekranını açalım. Oradan "Microsoft İnternet Controls" seçeneğini işaretleyip tamam diyelim. Sol taraftaki nesnelerimizin yanına WebBrowser simgesi gelecektir.
Burdaki yeşil kısımlar ise dosylararımızın saklanacağı yolu belirtiyor. Burayı değiştirebilir, daha da derinlere gömebilirsiz.
Kolay gelsin.
Kesinlikle alıntı değildir.
Merhaba arkadaşlar yine basit kodlarla eğlenceli bir program yapacağız.
Öncelikle programın mantığı şudur; şifreli bir giriş ekranı vardır.
System32'de yada daha da derinde bir klasör oluşturur. Program aracılığıyla klasöre erişim yapılır. Dosya saklanabilir, ortak kullanım bilgisayarları için idealdir.
İhtiyaçlarımız;
2 adet Form.
1. Forma bir TextBox ve bir CommandButton yerleştirip, kodu yapıştırıyoruz.
Kod:
Private Sub Command1_Click()
If Text1.Text = "[COLOR="Lime"]123[/COLOR]" Then
Form1.Hide
Form2.Show
Else
MsgBox "Yanlış Şifre.", vbCritical, "Dikkat !"
End If
End Subbu form giriş ekranı olacak oradaki "123" şifremizdir.Oraya kendinize uygun bir şifre yazabilirsiniz.
2. Forma bir adet WebBrowser ekleyip, kodu yapıştırıyoruz. WebBrowser nasıl eklenir diyebilicek arkadaşlar için; Ctrl + T kombinasyonu ile Componets ekranını açalım. Oradan "Microsoft İnternet Controls" seçeneğini işaretleyip tamam diyelim. Sol taraftaki nesnelerimizin yanına WebBrowser simgesi gelecektir.
Kod:
Private Sub Form_Load()
On Error Resume Next
MkDir "[COLOR="Lime"]c:\windows\system32\xXx[/COLOR]"
WebBrowser1.Navigate "[COLOR="Lime"]c:\windows\system32\xXx[/COLOR]"
WebBrowser1.Height = Screen.Height
WebBrowser1.Width = Screen.Width
End SubBurdaki yeşil kısımlar ise dosylararımızın saklanacağı yolu belirtiyor. Burayı değiştirebilir, daha da derinlere gömebilirsiz.
Kolay gelsin.
Kesinlikle alıntı değildir.
Son düzenleme:
