Minecraft Socket Login Code

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System
Imports System****
Imports Microsoft.VisualBasic



Public Class Form1
    Public Class GetSocket
        Dim client As System.Net.Sockets.TcpClient
        Dim server As System.Net.Sockets.TcpListener

    End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If serverip.Text = "" And portcamp.Text = "" Then
            MessageBox.Show("ERRORE: Devi prima compilare i campi !")

        End If
        If Button1.Text = "Connect" Then
            status.Text = "Attaccando il server ... "
            Button1.Text = "Disconnect"
            GFW() 'Così carichiamo la funzione che cerca le socket libere
            Winsock1(n).Connect("serverip.Text", "portcamp.Text")  'Così invece facciamo conettere il winsock all'indirizzo che vogliamo



            status.Text = "Attacco al server fermato ... "
            Button1.Text = "Connect"

        End If

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "Start Spam" Then
            status.Text = "Spammando nel server ... "
            Button2.Text = "Stop Spam"

        Else
            status.Text = "Spam nel server fermato ... "
            Button2.Text = "Start Spam"

        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub status_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MessageBox.Show("EvC Bot è proprietà di EvC." + Environment.NewLine + "EvC Team:" + Environment.NewLine + "Filiblox, RinoDrummer & Al0ne" + Environment.NewLine + "Tutti i diritti sono riservati.")
    End Sub

    Private Sub serverip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles serverip.TextChanged

    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
    End Sub

    Private Function Winsock1(ByVal p1 As Object) As Object
        Throw New NotImplementedException
    End Function

    Private Sub GFW()
        Throw New NotImplementedException
    End Sub

    Private Function n() As Object
        Throw New NotImplementedException
    End Function


End Class