I am making a simple comic aggregator, and have gotten the basic parts down, but when I am getting the data from the site, I am only reading two lines of HTML, even if I am reading from a saved site on my hard drive. Any help is appreciated.
Public Sub btnAggregate_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) _
Handles btnAggregate.Click
Dim strComicDir As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim strURL As String = "http://www.xkcd.com/"
Dim wcConnection As New WebClient()
Dim Data As Stream = wcConnection.OpenRead(strURL)
Dim Reader As StreamReader = New StreamReader(Data)
Dim strData As String = Reader.ReadLine()
MsgBox(strData)
Do While strData.Length > 0
If strData.Contains("<h3>") Then MsgBox(strData)
strData = Reader.ReadLine()
Loop
ptbComic.Image = Image.FromFile("C:\Documents and Settings\B.Perry\Desktop\battle_room.png")
End Sub
Home > Visual Basic Language > Logic error in Do While loop