Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement