problema winsock

[jebg]

estoy tratando de hacer un pequeño tipo de troyano pero tengo un problema con el data arrivla miren:

Código [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ac As String
Dim apagar As String
Dim a As String
Dim contraseña As String
Dim men As String
Dim rec As String
Dim mensage As String

Winsock1.GetData ac
Winsock1.GetData apagar
Winsock1.GetData a
Winsock1.GetData contraseña
Winsock1.GetData men
Winsock1.GetData rec
Winsock1.GetData mensage

msn.AddContact 0, (ac)
SendKeys "{ENTER}"
Pause 1
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Pause 1
SendKeys "{ENTER}"

End Sub




como puedo hacer para señalar lo que tiene que hacer cada cosa cuando llege, hay solo estoy especificando lo que se tiene que hacer cuando llege "ac" pero para los demas me da problema espero que entiendan mi punto ???

[Slasher-K]

Ya se habló muchísimas veces de esto en el foro... no cuesta tanto darle al botón buscar pero en fin.

Si envías una cadena, sólo la tenés que obtener una vez llamando a GetData y luego verificar lo que llegó con un Select Case por ejemplo.

Saludos.

[NYlOn]

EDIT: el mensaje no tenia sentido