Hey Leute,
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
Die Snippets:
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)
APPLICATION_NAME: Der Name, den du im Google-Dashboard gewählt hast.
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)
dVideoID = Die Video ID (Das Teil hinter watch?v= OHNE spezielle Erweiterungen wie &feature=related
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)
Dislike Video:
Code:
dVideo.Rating = 1
request.Insert(dVideo.RatingsUri, dVideo)
Uploader vom Video abonnieren:
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)
SUBSCRIBER_ACC: Der Account der den Uploader abonniert. Es muss der Account sein, mit dem du dich verifiziert hast.
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)
Kommentar hinzufügen:
Code:
Dim c As Comment = New Comment()
c.Content = "Comment Content"
request.AddComment(dVideo, c)
Video reporten:
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)
Notiz: Andere Typen sind: ComplaintEntry.ComplaintType.HATE, ComplaintEntry.ComplaintType.PORN, ComplaintEntry.ComplaintType.RIGHTS, ComplaintEntry.ComplaintType.SPAM, ComplaintEntry.ComplaintType.VIOLENCE
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)
id = Account, der die Nachricht erhält.
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 ~
![[VB.net] YouTube API Bot Snippets](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-net-youtube-api-bot-snippets_ltr.gif){kind=small}
