Enviar datos a login hotmail por sll con winhttp

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

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