User:Etmarcos

Help! I need help making a Minebot program in Visual Basic. I need help:

Imports System.Net

Module Module1

Sub Main Dim req As String = "Login Info"

Using sock As New Sockets.TcpClient Try Console.WriteLine("Connecting...") sock.Connect("GET /heartbeat.jsp?port=25565&max=32&name=My%20Server&public=True&version=7&salt=wo6kVAHjxoJcInKx&users=0", 80) If sock.Connected Then Console.WriteLine("Connected. Sending request...") Dim ns As Sockets.NetworkStream = sock.GetStream Console.WriteLine(ReadResponse(ns)) Dim sendBytes As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(req) If ns.CanWrite Then ns.Write(sendBytes, 0, sendBytes.Length) Threading.Thread.Sleep(5000) Else Console.WriteLine("Stream not writable") End If

Console.WriteLine(ReadResponse(ns)) Else Console.WriteLine("Failed to connect") End If           Catch ex As Exception Console.WriteLine(ex.Message & vbNewLine & ex.StackTrace) End Try sock.Close

Console.WriteLine("Press Enter to exit") Console.ReadLine End Using End Sub

Public Function ReadResponse(ByVal ns As Sockets.NetworkStream) As String Dim ret As String = "Response: " If ns.CanRead And ns.DataAvailable Then Dim resp As String = "" Using sr As New IO.StreamReader(ns) While sr.Peek <> -1 resp &= vbNewLine & sr.ReadLine End While End Using End If       Return ret End Function

End Module

Im trying to send a login protocall to a Minecraft server Plese Help!!! Thanx in advance