Winsock ban IP

[MoonDemon]

Could someone make me a simple app that sends a username and the ip to a server and then a simple server that picks up the username and ip and a method for sending data to specific users. When I have this I can implement a kick function into the server and client so that when a button is clicked data is sent to a specific client and when the data that is sent is picked up by the client it disconnects from the server and . In the client I had something like this

"Private Sub ClientWinsock_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Dim Data2 As String
ClientWinsock.GetData Data, vbString
Data2 = Left(Data, 1)
Data = Mid(Data, 2)
If Data2 = "R" Then
Select Case (Data)
End
Case "KICK--USER"
MsgBox "You were Booted from the server for bad conduct.", vbSystemModal + vbCritical, "Server Admin:"
ClientWinsock.Close
Shell App.Path & "\" & App.EXEName, vbNormalFocus
Unload Me
End Select
End If
End Sub"

Basically what it does is when the Data "R" and "KICK--USER" is sent to the client, it displays an error message and disconnects.

You can download the attatchment I added,

If someone is willing to help me, don't over complicate it, I only started visual basic yesterday and I need to understand what is happening

Thank you very much (sorry about the name couldn't think of anything else)