USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Abrir Email Part II
KoRn
Pontos: 2843
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
 
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
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
Pontos: 2843
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
'********************************

'Email terra
'endereço = http://mail.terra.com.br/
'usuario = email
'senha = _passwd
'Botao Ok = login
'***==============-------------
'email Uol
'endereço = www.uol.com.br
'usuario = usuario
'Senha = senha

'*************
'Email bol
'Endereço = www.bol.com.br
'usuario = user
'Senha = pass
 
 
 
 
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
 
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
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
   
Korn
não registrado
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
     
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página