VBS 抵用web接口

Dim objHTTP,xmlDOC,strWebserviceURL,strRequest,bOK,xmlStr
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
'Set xmlDOC =CreateObject("MSXML.DOMDocument")'解析XML
strWebserviceURL = "http://192.168.1.101:80/test/UpLoad"
'設置參數及其值
strRequest = "UpLoadDB=111"
objHTTP.Open "POST", strWebserviceURL, False
'設置這個Content-Type很重要
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send(strRequest)
'看看狀態值
MsgBox objHTTP.Status
Msgbox objHTTP.StatusText
MsgBox objHTTP.responseText