KoRn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/11/2007 17:51 hs
Opa ola amigos , como eu faço pra pegar os nomes dos campos num site pra poder preenchelos ??? atraves do vb ??/ o camarada Marcus me arrumou um projeto de preencher campos de um site, mas nao funciona com alguns sites , como faça pra pegar os nomes do campos no site pra fazer um sistema que possa preencher os campos de qualquer site de emails....obrigado
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 17/11/2007 17:58 hs
Olá amigo Korn,
Vou te explicar por detalhes:
Fazer um Projeto que seja compatível com qualquer site não é 100% possível, O que você pode fazer (se você entende de HTML) é ir em todos os sites de e-mail que os internautas costumam acessar e pegar o nome das INPUTs das Caixas de Texto (Usuário/Senha) e também o nome do INPUT do Botão Submit.
Fazendo isto, você pode criar um FILTRO ao qual se o usuário acessar determinado Website o Sistema possa auto-preencher e logar.
Lembrando que...
Ao pegar o nome das INPUTs dos Campos de Texto e Também do Botão Submit você irá fazer a mesma substituição aqui:
WebBrowser1.Document.All.Item("NOME DO CAMPO DE EMAIL").Value = Txtusuario.Text WebBrowser1.Document.All.Item("NOME DO CAMPO DE SENHA").Value = Txtsenha.Text WebBrowser1.Document.All.Item("NOME DO BOTÃO SUBMIT").Click
Abraço.
|
TÓPICO EDITADO
|
|
|
|
KoRn
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 17/11/2007 18:22 hs
sim , mas é quase impossivel identificar os nomes dos campos em questao....rsss , odo hotmail, desisti , nem achei, vou esperar alguem mais postar pra ver alguma ideia
|
|
|
KoRn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/11/2007 18:02 hs
ae irmao eu consegui esses comandos pra abrir o email , mas hotmail por exemplo e Yahoo nao achei os comandos, se vc souber..,...da uma mao valew .......da uma olhada nesses ae 'Email Gmail 'Endereço = www.gmail.com'usuario = Email 'Senha = Passwd 'botao ok = Sign '******************************** '***==============------------- '*************
a do yahoo tentei pegar as instrucoes desse trecho de codigos , mas nao funcionam th><label for="username">ID Yahoo!:</label></th> <td><input name="login" id="username" value="" size="17" class="yreg_ipt" type="text"></td> <script language="JavaScript" type="text/javascript">if(document.getElementById) document.getElementById('username').focus();</script> </tr> <tr> <th><label for="passwd">Senha:</label></th> <td><input name="passwd" id="passwd" value="" size="17" class="yreg_ipt" type="password"></td> </tr>
|
TÓPICO EDITADO
|
|
|
|
|
Postada em 21/11/2007 00:16 hs
YAHOO MAIL
' GENERAL DECLARATION Dim LOGADO As Boolean Private Sub Form_Load() WebBrowser1.Navigate "http://mail.yahoo.com/" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error GoTo erros If LOGADO = False Then WebBrowser1.Document.All.Item("username").Value = Txtusuario.Text WebBrowser1.Document.All.Item("passwd").Value = Txtsenha.Text WebBrowser1.Document.All.Item(".save").Click LOGADO = True Else End If Exit Sub erros: LOGADO = False End Sub LIVE MAIL
Private Sub Form_Load() WebBrowser1.Navigate "http://mail.live.com/" End Sub Private Sub WebBrowser1_DownloadComplete() On Error GoTo erros If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then WebBrowser1.Document.All.Item("login").Value = Txtusuario.Text WebBrowser1.Document.All.Item("passwd").Value = Txtsenha.Text WebBrowser1.Document.All.Item("SI").Click Else End If Exit Sub erros: End Sub
Faça as adaptações de sua maneira.
______________________________ Resolveu ? Tópico Trancado!
|
TÓPICO EDITADO
|
|
|
|
|
Postada em 21/11/2007 10:59 hs
Esse do Yahoo eu nao tinha conseguido muito bom ... só falta o Hotmail praticamente, os mais conhecidos ....valewwwwwwwwww
|
|
|