Enviar datos a login hotmail por sll con winhttp

[50l3r]

Veran, estoy creando un bot no maligno que lo unico que haga sea contestar a lo que le dices, bien, estoy sacando la informacion del protocolo de esta pagina:

http://msnpiki.msnfanatic.com/index.php/MSNP13:Example_Session

he llegado hasta la parte en el que te mandan las policies, que tienes que realizar esta accion que es el passport 3.0

http://msnpiki.msnfanatic.com/index.php/MSNP13:SOAPTweener

una vez esto esta bien, deberian mandarte como un tipo de cookie que esta alojado en una variable "t" que te mandan

la cosa es que necesito recoger eso con una solicitud sll, ya que ya no permiten conexion http, y me meti con winhttp

me podriais dar un ejemplo de como mandar lo que debo mandar ahi para que me de la variable t que necesito? estoy perdidisimo, os dejo el code de lo que hice hasta el momento para que lo veais:

Código (vb) [Seleccionar] Expandir

Option Explicit

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

Public ct As Long
Public rver As String
Public wp As String
Public lc As Long
Public id As Long
Public ru As String
Public tw As Integer
Public kpp As Integer
Public kv As Integer
Public ver As String
Public rn As String
Public tpf As String






Private Sub Form_Load()
    luz = False
    Call conectar("messenger.hotmail.com")
End Sub



Private Sub wsk_Connect()
wsk.SendData "VER 1 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk2_Connect()
wsk2.SendData "VER 4 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk3_Connect()
wsk3.SendData "GET /login2.srf HTTP/1.1" & vbCrLf
wsk3.SendData "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=081191,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & kv & ",tpf=" & tpf
wsk3.SendData "User-Agent: MSMSGS" & vbCrLf
wsk3.SendData "Host: login.passport.com" & vbCrLf
wsk3.SendData "Connection: Keep-Alive" & vbCrLf
wsk3.SendData "Cache-Control: no-cache" & vbCrLf & vbCrLf

txtprueba.Text = "GET /login2.srf HTTP/1.1" & vbCrLf
txtprueba.Text = txtprueba.Text & "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=password,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & ver & ",tpf=" & tpf
txtprueba.Text = txtprueba.Text & "User-Agent: MSMSGS" & vbCrLf
txtprueba.Text = txtprueba.Text & "Host: login.passport.com" & vbCrLf
txtprueba.Text = txtprueba.Text & "Connection: Keep-Alive" & vbCrLf
txtprueba.Text = txtprueba.Text & "Cache-Control: no-cache" & vbCrLf & 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 & "Servidor: " & 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 conectar2(arrays(0))
        End If
        Exit Sub
    End If



End Sub

Private Sub wsk2_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim subarrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk2.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
   
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk2.SendData "CVR 5 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
        wsk2.SendData "USR 6 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "USR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(4), ",")
       
       
       
        For i = 0 To UBound(arrays)
            subarrays = Split(arrays(i), "=")
            Select Case subarrays(0)
                Case "ct"
                    ct = subarrays(1)
                Case "rver"
                    rver = subarrays(1)
                Case "wp"
                    wp = subarrays(1)
                Case "lc"
                    lc = subarrays(1)
                Case "id"
                    id = subarrays(1)
                Case "ru"
                    ru = subarrays(1)
                Case "tw"
                    tw = subarrays(1)
                Case "kpp"
                    kpp = subarrays(1)
                Case "kv"
                    kv = subarrays(1)
                Case "ver"
                    ver = subarrays(1)
                Case "rn"
                    rn = subarrays(1)
                Case "tpf"
                    tpf = subarrays(1)
            End Select
        Next
        Call conectar3("login.passport.com")
        Exit Sub
    End If
 
End Sub

Private Sub wsk3_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk3.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
End Sub




Public Function conectar(ByVal ipe As String)
            wsk.Close
            wsk.Protocol = sckTCPProtocol
            wsk.Connect ipe, 1863
End Function

Public Function conectar2(ByVal ipe As String)
            wsk2.Close
            wsk2.Protocol = sckTCPProtocol
            wsk2.Connect ipe, 1863
End Function

Public Function conectar3(ByVal ipe As String)
            wsk3.Close
            wsk3.Protocol = sckTCPProtocol
            wsk3.Connect ipe, 443
End Function