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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


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

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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



    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/2/2016, 15:10