Removed unused ChannelClient and ChannelManager

This commit is contained in:
Aragas 2016-12-03 18:26:25 +03:00
parent 76e29f7e5f
commit 77941acc0e
3 changed files with 0 additions and 88 deletions

View File

@ -183,8 +183,6 @@
<Compile Include="Network\DownloadTexture2D.vb" />
<Compile Include="Network\GameJolt\API.vb" />
<Compile Include="Network\GameJolt\APICall.vb" />
<Compile Include="Network\GameJolt\ChannelClient.vb" />
<Compile Include="Network\GameJolt\ChannelManager.vb" />
<Compile Include="Network\GameJolt\GameJoltStatistics.vb" />
<Compile Include="Network\GameJolt\GTS\GTSInboxScreen.vb" />
<Compile Include="Network\GameJolt\GTS\GTSMainScreen.vb" />

View File

@ -1,67 +0,0 @@
Imports System.Linq
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Threading.Tasks
Imports System.IO
Imports System.Net
Imports System.ComponentModel
Imports System.Security.Cryptography
Namespace GameJolt
Public Class ChannelClient
Dim Prev As Integer = 0
Dim Port As String = ""
Dim Channel As String = ""
Dim SID As String = ""
Dim t As Threading.Thread
'Public Sub New(ByVal Port As String, ByVal Channel As String)
' Using Client = New WebClient()
' Client.Credentials = New NetworkCredential("username", "password")
' AddHandler Client.OpenReadCompleted, Function(sender, e) As Object
' Using reader As StreamReader = New StreamReader(e.result)
' While True
' MsgBox(reader.ReadLine())
' End While
' End Using
' Return Nothing
' End Function
' Client.OpenReadAsync(New Uri("http://api-01.gamejolt.com:7001/subscribe?game_id=" & ChannelManager.GameID & "&channel=" & Channel, System.UriKind.Absolute))
' End Using
' System.Threading.Thread.Sleep(10000)
'End Sub
Public Sub New(ByVal Port As String, ByVal Channel As String)
Me.Port = Port
Me.Channel = Channel
Dim request As HttpWebRequest = CType(WebRequest.Create(New Uri("http://api-01.gamejolt.com:7001/subscribe?game_id=" & ChannelManager.GameID & "&channel=" & Channel, System.UriKind.Absolute)), HttpWebRequest)
request.Method = "POST"
request.BeginGetRequestStream(AddressOf GetResponse, request)
request.KeepAlive = True
System.Threading.Thread.Sleep(10000)
End Sub
Private Sub GetResponse(ByVal result As IAsyncResult)
Logger.Debug("LOL")
If result.IsCompleted Then
Dim request As HttpWebRequest = CType(result.AsyncState, HttpWebRequest)
Dim data As String = New StreamReader(request.EndGetResponse(result).GetResponseStream()).ReadToEnd()
'random data management
MsgBox(data)
End If
End Sub
End Class
End Namespace

View File

@ -1,19 +0,0 @@
Namespace GameJolt
Public Class ChannelManager
Public Shared GameID As String = "" ' CLASSIFIED
Public Shared host As String = "http://api-01.gamejolt.com"
Public Shared totalResponses As Integer = 0
Public Sub New()
End Sub
Public Sub Update()
End Sub
End Class
End Namespace