Merhaba istediğiniz sanırım tam olarak şu. FTP tabanlıdır.;
Bir adet yeni metin belgesine şu kodu yapıştırıyoruz;
Kod:
<?php
$msg = $_GET['w'];
$logfile= 'data.txt';
$fp = fopen($logfile, "a");
fwrite($fp, $msg);
fclose($fp);
?>
Daha sonra bu metin belgesini post.php diye kaydediyoruz ve filezilladan hostumuza atıyoruz.
Aynı dizine içi boş bir şekilde data.txt dosyasını atıyoruz. Evet isim aynen data.txt olacak ve içi boş olacak.
Form 1 yani giriş ekranına 2 adet textbox 2 adet buton ekliyoruz.
Formun başına şu kütüphaneleri ekliyoruz;
Kod:
Imports System.Net
Imports System.IO
Kod:
Public Class Form1 altına;
Dim uyelerim As New Net.WebClient
Dim texting = uyelerim.DownloadString("http://üyedeneme/giris/data.txt")
Giriş Yap butonuna;
Kod:
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
Buton 2 yani üye ol kısmına da
yazıyoruz.
Form2 'ye 2 tane textbox ve bir adet buton ekliyoruz.
Ardından şunları en başa ekliyoruz;
Kod:
Imports System.Net
Imports System.IO
Kayıt Ol butonuna ;
Kod:
Dim site As New Net.WebClient
Dim yazi = site.DownloadString("http://üyedeneme/giris/data.txt")
Dim request As WebRequest = WebRequest.Create("http://üyedeneme/giris/post.php?w=" & TextBox1.Text & ":" & TextBox2.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()
Bir teşekkür butonuna gerek yok hayırlı bayramlar dua etsen yeter
