iT邦幫忙

0

[VB6] 用JSON傳送資料給webAPI

請教各位先進,小弟公司的合作廠商提供了WebAPI供資料上傳
下面是小弟的程式碼
現在的狀況是送出需求後,無任何回應
因為是第一次接觸JSON,還請各位指正內容哪裡有誤,謝謝

Private sub connectPK()
Dim strXml As String
Dim token As String, strServer As String
Dim varA As String
Dim varB As String
Dim varC As String

Dim yyy As New MSXML2.XMLHTTP60

'日期參數
token = "xxx_2019-09-09"

'api網址
strServer = "https://test123.goodwill.com/services/d-rec"

'內容參數
varA = "A099"
varB = "testA011"
varC = "testA011A"

Dim sInputJson As String

'JSON內容
sInputJson = "{ ""token"": """ & token & """ , ""requests"": [{ ""codeA"": """ & varA & """, ""codeB"": """ & varB & """, ""codeC"": """ & varC & """}] }"

'用POST方式
yyy.Open "POST", strServer , False
yyy.setRequestHeader "Content-type", "application/json; charset=utf-8"

On Error Resume Next

yyy.send sInputJson

While yyy.ReadyState <> 4

    MsgBox "連結失敗"

Wend

    strResponse = yyy.responseText

    yyy.abort
    
On Error GoTo 0

End sub

dragonH iT邦超人 5 級 ‧ 2019-09-10 19:32:21 檢舉
我是沒寫過 VB6

不過這種 http request

至少都會有 status code 吧
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
海綿寶寶
iT邦大神 1 級 ‧ 2019-09-10 21:51:50

參考看看2015年的範例

我猜
關隘可能在那個 DoEvents

我要發表回答

立即登入回答