Anderes Problem mit meinem Bot...

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Mangafreak1995.

    Anderes Problem mit meinem Bot...

    Nu, das Knöpfchenproblem wurde nun geklärt. Eine Anweisung war zu viel, die nicht ausgeführt werden konnte

    ALLERDINGS! Kann man die Knöpfe nun klicken, nur... Es passiert einfach nix. Er hat ein Problem mit den Threads, die er einfach nicht ausführen möchte. Nur stellt sich mir die Frage, wieso? Dass die Threads veraltet sind, bringt mir in der Sache auch nicht viel.

    Ein Beispiel von Thread + jeweilige Funktion & Event

    VB.NET-Quellcode

    1. Private LikeThread As New System.Threading.Thread(AddressOf LikeVideo)
    4. Private Sub LikeVideo(ByVal Link As String)
    5. Try
    6. LikeThread.Interrupt()
    7. LikeThread.Join()
    8. Catch ex As Exception
    10. End Try
    12. Try
    13. Dim LikeCounter As Integer = 0
    15. For i = 0 To txtUseUser.Text - 1
    16. If LoginUser(Usernames(i), Passwords(i)) = Nothing Then
    17. AddHistory("Login fehlgeschlagen: " & Usernames(i) & ":" & Passwords(i))
    18. Else
    19. Dim Vid As Video = GetVideo(Link)
    20. 5:
    21. AddHistory("Login erfolgreich: " & Usernames(i))
    23. Try
    24. Vid.Rating = 5
    25. Request.Insert(Vid.RatingsUri, Vid)
    27. AddHistory("Video """ & Vid.Title & """ liked mit dem User " & Usernames(i) & ".")
    29. LikeCounter += 1
    30. Catch ex As Exception
    31. End Try
    32. End If
    33. Next
    35. AddHistory("Liken abgeschlossen. Anzahl: " & LikeCounter & ".")
    36. LikeThread.Abort()
    37. Catch ex As Exception
    38. End Try
    39. End Sub
    43. Private Sub cmdLike_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLike.Click
    44. Try
    45. LikeThread.Start(txtLink.Text)
    46. Catch ex As NullReferenceException
    47. ErrorOccurred(ex)
    48. Catch ex As Threading.ThreadStateException
    50. Catch ex As Exception
    51. LikeThread.Resume()
    52. End Try
    53. End Sub


    Ich bekomme die Warnung bei LikeThread.Resume

    Quellcode

    1. Public Sub Resume() ist veraltet: Please use other classes in System.Threading (abgekürzt halt..)


    jemand ne' idee?

    Auf msdn.microsoft.com/de-de/libra…tem.threading.thread.aspx steht ja was :
    Resume() | Veraltet. Nimmt die Ausführung eines angehaltenen Threads wieder auf.
    Start() | Weist das Betriebssystem an, den Zustand der aktuellen Instanz in ThreadState.Running zu ändern.
    Reicht das nicht ?

    Hey Manga,
    danke erstmal für deinen Link, hat mir sehr weitergeholfen, da noch andere Threads veraltet waren.

    Ich hab nun .Resume() zu .Start() und .Suspend() zu .Sleep(2000) abgeändert...

    Trotzdem klappt's nicht.

    Ich bekomme ne Warnung, die das Debuggen unterbricht, wenn ich die Videoinformationen auslesen will:
    "Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement cmdGetVideoInfo erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde."

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub cmdGetVideoInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetVideoInfo.Click
    2. bgwVideoInformation.RunWorkerAsync()
    3. End Sub
    6. Private Sub bgwVideoInformation_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwVideoInformation.DoWork
    7. [color=#ff0000]cmdGetVideoInfo.Enabled = False // WARNUNG[/color]
    9. If txtLink.OuterBorderColor = Color.Green Then
    10. Try
    11. Dim Vid As Video = GetVideo(txtLink.Text)
    12. Dim Views As Integer = Vid.ViewCount
    14. lblTitle.Text = "Titel: " & Vid.Title
    15. lblUploader.Text = "Uploader: " & Vid.Uploader
    16. lblViews.Text = "Aufrufe: " & String.Format("{0:0,0}", Views)
    18. pThumb1.Image = ImageFromWeb(Vid.Thumbnails(0).Url)
    19. pThumb2.Image = ImageFromWeb(Vid.Thumbnails(1).Url)
    20. pThumb3.Image = ImageFromWeb(Vid.Thumbnails(2).Url)
    21. Catch
    22. End Try
    23. End If
    24. End Sub


    Desweiteren funktionieren die Buttons zum Liken etc. immer noch nicht, ich bekomme dort (sobald die Buttons gedrückt sind):
    "Eine Ausnahme (erste Chance) des Typs "System.Threading.ThreadStateException" ist in mscorlib.dll aufgetreten."

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xSkyterCoder“ ()

    Dann solltest du dich über Threading informieren, dann passiert das nicht ein weiteres Mal. Stichwort Invoke