Como usar GET e POST

[Lucianorw 0]

Boa tarde!!!

Como faço para trabalhar com GET e POST no VBA?

Vejam o exemplo abaixo:

http://www.consultacpf.com/webservices/tes...ento=MEUDOCAQUI

 

Luciano

[Luizgrs 0]

Para fazer requisições de páginas existe o objeto xmlhttprequest.

 

Mas agora eu não lembro qual dll você tem que inserir para usá-lo, to sem VB6 aqui, fico te devendo essa.

[Lucianorw 0]

Para fazer requisições de páginas existe o objeto xmlhttprequest.

 

Mas agora eu não lembro qual dll você tem que inserir para usá-lo, to sem VB6 aqui, fico te devendo essa.

Bom dia Luiz,

Com a ajuda do GD ForumAccess, consegui montar o código abaixo.

'/////////////////
Function busca_serasa_concentre()
Dim vemail As String, vsenha As String, vdoc As String
	vemail = "MEUEMAIL"
	vsenha = "MINHASENHA"
	vdoc = "111.111.111-22"
	
	url = "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx/ConsultaConcentreSERASA?EMail=" & vemail & "&Senha=" & vsenha & "&Documento=" & vdoc & ""
	Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
	xmlhttp.Open "GET", url, False
	xmlhttp.Send ""
	xmlhttp_resultado = xmlhttp.responseText
	Set xmlhttp = Nothing
	Dim v_txt As Variant
	Open "c:\temp\teste.xml" For Output As #1
	With v_txt
		Print #1, xmlhttp_resultado
	End With
	Close #1
	
	Call exclui_tabelas
	Call importa_tabelas
End Function
'///////////////////

Usando o método Get, eu salvo o arquivo xml no meu pc, importo as tabelas e apresento os dados, está correto fazer isso?

 

Grato

Luciano