Sistema de login com cadastro via FTP [ Intermediario ]

[ratiquinho 6]

E ai galera hoje irei ensinar a vcs como fazer um sistema de login intermediario ou seja não é Básico não e com cadastro via FTP.

 

O que vamos precisa para o sistema de Login !

1 - Servidor FTP > Um bom exemplo

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

é de graça

2 - Textbox

1 - Webbrowser

1 - Button ( Deixe-o com o Enabled False )

2 - Timer

1 - Linklabel

Defina o Linklabel com o texto Confirmar

3 - Label > Coloque apenas 1 label com o Visible em False

- label1 ' NOMEIE ESTE LABEL COMO "LOGIN :"

- label2 ' NOMEIE ESTE LABEL COMO "SENHA :"

- label3 ' deixe como está porem o Visible como False

 

---

Configurando o FTP :

Crie as seguintes pastas deste modo abaixo :

www/Servidor/CreatUsuarios/

www/Servidor/Senhas/

www/Servidor/Creat/

 

Adicionando uma DLL ou qualquer outro arquivo para down :

Abra o notepad e salve com o nome que você quiser mais a extensão em .DLL;

Coloque esta DLL dentro da pasta do FTP em www/Servidor/Creat/

 

Preferencia use o FileZilla para fazer isto.

 

FTP Configurado !

 

---

Vamos aos códigos e explicação !

 

No seu Linklabel1 coloque o seguinte comando abaixo :

 

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

Try

WebBrowser1.Navigate("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

& TextBox1.Text & ".php")

Timer1.start

Catch

End Try

End Sub

 

---

 

No seu Timer1 coloque o intervalo dele para 3000 e coloque o seguinte codigo abaixo :

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

Timer1.stop

Timer2.start

 

End sub

 

---

 

No seu Timer2 coloque o seguinte codigo abaixo :

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

 

Timer2.stop

Button1.Enabled = True

End sub

 

---

 

No seu Button1 coloque o seguinte código abaixo :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

If Textbox2.text = WebBrowser1.Documenttext

Msgbox("Bem vindo senhor " & Textbox1.text, MsgBoxStyle.Information, "")

Me.hide

Usuario.show

 

Else

Button1.Enabled = False

Msgbox("Senha ou ID Errada favor verificar novamente !",MsgBoxStyle.Critical, "")

 

End If

End Sub

 

---

 

SISTEMA DE LOGAR CONTA FEITO

 

---

 

AGORA VOU AMOSTRAR COMO FAZER O SISTEMA DE CRIAR CONTA !

 

---

 

O que usaremos para fazer :

4 - Textbox - 2 Textbox com o Visible False

1 - Button

2 - Label

10 - Timer

1 - Webbrowser

-> Coloque o nome do Label1 como Login : e o Label2 como Sua Senha :

 

Importe os seguintes códigos :

Imports System.Net

Imports System.IO

WithEvents webclient1 As New WebClient

WithEvents webclient2 As New WebClient

 

---

 

Vamos ao código e explicação :

 

No seu Button1 adicione o seguinte código :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

