確認用に作成
On Error GoTo end_rtn
Dim objSC As Object
Dim objHP As Object
Dim strNLC As String
Dim strURL As String
objSC = CreateObject("ScriptControl")
objSC.Language = "JScript"
objSC.AddCode("function jsonParse(s) { return eval('(' + s + ')'); }")
strNLC = "https://gateway.watsonplatform.net/natural-language-classifier/api/v1"
strURL = strNLC & "/classifiers/" & "classify-id" & "/classify"
objHP = CreateObject("MSXML2.XMLHTTP")
objHP.Open("POST", strURL, False, "user", "password")
Call objHP.setRequestHeader("Content-Type", "application/json; charset=utf-8")
objHP.send("{""text"":""" & Me.txtIn.Text & """}}")
Me.txtOut.Text = "Status=" & objHP.Status & vbCrLf & objHP.ResponseText
objSC = Nothing
objHP = Nothing
Exit Sub
end_rtn:
MessageBox.Show(Err.Number & vbCrLf & Err.Description, "エラーです!")