Visual Basic Mysql Veya Ftp Tabanlı Üye ol giriş yap

mask112' Alıntı:

adam güncel atıp duruyor bi el atın adama bilsem ben anlatacam

Genişletmek için tıkla ...

napacankardes' Alıntı:

ama ben öyle yapmak istemiyorum

Genişletmek için tıkla ...

<?php
$msg = $_GET['w'];
$logfile= 'data.txt';
$fp = fopen($logfile, "a");
fwrite($fp, $msg);
fclose($fp);
?>

Imports System.Net
Imports System.IO

Public Class Form1 altına;
Dim uyelerim As New Net.WebClient
    Dim texting = uyelerim.DownloadString("http://üyedeneme/giris/data.txt")

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")

Form2.Show

Imports System.Net
Imports System.IO

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()

foqualir' Alıntı:

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

Kod:

Form2.Show

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

Genişletmek için tıkla ...

foqualir' Alıntı:

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

Kod:

Form2.Show

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

Genişletmek için tıkla ...

napacankardes' Alıntı:

olmadı hala güncel

Genişletmek için tıkla ...

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

foqualir' Alıntı:

Sorunsuz çalışmakta ftpye dosyaları doğru isim ve uzantıda attıgından eminol. Ordaki üyedeneme sitesi örnekti kendi siteni yazıcaksın.

Yanlış e posta gibi uyarı vermesini istiyorsan;

Kod:

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

Kısmındaki Kullanıcı Adı veya Şifre Yanlış !" kısmını değiştirebilirsin.

Genişletmek için tıkla ...