Veran tengo un codigo tal que asi:

Private Sub cmdenviar_Click()
wsk.SendData "VER 1 MSNP9 MSNP8 CVR0"
End Sub
 
Private Sub Form_Load()
    wsk.Close
    wsk.Protocol = sckTCPProtocol
    wsk.RemoteHost = "messenger.hotmail.com"
    wsk.RemotePort = 1863
    wsk.Connect
End Sub
 
Private Sub Timer1_Timer()
MsgBox wsk.State
End Sub
 
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim devu As String
 
    wsk.GetData devu
    MsgBox devu
    txtdevu.Text = txtdevu.Text & vbCrLf & devu
 
 
End Sub

no se alarmen, es para realizar pruebas, lo hice lo mas simple posible

el caso es que, coge la conexion y conecta ya que el numero del estado del winsock es 7 que corresponde a conectado, el problema esta al enviar los datos, ya que el enviar, deberia de responderme inmediatamente el servidor de msn, yo le mando esto:

VER 1 MSNP9 MSNP8 CVR0

me debe responder, pero no lo hace, en cambio si realizo la conversacion por netcat:



funciona

que de malo hay en el codigo? no alcance a verlo, seguro que es una tonteria o la peor cosa que me pudiese pasar, como si google hubiese capado el paso de alguna manera

como te refieres asi?

Private Sub Form_Load()
    wsk.Close
    wsk.Protocol = sckTCPProtocol
    wsk.RemoteHost = "messenger.hotmail.com"
    wsk.RemotePort = 1863
    wsk.Connect
End Sub
 
Private Sub Timer1_Timer()
MsgBox wsk.State
End Sub
 
Private Sub wsk_Connect()
wsk.SendData "VER 1 MSNP9 MSNP8 CVR0"
End Sub
 
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim devu As String
 
    wsk.GetData devu
    MsgBox devu
    txtdevu.Text = txtdevu.Text & vbCrLf & devu
 
 
End Sub

y añadir crlf al final de cada peticion no estaria mal. y ya que es para el botnet no seria mejor usar el protocolo del msn por http?

no se me lee?


y a funcionar

tengo otro problema, sorry por doble post pero sino esto se da por solucionado,dejo el code

Private Sub Form_Load()
    wsk.Close
    wsk.Protocol = sckTCPProtocol
    wsk.RemoteHost = "messenger.hotmail.com"
    wsk.RemotePort = 1863
    wsk.Connect
 
End Sub
 
Private Sub wsk_Connect()
    wsk.SendData "VER 1 MSNP9 MSNP8 CVR0" & vbCrLf
End Sub
 
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim devu, arrays() As String
Dim comprobando As Integer
 
    wsk.GetData devu
 
    txtdevu.Text = txtdevu.Text & vbCrLf & devu
 
    MsgBox devu
 
 
 
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk.SendData "CVR 2 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
 
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk.SendData "USR 3 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
 
    comprobando = InStr(1, devu, "XFR")
    If comprobando <> 0 Then
        MsgBox entra
        arrays = Split(devu, " ")
        MsgBox arrays(3)
        Exit Sub
    End If
 
 
End Sub

envio esto al principio:

wsk.SendData "VER 1 MSNP9 MSNP8 CVR0" & vbCrLf

la cosa es que no sale bien, es asi como sale:

??????P8

y deberia salir asi

VER 1 MSNP8

que puede pasar?

no te entendi ctlon, a que te refieres?

:O pense en toda mi vida que se podian definir dos a la vez, por ej

dim devu,pavo as string

y que los dos eran string

que chasco, el otro dia me paso lo mismo, mi cobaya se llama micky y es una tia :S


necesito atencion medica

ahora me ocurre el siguiente problema, voy comentandote:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'espera

Private Sub Form_Load()
    Call conectar("messenger.hotmail.com")
End Sub
 
Private Sub wsk_Connect()
    wsk.SendData "VER 1 MSNP9 MSNP8 CVR0" & vbCrLf
End Sub
 
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer
 
    wsk.GetData devu
 
    txtdevu.Text = txtdevu.Text & vbCrLf & devu
 
    MsgBox devu
 
 
 
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk.SendData "CVR 2 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
 
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk.SendData "USR 3 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
 
    comprobando = InStr(1, devu, "XFR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(3), ":")
        If arrays(0) <> "" Then
            Call conectar(arrays(0))
            wsk.SendData "VER 4 MSNP9 MSNP8 CVR0" & vbCrLf
        End If
        Exit Sub
    End If
 
 
 
End Sub
 
Public Function conectar(ByVal ipe As String)
            wsk.Close
            wsk.Protocol = sckTCPProtocol
            wsk.Connect ipe, 1863
End Function
 
 

al iniciar el formulario lo que hago es llamar a la funcion conectar pasandole la ip o el nombre de host del servidor, el primero en pasar es messenger.hotmail.com, luego de pasarlo, el evento connect se activa y manda el primer paquetem que son respondidos y se van sucediendo una serie de encadenaciones, al llegar al ultimo paquete, se tiene que volver a hacer otra conexion con una ip que te dan y que cogo con unos split, pero la conexion se queda en conectando

alguna sugerencia de lo que peuda seR?