Creates a new bank account object.
curl https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources \
-u STRIPE_SECRET_KEY: \
-d source=btok_1BnETKGswQrCoh0X43GQEzjM \
-X POST
Dim rest As New Chilkat.Rest
Dim success As Boolean
' URL: https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect("api.stripe.com",port,bTls,bAutoReconnect)
If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
Exit Sub
End If
rest.SetAuthBasic("STRIPE_SECRET_KEY","")
rest.AddQueryParam("source","btok_1BnETKGswQrCoh0X43GQEzjM")
Dim strResponseBody As String = rest.FullRequestFormUrlEncoded("POST","/v1/customers/cus_CBbg3iRMzWBjoe/sources")
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
Exit Sub
End If
Dim jsonResponse As New Chilkat.JsonObject
jsonResponse.Load(strResponseBody)
Dim id As String
Dim object As String
Dim account As String
Dim account_holder_name As String
Dim account_holder_type As String
Dim bank_name As String
Dim country As String
Dim currency As String
Dim default_for_currency As Boolean
Dim fingerprint As String
Dim last4 As String
Dim routing_number As String
Dim status As String
Dim customer As String
id = jsonResponse.StringOf("id")
object = jsonResponse.StringOf("object")
account = jsonResponse.StringOf("account")
account_holder_name = jsonResponse.StringOf("account_holder_name")
account_holder_type = jsonResponse.StringOf("account_holder_type")
bank_name = jsonResponse.StringOf("bank_name")
country = jsonResponse.StringOf("country")
currency = jsonResponse.StringOf("currency")
default_for_currency = jsonResponse.BoolOf("default_for_currency")
fingerprint = jsonResponse.StringOf("fingerprint")
last4 = jsonResponse.StringOf("last4")
routing_number = jsonResponse.StringOf("routing_number")
status = jsonResponse.StringOf("status")
customer = jsonResponse.StringOf("customer")
{
"id": "ba_1BnETKGswQrCoh0XzgjB3t99",
"object": "bank_account",
"account": "acct_18qpKxGswQrCoh0X",
"account_holder_name": "Jane Austen",
"account_holder_type": "individual",
"bank_name": "STRIPE TEST BANK",
"country": "US",
"currency": "usd",
"default_for_currency": false,
"fingerprint": "L2j4aSuWk1MZMDZ5",
"last4": "6789",
"metadata": {},
"routing_number": "110000000",
"status": "new",
"customer": "cus_CBbg3iRMzWBjoe"
}