Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Aqui teneis el code, ya os digo que con uno me funciona de lujo, pero no se como poner 2 o mas para que me funcione correctamente, si veis un error o teneis alguna solucion estaria muy agradecido. salu2!!
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" ( _ ByVal hHttpSession As Long, _ ByVal sVerb As String, _ ByVal sObjectName As String, _ ByVal sVersion As String, _ ByVal sReferer As String, _ ByVal something As Long, _ ByVal lFlags As Long, _ ByVal lContext As Long) As Long Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" ( _ ByVal hHttpRequest As Long, _ ByVal sHeaders As String, _ ByVal lHeadersLength As Long, _ ByVal sOptional As String, _ ByVal lOptionalLength As Long) As Long Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" ( _ ByVal hHttpRequest As Long, _ ByVal lInfoLevel As Long, _ ByRef sBuffer As Any, _ ByRef lBufferLength As Long, _ ByRef lIndex As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _ ByVal hInet As Long) As Integer Dim res As String Dim num As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Freeze_Click() Command1.Enabled = False Label1.Caption = "Connecting server..." WS.Close WS.RemoteHost = "messenger.hotmail.com" WS.RemotePort = 1863 WS.Connect End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim datos As String WS.GetData datos 'MsgBox datos Select Case Left(datos, 3) Case "VER" WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & Text1.Text & Chr(13) & Chr(10) Case "CVR" WS.SendData "USR 3 TWN I " & Text1.Text & Chr(13) & Chr(10) Case "XFR" Dim tmp() As String tmp = Split(datos, " ") WS.Close WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5) WS.Connect Case "USR" Dim tmp2() As String tmp2 = Split(datos, " ") res = tmp2(4) num = 0 Fridge1.caption = Text1.text End select End Sub
Private Sub Timer1_Timer() Timer1.Enabled = False If num < 10 Then num = num + 1 Label1.Caption = "Freezing [" & num * 10 & "%]" ElseIf num = 10 Then num = num + 1 Label1.Caption = "OK!" End If Dim tmp2() As String, tmp3 As String, tmp4 As String, hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String hopen = InternetOpen("MSMSGS", 1, 0, 0, 0) hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0) hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0) tmp2 = Split(Fridge1.Caption, "@") tmp4 = tmp2(0) & "%40" & tmp2(1) tmp3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp4 & ",pwd=clapclap, " & res lgRep = HttpSendRequest(hRequest, tmp3, -1, 0, 0) stStatusCode = Space$(1000) HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0 InternetCloseHandle hopen InternetCloseHandle hConnection InternetCloseHandle hRequest Timer1.Enabled = True End Sub
|