duda con troyano vb

[DRIGIN]

estoy haciendo un troyano en vb y a la hora de poner la opcion de transferencia de archivos vi en algunos ejemplos k usan un winsock para la conexion del troyano y envio de la ordenes y otro winsock para envio de datos.Es necesario usar dos winsock o kon una para ambas cosas vale igual o eske da errores

[ranefi]

Es aconsejable que utilices dos controles Winsock ya que uno puede servir para "escuchar" cualquier petición de un cliente y otro control Winsock (el cual debe o puede ser un arreglo) para las conexiones "entrantes". Con esto optimizarás tu troyano. Nos vemos.

[DRIGIN]

y teniendo 2 winsock como seria para conectar ?
ai k poner k los 2 se conecten x el mismo puerto o kon k solo se konecte uno el otro ya envia igual?

[ranefi]

y teniendo 2 winsock como seria para conectar ?
ai k poner k los 2 se conecten x el mismo puerto o kon k solo se konecte uno el otro ya envia igual?

Aquí te dejo un ejemplo.

Código:

Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
  Dim cMsg As String
  Dim nFSIn As Long
 
  On Error GoTo ErrHandle
  DoEvents
 
  nFSIn = FindFirstFreeSocket()
       
  If nFSIn = -1 Then
    'en caso de que no haya un socket libre, generarmos uno
    nFSIn = sckConn.UBound + 1
   
    If nFSIn > oServer.TraMaxConnections - 1 Then
      cMsg = "Intento de conexión RequestID #" & requestID & vbCrLf
     
      cMsg = cMsg & "  - RemoteIP   " & sckListen.RemoteHostIP & vbCrLf
      cMsg = cMsg & "  - RemotePort " & sckListen.RemotePort & vbCrLf
      cMsg = cMsg & "  *** Rechazado por número maximo de conexiones simultaneas excedido ***" & vbCrLf
      cMsg = cMsg & "Cerrando conexion de " & sckListen.RemoteHostIP & ":" & sckListen.RemotePort
     
      aTmp = Split(cMsg, vbCrLf)
      LogTxt aTmp, txtLog, oServer.LogsTransmision, cHeader
      Exit Sub
    End If
   
    Load sckConn(nFSIn)
    ReDim Preserve aConn(nFSIn) As strConn
  End If
  CleanConn nFSIn
       
  sckConn(nFSIn).Close
 
  aConn(nFSIn).nID = requestID
  aConn(nFSIn).lShutDown = False
 
  sckConn(nFSIn).Accept requestID
  aConn(nFSIn).vSesion = Now
     
  Exit Sub
ErrHandle:
  ReDim aTmp(2) As String
  aTmp(0) = "** Error **"
  aTmp(1) = "** #" & Err.Number
  aTmp(2) = "** " & Err.Description
 
  LogTxt aTmp, txtLog, oServer.LogsTransmision, cHeader, False
  CerrarListen
  tmrRec.Enabled = False
  ChecaConn
End Sub

Editado:
Jejejeje, no cupo toda la cochinada, pero te das una idea con esto, jejeeje, te pido me disculpes cochinón, jejejeje.