Module ini digunakan untuk memposting data ke layanan website, bisa digunakan sebagai pengganti form pada html, atau digunakan untuk request layanan API. Module ini digunakan pada bahasa Basic.
Public Const sUrl As String = "http://localhost/api/"
Function post(ByVal URL As String, ByVal Parameter As String) As String
On Error Resume Next
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/json"
objHTTP.send (Parameter)
post = objHTTP.responsetext
End Function
