Hey Leute,
mir war in der letzten Zeit ein wenig langweilig, und da dachte ich mir, mache ich eine YoutubeLibrary.
Folgende Features sind vorhanden:
Das wars erstmal soweit. Wenn ihr noch weitere Ideen für die Lib habt, dann schreibt diese doch einfach.
Hier nun ein Beispiel Codeschnipsel zur Anwendung der Lib:
Spoiler anzeigen
Die Lib ist selbstverständlich Option Strict On
Verwendete Programmiersprache:
Visual Basic .NET
Systemanforderungen:
.NET Framework 2.0
Download:
*Klicken*
Version (1.1)
(ca. 20KB)
Changelog:
1.0 -> Erste Version
1.1 -> Neue Funktionen hinzugefügt, Bugs behoben
Lizenz/Weitergabe:
Closed Source, Dekompilierung Verboten! Einkompilieren Verboten!
*Lizenz Details
Wer die Lib nutzt, der soll einfach einen kleinen Vermerk in seinem Programm unterbringen
MfG
MB-Tech
mir war in der letzten Zeit ein wenig langweilig, und da dachte ich mir, mache ich eine YoutubeLibrary.
Folgende Features sind vorhanden:
Das wars erstmal soweit. Wenn ihr noch weitere Ideen für die Lib habt, dann schreibt diese doch einfach.
Hier nun ein Beispiel Codeschnipsel zur Anwendung der Lib:
VB.NET-Quellcode
- 'Import nicht vergessen, oder auf Namespace verweisen.
- Option Strict On
- Public Class Form1
- Dim WithEvents Y As YouTubeVideo
- 'Events
- Private Sub Y_DownloadCompleted(ByVal completed As Boolean) Handles Y.DownloadCompleted
- If completed = True Then
- MsgBox("Video erfolgreich heruntergeladen!")
- ElseIf False Then
- 'Wird z.B. bei Download Abbruch aufgerufen. YouTubeVideo.DownloadAbbrechen()
- MsgBox("Der Download wurde abgebrochen!")
- End If
- End Sub
- Private Sub Y_DownloadProgress(ByVal percentage As Integer) Handles Y.DownloadProgress
- 'Falls Progressbar vorhanden.
- ProgressBar1.Value = percentage
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 'Bricht den Downloadvorgan ab.
- If Y.DownloadAktiv = True Then
- Y.DownloadAbbrechen()
- Else
- MsgBox("Es ist kein Download aktiv!")
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Y = New YouTubeVideo("http://www.youtube.com/watch?v=yZRL4vUq7U4")
- 'Ausgabe der Infos
- MsgBox("Titel: " & Y.VideoTitel)
- MsgBox("Autor: " & Y.VideoAutor)
- MsgBox("VideoID: " & Y.VideoID)
- MsgBox("Likes: " & CStr(Y.VideoLikes))
- MsgBox("Dislikes: " & CStr(Y.VideoDislikes))
- MsgBox("Aufrufe: " & CStr(Y.VideoAufrufe))
- MsgBox("Vorschaubild: " & CStr(Y.VideoImageUrl))
- MsgBox("Uploaddatum: " & CStr(Y.VideoUploadDatum))
- 'Download des Videos auf den Desktop
- Y.DownloadVideo(My.Computer.FileSystem.SpecialDirectories.Desktop)
- End Sub
- End Class
Die Lib ist selbstverständlich Option Strict On
Verwendete Programmiersprache:
Visual Basic .NET
Systemanforderungen:
.NET Framework 2.0
Download:
*Klicken*
Version (1.1)
(ca. 20KB)
Changelog:
1.0 -> Erste Version
1.1 -> Neue Funktionen hinzugefügt, Bugs behoben
Lizenz/Weitergabe:
Closed Source, Dekompilierung Verboten! Einkompilieren Verboten!
*Lizenz Details
Wer die Lib nutzt, der soll einfach einen kleinen Vermerk in seinem Programm unterbringen
MfG
MB-Tech
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „MB-Tech“ ()