Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[Tutorial] WebLogin , como criar um Login de Web VB

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[Tutorial] WebLogin , como criar um Login de Web VB

Mensagem por MrViSiBLe em 7/20/2010, 21:45

Olha pessoa!
Eu dinovo ...........

Outro simples tutorial em Visual Basic 2008


1-Vomos trabalhar!!!



1-button
2- textboxes ou 1 button e 3 textboxes
1- Progressbar
1-checkbox



Código:

Imports System.Net
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim myWebReq As HttpWebRequest
Dim myWebResp As HttpWebResponse
Dim encoding As New System.Text.ASCIIEncoding()
Dim data() As Byte
Dim postData As String = "Username=" & TextBox1.Text & "Password=" & TextBox2.Text & "op=Login"
System.Text.Encoding.ASCII.GetBytes(postData)
Dim sr As StreamReader
data = encoding.GetBytes(postData)
myWebReq = WebRequest.Create(TextBox3.Text)
ProgressBar1.Value = 15
myWebReq.Method = "POST"
ProgressBar1.Value = 18
myWebReq.ContentType = "application/x-www-form-urlencoded"
ProgressBar1.Value = 33
ProgressBar1.Value = 40
myWebReq.ContentLength = data.Length
Dim myStream As Stream = myWebReq.GetRequestStream()
ProgressBar1.Value = 42
myStream.Write(data, 0, data.Length)
myWebResp = myWebReq.GetResponse
sr = New StreamReader(myWebResp.GetResponseStream)
ProgressBar1.Value = 66
ProgressBar1.Value = 100
If ProgressBar1.Value = 100 Then
Label5.Text = Label5.Text + 1
End If
myStream.Close()
Catch ex As Exception
MsgBox("Error : Try Again Later!" & vbNewLine & "Check Your Username Or Password! & vbNewLine & Check The CheckBox Nuub.")
End Try
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If Me.CheckBox1.Checked Then
TextBox3.Text = "http://www.hackforums.net/member.php"
Else
TextBox3.Text = ""
End If
End Sub
End Class


    Data/hora atual: 9/23/2017, 01:31