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_Sessionhe 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:SOAPTweeneruna 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:
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