Public Function Login(ByVal mUser As String, ByVal mPass As String) As _
      Boolean
        Dim myWebRequest As Net.HttpWebRequest
 
        Dim myLoginStream As String = "PPSX=PassportR&login=" & _
          System.Uri.EscapeDataString(mUser) & "&passwd=" & mPass & _
          "&LoginOptions=2&SI=" & System.Uri.EscapeDataString("    Anmelden   " & _
          "")
        myWebRequest = Net.HttpWebRequest.Create( _
        "https://login.live.com/ppsecure/post.srf?id=2&svc=mail&cbid=24325&msp" & _
        "jph=1&tw=0&fs=1&fsa=1&fsat=1296000&lc=1031&_lang=DE&bk=1157717297")
        myWebRequest.Method = "POST"
        myWebRequest.ContentType = "application/x-www-form-urlencoded"
        myWebRequest.ContentLength = myLoginStream.Length
 
        Dim myWriter As IO.Stream = myWebRequest.GetRequestStream()
        myWriter.Write(System.Text.Encoding.UTF8.GetBytes(myLoginStream), 0, _
          myWebRequest.ContentLength)
        myWriter.Close()
 
        Dim myResp As Net.HttpWebResponse = myWebRequest.GetResponse()
        Dim myStream As IO.Stream = myResp.GetResponseStream()
        Dim myB(1023) As Byte
        Dim I As Int32 = 1
        Dim myString As String = ""
        While I > 0
            I = myStream.Read(myB, 0, 1024)
            If I = 0 Then Exit While
            myString &= System.Text.Encoding.GetEncoding(1252).GetString(myB, _
              0, I)
        End While
 
        Dim myOut As New IO.StreamWriter("c:\out.html", False, _
          System.Text.Encoding.GetEncoding(1252))
        myOut.WriteLine(myString)
        myOut.Close()
 
        Return False
    End Function

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com