La diferencia esk lo hago con el control inet ya k no me importa la dependencia y no hay k hacer nada como la funcion Satura.
Aki la parte del codigo k uso para los requests:
Código:
.
.
.
Case "USR 3"
sTmp = Split(sData, "USR 3 TWN S ")
sChallengeString = sTmp(1)
netMain.Execute "https://nexus.passport.com/rdr/pprdr.asp", "GET"
Do Until netMain.StillExecuting = False
DoEvents
Loop
iStart = InStr(netMain.GetHeader("PassportURLs"), "DALogin=") + 8
iLength = InStr(iStart, netMain.GetHeader("PassportURLs"), ",")
sDALogin = Mid(netMain.GetHeader("PassportURLs"), iStart, iLength - iStart)
netMain.Execute "https://" & sDALogin, "GET", , "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & FixAccount(txtAccount.Text) & ",pwd=password," & sChallengeString
Do Until netMain.StillExecuting = False
DoEvents
Loop
If bLock = True Then
If stbMain.Panels(1).Text <> ">> Account Frozen!" Then
If stbMain.Panels(1).Text <> ">> Freezing... [90%]" Then
iStatus = iStatus + 10
stbMain.Panels(1).Text = ">> Freezing... [" & iStatus & "%]"
Call basTray.Modify(Me, "ICEBERG", "Freezing... [" & iStatus & "%]")
Else
iStatus = 0
stbMain.Panels(1).Text = ">> Account Frozen!"
Call basTray.Modify(Me, "ICEBERG", "Account Frozen!")
End If
End If
sckMain.Close
sckMain.Connect "messenger.hotmail.com", 1863
End If
End Select
.
.
.
.
.
Case "USR 3"
sTmp = Split(sData, "USR 3 TWN S ")
sChallengeString = sTmp(1)
netMain.Execute "https://nexus.passport.com/rdr/pprdr.asp", "GET"
Do Until netMain.StillExecuting = False
DoEvents
Loop
iStart = InStr(netMain.GetHeader("PassportURLs"), "DALogin=") + 8
iLength = InStr(iStart, netMain.GetHeader("PassportURLs"), ",")
sDALogin = Mid(netMain.GetHeader("PassportURLs"), iStart, iLength - iStart)
netMain.Execute "https://" & sDALogin, "GET", , "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & FixAccount(txtAccount.Text) & ",pwd=password," & sChallengeString
Do Until netMain.StillExecuting = False
DoEvents
Loop
If bLock = True Then
If stbMain.Panels(1).Text <> ">> Account Frozen!" Then
If stbMain.Panels(1).Text <> ">> Freezing... [90%]" Then
iStatus = iStatus + 10
stbMain.Panels(1).Text = ">> Freezing... [" & iStatus & "%]"
Call basTray.Modify(Me, "ICEBERG", "Freezing... [" & iStatus & "%]")
Else
iStatus = 0
stbMain.Panels(1).Text = ">> Account Frozen!"
Call basTray.Modify(Me, "ICEBERG", "Account Frozen!")
End If
End If
sckMain.Close
sckMain.Connect "messenger.hotmail.com", 1863
End If
End Select
.
.
.
Salu2