Jump to content

Uma nova Web Cheats está a caminho!

A WebCheats é a maior e melhor comunidade de cheats do Brasil. Temos mais de 14 anos de existência, isso graças aos membros que nos apoiaram e ajudaram ao longo da nossa história!
Veja mais...

Reporte bugs e nos ajude a melhorar!

Nos ajude a descobrir bugs! Além de melhorar a comunidade.
Reporte aqui!
Notícia
  • Tema White WC 2019 0.0.1
  • Apresentamos o novo tema padrão do WebCheats!
Real Fair Play

Ajuda com comando de login com credenciais de fórum

Recommended Posts

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


  ᴵ ᶠᵉᵉᶫ ˢᵒᵐᵉᵗʰᶦᶰᵍ ˢᵒ ʳᶦᵍʰᵗ ᵇʸ ᵈᵒᶦᶰᵍ ᵗʰᵉ ʷʳᵒᶰᵍ ᵗʰᶦᶰᵍ⋅

   ᴵ ᶠᵉᵉᶫ ˢᵒᵐᵉᵗʰᶦᶰᵍ ˢᵒ ʷʳᵒᶰᵍ ᵇʸ ᵈᵒᶦᶰᵍ ᵗʰᵉ ʳᶦᵍʰᵗ ᵗʰᶦᶰᵍ⋅

    ᴱᵛᵉʳʸᵗʰᶦᶰᵍ ᵗʰᵃᵗ ᵈʳᵒʷᶰˢ ᵐᵉ ᵐᵃᵏᵉˢ ᵐᵉ ʷᵃᶰᶰᵃ ᶠᶫʸ⋅

     ᴱᵛᵉʳʸᵗʰᶦᶰᵍ ᵗʰᵃᵗ ᵏᶦᶫᶫˢ ᵐᵉ ᵐᵃᵏᵉˢ ᵐᵉ ᶠᵉᵉᶫ ᵃᶫᶦᵛᵉ⋅ 

Share this post


Link to post
Share on other sites

Share this post


Link to post
Share on other sites

Olá, voltei, eu peguei sua source code e fiz algumas modificações que podem está ajudando você a fazer o login com a WC, já está funcionando uns 90% por assim dizer, é só você procurar as credenciais que estão faltando ou tirar as que não fazem nada que eu mesmo coloquei, para olhar é só ir em http://www.webcheats.com.br/login/login e inspecionar o elemento no FORM do login e pegar as credenciais, link da minha source abaixo.

 

Único problema: Quando você colocar seu Nome e Senha, corretos, ele vai redirecionar você para a home da WC, é só procurar mais algumas coisas para arrumar este erro.

 

Imagem do programa:

 

I9PISHdAQAOUcinWVXiylA.png

 

 


BUMBLE BEE

Share this post


Link to post
Share on other sites

Eu estava com um projeto de Loader com esse mesmo sistema de login, só que eu tava com dificuldades aí desisti, assim que os Cheats voltarem posso usar essa sorce-code ou entrar em ctt contigo mano ? @MarshallScript


"Nunca se afronte para uma pessoa. Pois ela pode ter uma faca e acertar seu peito."

Membro Membro Avançado [E]EstagiárioGame Zone Ex-Staffer Game Zone

Share this post


Link to post
Share on other sites

[quote name='blender_nx']Eu estava com um projeto de Loader com esse mesmo sistema de login, só que eu tava com dificuldades aí desisti, assim que os Cheats voltarem posso usar essa sorce-code ou entrar em ctt contigo mano ? @MarshallScript[/QUOTE] Pode sim, é livre. OBS: deixando os créditos é sem problemas, se precisar de ajuda é só chamar.

  • Like 1

BUMBLE BEE

Share this post


Link to post
Share on other sites

Cara eu editei um pouco os codigos e são esses :

Public Class Form1

 

Private MySite As String = "http://www.webcheats.com.br/login/login"

Public Sub Login(ByVal User As String, ByVal Pass As String)

Using Web As New Net.WebClient

Dim T As New Specialized.NameValueCollection

T.Add("login", User)

T.Add("password", Pass)

T.Add("register", "0")

T.Add("remember", "1")

T.Add("cookie_check", "0")

T.Add("_xfToken", "")

T.Add("redirect", "http://www.webcheats.com.br/")

Dim Web_Bytes As Byte() = Web.UploadValues(MySite, "POST", T)

Dim HTML As String = (New System.Text.UTF8Encoding).GetString(Web_Bytes)

' RichTextBox1.Text = HTML

If HTML.Contains("<title>Erro | WebCheats - Dicas e Cheats para seus Jogos</title>") Then

MsgBox("erro ao logar")

Else

MsgBox("Logado")

Form2.Show()

Me.Close()

End If

End Using

End Sub

 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

Control.CheckForIllegalCrossThreadCalls = False

End Sub

 

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

If TextBox1.Text = Nothing Then

MsgBox("Informe um usuário")

Exit Sub

End If

If TextBox2.Text = Nothing Then

MsgBox("Informe uma senha")

Exit Sub

End If

Login(TextBox1.Text, TextBox2.Text)

End Sub

'<title>Erro | WebCheats - Dicas e Cheats para seus Jogos</title> - Titulo de erro ao digitar usuario errado

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

' Label5.Text = WebBrowser1.DocumentTitle 'Verificar o titulo da pagina ao errar usuário

End Sub

End Class

 

O erro da form estar fechando :

Deixe igual esta na print :

5mWgSyn.png

 

Projeto ja editado:


kp6mVWB.gif

Share this post


Link to post
Share on other sites
ARUTO_' date=' post: 9629888, member: 4716347"']

Cara eu editei um pouco os codigos e são esses :

 

 

O erro da form estar fechando :

Deixe igual esta na print :

5mWgSyn.png

 

Projeto ja editado:

 

Ficou ótimo amigo


BUMBLE BEE

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...