Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

Search the Community

Showing results for tags 'comando de login'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Anunciantes
    • silvaBR Cheats
  • Anúncios/Eventos
    • Regras
    • Anúncios
    • Eventos do fórum
  • Feedback & Suporte
    • Tutoriais WC
    • Suporte
    • Denúncias e Reclamações
    • Sugestões
    • Depósito
  • WebCheats Premium
    • Trackers & Warez
    • Download
    • Cracking
    • Serviços Pagos - Pedidos
    • MarketPlace
    • Conteúdo Adulto
    • Taverna WebCheats Premium
  • Shooter Zone
    • Point Blank
    • Combat Arms
    • Cross Fire
    • Counter Strike
    • Battle Royale
    • Outros Shooters em Geral
    • Shooter Zone - Lixão
  • RPG/MOBA Zone
  • Outros Games Zone
  • Design Zone
  • Info Zone
  • Video Games Zone
  • Entretenimento & Diversão

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Discord

Found 1 result

  1. Estou fazendo um loader pro meu amigo, e quero logar atraves do fórum(consegui fazer isso e ta pegando direito) mas quando coloco o Me.hide e depois Form2.show a form 2 abre mas fecha imediatamente, ai ta o codigo se alguem souber arrumar me fala como pls: Public Class Form1 Private Codigo_Font As String Private MySite As String = "http://loginteste.forumeiros.com/login" Public Sub Login() Using Web As New Net.WebClient Dim T As New Specialized.NameValueCollection T.Add("username", TextBox1.Text) T.Add("password", TextBox2.Text) T.Add("autologin", "off") T.Add("redirect", "") T.Add("query", "") T.Add("login", "Conectar-se") Dim Web_Bytes As Byte() = Web.UploadValues(MySite, "POST", T) Dim Web_HTML As String = (New System.Text.UTF8Encoding).GetString(Web_Bytes) Codigo_Font = Web_HTML End Using If Codigo_Font.Contains("Você especificou um nome de Usuário ou Senha inválida, incorreta ou inativa") Then MsgBox("Usuário ou Senha incorreto", MsgBoxStyle.Exclamation) Else MsgBox("Logado com sucesso", MsgBoxStyle.Information) Me.Hide() Form2.Show() End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Control.CheckForIllegalCrossThreadCalls = False End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = Nothing Then Me.Text = "Informe um usuário" Exit Sub End If If TextBox2.Text = Nothing Then Me.Text = "Informe uma senha" Exit Sub End If Dim T As New Threading.Thread(AddressOf Login) T.Start() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class