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[/code]
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[/code]
Thumbs Up Snippet
[code]Private Sub VideoLike()
Try
WebBrowser1.Document.GetElementById("watch-like").InvokeMember("click")
Catch ex As Exception
End Try
End Sub[/code]
Thumbs Down Snippet
[code] Private Sub VideoUnLike()
Try
WebBrowser1.Document.GetElementById("watch-unlike").InvokeMember("click")
Catch ex As Exception
End Try
End Sub [/code]
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[/code]
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
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
