Results 1 to 9 of 9

  1. #1
    Banned
    Join Date
    Jul 2011
    Location
    England
    Thanks
    849

    How to make a Youtube Bot

    Hi Guys this is codes to make a Youtube bot =D this is the code i used to make a youtube bot....

    Youtube Code Snippets [Like, Un-like, Subscribe, Un-Subscribe, Comment, Favorite, Flag]

    Un-subscribe
    Code:
    'Make sure when you call it call it unsubscribe1 then unsubscribe2 must be on there profile.
        Private Sub unsubscribe1()
            Try
                Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
                For Each elem As HtmlElement In col
                    If elem.GetAttribute("innerText").Contains("Subscribed") Then
                        elem.InvokeMember("click")
                    End If
                Next
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub unsubscribe2()
            Try
                Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
                For Each elem As HtmlElement In col
                    If elem.GetAttribute("innerText").Contains("Unsubscribe") Then
                        elem.InvokeMember("click")
                    End If
                Next
            Catch ex As Exception
            End Try
        End Sub
    Subscribe Snippet
    Code:
    Private Sub SubscribeButton()
            Try
                Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
                For Each elem As HtmlElement In col
                    If elem.GetAttribute("innerText").Contains("Subscribe") Then
                        elem.InvokeMember("click")
                       
                    End If
                Next
            Catch ex As Exception
               
            End Try
        End Sub
    Thumbs Up Snippet
    Code:
    Private Sub VideoLike()
            Try
                WebBrowser1.Document.GetElementById("watch-like").InvokeMember("click")
                
            Catch ex As Exception
            End Try
        End Sub
    Thumbs Down Snippet
    Code:
     Private Sub VideoUnLike()
            Try
                WebBrowser1.Document.GetElementById("watch-unlike").InvokeMember("click")
                
            Catch ex As Exception
            End Try
        End Sub
    Comment Snippet
    Code:
     Private Sub Comment()
            Try
                WebBrowser1.Document.All.GetElementsByName("comment")(0).SetAttribute("value", ListBox2.SelectedItem.ToString)
                Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
                For Each elem As HtmlElement In col
                    If elem.GetAttribute("innerText").Contains("Post") Then
                        elem.InvokeMember("click")
                    End If
                Next
            Catch ex As Exception
            End Try
        End Sub
    Flag Snippet
    Code:
    'Call it like flagdropdown then flagreason then flagthisvideo
    Public Sub flagdropdown()
            Dim theelementcollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each curElement1 As HtmlElement In theelementcollection
                If curElement1.GetAttribute("id").Contains("watch-flag") Then
                    curElement1.InvokeMember("click")
                End If
            Next
        End Sub
        Private Sub flagreason()
            If ComboBox1.Text = "Sexual Content" Then
                Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                For Each curElement3 As HtmlElement In theelementcollection1
                    If curElement3.GetAttribute("id").Equals("sc") Then
                        curElement3.InvokeMember("click")
                    End If
                Next
            Else
                If ComboBox1.Text = "Violent or Repulsive Content" Then
                    Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                    For Each curElement3 As HtmlElement In theelementcollection1
                        If curElement3.GetAttribute("id").Equals("vc") Then
                            curElement3.InvokeMember("click")
                        End If
                    Next
                Else
                    If ComboBox1.Text = "Hateful or Abusive Content" Then
                        Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                        For Each curElement3 As HtmlElement In theelementcollection1
                            If curElement3.GetAttribute("id").Equals("hc") Then
                                curElement3.InvokeMember("click")
                            End If
                        Next
                    Else
                        If ComboBox1.Text = "Harmful Dangerous Acts" Then
                            Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                            For Each curElement3 As HtmlElement In theelementcollection1
                                If curElement3.GetAttribute("id").Equals("da") Then
                                    curElement3.InvokeMember("click")
                                End If
                            Next
                        Else
                            If ComboBox1.Text = "Child Abuse" Then
                                Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                                For Each curElement3 As HtmlElement In theelementcollection1
                                    If curElement3.GetAttribute("id").Equals("ca") Then
                                        curElement3.InvokeMember("click")
                                    End If
                                Next
                            Else
                                If ComboBox1.Text = "Spam" Then
                                    Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                                    For Each curElement3 As HtmlElement In theelementcollection1
                                        If curElement3.GetAttribute("id").Equals("sp") Then
                                            curElement3.InvokeMember("click")
                                        End If
                                    Next
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End Sub
        Public Sub flagthisvideo()
            Dim theelementcollection9 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each curElement2 As HtmlElement In theelementcollection9
                If curElement2.GetAttribute("id").Equals("watch-flag-button") Then
    
                    curElement2.InvokeMember("click")
                End If
            Next
          
        End Sub
    Favorite Snippet
    Code:
    Public Sub Drop_down_fav_button()
            Dim theElementCollection As HtmlElementCollection
            theElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each curElement2 As HtmlElement In theElementCollection
                If curElement2.GetAttribute("title").Equals("Add to favorites or playlist") Then
                    curElement2.InvokeMember("click")
                End If
            Next
            Try
                Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
                For Each elem As HtmlElement In col
                    If elem.GetAttribute("innerText").Contains("Favorites") Then
                        elem.InvokeMember("click")
                    End If
                Next
            Catch ex As Exception
            End Try
          
        End Sub
    Thanks happy to help
    Last edited by Stickle; 09-26-2011 at 10:54 AM.

  2. #2
    Diamond / Epic
    Old Timer
    sgt frankieboy's Avatar
    Visual Bounds
    Join Date
    Nov 2010
    Location
    The Netherlands
    Thanks
    3,914

    Re: How to make a Youtube Bot

    Sorry but I don't see this on a "How to make" It is more a bunch of code in codeboxes. without any explanation. and how are you sure there "browser" is called webbrowser1?

    HorizonMB Chatbox
    - Activity Updater


    Quote Originally Posted by Rich Cook
    Programming today is a race between software engineers striving to build bigger and better
    idiot-proof programs, and the Universe trying to produce bigger and better idiots.
    So far, the Universe is winning.

  3. #3
    Banned
    Join Date
    Jul 2011
    Location
    England
    Thanks
    849

    Re: How to make a Youtube Bot

    Quote Originally Posted by sgt frankieboy View Post
    Sorry but I don't see this on a "How to make" It is more a bunch of code in codeboxes. without any explanation. and how are you sure there "browser" is called webbrowser1?

    Well if you know what Vb is then you might understand it
    i will upload a tut on how to do it today but cba know =D

    Mabey when you watch me do it you will understand...

  4. #4
    Diamond / Epic
    Old Timer
    sgt frankieboy's Avatar
    Visual Bounds
    Join Date
    Nov 2010
    Location
    The Netherlands
    Thanks
    3,914

    Re: How to make a Youtube Bot

    Quote Originally Posted by Stickle View Post
    Well if you know what Vb is then you might understand it
    i will upload a tut on how to do it today but cba know =D

    Mabey when you watch me do it you will understand...
    You didn't understand me.... I know what VB is. I hate it now since I'm using C#. I used to program in it I can understand it. But the title says "How to make" but This is just a bunch of snippets. And doesn't teach you how to make one. But gives you the source code.

    HorizonMB Chatbox
    - Activity Updater


    Quote Originally Posted by Rich Cook
    Programming today is a race between software engineers striving to build bigger and better
    idiot-proof programs, and the Universe trying to produce bigger and better idiots.
    So far, the Universe is winning.

  5. Thanked by:
     Crazy4RS

  6. #5
    Veteran Moderator
    Horizon Pro
    Dave's Avatar
    Join Date
    Sep 2010
    Location
    England
    Thanks
    3,527

    Re: How to make a Youtube Bot

    Looks like a copy and paste I saw from HF. If it was please give it credits.

  7. #6
    Old Timer
    Member

    Join Date
    Nov 2010
    Thanks
    76

    Re: How to make a Youtube Bot

    Quote Originally Posted by sgt frankieboy View Post
    You didn't understand me.... I know what VB is. I hate it now since I'm using C#. I used to program in it I can understand it. But the title says "How to make" but This is just a bunch of snippets. And doesn't teach you how to make one. But gives you the source code.
    I love how copy/pasters think they're real coders... vb is trashhh tbh. anyway good post i guess.... easy stuff though.

  8. #7
    Banned
    Join Date
    Dec 2010
    Location
    California :)
    Thanks
    103

    Re: How to make a Youtube Bot

    Can you upload a tut please mate like do you need account how do u do it?!

  9. #8

    Re: How to make a Youtube Bot

    How do I do this? x|
    Pretty much gone again. Not forgetting you guys, though. Thank you all for the fun times and stuff, lol.

  10. #9
    Banned
    Join Date
    Oct 2010
    Thanks
    5

    Re: How to make a Youtube Bot

    I did this, but get an error at the end,

Similar Threads

  1. Do I Have To Make A YouTube Template Before I Make The BG?
    By UnDeAD ZoMBiiEz in forum Graphic Design
    Replies: 6
    Last Post: 05-26-2011, 02:42 PM
  2. Someone Please Make Me A YouTube BG!?
    By UnDeAD ZoMBiiEz in forum Graphic Design
    Replies: 12
    Last Post: 03-12-2011, 08:31 PM
  3. Can anyone make me a youtube BG??
    By iiNoxiousHD in forum Graphic Design
    Replies: 5
    Last Post: 03-09-2011, 09:39 AM
  4. Can somebody make me a youtube bg?
    By Ghast in forum Graphic Design
    Replies: 0
    Last Post: 02-19-2011, 11:52 PM
  5. Could anyone make me a youtube BG?
    By The_Gonzo in forum Graphic Design
    Replies: 0
    Last Post: 01-07-2011, 07:38 PM