Dim postProdJob As HttpJob
Dim m As Map
postProdUrl = "http://YOUR_IPADDRESS:8080/jsonrpc"
'Get version
'm.Initialize
'm.Put("jsonrpc", "2.0")
'm.Put("method", "JSONRPC.Version")
'm.Put("id", "1")
'Key down
' m.Initialize
' m.Put("jsonrpc", "2.0")
' m.Put("method", "Input.Down")
' m.Put("id", "1")
m.Initialize
m.Put("id", "0")
m.Put("jsonrpc", "2.0")
m.Put("method", "Input.SendText")
m.Put("params", "text", "YYY"))
'm.Put("params", Array As String("text", "YYY"))
m.Put("done", false)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(m)
postProdJob.Initialize("JOB2", Me)
postProdJob.PostString(postProdUrl, JSONGenerator.ToString())
postProdJob.GetRequest.SetContentType("application/json")
postProdJob.Release