Chilkat Online Tools

VB6 / Marketplacer SELLER API / Schema Introspection

Back to Collection Items

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp
Dim success As Long

http.BasicAuth = 1
http.Login = "{{username}}"
http.Password = "{{password}}"

' Use this online tool to generate code from sample JSON: Generate Code to Create JSON

' The following JSON is sent in the request body.

' {
'   "query": "query IntrospectionQuery {\n      __schema {\n        \n        queryType { name }\n        mutationType { name }\n        subscriptionType { name }\n        types {\n          ...FullType\n        }\n        directives {\n          name\n          description\n          \n          locations\n          args {\n            ...InputValue\n          }\n        }\n      }\n    }\n\n    fragment FullType on __Type {\n      kind\n      name\n      description\n      fields(includeDeprecated: true) {\n        name\n        description\n        args {\n          ...InputValue\n        }\n        type {\n          ...TypeRef\n        }\n        isDeprecated\n        deprecationReason\n      }\n      inputFields {\n        ...InputValue\n      }\n      interfaces {\n        ...TypeRef\n      }\n      enumValues(includeDeprecated: true) {\n        name\n        description\n        isDeprecated\n        deprecationReason\n      }\n      possibleTypes {\n        ...TypeRef\n      }\n    }\n\n    fragment InputValue on __InputValue {\n      name\n      description\n      type { ...TypeRef }\n      defaultValue\n    }\n\n    fragment TypeRef on __Type {\n      kind\n      name\n      ofType {\n        kind\n        name\n        ofType {\n          kind\n          name\n          ofType {\n            kind\n            name\n            ofType {\n              kind\n              name\n              ofType {\n                kind\n                name\n                ofType {\n                  kind\n                  name\n                  ofType {\n                    kind\n                    name\n                  }\n                }\n              }\n            }\n          }\n        }\n      }\n    }",
'   "variables": ""
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("query","query IntrospectionQuery {" & vbLf & "      __schema {" & vbLf & "        " & vbLf & "        queryType { name }" & vbLf & "        mutationType { name }" & vbLf & "        subscriptionType { name }" & vbLf & "        types {" & vbLf & "          ...FullType" & vbLf & "        }" & vbLf & "        directives {" & vbLf & "          name" & vbLf & "          description" & vbLf & "          " & vbLf & "          locations" & vbLf & "          args {" & vbLf & "            ...InputValue" & vbLf & "          }" & vbLf & "        }" & vbLf & "      }" & vbLf & "    }" & vbLf & vbLf & "    fragment FullType on __Type {" & vbLf & "      kind" & vbLf & "      name" & vbLf & "      description" & vbLf & "      fields(includeDeprecated: true) {" & vbLf & "        name" & vbLf & "        description" & vbLf & "        args {" & vbLf & "          ...InputValue" & vbLf & "        }" & vbLf & "        type {" & vbLf & "          ...TypeRef" & vbLf & "        }" & vbLf & "        isDeprecated" & vbLf & "        deprecationReason" & vbLf & "      }" & vbLf & "      inputFields {" & vbLf & "        ...InputValue" & vbLf & "      }" & vbLf & "      interfaces {" & vbLf & "        ...TypeRef" & vbLf & "      }" & vbLf & "      enumValues(includeDeprecated: true) {" & vbLf & "        name" & vbLf & "        description" & vbLf & "        isDeprecated" & vbLf & "        deprecationReason" & vbLf & "      }" & vbLf & "      possibleTypes {" & vbLf & "        ...TypeRef" & vbLf & "      }" & vbLf & "    }" & vbLf & vbLf & "    fragment InputValue on __InputValue {" & vbLf & "      name" & vbLf & "      description" & vbLf & "      type { ...TypeRef }" & vbLf & "      defaultValue" & vbLf & "    }" & vbLf & vbLf & "    fragment TypeRef on __Type {" & vbLf & "      kind" & vbLf & "      name" & vbLf & "      ofType {" & vbLf & "        kind" & vbLf & "        name" & vbLf & "        ofType {" & vbLf & "          kind" & vbLf & "          name" & vbLf & "          ofType {" & vbLf & "            kind" & vbLf & "            name" & vbLf & "            ofType {" & vbLf & "              kind" & vbLf & "              name" & vbLf & "              ofType {" & vbLf & "                kind" & vbLf & "                name" & vbLf & "                ofType {" & vbLf & "                  kind" & vbLf & "                  name" & vbLf & "                  ofType {" & vbLf & "                    kind" & vbLf & "                    name" & vbLf & "                  }" & vbLf & "                }" & vbLf & "              }" & vbLf & "            }" & vbLf & "          }" & vbLf & "        }" & vbLf & "      }" & vbLf & "    }")
success = json.UpdateString("variables","")

http.SetRequestHeader "Content-Type","application/json"
http.SetRequestHeader "MARKETPLACER-API-KEY","{{api_key}}"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://bestfriendbazaar.com/graphql","application/json",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X POST
	-u '{{username}}:{{password}}'
	-H "MARKETPLACER-API-KEY: {{api_key}}"
	-H "Content-Type: application/json"
	--data-raw '{"query":"query IntrospectionQuery {\n      __schema {\n        \n        queryType { name }\n        mutationType { name }\n        subscriptionType { name }\n        types {\n          ...FullType\n        }\n        directives {\n          name\n          description\n          \n          locations\n          args {\n            ...InputValue\n          }\n        }\n      }\n    }\n\n    fragment FullType on __Type {\n      kind\n      name\n      description\n      fields(includeDeprecated: true) {\n        name\n        description\n        args {\n          ...InputValue\n        }\n        type {\n          ...TypeRef\n        }\n        isDeprecated\n        deprecationReason\n      }\n      inputFields {\n        ...InputValue\n      }\n      interfaces {\n        ...TypeRef\n      }\n      enumValues(includeDeprecated: true) {\n        name\n        description\n        isDeprecated\n        deprecationReason\n      }\n      possibleTypes {\n        ...TypeRef\n      }\n    }\n\n    fragment InputValue on __InputValue {\n      name\n      description\n      type { ...TypeRef }\n      defaultValue\n    }\n\n    fragment TypeRef on __Type {\n      kind\n      name\n      ofType {\n        kind\n        name\n        ofType {\n          kind\n          name\n          ofType {\n            kind\n            name\n            ofType {\n              kind\n              name\n              ofType {\n                kind\n                name\n                ofType {\n                  kind\n                  name\n                  ofType {\n                    kind\n                    name\n                  }\n                }\n              }\n            }\n          }\n        }\n      }\n    }","variables":""}'
https://bestfriendbazaar.com/graphql

Postman Collection Item JSON

{
  "name": "Schema Introspection",
  "request": {
    "method": "POST",
    "header": [
      {
        "key": "MARKETPLACER-API-KEY",
        "value": "{{api_key}}",
        "type": "text"
      },
      {
        "key": "Content-Type",
        "value": "application/json",
        "type": "text"
      }
    ],
    "body": {
      "mode": "graphql",
      "graphql": {
        "query": "query IntrospectionQuery {\n      __schema {\n        \n        queryType { name }\n        mutationType { name }\n        subscriptionType { name }\n        types {\n          ...FullType\n        }\n        directives {\n          name\n          description\n          \n          locations\n          args {\n            ...InputValue\n          }\n        }\n      }\n    }\n\n    fragment FullType on __Type {\n      kind\n      name\n      description\n      fields(includeDeprecated: true) {\n        name\n        description\n        args {\n          ...InputValue\n        }\n        type {\n          ...TypeRef\n        }\n        isDeprecated\n        deprecationReason\n      }\n      inputFields {\n        ...InputValue\n      }\n      interfaces {\n        ...TypeRef\n      }\n      enumValues(includeDeprecated: true) {\n        name\n        description\n        isDeprecated\n        deprecationReason\n      }\n      possibleTypes {\n        ...TypeRef\n      }\n    }\n\n    fragment InputValue on __InputValue {\n      name\n      description\n      type { ...TypeRef }\n      defaultValue\n    }\n\n    fragment TypeRef on __Type {\n      kind\n      name\n      ofType {\n        kind\n        name\n        ofType {\n          kind\n          name\n          ofType {\n            kind\n            name\n            ofType {\n              kind\n              name\n              ofType {\n                kind\n                name\n                ofType {\n                  kind\n                  name\n                  ofType {\n                    kind\n                    name\n                  }\n                }\n              }\n            }\n          }\n        }\n      }\n    }",
        "variables": ""
      }
    },
    "url": {
      "raw": "{{base_url}}",
      "host": [
        "{{base_url}}"
      ],
      "path": null
    },
    "description": null
  },
  "response": [
  ]
}