SHARE
TWEET

Untitled

a guest Jan 12th, 2017 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Function WebRequest(url As String, data As String) As String
  2.     Set myMSXML = CreateObject("Microsoft.XmlHttp")
  3.     myMSXML.Open "POST", url, False
  4.     myMSXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  5.     myMSXML.send (AsciiToUTF8(data))
  6.     WebRequest = myMSXML.ResponseText
  7.     Set http = Nothing
  8. End Function
RAW Paste Data
Top