Get a Credit Sale
curl --request GET \
--url 'https://pipay.io/piconnect/cloud?method=creditsale&account=1512407959&sn=31415926&cloud=app&amount=21.03&ticketid=R212203&userid=Cristy'
Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest
' URL: https://pipay.io/piconnect/cloud?method=creditsale&account=1512407959&sn=31415926&cloud=app&amount=21.03&ticketid=R212203&userid=Cristy
bTls = True
port = 443
bAutoReconnect = True
success = rest.Connect("pipay.io",port,bTls,bAutoReconnect)
If (success <> True) Then
Debug.Print "ConnectFailReason: "; rest.ConnectFailReason
Debug.Print rest.LastErrorText
Exit Sub
End If
Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = rest.FullRequestNoBodySb("GET","/piconnect/cloud?method=creditsale&account=1512407959&sn=31415926&cloud=app&amount=21.03&ticketid=R212203&userid=Cristy",sbResponseBody)
If (success <> True) Then
Debug.Print rest.LastErrorText
Exit Sub
End If