Hey,ich habe mir einen kleinen Live-Subscriber Counter zusammen gebastelt. Ich möchte,das ich die Zahl meiner Abonnenten in der Taskleiste sehen kann,ist das möglich?
Hier ist der Code
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
Timer1.Interval = "1000"
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim SubscriberRaw As String = "https://www.googleapis.com/youtube/v3/channels?part=statistics&id=UC0ZhsjzZMjx-PnoxmkEvA3w&fields=items/statistics&key=AIzaSyAajHSJODse8iN5NgnMxV5zc3ClFsRCOJU"
Dim Daten As String = ""
Using wc As New WebClient
Daten = wc.DownloadString(SubscriberRaw)
End Using
Dim Subscriber As String() = Daten.Split(TextBox1.Text)
Label1.Text = (Subscriber(15))
End Sub
End Class
Hier ist der Code
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
Timer1.Interval = "1000"
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim SubscriberRaw As String = "https://www.googleapis.com/youtube/v3/channels?part=statistics&id=UC0ZhsjzZMjx-PnoxmkEvA3w&fields=items/statistics&key=AIzaSyAajHSJODse8iN5NgnMxV5zc3ClFsRCOJU"
Dim Daten As String = ""
Using wc As New WebClient
Daten = wc.DownloadString(SubscriberRaw)
End Using
Dim Subscriber As String() = Daten.Split(TextBox1.Text)
Label1.Text = (Subscriber(15))
End Sub
End Class