PREENCHER CAMPOS EM PAGINA DA INTERNET
Boa tarde
tenho esta pagina na internet
http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx
como eu faço para preencher os campos do meu sistema sem saber o nome do campo da pagina.
Obrigado
tenho esta pagina na internet
http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx
como eu faço para preencher os campos do meu sistema sem saber o nome do campo da pagina.
Obrigado
Citação:tenho esta pagina na internet
http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx
Esta página é sua?
Citação:como eu faço para preencher os campos do meu sistema sem saber o nome do campo da pagina.
Dê um exemplo do que deseja fazer para que fique mais [Ô]claro[Ô].
de um form do meu sistema vou abrir a pagina conforme o link abaixo
http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx
Nesta pagina tem os campos(embora eu só saiba o label dos campos, o nome do campo eu não sei se são os mesmos)
Email
Senha
Arquivo
Quero preencher estes campos da pagina com dados do meu form em vb6
Obrigado
http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx
Nesta pagina tem os campos(embora eu só saiba o label dos campos, o nome do campo eu não sei se são os mesmos)
Senha
Arquivo
Quero preencher estes campos da pagina com dados do meu form em vb6
Obrigado
uma dica antiga que tenho aqui (nunca testei...) ve se serve...
Set obj = GetObject([Ô][Ô], [Ô]InternetExplorer.Application.1[Ô])
obj.Navigate [Ô]seu site aqui[Ô]
Do While obj.Busy
DoEvents
Loop
Set doc = obj.Document
Set formulario = doc.Forms(0)
Set caixa1 = formulario(0)
caixa1.Value = [Ô]08411731802[Ô]
formulario.Submit
obj.Visible = True
Set obj = GetObject([Ô][Ô], [Ô]InternetExplorer.Application.1[Ô])
obj.Navigate [Ô]seu site aqui[Ô]
Do While obj.Busy
DoEvents
Loop
Set doc = obj.Document
Set formulario = doc.Forms(0)
Set caixa1 = formulario(0)
caixa1.Value = [Ô]08411731802[Ô]
formulario.Submit
obj.Visible = True
Preencher os campos E-MAIL e SENHA
Botão para acessar a URL no BROWSER
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.GetElementById([Ô]edemail[Ô]).InnerText = Text1.Text
WebBrowser1.Document.GetElementById([Ô]edsenha[Ô]).InnerText = Text2.Text
End Sub
Botão para acessar a URL no BROWSER
Private Sub Command1_Click()
WebBrowser1.Navigate [Ô]http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc_consulta/upload.aspx[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas