VB6 / Shopify / Disable a discount
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.SetRequestHeader "Content","<>"
Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequest("POST","httpsDefaultParameterValue:DefaultParameterValue@DefaultParameterValue.myshopify.com/admin/discounts/2951196163/disable.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
-H "Content: <>"
httpsDefaultParameterValue:DefaultParameterValue@DefaultParameterValue.myshopify.com/admin/discounts/2951196163/disable.json
Postman Collection Item JSON
{
"name": "Disable a discount",
"request": {
"method": "POST",
"header": [
{
"key": "Content",
"value": "<>"
}
],
"url": {
"raw": "{{baseUrl}}/admin/discounts/2951196163/disable.json",
"host": [
"{{baseUrl}}"
],
"path": [
"admin",
"discounts",
"2951196163",
"disable.json"
]
},
"description": "Disable a discount."
},
"response": [
]
}