Home Macro Programming Module Untuk Post Data ke Layanan Website

Module Untuk Post Data ke Layanan Website

1396

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

LEAVE A REPLY

Please enter your comment!
Please enter your name here