System.IO.Directory.CreateDirectory("C:\Cliente\CreatAccount\Senha\")

System.IO.Directory.CreateDirectory("C:\Cliente\CreatAccount\Login\")

Webbrowser1.Navigate("") ' Adicione aqui este link mais com o endereço do seu host ! > ("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

& Textbox1.text & ".php")

Timer1.start

End Sub

 

---

 

No seu Timer1 Adicione coloque o intervalo com 5000 e coloque este código abaixo :

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

Timer1.stop

Timer2.start

End sub

 

---

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Timer2.stop

If Not Textbox1.text = WebBrowser1.Documenttext

'Downloading

Download.start

' Etapa 1

Timer3.start

' Etapa 2

Timer4.start

' Etapa 3

Timer5.start

' Etapa 4

Timer6.start

' Etapa 5

Timer7.start

' Etapa 6 Account Criada e Pronto para uso !

Timer8.start

Else

Msgbox("ID já criada, por favor tente criar outra ID com um nome diferente !",MsgBoxStyle.Critical, "")

End if

End Sub

 

---

 

No seu Download coloque o intervalo para 1 e coloque este código :

Private Sub Download_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Download.Tick

 

Download.Stop

Try

webclient1.DownloadFile("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

"C:\Cliente\CreatAccount\Senha\" & TextBox1.Text & ".php")

 

Catch

End Try

 

Try

webclient2.DownloadFile("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

"C:\Cliente\CreatAccount\Login\" & TextBox1.Text & ".php")

 

Catch

End Try

End Sub

 

---

 

No seu Timer3 coloque o intervalo para 200 e coloque este código :

 

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

 

TextBox3.Text = TextBox2.Text

Timer3.Stop()

Dim fluxoTexto As IO.StreamReader

Dim linhaTexto As String

 

If IO.File.Exists("C:\Cliente\CreatAccount\Senha\" & TextBox1.Text & ".php") Then

fluxoTexto = New IO.StreamReader("C:\Cliente\CreatAccount\Senha\" & TextBox1.Text & ".php")

linhaTexto = fluxoTexto.ReadLine

 

While linhaTexto <> Nothing

TextBox3.Text &= linhaTexto & vbCrLf

linhaTexto = fluxoTexto.ReadLine

 

End While

TextBox3.Text = TextBox2.Text

fluxoTexto.Close()

End If

 

End Sub

 

---

 

No seu Timer4 coloque o intervalo para 500 e coloque este código :

 

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

 

Try

Timer4.Stop()

 

Dim objStream As New System.IO.FileStream("C:\Cliente\CreatAccount\Senha\" & TextBox1.Text & ".php", IO.FileMode.OpenOrCreate)

Dim Arq As New System.IO.StreamWriter(objStream)

Arq.Write(TextBox3.Text)

Arq.Close()

Catch

End Try

End Sub

 

---

 

No seu Timer5 coloque o intervalo para 800 e coloque este código :

 

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick

Try

Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://user2469660@www6.subdomain.com/www/Servidor/Senhas/" & TextBox1.Text & ".php"), System.Net.FtpWebRequest)

request.Credentials = New System.Net.NetworkCredential("Usuário do Host", "Senha do Host")

request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

 

Dim file() As Byte = System.IO.File.ReadAllBytes("C:\Cliente\CreatAccount\Senha\" & TextBox1.Text & ".php")

Dim strz As System.IO.Stream = request.GetRequestStream()

strz.Write(file, 0, file.Length)

Timer5.Stop()

strz.Close()

strz.Dispose()

Catch

End Try

End Sub

 

---

 

Explicação pois vocês devem ter confundido tudo agora !

Explicando : ("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

" & TextBox1.Text & ".php")

>

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Bom galera este user2469660 que dizer seu usuário neste host no co.nu você vai ver qual é o seu e vai por la.

> www6.subdomain.com

Bom galera este www6 quer dizer o servidor que você representa que é o servidor 6 isto vocês iram ver melhor ao abrir o Filezilla e clicar com o lado direito do mouse em cima de uma pasta do host e clicar em "Copiar URL de Transferencia para a área de Trabalho.

---

Continuando... tamo quase terminando =D

---

No seu Timer6 coloque o intervalo para 200 e coloque este código :

 

Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick

 

TextBox4.Text = TextBox1.Text

Timer6.Stop()

Dim fluxoTexto As IO.StreamReader

Dim linhaTexto As String

 

If IO.File.Exists("C:\Cliente\CreatAccount\Login\" & TextBox1.Text & ".php") Then

fluxoTexto = New IO.StreamReader("C:\Cliente\CreatAccount\Login\" & TextBox1.Text & ".php")

linhaTexto = fluxoTexto.ReadLine

 

While linhaTexto <> Nothing

TextBox4.Text &= linhaTexto & vbCrLf

linhaTexto = fluxoTexto.ReadLine

 

End While

TextBox4.Text = TextBox1.Text

fluxoTexto.Close()

End If

 

End Sub

 

---

 

No seu Timer7 coloque o intervalo para 500 e coloque este código :

 

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick

 

Try

Timer7.Stop()

 

Dim objStream As New System.IO.FileStream("C:\Cliente\CreatAccount\Login\" & TextBox1.Text & ".php", IO.FileMode.OpenOrCreate)

Dim Arq As New System.IO.StreamWriter(objStream)

Arq.Write(TextBox4.Text)

Arq.Close()

Catch

End Try

End Sub

 

---

 

No seu Timer8 coloque o intervalo para 800 e coloque este código :

 

Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick

Try

Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

/www/Servidor/CreatUsuarios/" & TextBox1.Text & ".php"), System.Net.FtpWebRequest)

request.Credentials = New System.Net.NetworkCredential("user2469660", "Minha Senha")

request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

 

Dim file() As Byte = System.IO.File.ReadAllBytes("C:\Cliente\CreatAccount\Login\" & TextBox1.Text & ".php")

Dim strz As System.IO.Stream = request.GetRequestStream()

strz.Write(file, 0, file.Length)

Timer8.Stop()

strz.Close()

strz.Dispose()

Catch

End Try

End Sub

 

---

 

 

Pronto galera você acaba de criar um Sistema de Login e Cadastro por FTP !

Créditos :

 

Eu ( ratiquinho ) por criar o programa

DownloadsGratix ( Pois quando eu era iniciante ele me ajudou em muitos códigos )

Riqu£ ( Me ajudou bastante e acabei usando códigos dele mais modifiquei xD )

[DownloadsGratix 0]

Muito Bom O TUTORIAL, logo menos vou testar ! Parabéns está melhorando cada vez mais, sempre crescendo isso mesmo! :D

[ratiquinho 6]

Obrigado DownloadsGratix se me ajudo mt quando eu era iniciantes este programa ai n é nada pra mim é um simples login com FTP porem ja que ninguem havia postado isso com FTP eu resolvi postar.

[MAXDIVULGACAO 0]

mano pode nos ensinar como fazer sistema de login com web site sem precizar ter acesso a banco de dados?

tipo eu um membro fazer um sistema de login com a web cheats?

agradeço des de ja amigo :3

[NoSlake 56]

Muito interessante esse tutorial, só que você poderia usar cores menos chamativas nas codes e colocar a TAG - [ PHP] [/ PHP] - pra ficar mais bonito, e retirar os Separadores.

 

@MAXDIVULGAÇÃO, mais fácil que isso, você pode usar um webbrowser para carregar uma página, e ir indo preenchendo os campos com pequenos eventos, Fica mais fácil.

 

Atenciosamente,

Victor.

[dotha 2]

Coloca source para download?

[I~Johnnie 29]

Man ficou muito bom mesmo :D

[mscg 0]

O Que seria o "nome do host.party.lc" em

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

VLW

[ratiquinho 6]

Primeiramente me desculpem por não responde-los pois comecei a trabalhar e fica fods e ainda meu e-mail foi hakiado seguindo em frente.

 

Colocarei o download sim você so vai ter que criar o host e as pastas que eu falei e editar a sourcer quem tiver duvidas vai deixando quando eu puder eu respondo.

 

# Tem um usuário que eu estava ajudando mais nen lembro mais o nick por favor fale aqui quem era.

# MeuHost.party.lc = seria o nome do seu host

# Meu Usuário = usuário do host

# Minha senha = Senha do host

# www7 = corresponde ao numero do seu servidor

 

Informações do seu host olhe no site que você criou

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Download Projeto :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Scan :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Consegui resgatar o meu face é :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Relembrando qualquer tipo de dúvidas so postar aqui.

[zoombook 0]

He o o colocar na DLL criada deixa em branco ??

[ratiquinho 6]

Sim em branco qualquer dúvida :

face :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[UnrealSkill-VIP 5]

Exelente!

[[MR]TreeVah 0]

Mano, Poderia Postar uma VideoAula? Não Estou Entendendo Muito Bem...

[ratiquinho 6]

quando eu tiver mais tempo eu faço a vídeo aula para vocês, pois agora estou sem tempo mesmo.

Em breve um tuto + download do Auto Update do Riqu£ porem sem usar o filehash dele e sim validando a versão e baixando a nova versão para o usuário usando FTP.

Para ser exato Domingo irei postar.