![[VB.net] YouTube API Bot Snippets](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-net-youtube-api-bot-snippets_ltr.gif){kind=small}
da die Anfrage doch ziemlich groß ist, hier mal ein paar Snippets bezüglich der YouTube API.
Voraussetzungen:
- Visual Basic Grundlagen
- Die DLL's (
)- Den Developerkey (
)- Und ein Gehirn (Sollte nicht auf Stand-By sein!)
Erste Schritte:
Bevor man anfängt sollte man folgende Verweise setzen:
- Google.GData.Client.dll
- Google.GData.Extensions.dll
- Google.GData.YouTube.dll
Außerdem benötigt man folgende Imports:
Code:
Imports Google.GData.Client Imports Google.GData.Extensions Imports Google.GData.YouTube Imports Google.GData.YouTube.YouTubeService Imports Google.GData.Extensions.MediaRss Imports Google.YouTube Imports System.Management Imports System.Net Imports System.IO
Als aller Erstes muss man sich mittels dem Developerkey und einem Account verifzieren:
Code:
Dim settings As YouTubeRequestSettings Dim request As YouTubeRequest settings = New YouTubeRequestSettings(APPLICATION_NAME, DEVELOPER_KEY, ACC_USERNAME, ACC_PASSWORD) request = New YouTubeRequest(settings)
DEVELOPER_KEY: Der Developerkey.
ACC_USERNAME + ACC_PASSWORD: Selbstverständlich
Dann solltest du ein Video definieren:
Code:
Dim VideoFeedUri As Uri
Dim dVideo As Video
VideoFeedUri = New Uri("http://gdata.youtube.com/feeds/api/videos/" + dVideoID)
dVideo = request.Retrieve(Of Video)(VideoFeedUri)
Nachdem du dich verifiziert hast und ein Video definiert hast, kannst du endlich loslegen.
Like Video:
Code:
dVideo.Rating = 5 request.Insert(dVideo.RatingsUri, dVideo)
Code:
dVideo.Rating = 1 request.Insert(dVideo.RatingsUri, dVideo)
Code:
Dim s As Subscription = New Subscription
s.Type = SubscriptionEntry.SubscriptionType.channel
s.UserName = dVideo.Uploader
request.Insert(New Uri(YouTubeQuery.CreateSubscriptionUri("SUBSCRIBER_ACC")), s)
Not: Du kannst jeden Kanal abonnieren. Du musst einfach nur s.UserName. konfigurieren.
Video den Favoriten hinzufügen:
Code:
Dim videoEntryUrl As String = "http://gdata.youtube.com/feeds/api/videos/" + dVideoID Dim service As YouTubeService = request.Service Dim videoEntry As YouTubeEntry = service.Get(videoEntryUrl) Dim feedUrl As String = "http://gdata.youtube.com/feeds/api/users/default/favorites" service.Insert(New Uri(feedUrl), videoEntry)
Code:
Dim c As Comment = New Comment() c.Content = "Comment Content" request.AddComment(dVideo, c)
Code:
Dim c As Complaint = New Complaint c.Type = ComplaintEntry.ComplaintType.DANGEROUS c.Content = "This video is dangerous!! My son watched it, this should be deleted" request.Insert(dVideo.ComplaintUri, c)
Nachricht senden:
Code:
Dim friedsInbox As String = "http://gdata.youtube.com/feeds/api/users/" + id + "/inbox"
Dim newMessage As MessageEntry = New MessageEntry
Dim videoEntry As YouTubeEntry = request.Service.Get("http://gdata.youtube.com/feeds/api/videos/" + dVideoID)
newMessage.Title.Text = "Message Subject / Title"
newMessage.Summary.Text = "Message Text"
newMessage.Id = videoEntry.Id
request.Service.Insert(New Uri(friedsInbox), newMessage)
Kontakt hinzufügen:
Code:
Dim feedUrl As String = "http://gdata.youtube.com/feeds/api/users/default/contacts"
Dim newFriend As FriendsEntry = New FriendsEntry
newFriend.UserName = "FriendToAdd"
newFriend.Categories.Add(New AtomCategory("Friend Category", YouTubeNameTable.FriendsCategorySchema))
request.Service.Insert(New Uri(feedUrl), newFriend)
Credits: Pwhoam, Yakiyo (Übersetzt)
MfG ~
