• Tüm Banlar Kaldırılmıştır Sizi Tekrardan Aramızda Görmekten Mutluluk Duyarız
  • Moderatör Başvurularımız Başlamıştır Sizide Aramızda Görmekten Şeref Duyarız
vds sunucu
Bu ve benzeri 20'den fazla sitemizde reklam vermek ve SEO desteği için foxserpco@gmail.com

Ftp üyelik sistemi [vb.net]

12.01.2016 TARİHİNDE KONU GÜNCELLENMİŞTİR ! SORUN YAŞAYAN VARSA MESAJ ATABİLİR,HAYLA BURADA YAŞIYORUM.... :)


GEREKEN MALZEMELER !

FORM1'E


2 ADET TEXTBOX 1 ADET BUTON

FORM2'YE 2 ADET TEXTBOX 1 ADET BUTON !

FİLEZİLLA AYARLARI

hostinger.web.tr'DEN Ücretsiz Host Alın Filezilla'dan Açtığınız Siteye Bağlanın

filezilla'nın içine atacağınız dosya burada TIKLA İNDİR !!12.01.2016 advertisement adına güncellenmiştir.

RAR İÇERİSİNDE GİRİS DOSYASI VE KODLAR MEVCUT GİRİS DOSYASINI DOĞRUDAN İÇİNE ATIN VE FORM1'E ŞU KODLARI YAZIN

____

Kod:
Imports System.Net
Imports System.IO
Public Class Form1
Dim wc As New Net.WebClient
    Dim texting = wc.DownloadString("http://üyeeğitimi/giris/data.txt")

BUTON 1 = GİRİŞ KODU

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

FORM2 KODLARI = KAYIT OLMA

Kod:
Imports System.Net
Imports System.Net.Mail
Public Class Form2

BUTON 1 = KAYIT OL BUTONU

Kod:
Dim site As New Net.WebClient
        Dim yazi = site.DownloadString("http://üyeeğitimi/giris/data.txt")
Dim request As WebRequest = WebRequest.Create("http://üyeeğitimi/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()






NOT : http://üyeeğitimi/giris/post.php VE http://üyeeğitimi/giris/data.txt böyle bir site yok örnek göstermek için yazdım siz kendiniz düzenleyin.

:)
 
Son düzenleme:
üyeleri nasıl ekliyoruz.
hocam inşAllah birden fazla üye ekleyebiliyoz ?
nasıl ekleyecez ?
data txt dosyalarını nasıl kaydedecez
 
Son düzenleme:
Üst