El codigo en visual es:
Código:
Dim cab As String = "Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F %2Fmessenger%2Emsn%2Ecom,sign-in=" + usr + ",pwd=" + pwd + "," + cookie + "\r\n"
Dim request As WebRequest = WebRequest.Create("https://login.passport.com/login2.srf")
request.Headers.Add("Authorization", cab)
Dim response As HttpWebResponse = request.GetResponse()
Dim ticket As String = Convert.ToString(response.Headers)
response.Close()