Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function WebRequest(url As String, data As String) As String
- Set myMSXML = CreateObject("Microsoft.XmlHttp")
- myMSXML.Open "POST", url, False
- myMSXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- myMSXML.send (AsciiToUTF8(data))
- WebRequest = myMSXML.ResponseText
- Set http = Nothing
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement