[VB.net]Api Bot Snippets

Jo ahbe endlich meinen Youtube API Bot fertig und wollte euch jetzt mal ein paar snippets releasen.

Ok los gehts!

Zuerst m�ssen wir die Verweise setzen!
Das m�sste jeder wissen wie das geht!
Wenn nciht dann nicht weiter lesen.
Ich werde hier ncihts erkl�ren ihr m�sst ein wenig mitdenken ;)

Ok weiter gehts.

Als erstes m�ssen wir ein Paar Deklarationen setzen (wir brauchen einen Dev. Key von Google!):

Code:

Private AppName As String = "YouTube Bot - by ProstylerXx"
    Private DevKey As String = "AI39si61Cgp97PzLpaxY0zxRQEd2wD6FJd8_PV4z5N5l_N7x0_HkT8vdly-9cdhFsbRTE99AiVutPOIDCfEtLFIOBngP_CaPFA"

Das ist sehr wichtig!

Ok wie w�hlen wir ein Video aus?

Code:

Try
            Dim Split() = Link.Split("=")
            Dim _Split() = Split(1).Split("&")

            Return _Split(0)
        Catch ex As Exception
        End Try

Und als letztes noch wie Abonniert man?

Code:

Try
            Dim SubscribeCounter As Integer = 0

            For i = 0 To txtUseUser.Text - 1
                If LoginUser(Usernames(i), Passwords(i)) = Nothing Then
                    AddHistory.Text = AddHistory.Text + ("Login fehlgeschlagen: " & Usernames(i) & ":" & Passwords(i)) + vbNewLine
                Else
                    Dim Vid As Video = GetVideo(Link)

                    AddHistory.Text = AddHistory.Text + ("Login erfolgreich: " & Usernames(i)) + vbNewLine

                    Try
                        Dim Subs As Subscription = New Subscription
                        Subs.Type = SubscriptionEntry.SubscriptionType.channel
                        Subs.UserName = Vid.Uploader
                        Request.Insert(New Uri(YouTubeQuery.CreateSubscriptionUri(Nothing)), Subs)

                        AddHistory.Text = AddHistory.Text + ("Benutzer """ & Vid.Uploader & """ Subscribed mit dem User " & Usernames(i) & ".") + vbNewLine

                        SubscribeCounter += 1
                    Catch ex As Exception
                    End Try
                End If
            Next

            AddHistory.Text = AddHistory.Text + ("Subscriben abgeschlossen. Anzahl: " & SubscribeCounter & ".") + vbNewLine
        Catch ex As Exception
        End Try

Es ist nicht zum Copy&Paste gedacht da man ncoh einiges machen muss bis es so Funktioniert (Einloggen usw.)

Verkaufe das Komplette Bot Projekt auch daf�r einfach PN an mich!