создать объект JSON и передать данные на сервер с помощью VBScipt - PullRequest
2 голосов
/ 26 февраля 2012

Я новичок в разработке этой находки веб-службы, поэтому, пожалуйста, помогите решить мою проблему

Мне нужно создать один файл VBS (VBScript), в котором описано, как создать строку json и что jsonпередача объекта в java restful webservice

ниже приведен код my, но это не форма json, поэтому, пожалуйста, помогите создать форму json объекта

surl="http://localhost:8080/de.vogella.jersey.first/rest/hello/add"
Set objNetwork = CreateObject("Wscript.Network") 
strComputer = objNetwork.ComputerName 
json="name="+strComputer+"&age=24"
'json="name=strComputer&age=24"
HTTPPost sUrl,json
Function HTTPPost(sUrl,json)

'Microsoft.XMLHTTP
set OHTTP = CreateObject("MSXML2.serverXMLHTTP")
OHTTP.open "POST",surl,false
msgbox(surl & json)


OHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
OHTTP.setRequestHeader "Content-Length","Len(json)"
OHTTP.setRequestHeader "Pragma","no-cache"
OHTTP.setRequestHeader "Expires","-1"
OHTTP.setRequestHeader "Connection","close"

OHTTP.send json

'HTTPPOST = oHTTP.responseText
msgbox(OHTTP.responseText)
End Function

Заранее благодарим за ваше ценноевремя, потраченное на мою проблему

1 Ответ

1 голос
/ 28 февраля 2012

Это будет полезно:

http://code.google.com/p/aspjson/

...