Sub Get_Following_Live()
Dim getlivefollowingClient As New System.Net.WebClient
getlivefollowingClient.Headers.Add("Accept", "application/vnd.twitchtv.v2+json")
getlivefollowingClient.Headers.Add("Authorization", "OAuth " + My.Settings.authkey)
Dim streamlist As New JObject
Try
Dim result As String = getlivefollowingClient.DownloadString("https://api.twitch.tv/kraken/streams/followed?limit=100")
RichTextBox1.AppendText(result)
streamlist = JsonConvert.DeserializeObject(result)
For x As Integer = 0 To streamlist.Item("streams").Count - 1
ListView1.BeginUpdate()
Dim li As ListViewItem
li = ListView1.Items.Add(streamlist.Item("streams").Item(x).Item("channel").Item("name").ToString)
li.SubItems.Add(streamlist.Item("streams").Item(x).Item("viewers").ToString)
li.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("game").ToString)
li.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("status").ToString)
li.SubItems.Add(streamlist.Item("streams").Item(x).Item("broadcaster").ToString)
ListView1.EndUpdate()
ListView1.Update()
ListView2.BeginUpdate()
Dim li2 As ListViewItem
li2 = ListView2.Items.Add(streamlist.Item("streams").Item(x).Item("channel").Item("name").ToString)
li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("preview").ToString)
li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("logo").ToString)
li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("url").ToString.Replace("www", My.Settings.locale))
ListView2.EndUpdate()
ListView2.Update()
Next
Catch ex As Exception
If ex.ToString.Contains("(503)") Then
MsgBox("503 - Server unavailable. Try again soon.")
ElseIf ex.ToString.Contains("(502)") Then
MsgBox("502 - Gateway Error. Try again soon.")
ElseIf ex.ToString.Contains("(401)") Then
MsgBox("401 Unauthorized - Authentication Error. Request a new Token in Settings!")
Else
MsgBox(ex.ToString)
End If
End Try
End Sub
