post and get form action

[sal21]

naturally other methods are welcome

Code: Select all

Public Sub Sal21()

Dim myHTMLDoc As New HTMLDocument

With CreateObject("MSXML2.XMLHTTP")

.Open "GET", "https://italia.indettaglio.it/ita/cap/cap_citta.html?regione=campania&regione_estesa=Campania&citta=Napoli", False
.send
myHTMLDoc.body.innerHTML = .responseText

'Debug.Print .responseText

.Open "POST", "https://italia.indettaglio.it/ita/cap/cap_citta_out.html", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "capi_cap=80121"
myHTMLDoc.body.innerHTML = .responseText

Debug.Print .responseText

End With

End Sub

Dont work!

In effect i need to show all value in table result!

for example:

go to
https://italia.indettaglio.it/ita/cap/c ... tta=Napoli

selct from CAP 80121

press ricerca button

appear at table with the filtered parameter

NOTE:
the last Debug.Print .responseText, dont contain the result of table
i'm on vb6

[SpeakEasy]

Looks like you are cross-posting ...

https://www.tek-tips.com/viewthread.cfm?qid=1828052