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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Abrir Email
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 16/11/2007 10:04 hs            
Tem um tempo atras que postei essa duvida e me deram algumas resposta que nao consegui resolver, eu volto com essa duvida pra tentar achar uma solução...como abrir um email dentro de um web site ? como preencher os campos de um web site , com o usuario e senha....???muito obrigado a todos que postarem
TÓPICO EDITADO
   
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
Postada em 16/11/2007 12:18 hs         
Utilize o Controle do Webbrowser (Microsoft Internet Controls)

Primeiramente,
Como deseja fazer isto ?

Será que é de acordo com o exemplo abaixo ?

Entrar no www.gmail.com
Se por acaso não tiver logado ele preencha automáticamente os campos de Usuário e Senha e assim entre automáticamente no e-mail.

é isto ?

Se for eu te passo o código de como fazer.

Abraço.

______________________________
Resolveu ? Tópico Trancado!

TÓPICO EDITADO
   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/11/2007 16:33 hs            
é isso mesmo irmao, se puder ajudar agradeço
   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 16/11/2007 16:34 hs            
isso mesmo irmao tem como me ajudar a fazer isso
     
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
Postada em 16/11/2007 18:20 hs         
'Adicione o Controle Microsoft Internet Controls e 2 TextBoxes (Txtusuario e Txtsenha)

Insira o Código Abaixo:

' GENERAL DECLARATION
Dim LOGADO As Boolean

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.gmail.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("Email").Value = Txtusuario.Text
        WebBrowser1.Document.All.Item("Passwd").Value = Txtsenha.Text
        WebBrowser1.Document.All.Item("signIn").Click
        LOGADO = True
        Else
        End If
Exit Sub
erros:
LOGADO = False
End Sub

______________________________
Resolveu ? Tópico Trancado!

     
korn
não registrado
Postada em 17/11/2007 08:38 hs   
ele nao preencheu irmao os campos no site
     
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