Dim a As VivaWalletEFTPOS
a.Initialize
a.usedemo=False 'True if demo
Dim livepossource As Int = 0000' Where 0000 is your physical shop as written at vivawallet.com when sign in..
Wait For (a.GetAccessToken("youruserapikey.apps.vivapayments.com","yourapipassword)) Complete (Success1 As Boolean) 'then get API username/password from your profile...
If Success1=True Then 'This mean you got Token... :-)
Wait For (a.SearchLivePOSatSource(livepossource)) Complete (listofterminals As List)
If listofterminals.Size>0 Then
Log(a.terminal_id) 'get the last one terminal from list - this is a test although
Wait For (a.RequestSalesPayment("no_of_invoice-try08",a.terminal_id,"YOURCASHIERSERIAL001",30,978,"test...","test...","false",0,0)) complete (success As Boolean)
'30 is the amount of 0.30 eur
'978 is for EUR Currency.... 840=usd, 124=cad, 036=aud (ISO 4217)
If success=True Then
'That means payment is at your wallet ... now !