Arkadaşlar, VB.NET dili ile bir FTP CHAT programı üzerinde çalışıyorum. İstediğim şey şudur ki, programa üye olunacak ve sadece bir adet üyelik hakkımız bulunacak. My.Settings kullanmayı denedim fakat program FTP servere bağlı olduğu için birçok hata çıktı. En son denediğim program kullanıcıadı.txt ve sifre.txt adında iki adet klasör oluşturuyor ve üyelikleri buraya kaydediyor. Fakat bu seferde giriş yaparken sıkıntı oluyor. İsterseniz kodları şu şekilde paylaşayım. Üyelik ve giriş sistemini nasıl yapabilirim yorumlarınızı bekliyorum.
Kod:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox2.Text.Length = 2 Or TextBox3.Text.Length = 2 Then
Label5.ForeColor = Color.Red
Label7.ForeColor = Color.Red
Label8.ForeColor = Color.Red
MsgBox("Şifreniz en az 3 karakter içermektedir.", MsgBoxStyle.Critical, "Hata!")
ElseIf TextBox3.Text <> TextBox2.Text Then
Label8.ForeColor = Color.Red
Label7.ForeColor = Color.Red
MsgBox("Lütfen şifrenizi kontrol ediniz!", MsgBoxStyle.Critical, "Hata!")
Else
Dim soru As MsgBoxResult
soru = MsgBox("Üyeliğinizi tamamlamak istiyormusunuz?", MsgBoxStyle.YesNo, "İstermisin?")
Try
If soru = MsgBoxResult.Yes Then
'Klasör oluşturma
Dim fs As FileStream = New FileStream("kullanıcıadı.txt", FileMode.CreateNew)
fs.Close()
Dim fs2 As FileStream = New FileStream("sifre.txt", FileMode.CreateNew)
fs2.Close()
'Klasör yazma
Dim file As String
file = "kullanıcıadı.txt"
Dim fs3 As FileStream = New FileStream(file, FileMode.Append)
Dim w As StreamWriter = New StreamWriter(fs3)
w.WriteLine(Label9.Text)
w.Close()
fs3.Close()
Dim file2 As String
file2 = "sifre.txt"
Dim fs4 As FileStream = New FileStream(file2, FileMode.Append)
Dim w2 As StreamWriter = New StreamWriter(fs4)
w2.WriteLine(Label10.Text)
w2.Close()
fs4.Close()
'Klasör okuma
Dim file3 As String
Dim tmp As String
file3 = "kullanıcıadı.txt"
Dim fs5 As FileStream = New FileStream(file3, FileMode.Open)
Dim r As StreamReader = New StreamReader(fs5)
Label9.Text = ""
Do
tmp = r.ReadLine
Label9.Text = Label9.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs5.Close()
Dim file4 As String
Dim tmp2 As String
file4 = "sifre.txt"
Dim fs6 As FileStream = New FileStream(file4, FileMode.Open)
Dim r2 As StreamReader = New StreamReader(fs6)
Label10.Text = ""
Do
tmp2 = r2.ReadLine
Label10.Text = Label10.Text & tmp2 & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp2 Is Nothing
r2.Close()
fs6.Close()
MsgBox("Üyeliğiniz başarıyla tamamlanmıştır.", MsgBoxStyle.Information, "Başarılı!")
GroupBox1.Enabled = False
Else
If soru = MsgBoxResult.No Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
MsgBox("Programa devam etmek için lütfen üye olup giriş yapınız!", MsgBoxStyle.Critical, "Üye Olun!")
End If
End If
Catch ex As Exception
MsgBox("Zaten üyeliğiniz bulunmakta lütfen giriş yapınız!", MsgBoxStyle.Critical, "Lütfen giriş yapın!")
GroupBox2.Enabled = False
End Try
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
kullanıcıadı.Text = TextBox4.Text
kullanıcısifre.Text = TextBox5.Text
If TextBox4.Text = kullanıcıadı.Text And TextBox5.Text = kullanıcısifre.Text Then
MsgBox("Başarıyla giriş yaptınız. Önden buyurun " & TextBox4.Text & " efendim!", MsgBoxStyle.Information, "Başarılı!")
Form2.Show()
Me.Hide()
ElseIf TextBox4.Text = adminadı.Text And TextBox5.Text = adminsifre.Text Then
MsgBox("Başarıyla giriş yaptınız. Önden buyurun " & adminadı.Text & " efendim!", MsgBoxStyle.Information, "Başarılı!")
Form2.Show()
Else
MsgBox("Kullanıcı adınız veya şifreniz uyuşmamaktadır. Lütfen tekrar deneyiniz.", MsgBoxStyle.Critical, "Hata!")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim file3 As String
Dim tmp As String
file3 = "kullanıcıadı.txt"
Dim fs5 As FileStream = New FileStream(file3, FileMode.Open)
Dim r As StreamReader = New StreamReader(fs5)
kullanıcıadı.Text = ""
Do
tmp = r.ReadLine
kullanıcıadı.Text = kullanıcıadı.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs5.Close()
Dim file4 As String
Dim tmp2 As String
file4 = "sifre.txt"
Dim fs6 As FileStream = New FileStream(file4, FileMode.Open)
Dim r2 As StreamReader = New StreamReader(fs6)
kullanıcısifre.Text = ""
Do
tmp2 = r2.ReadLine
kullanıcısifre.Text = kullanıcısifre.Text & tmp2 & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp2 Is Nothing
r2.Close()
fs6.Close()
Catch ex As Exception
End Try
End Sub
