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 |
|
|
|
