[Resolvido] VB6 + Json

[jonhwell 0]

Boa tarde,

Gostaria de saber se alguem ja enviou uma requisicao json por vb6, se sim.. como fazer?

[KhaosDoctor 242]

Vai ter que ser mais específico, o que você quer fazer? O que você está usando?

[jonhwell 0]

Bom tentando ser o mais especifico possivel.

<?php
$url = "http://xxx/webapi/api/";
$data = array(
"service"        => "Automation",
"phone"          => "5399999999",
"ruleid"         => "0000",
"clientid"       => "00000",
"eventid"        => "00000",
"token"          => "xxxxxxxxxxxxxxxxxxxxxx",
"returnurl"      => "http://xxx/hura/le.php"
);

$postdata = json_encode($data);

$opts = array('http' =>
        array(
            'method'  => 'POST',
            'header'  => 'Content-type: application/x-www-form-urlencoded',
            //'header'  => 'Content-type: application/json',
            'content' => $postdata
     )
);

$context = stream_context_create($opts);
$result = file_get_contents($url, false, $context);
echo $result;
?>

Preciso fazer isso que fiz em PHP, em VB6.

[KhaosDoctor 242]

Existem algumas bibliotecas JSON para vb6: http://stackoverflow.com/questions/2782076/is-there-a-json-parser-for-vb6-vba

 

A chamada do contents é um pouco mais complexa, poderia ser via cURL http://curl.haxx.se/libcurl/vb/ ou uma biblioteca separara http://stackoverflow.com/questions/4082101/how-to-send-post-to-remote-url

[jonhwell 0]

Certo ja conhecia a do curl e do json, eh realmente ta complexo, mas estou tentando. Mesmo assim obrigado

[jonhwell 0]

Consegui cara, muito obrigado. Em resumo

 

Set myMSXML = CreateObject("Microsoft.XmlHttp")
myMSXML.open "POST", "http://....", False
myMSXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myMSXML.setRequestHeader "User-Agent", "Firefox 3.6.4"
myMSXML.send "param1=value2&param2=value2"
MsgBox myMSXML.responseText

 

Tem que usar msxml 6.0 continuei usando o meu php, entao apenas fiz um POST nele.