View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
NickHK NickHK is offline
external usenet poster
 
Posts: 4,391
Default Capture request/response HTTP headers with VBA

Depending on what you want to retrieve, amend this:

'Need a referenece to "Microsoft WinHTTP Services"
Private Sub CommandButton1_Click()
Dim HTTPobj As WinHttp.WinHttpRequest

Const WHICHURL As String = "http://www.Google.co.uk"

Set HTTPobj = New WinHttp.WinHttpRequest

With HTTPobj
.Open "GET", WHICHURL
.Send
MsgBox .ResponseText
End With

End Sub

NickHK

"p3plyr" wrote in message
...
hi

was wondering if anyone knows how to do this. there is some code in VB5

that
supposedly gets this information, but it wont work with VBA


http://www.planet-source-code.com/vb...p%2FC117001102

all i need is the code that logs the GET information.

thanks