Twitch.tv Status

'Coded by ShadowTzu
'Free to use

'my 3D engine, Tzu3D: http://shadowtzu.free.fr
'Youtube: https://www.youtube.com/user/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitter: https://twitter.com/shadowtzu
'Twitch: http://www.twitch.tv/shadowtzu
'Website: http://tzu3d.weebly.com

Imports System.Net
Public Class Twitch
    Implements IDisposable

    Private mDataPage As String
    Private Web As Net.WebClient
    Private Splitted() As String

    Public Sub New()
        Web = New WebClient
        Web.Proxy = Nothing
        Web.Encoding = System.Text.Encoding.UTF8
    End Sub

    Public Sub Load(user As String)

        mDataPage = Web.DownloadString("https://api.twitch.tv/kraken/streams/" & user)
        Splitted = Split(mDataPage, """:")

    End Sub

    Public ReadOnly Property IsOnline() As Boolean
        Get
            If Splitted(4).StartsWith("null") Then
                Return False
            Else
                Return True
            End If
        End Get
    End Property

    Public ReadOnly Property Game() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(6), """")(1)

                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property View() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(7), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Started() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(8), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Preview() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(14), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Logo() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(33), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Title() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(35), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Banner_Offline() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(38), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property User_ID() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(39), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Created() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(41), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Updated() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(42), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Follower() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(44), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property User_banner() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(45), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property TotalView() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(47), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

    Public ReadOnly Property Language() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(48), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property
#Region "IDisposable Support"
    Private disposedValue As Boolean

    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Web.Dispose()
                Web = Nothing
            End If

        End If
        Me.disposedValue = True
    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class