Connecting Tech Pros Worldwide Help | Site Map

What's wrong with this code? HttpWebRequest

 
LinkBack Thread Tools Search this Thread
  #1  
Old November 20th, 2005, 11:26 PM
Richard Aubin
Guest
 
Posts: n/a
Default What's wrong with this code? HttpWebRequest

The following code is supposed to fetch an this page from the specified url
then display the contents.

The only problem is that I'm only getting the following as the response,
when the page is actually much longer:

<html>
<head>

----

Console Application

Imports System
Imports System.IO
Imports System.Net

Module Module1

Sub Main()
'Address of URL
Dim URL As String = http://www.csharpcorner.com/default.asp
Dim request As WebRequest = WebRequest.Create(URL)
Dim response As WebResponse = request.GetResponse()
Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
Dim str As String = reader.ReadLine()

Do While str.Length > 0
Console.WriteLine(str)
str = reader.ReadLine()
Loop

Console.ReadLine("press enter to continue)

End Sub

End Module



  #2  
Old November 20th, 2005, 11:26 PM
Richard Aubin
Guest
 
Posts: n/a
Default Re: What's wrong with this code? HttpWebRequest

Nevermind, found out what it was...

Do While str.Length > 0

It encounted an empty line ;)


"Richard Aubin" <rcaubin@safe-mailDOTnet> wrote in message
news:OiJHF2BgEHA.1656@TK2MSFTNGP10.phx.gbl...[color=blue]
> The following code is supposed to fetch an this page from the specified[/color]
url[color=blue]
> then display the contents.
>
> The only problem is that I'm only getting the following as the response,
> when the page is actually much longer:
>
> <html>
> <head>
>
> ----
>
> Console Application
>
> Imports System
> Imports System.IO
> Imports System.Net
>
> Module Module1
>
> Sub Main()
> 'Address of URL
> Dim URL As String = http://www.csharpcorner.com/default.asp
> Dim request As WebRequest = WebRequest.Create(URL)
> Dim response As WebResponse = request.GetResponse()
> Dim reader As StreamReader = New[/color]
StreamReader(response.GetResponseStream())[color=blue]
> Dim str As String = reader.ReadLine()
>
> Do While str.Length > 0
> Console.WriteLine(str)
> str = reader.ReadLine()
> Loop
>
> Console.ReadLine("press enter to continue)
>
> End Sub
>
> End Module
>
>[/color]


 

Bookmarks

Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Popular Articles

What is Bytes?

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 220,662 network members.