Merhaba arkadaşlar.
Bende bir uyelik giriş sistemi var.Uyeleri ftp den data.txt uzerinden veri cektirterek giriş yaptırtıyorum fakat şoyle bir sorun var kullanıcı adını yazıyoruz.Şifrenin ilk hanesini yazsamda giriş yapıyor hepsini tam yazsamda giriş yapıyor.Nerde sorun var cozemiyorum.
Tum Kodlar

Form1 :

PHP Code:
Imports System.Net
Imports System.IO
Public Class Form1
Dim wc As New Net.WebClient
Dim texting = wc.DownloadString("http://mp3calar.hol.es/data.txt")

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed


End Sub

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing


End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ipp As New Net.WebClient
Label3.Text = ipp.DownloadString("http://mp3calar.hol.es/ipgiris.php")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing Or TextBox2.Text = Nothing Or TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
MsgBox("Kullanıcı Adı ve Şifreyi Girmediniz.", MsgBoxStyle.Exclamation, "Hata")
ElseIf texting.contains(TextBox1.Text & ":" & TextBox2.Text) Then
form3.Show()
Me.Hide()


ElseIf Not texting.contains(TextBox1.Text & ":" & TextBox2.Text) Then
MsgBox("Kullanıcı Adı veya Şifre Yanlış !", MsgBoxStyle.Critical, "Giriş Başarısız")
End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form2.Show()

End Sub
End Class


Form2:

PHP Code:
Imports System.Net
Imports System.Net.Mail
Public Class Form2

Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed


End Sub

Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing


End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ipp As New Net.WebClient
Label4.Text = ipp.DownloadString("http://mp3calar.hol.es/ipgiris.php")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim site As New Net.WebClient
Dim yazi = site.DownloadString("http://mp3calar.hol.es/data.txt")
Dim request As WebRequest = WebRequest.Create("http://mp3calar.hol.es/post.php?w=" & TextBox1.Text & ":" & TextBox2.Text & "[" & Label4.Text & "]")
request.GetResponse()
MsgBox("Başarılı Bir Şekilde Hesabını Oluşturdun,Şimdi Program Yeniden Başlatılacak", MsgBoxStyle.Information, "Bilgi")
Process.Start(Application.ExecutablePath)
Me.Close()
Form1.Close()
End Sub
End Class


Form3:

PHP Code:
Public Class Form3

Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
Form1.Show()
Form1.Close()

End Sub


Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class



Acıkcası bakarak yaptım pek fazla bir bilgim yok.
Kaynağım :

KAYNAK ADRESİ

BUDA FTP BİLGİLERİNİ KULLANDIĞIM SİTE.

Nerede hata var bir turlu bulamadım.

Saygılarımla...

NOT:Uyelikler /data.txt dosyasında mevcuttur.

__________________