LOGIN AUTOM?TICO EM SITES

CHIPWHITE 19/02/2016 19:39:09
#457944
Olá pessoal, estou criando um programa, mas estou com duvida em uma parte.

Vou explicar como eu queria que funcionava
Assim, tem a form, e nela teria um [Ô]ComboBox[Ô] e teria [Ô]Conta 01[Ô] [Ô]Conta 02[Ô] pra selecionar, após o usuário selecionar a conta, automaticamente abriria o navegador padrão do usuário com a conta já logada.

Mas isso já ta pronto, eu criei e acredito que é funcional, mas ta com erro e não sei aonde, sou novato.
Não sei se pode passar o projeto aqui pra voces darem uma olhada, se poder eu passo ai voces tenta solucionar o erro !

KURTGU 19/02/2016 20:09:15
#457945
Posta o codigo, ou debuga ele para ver aonde esta ocorrendo o erro...Aqui uma pesquisa rapida para te ajudar...

https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=visual%20studio%20para%20novatos
CHIPWHITE 19/02/2016 20:22:46
#457946
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Me.ComboBox1.Text = [Ô]CONTAS[Ô]) Then
System.Windows.Forms.MessageBox.Show([Ô]Primeiro escolha uma conta.[Ô])
ElseIf (Me.ComboBox1.SelectedIndex.ToString() = [Ô]-1[Ô]) Then
System.Windows.Forms.MessageBox.Show([Ô]Primeiro escolha uma conta.[Ô])
ElseIf (System.Windows.Forms.HtmlElement.op_Inequality(Me.WebBrowser1.Document.GetElementById([Ô]email[Ô]), Nothing)) Then
Dim str1 As String = Me.Contas((Integer.Parse(Me.ComboBox1.SelectedIndex.ToString()) * 2))
Dim str2 As String = Me.Contas(((Integer.Parse(Me.ComboBox1.SelectedIndex.ToString()) * 2) + 1))
Me.WebBrowser1.Document.GetElementById([Ô]email[Ô]).SetAttribute([Ô]value[Ô], str1)
Me.WebBrowser1.Document.GetElementById([Ô]password[Ô]).SetAttribute([Ô]value[Ô], str2)
Me.WebBrowser1.Document.GetElementById([Ô]RememberMe[Ô]).InvokeMember([Ô]Click[Ô])
Me.WebBrowser1.Document.GetElementById([Ô]login-form-contBtn[Ô]).InvokeMember([Ô]Click[Ô])
Me.ComboBox1.Enabled = False
Me.Button1.Enabled = False
Me.Label1.Text = [Ô]Iniciando...[Ô]

End If
End Sub
KURTGU 19/02/2016 21:33:33
#457949
Citação:

:
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Me.ComboBox1.Text = [Ô]CONTAS[Ô]) Then
System.Windows.Forms.MessageBox.Show([Ô]Primeiro escolha uma conta.[Ô])
ElseIf (Me.ComboBox1.SelectedIndex.ToString() = [Ô]-1[Ô]) Then
System.Windows.Forms.MessageBox.Show([Ô]Primeiro escolha uma conta.[Ô])
ElseIf (System.Windows.Forms.HtmlElement.op_Inequality(Me.WebBrowser1.Document.GetElementById([Ô]email[Ô]), Nothing)) Then
Dim str1 As String = Me.Contas((Integer.Parse(Me.ComboBox1.SelectedIndex.ToString()) * 2))
Dim str2 As String = Me.Contas(((Integer.Parse(Me.ComboBox1.SelectedIndex.ToString()) * 2) + 1))
Me.WebBrowser1.Document.GetElementById([Ô]email[Ô]).SetAttribute([Ô]value[Ô], str1)
Me.WebBrowser1.Document.GetElementById([Ô]password[Ô]).SetAttribute([Ô]value[Ô], str2)
Me.WebBrowser1.Document.GetElementById([Ô]RememberMe[Ô]).InvokeMember([Ô]Click[Ô])
Me.WebBrowser1.Document.GetElementById([Ô]login-form-contBtn[Ô]).InvokeMember([Ô]Click[Ô])
Me.ComboBox1.Enabled = False
Me.Button1.Enabled = False
Me.Label1.Text = [Ô]Iniciando...[Ô]

End If
End Sub




Debugou seu codigo procurou o erro? Pelo jeito nao

Segue o link de como fazer..
http://www.macoratti.net/vbn_debg.htm
MOUSER 22/02/2016 15:37:12
#458037
Esse é o código do projeto inteiro? O erro está neste botão? Esse botão joga as informações aonde? Para uma classe ou direto para o navegador?
Faça seu login para responder
Voltar