imports System
Module App
Sub Main()
dim token as String = "IHR-ACCESS-TOKEN"
dim konto as String = "0306693125"
dim blz as String = "30020900"
Console.WriteLine("Webservice Test")
Console.WriteLine()
Try
dim ws as KontoCheckService = new KontoCheckService()
dim name as String = ws.bankname(token, blz)
Console.WriteLine("BLZ " + blz + " ist " + name)
dim ok as Integer = ws.check(token, konto, blz)
Console.WriteLine("Konto " + konto + " bei BLZ " + blz + " ist {0}", ok)
konto = "101813000"
blz = "20050000"
ok = ws.check(token, konto, blz)
Console.WriteLine("Konto " + konto + " bei BLZ " + blz + " ist {0}", ok)
Catch ex as Exception
Console.WriteLine("SOAP Error: " + ex.Message)
End Try
End Sub
End Module
|
