one way of doing this could be with httpwebrequest

[code]

            Dim uri1 As New Uri("http://localhost/WhereMyoldASPsiteisLogin")
            Dim uri2 As New Uri("http://localhost/WhereMyoldASPsiteisPagesAre")

            Dim data1 As String = "username=" + My.Settings.USER.ToString + "&password=" + My.Settings.LoginPWD.ToString

            Try

       

                If uri2.Scheme = Uri.UriSchemeHttp Then
                    Dim cookieContainer1 As New CookieContainer

                    Dim request1 As HttpWebRequest = HttpWebRequest.Create(uri1)
                    request1.Accept = "*/*"
                    request1.KeepAlive = True
                    request1.CookieContainer = cookieContainer1
                    request1.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)"
                    request1.Method = "GET"

                    Dim oResponse1 As HttpWebResponse = request1.GetResponse()

                    If (Not oResponse1.Cookies Is Nothing Or oResponse1.Cookies.Count > 0) Then

                        Dim cookie2 As Cookie
                        For Each cookie2 In oResponse1.Cookies

                            Dim kalle4 As Integer = 0
                            cookieContainer2.Add(cookie2)
                        Next
                    End If

                    Dim request As HttpWebRequest = HttpWebRequest.Create(uri2)

                    request.CookieContainer = cookieContainer2

                    request.Method = WebRequestMethods.Http.Post
                    request.ContentLength = data1.Length
                    request.ContentType = "application/x-www-form-urlencoded"

                    request.ProtocolVersion = HttpVersion.Version10

                    Dim writer As New StreamWriter(request.GetRequestStream)

                    writer.Write(data1)

                    writer.Close()

                    Dim oResponse As HttpWebResponse = request.GetResponse()
                    Dim reader As New StreamReader(oResponse.GetResponseStream())
                    Dim tmp As String = reader.ReadToEnd()
                    oResponse.Close()

[/code]

/Johan Affärssystem