Module Program
    Sub Main()
        Dim baseUrl As String = "https://saoauth.com/api/client/auth"
        Dim appName As String = "Kirigaya"
        Dim ownerId As String = "706f2d48f9eb0762"
        Dim appSecret As String = "27b79d48a7df496de8aff0c56f7624ddf29e9fff66fac08efb578e919a74e42f"
        Dim appVersion As String = "1.0"

        Console.WriteLine("SaoAuth VB.NET example ready.")
        Console.WriteLine("URL: " & baseUrl)
        Console.WriteLine("App: " & appName & " v" & appVersion)
        Console.WriteLine("Owner: " & ownerId)
        Console.WriteLine("Secret: " & appSecret)
    End Sub
End Module