Youtube Like Problem

[Juggernaut']

Hallo,

ich habe folgendes Problem mit meinen Youtube Bot, der Bot hat eine Abo, Comment und eine Dis-/Like Die nicht Funktioniert ich habe schon alles auf Fehlern abgesucht jedoch erfolglos.. Ich bitte deshalb hier um Hilfe..

LGC

Code von der Dis-/Like Funktion:

 Spoiler

IMPORTS:

Imports Google.GData.Client
Imports Google.GData.Extensions
Imports Google.GData.YouTube
Imports Google.GData.Extensions.MediaRss
Imports Google.YouTube
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Reflection

#Region "Like/Dislike"

    Private Sub setLikeStatus(ByVal msg As String, ByVal color As Color)
        Label8.ForeColor = color
        Label8.Text = msg
    End Sub

    Dim likes As Integer = 0
    Dim liking As Boolean = False

    Private Sub likeDislike(ByVal obj As Object)
        Dim objSplit() As String = Split(obj(0))
        Dim videourl As String = objSplit(1)
        Dim rating As Integer = 0

        If objSplit(0) = "[Like]" Then
            rating = 5
        Else
            rating = 1
        End If

        Try
            Dim settings As New YouTubeRequestSettings(applicationName, developverKey, obj(1), obj(2))
            Dim request As New YouTubeRequest(settings)
            Dim videoEntryUrl As New Uri("http://gdata.youtube.com/feeds/api/videos/" + videourl)
            Dim video As Video = request.Retrieve(Of Video)(videoEntryUrl)
            Dim responses As Feed(Of Video) = request.GetResponseVideos(video)
            video.Rating = rating

            request.Insert(video.RatingsUri, video)
            likes += 1
        Catch
            Me.Invoke(New Listbox1RemoveDelete(AddressOf Listbox1Remove), obj(1))
            Me.Invoke(New Listbox2AddDelete(AddressOf Listbox2Add), obj(1))
        End Try
        threads -= 1
    End Sub

    Private Sub likeDislikeFirstFromList(ByVal videourl As String)
        NumericUpDown2.Enabled = False
        Dim before As Date = Now
        For i As Integer = 0 To NumericUpDown2.Value - 1
wait:
            Application.DoEvents()
            If threads < maxThreads Then
                Dim t As New Threading.Thread(AddressOf likeDislike)
                t.Start({videourl, accounts(i).username, accounts(i).password})
                threads += 1
            Else
                Threading.Thread.Sleep(10)
                setLikeStatus("(Dis-)liking.. [" + likes.ToString + "/" + NumericUpDown2.Value.ToString + "]", Color.Orange)
                GoTo wait
            End If
        Next

        Do
            Application.DoEvents()
            Threading.Thread.Sleep(10)
            setLikeStatus("(Dis-)liking.. [" + likes.ToString + "/" + NumericUpDown2.Value.ToString + "]", Color.Orange)
        Loop Until threads = 0

        setLikeStatus(likes.ToString + "/" + NumericUpDown2.Value.ToString + " within " + DateDiff(DateInterval.Second, before, Now).ToString + " seconds.", Color.Green)
        likes = 0
        NumericUpDown2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text = "" Then
            Exit Sub
        End If

        Dim videoUrl As String = TextBox2.Text
        videoUrl = Replace(videoUrl, "http://www.youtube.com/watch?v=", "")
        Dim featureSplit() As String = Split(videoUrl, "&")
        videoUrl = featureSplit(0)

        If ComboBox1.Text = "Like" Then
            videoUrl = "[Like] " + videoUrl
        Else
            videoUrl = "[Dislike] " + videoUrl
        End If

        ListBox4.Items.Add(videoUrl)
        TextBox2.Text = ""
    End Sub

#End Region

[Ludder231]

Schonmal daran gedacht uns zu sagen wo genau dein Problem liegt? Evtl. wäre ein Code snipped ganz hilfreich...

MfG Ludder231

[Juggernaut']

Code ist einfügt.

[#SoNiice]

Breakpoints? Such den Code Zeile für Zeile ab und überprüfe URLs, Variablen etc.

[Juggernaut']

Habe ich schon gemacht.

[#SoNiice]

Und was kam dabei raus? Wenn du uns keine genauen Informationen gibst wird sas hier nichts :/

['Heaven.]

Dein api key ist ausgelaufen... hol dir nen neuen dann gehts wieder

[Juggernaut']

Ich habe den Api Key erneuert jedoch Funktioniert es immer noch nicht.

[Kraizy​]

Funktioniert das Liken mit den Accounts, wenn dus manuell probierst?
Also bei yt.com mit dem getesteten Account einloggen, ein Video liken und schauen, ob sich die Zahl erhöht.

[BOSStube]

@Kraizy (Ich bin Nutzer von iTube) manuell funktioniert es.

[Juggernaut']

Kann mir niemand helfen?

[tolio]

debuggen, rückgabewerte prüfen und schauen wo der fehler auftritt, so kannst du dir selber helfen

['Henry.]

seh ich genauso wie tolio. DEBUGGEN!! bau dir mehrere Ausgaben rein, guck was passiert, guck wo der Fehler liegt.

Anscheinend liegt der Fehler ja in dem Bot den du selber verkaufst, dann solltest du den doch auch selber lösen können.

mfg

[PC Jones]

Originally Posted by 'Henry.

seh ich genauso wie tolio. DEBUGGEN!! bau dir mehrere Ausgaben rein, guck was passiert, guck wo der Fehler liegt.

Anscheinend liegt der Fehler ja in dem Bot den du selber verkaufst, dann solltest du den doch auch selber lösen können.

mfg

Jeder der sich ein bischen mit der Materie Youtube-Bots beschäftigt hat sollte wissen, dass es seit einigen Monaten massive Probleme mit der Like/Dislike Funktion gibt wenn man die YouTube API nutzt. Man müsste wissen woran genau das liegt bzw. wie man dies beheben kann.

mfg

[Juggernaut']

Suche weiterhin Hilfe..