[VB.net]Api Bot Snippets

[ProstylerXx]

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!):

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?

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?

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!

[Obilee]

Codes ohne Erklärungen etc. sind keine Tutorials von daher passt es auch nicht in diese Sektion.

#closed