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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Comunicação Internet
ADRIANO2605
CAMPO GRANDE
MS - BRASIL
ENUNCIADA !
Postada em 13/12/2011 15:17 hs            
Olá Pessoal seguinte achei um código na internet para abrir uma pagina web no programa em VB 6.0.
Segue o código.

Option Explicit
Public StrConfirme As String

'Aqui é o objeto que vai interpretar um navegador

Private WithEvents m_WebControl As VBControlExtender


Private Sub Form_Load()
        'Instância o objeto. O terceiro campo, é o nome do controle que vai
        'receber o objeto. Pode ser Form, PictureBox, etc.
        Set m_WebControl = Me.Controls.Add("Shell.Explorer.2", "webctl", Me)
        'Ajusta o tamanho do controle para o tamanho total do form
        Form_Resize
        'Deixa visível
        m_WebControl.Visible = True
        'Abre a página

        m_WebControl.object.Navigate2 StrConfirme

        
End Sub

Private Sub Form_Resize()
        On Error Resume Next
        If Not m_WebControl Is Nothing Then
                m_WebControl.Move 0, 0, ScaleWidth, ScaleHeight
        End If
End Sub

Ok Até aqui tudo bem, o programa efetua o processo normalmente, lembrando q strconfirme é uma string que eu utilizo para enviar o comando do site. o comando me retorna a pagina que eu quero dentro do form, como se fosse uma imagem no form.
O que acontece é que eu quero pegar este texto. e não consigo.
Existe alguma forma deu conseguir fazer isto, desta forma ou de outra?
Resumindo o que eu preciso é abrir um link dentro do programa "Este ja esta ok" porem preciso trabalhar com o resultado do link. "este é o problema"

Desde já agradeço a atenção de todos.
   
ADRIANO2605
CAMPO GRANDE
MS - BRASIL
ENUNCIADA !
Postada em 16/12/2011 10:55 hs            
Pessoal consegui meu amigo google me ajudou caso alguem tenha interesse eu posso passar o codigo q encontrei.
Até mais.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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