JSON + VB6

JONHWELL 11/12/2015 11:55:44
#455025
Véi... Realmente não consegui fazer funcionar ele nao reconhecel a variavel Server. como sendo um objeto...
KERPLUNK 11/12/2015 14:08:30
#455026
Então é muito possível que você não tenha a referência instalada e/ou registrada. Tente referenciar mesmo, procure a referência Microsoft XML e caso não a possuir, você vai ter que baixar e instalar.
JONHWELL 14/12/2015 09:40:30
#455107
Cara achei isso aqui:
http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

  Private Sub cmdObjToJSON_Click()

   Dim p As Object
   
   Dim sInputJson As String
   sInputJson = [Ô]{ width: [ô]200[ô], frame: false, height: 130, bodyStyle:[ô]background-color: #ffffcc;[ô],buttonAlign:[ô]right[ô], items: [{ xtype: [ô]form[ô],  url: [ô]/content.asp[ô]},{ xtype: [ô]form2[ô],  url: [ô]/content2.asp[ô]}] }[Ô]
   
   MsgBox [Ô]Input JSON string: [Ô] & sInputJson
   
   [ô] sets p
   Set p = JSON.parse(sInputJson)
   
   MsgBox [Ô]Parsed object output: [Ô] & JSON.toString(p)
   
   MsgBox [Ô]Get Bodystyle data: [Ô] & p.Item([Ô]bodyStyle[Ô])
   
   MsgBox [Ô]Get Form Url data: [Ô] & p.Item([Ô]items[Ô]).Item(1).Item([Ô]url[Ô])
   
   
   p.Item([Ô]items[Ô]).Item(1).Add [Ô]ExtraItem[Ô], [Ô]Extra Data Value[Ô]
   
   MsgBox [Ô]Parsed object output with added item: [Ô] & JSON.toString(p)
   
   
End Sub


Tem esse código no exemplo só não entendi como eu colocaria minha url que tenho que chamar e tal
JONHWELL 15/12/2015 16:55:59
#455199
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¶m2=value2[Ô]
MsgBox myMSXML.responseText

Tem que usar msxml 6.0 continuei usando o meu php, entao apenas fiz um POST nele.
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar