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