)
Imports System.Net.Sockets
Imports System.Text
Module Module1
Dim client As New TcpClient
Sub Main()
clien*****nnect("54.195.96.152", 2050)
Using ns As NetworkStream = client.GetStream
While True
Dim toSend() As Byte = Encoding.ASCII.GetBytes("What do I even send")
ns.Write(toSend, 0, toSend.Length)
Dim toReceive(100000) As Byte
Dim length As Integer = ns.Read(toReceive, 0, toReceive.Length)
Dim text As String = Encoding.ASCII.GetString(toReceive, 0, length)
Console.WriteLine(text)
Threading.Thread.Sleep(2000)
End While
End Using
End Sub
End Module
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Net.Sockets;
using System.Text;
static class Module1
{
static TcpClient client = new TcpClient();
public static void Main()
{
clien*****nnect("54.195.96.152", 2050);
using (NetworkStream ns = client.GetStream) {
while (true) {
byte[] toSend = Encoding.ASCII.GetBytes("What do I even send");
ns.Write(toSend, 0, toSend.Length);
byte[] toReceive = new byte[100001];
int length = ns.Read(toReceive, 0, toReceive.Length);
string text = Encoding.ASCII.GetString(toReceive, 0, length);
Console.WriteLine(text);
Threading.Thread.Sleep(2000);
}
}
}
}
public String jD; // String public String pk = ""; // String public String Tq = ""; // String public String H = ""; // String public String playPlatform = ""; // String public String unknow1 ="";



Dim text As String
text = ("HELLO [" + buildversion.ToString + " , " + gameid.ToString + " , " + guid + " , " + password + " , " + secret + " , " + keytime.ToString + " , " + key + " , " + jD + " , " + pk + " , " + tq + " , " + h + " , " + playplatform + "]")



