Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub httpclient()
- Dim xmlhttp As New MSXML2.XMLHTTP, myurl As String
- myurl = "http://localhost:1234/call.php?apicall=registration.data&apiDataType=xml"
- xmlhttp.Open "POST", myurl, False
- xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- xmlhttp.Send "apikey=d8a40f77-69b5-4ef7-b554-d8f86382101c&cursor=MQ==&limit=1"
- MsgBox (xmlhttp.responseText)
- End Sub
Add Comment
Please, Sign In to add comment