• 0
Sign in to follow this  
fafadinhu

Página Web

Question

Estou com o seguinte código

Option Explicit

Private Sub Form_Resize()
WebNavegador.Navigate txtURL.Text
Dim hgt As Single

    hgt = ScaleHeight - WebNavegador.Top
    If hgt < 120 Then hgt = 120
    WebNavegador.Move 0, WebNavegador.Top, ScaleWidth, hgt
      End Sub

Private Sub WebNavegador_DownloadComplete()
    WebNavegador.Visible = True
    Me.Caption = WebNavegador.LocationName
End Sub

que abre uma pagina da web no próprio VB.

Não estou conseguindo enviar dados para essa pagina ao clicar em um botão.

por exemplo, usuário e login para logar num site.

Share this post


Link to post
Share on other sites

9 answers to this question

Recommended Posts

  • 0
Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=30195

Abraços,

Graymalkin

Eu li aquele tópico, so que ele cria um objeto, lá ele coloca os dados no internet explorer, aqui eu gostaria de saber como colocar os dados no meu proprio fomulário criado no VB.

Grato.

É do mesmo jeito. A diferença é que você vai utilizar o objeto Document do seu componente WebBrowser ao invés do objeto Document de um objeto InternetExplorer.Application (que no fundo são a mesma coisa).

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Private Sub Command1_Click()
Set DoC = WebNavegador.Document
Set formulario = DoC.Forms(0)
Set caixa1 = formulario(0)
caixa1.Value = "TESTE"
End Sub

OK..

CONSEGUI ENVIAR A PALAVRA "TESTE" NO FORMULÁRIO, NÃO ESTOU CONSEGUINDO ENVIAR O COMANDO PARA O BOTÃO OK (SUBMIT) SABE COMO??

Share this post


Link to post
Share on other sites
  • 0

Acredito que bastaria fazer...

formulario.Submit

... no final do código que você postou, não? wink.gif

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Acredito que bastaria fazer...

formulario.Submit

... no final do código que você postou, não? wink.gif

Graymalkin

cara valeu ai..

mais já tinha testado

sem sucessso..

Share this post


Link to post
Share on other sites
  • 0
Acredito que bastaria fazer...

formulario.Submit

... no final do código que você postou, não? wink.gif

Graymalkin

cara valeu ai..

mais já tinha testado

sem sucessso..

Sem sucesso? Aqui funciona...

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest Guest
Acredito que bastaria fazer...

formulario.Submit

... no final do código que você postou, não? wink.gif

Graymalkin

cara valeu ai..

mais já tinha testado

sem sucessso..

Sem sucesso? Aqui funciona...

Abraços,

Graymalkin

aqui nada..

poderia me mandar seu projeto para que eu possa dar uma olhada?

[email protected]

abraços..

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this