Visual Basic 6.0 Stripe: List all Events

Back to Index

List events, going back up to 30 days.

Documentation: https://stripe.com/docs/api/curl#list_events

CURL Command

curl https://api.stripe.com/v1/events?limit=3 \
   -u STRIPE_SECRET_KEY: \
   -G

Visual Basic 6.0 Example

Dim rest As New ChilkatRest
Dim success As Long

'  URL: https://api.stripe.com/v1/events?limit=3
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("api.stripe.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.SetAuthBasic("STRIPE_SECRET_KEY","")

Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("GET","/v1/events?limit=3",sbResponseBody)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.LoadSb(sbResponseBody)

Dim object As String
Dim url As String
Dim has_more As Long
Dim i As Long
Dim count_i As Long
Dim id As String
Dim api_version As Long
Dim created As Long
Dim dataObjectId As String
Dim dataObjectObject As String
Dim dataObjectAmount As Long
Dim dataObjectCreated As Long
Dim dataObjectCurrency As String
Dim dataObjectInterval As String
Dim dataObjectInterval_count As Long
Dim dataObjectLivemode As Long
Dim dataObjectName As String
Dim dataObjectStatement_descriptor As Long
Dim dataObjectTrial_period_days As Long
Dim livemode As Long
Dim pending_webhooks As Long
Dim requestId As Long
Dim requestIdempotency_key As Long
Dim type As String

object = jsonResponse.StringOf("object")
url = jsonResponse.StringOf("url")
has_more = jsonResponse.BoolOf("has_more")
i = 0
count_i = jsonResponse.SizeOfArray("data")
Do While i < count_i
    jsonResponse.I = i
    id = jsonResponse.StringOf("data[i].id")
    object = jsonResponse.StringOf("data[i].object")
    api_version = jsonResponse.IsNullOf("data[i].api_version")
    created = jsonResponse.IntOf("data[i].created")
    dataObjectId = jsonResponse.StringOf("data[i].data.object.id")
    dataObjectObject = jsonResponse.StringOf("data[i].data.object.object")
    dataObjectAmount = jsonResponse.IntOf("data[i].data.object.amount")
    dataObjectCreated = jsonResponse.IntOf("data[i].data.object.created")
    dataObjectCurrency = jsonResponse.StringOf("data[i].data.object.currency")
    dataObjectInterval = jsonResponse.StringOf("data[i].data.object.interval")
    dataObjectInterval_count = jsonResponse.IntOf("data[i].data.object.interval_count")
    dataObjectLivemode = jsonResponse.BoolOf("data[i].data.object.livemode")
    dataObjectName = jsonResponse.StringOf("data[i].data.object.name")
    dataObjectStatement_descriptor = jsonResponse.IsNullOf("data[i].data.object.statement_descriptor")
    dataObjectTrial_period_days = jsonResponse.IsNullOf("data[i].data.object.trial_period_days")
    livemode = jsonResponse.BoolOf("data[i].livemode")
    pending_webhooks = jsonResponse.IntOf("data[i].pending_webhooks")
    requestId = jsonResponse.IsNullOf("data[i].request.id")
    requestIdempotency_key = jsonResponse.IsNullOf("data[i].request.idempotency_key")
    type = jsonResponse.StringOf("data[i].type")
    i = i + 1
Loop

Sample JSON Response Body

{
  "object": "list",
  "url": "/v1/events",
  "has_more": false,
  "data": [
    {
      "id": "evt_1BnETJGswQrCoh0XAl7jSmFB",
      "object": "event",
      "api_version": null,
      "created": 1516662781,
      "data": {
        "object": {
          "id": "gold",
          "object": "plan",
          "amount": 2000,
          "created": 1516662781,
          "currency": "usd",
          "interval": "month",
          "interval_count": 1,
          "livemode": false,
          "metadata": {},
          "name": "T-shirt",
          "statement_descriptor": null,
          "trial_period_days": null
        }
      },
      "livemode": false,
      "pending_webhooks": 0,
      "request": {
        "id": null,
        "idempotency_key": null
      },
      "type": "plan.created"
    }
  ]
}