[Sample] JappyLib

[Snees]

Hallo, ich habe mir eben mal die Jappy-Lib angesehen und nun folgt hier von mir ein kleines Sample wie man sich einloggen kann, seine Profildaten abrufen kann und einen Gästebucheintrag machen kann.

Imports JappyLibV1u2

Module Module1

    Private client As New JappyLibV1u2.Jappy
    Private AnzahlNachrichten As Integer = 0

    Sub Main()

        Console.Title = "Jappy Bot Sample by Tr0pe7 @ http://u-hacks.net"

        Login("USERNAME", "PASSWORD")

        Console.ReadKey()

    End Sub

    Private Sub Login(ByVal username As String, ByVal password As String)

        If client.Login(username, password) Then

            CWrite("[+] Erfolgreich als " & username & " eingeloggt." & vbNewLine, ConsoleColor.Yellow)

            GoOn()

        Else

            CWrite("[-] Login als " & username & " fehlgeschlagen." & vbNewLine, ConsoleColor.Red)

        End If

    End Sub

    Private Sub GoOn()

        client.LoadGeneralInfo()

        CWrite(" --> Credits: " & client.MyNick.MyCredits, ConsoleColor.Yellow)

        CWrite(" --> Rang: " & client.MyNick.MyRank, ConsoleColor.Yellow)

        CWrite(" --> Fans: " & client.MyNick.MyFans, ConsoleColor.Yellow)

        CWrite(" --> Gäastebucheinträge: " & client.MyNick.MyGbEntries, ConsoleColor.Yellow)

        Dim Freunde As String() = client.MyNick.MyFriends

        Dim Anzahl_Freunde As Integer = 0

        For Each Freund In Freunde

            Anzahl_Freunde += 1

        Next

        CWrite(" --> Freunde: " & Anzahl_Freunde, ConsoleColor.Yellow)

        Dim Freunde_Online As String() = client.MyNick.MyFriendsOnline

        Dim Anzahl_Freunde_Online As Integer = 0

        For Each Freund In Freunde

            Anzahl_Freunde_Online += 1

        Next

        CWrite(" --> Freunde Online: " & Anzahl_Freunde_Online, ConsoleColor.Yellow)

        CWrite(" --> ErsteBenutzerID: " & client.MyNick.MyFirstUserId, ConsoleColor.Yellow)

        CWrite(" --> Besucher: " & client.MyNick.MyVisiter, ConsoleColor.Yellow)

        CWrite(" --> Wohnort: " & client.MyNick.MyLocation, ConsoleColor.Yellow)

        CWrite(" --> Onlinestatus: " & client.MyNick.MyOnlineState, ConsoleColor.Yellow)

        'GB-Eintrag machen an Nick Snees mit dem Text Hallo

        'client.Funcs.WriteGbEntry("Snees", "Hallo")

    End Sub

    Private Sub CWrite(ByVal text As String, ByVal color As ConsoleColor)

        Console.ForegroundColor = color

        Console.WriteLine(text)

        Console.ForegroundColor = ConsoleColor.White

    End Sub

End Module