Not Working ..................
Dim requestUriString As String = "https://technet.rapaport.com/HTTP/Authenticate.aspx" Dim request As WebRequest = WebRequest.Create(requestUriString) request.Method = "POST" request.ContentType = "application/x-www-form-urlencoded" Dim requestStream As Stream = request.GetRequestStream() SetControlPropertyValue(lblObjectName, "Text", "Authenticating . . .") Dim s As String = ("username=" & UserId & "&password=" & Password) Dim bytes As Byte() = Encoding.ASCII.GetBytes(s) requestStream.Write(bytes, 0, bytes.Length) requestStream.Close() SetControlPropertyValue(lblObjectName, "Text", "Downloading Rapaport . . .") Me.Refresh() Dim reader As New StreamReader(request.GetResponse.GetResponseStream()) Dim str4 As String = reader.ReadToEnd ''---- for Round 'Dim str1 As String 'str1 = "http://technet.rapaport.com/HTTP/Prices/CSV2_Round.aspx?ticket=" & str4 SetProgress(4) SetControlPropertyValue(lblObjectName, "Text", "Downloading Rapaport for Round . . .") Me.Refresh() request = WebRequest.Create(("http://technet.rapaport.com/HTTP/Prices/CSV2_Round.aspx?ticket=" & str4)) request.Method = "GET" Dim reader2 As New StreamReader(request.GetResponse.GetResponseStream)
|