Imports System.Net
Imports System.IO
Imports System.Text
Imports Newtonsoft.Json

Public Class cWiseBankApi
    '    {
    '        "id": 21853903,
    '        "publicId": "f0a7f4dd-dab2-4486-8c19-7828d305362b",
    '        "userId": 29518224,
    '        "type": "BUSINESS",
    '        "address": {
    '            "id": 43822076,
    '            "addressFirstLine": "Office Suite 3:1 1 Cannon Street",
    '            "city": "Dover",
    '            "countryIso2Code": "GB",
    '            "countryIso3Code": "gbr",
    '            "postCode": "CT16 1BY",
    '            "stateCode": null
    '        },
    '        "email": "al@verag-unisped.uk",
    '        "createdAt": "2021-07-12T15:29:50",
    '        "updatedAt": "2021-07-12T15:29:50",
    '        "version": 4,
    '        "obfuscated": false,
    '        "avatar": "https://tw-avatar.s3.eu-central-1.amazonaws.com/d51ac74d-c619-45da-8fc1-283ac43431a5",
    '        "currentState": "VISIBLE",
    '        "contactDetails": {
    '            "email": "al@verag-unisped.uk",
    '            "phoneNumber": "+436644178557"
    '        },
    '        "businessName": "Verag-unisped Ltd",
    '        "registrationNumber": "13107151",
    '        "descriptionOfBusiness": "TRANSPORT",
    '        "companyType": "LIMITED",
    '        "firstLevelCategory": "TRAVEL_TRANSPORT_TOUR_AGENCIES",
    '        "secondLevelCategory": "TRANSPORT",
    '        "operationalAddresses": [
    '            {
    '                "id": 43822077,
    '                "addressFirstLine": "Office Suite 3:1 1 Cannon Street",
    '                "city": "Dover",
    '                "countryIso2Code": "GB",
    '                "countryIso3Code": "gbr",
    '                "postCode": "CT16 1BY",
    '                "stateCode": null
    '            }
    '        ],
    '        "dataObfuscated": false,
    '        "fullName": "Verag-unisped Ltd",
    '        "partner": false,
    '        "contractingWithWise": true,
    '        "partnerCustomer": false
    '    },
    '    {
    '        "id": 21853958,
    '        "publicId": "3e16db56-1ed0-48d6-9a6d-5dacfe9035be",
    '        "userId": 29518224,
    '        "type": "PERSONAL",
    '        "address": {
    '            "id": 43822145,
    '            "addressFirstLine": "Hackenbuch 27",
    '            "city": "Sankt Marienkirchen bei Schaerding",
    '            "countryIso2Code": "AT",
    '            "countryIso3Code": "aut",
    '            "postCode": "4774",
    '            "stateCode": null
    '        },
    '        "email": "al@verag-unisped.uk",
    '        "createdAt": "2021-07-12T15:32:28",
    '        "updatedAt": "2021-07-12T15:34:33",
    '        "version": 1,
    '        "obfuscated": false,
    '        "currentState": "HIDDEN",
    '        "contactDetails": {
    '            "email": "al@verag-unisped.uk",
    '            "phoneNumber": "+436644178557"
    '        },
    '        "firstName": "Andreas",
    '        "lastName": "LUXBAUER",
    '        "dateOfBirth": "1990-07-22",
    '        "phoneNumber": "+436644178557",
    '        "secondaryAddresses": [],
    '        "partner": false,
    '        "dataObfuscated": false,
    '        "fullName": "Andreas LUXBAUER",
    '        "contractingWithWise": true,
    '        "partnerCustomer": false
    '    }
    ']



    Private ReadOnly apiToken As String '245a89e8-b8e3-4ceb-8326-ad7cd4d19eda
    Private ReadOnly profileId As String '
    Private ReadOnly balanceId As String
    'AVISO
    Public Sub New(token As String, profile As String, balance As String)
        apiToken = token
        profileId = profile
        balanceId = balance
    End Sub

    ''' <summary>
    ''' Ruft die Kontoumsätze der letzten 7 Tage ab.
    ''' </summary>
    Public Function example() As String
        Dim client As New cWiseBankApi(
            "DEIN_API_TOKEN",
            "DEINE_PROFILE_ID",
            "DEINE_BALANCE_ID"
        )

        Dim json As String = client.GetLast7DaysStatement()

        Console.WriteLine(json)
    End Function
    Public Function GetLast7DaysStatement() As String
        Dim fromDate As String = DateTime.UtcNow.AddDays(-7).ToString("yyyy-MM-dd")
        Dim toDate As String = DateTime.UtcNow.ToString("yyyy-MM-dd")

        Dim url As String =
            $"https://api.wise.com/v4/profiles/{profileId}/balance-statements/{balanceId}/statement.json?intervalStart={fromDate}&intervalEnd={toDate}"

        Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        request.Method = "GET"
        request.Headers.Add("Authorization", "Bearer " & apiToken)

        Try
            Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                Using reader As New StreamReader(response.GetResponseStream())
                    Return reader.ReadToEnd()
                End Using
            End Using
        Catch ex As WebException
            Using sr As New StreamReader(ex.Response.GetResponseStream())
                Dim errorText = sr.ReadToEnd()
                Throw New Exception("Wise API Fehler: " & errorText)
            End Using
        End Try
    End Function

End Class