Aplicar El Winsock?

[coverapido]

Tu amigo tiene el codigo??.. podrias conseguirmelo?? yo ya tengo 1 reset y 176 niveles en el juego y deje de jugarlo... quiero es aprender como se hacen esos programas, por eso quiero es el codigo..

Si alguien me ayuda esto es lo que tengo por ahora:

Private Sub esperar()
If tcpServer(0).State = 0 Then tcpServer(0).Listen
End Sub


Private Sub Form_Load()
If tcpServer(0).State <> 0 Then tcpServer(0).Close
tcpServer(0).LocalPort = 1080
Text1.Text = tcpServer(0).LocalIP
tcpServer(0).Listen
Timer1.Enabled = True
End Sub

Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
ttlConnections = ttlConnections + 1 'agrega una instancia
Load tcpServer(ttlConnections) 'carga la nueva instancia
tcpServer(ttlConnections).LocalPort = 0 'establece el nuevo puerto
tcpServer(ttlConnections).Accept requestID 'Acepta la conexion
List1.AddItem tcpServer(ttlConnections).RemoteHostIP & " connected" ' Crea una lista con las conexiones
End Sub

Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
' Declara una variable para los datos entrantes.
' Invoca el método GetData y establece la propiedad
' Text de un control TextBox llamado text2
' con los datos.
Dim strData As String
tcpServer(Index).GetData strData
Text2.Text = Text2.Text + strData
End Sub

Private Sub Timer1_Timer()
esperar
End Sub