imageloop API - Demo Code VB.NET

Module IlVbNETDemo

    Sub Main()

        Console.WriteLine("imageloop VB.NET Demo")

        Dim il As imagelooop.Imagelooop

        il = New imagelooop.Imagelooop()

        il.SoapUrl = "http://www.imageloop.com/services/imagelooop-apiSOAP"
        il.HttpUrl = "http://www.imageloop.com/httprpc/"
        il.ApiKey = New Guid("f56ae40f-ac13-11fb-a692-001422f4b642")
        il.AccessToken = "demo1234"
        Console.WriteLine("imageloop .NET library version: " + imagelooop.Imagelooop.Version)

        Console.WriteLine("HTTP session id: " + il.GetSessionId())
        il.Login("demouser", "demopassword")
        Console.WriteLine("User name: " + il.GetCurrentUserName())
        Console.WriteLine("Available renditions: ")
        Dim avRend As List(Of String)
        avRend = il.GetAvailableRenditions()
        For Each rend As String In avRend
            Console.WriteLine("    " + rend)
        Next

        For Each looop As imagelooop.ImagelooopLooop In il.GetMyLooops()
            Console.WriteLine("my looop: " & looop.GetId().ToString)
            Console.WriteLine("    name: " & looop.GetName())
            Console.WriteLine("    descriptive name: " & looop.GetDescriptiveName())
            Console.WriteLine("    permalink: " & looop.GetPermalink().ToString)
            For Each img As imagelooop.ImagelooopImage In looop.GetImages()
                Console.WriteLine("    image: " & img.GetId().ToString)
                Console.WriteLine("        name: " & img.GetName())
                Console.WriteLine("        description: " & img.GetDescription())
            Next
        Next
    End Sub

End Module