Simple web request

you can just copy all this into a form....

Imports System.Xml

Imports System.Xml.Serialization

Imports System.Net.WebClient

Imports System.Net.WebProxy

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim ds As New DataSet

Dim myadd As Uri = New Uri("Http://isa:80")

Me.txtZip.Text = "41018"

Dim strUrl As String = String.Format("http://xml.weather.yahoo.com/forecastrss?p={0}", txtZip.Text)

Dim nc As New Net.NetworkCredential("username", "password", "domain")

Dim wp As New Net.WebProxy

Dim wr As Net.WebRequest = Net.WebRequest.Create("http://forums.microsoft.com/MSDN/rss.aspx?ForumID=159&Mode=0&SiteID=1")

' set default credentials

'.GetProxy(http://isa:80 )

wp.Credentials = nc 'System.Net.CredentialCache.DefaultCredentials

'wp.Credentials = System.Net.CredentialCache.DefaultCredentials

Try

ds.ReadXml("http://forums.microsoft.com/MSDN/rss.aspx?ForumID=159&Mode=0&SiteID=1")

DataGridView1.DataSource = ds.Tables("item")

Catch ex As Exception

MessageBox.Show(ex.ToString)

End Try

''' This is what I thought I saw someone do, and it worked then.. guess they were not behind a proxy 'maybe?

'Dim weather As New XmlDocument

'weather.Load("http://www.noaa/gov/weather.xml")

'Dim currentweather As String = weather.SelectSingleNode("//temp_f").Value

'Me.TextBox1.Text = currentweather

''' End of what I was trying to do...

End Sub

Private Sub btnGetWeather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetWeather.Click

Dim sr As IO.StreamReader

Dim wc As New System.Net.WebClient

Dim strUrl As String

Dim strOut As String = ""

'strUrl = String.Format("http://xml.weather.yahoo.com/forecastrss?p={0}", txtZip.Text)

strUrl = String.Format("http://rss.weather.com/weather/rss/local/40245?cm_ven=LWO&cm_cat=rss&par=LWO_rss", txtZip.Text)

Try

sr = New IO.StreamReader(wc.OpenRead(strUrl))

Dim strHtml As String = sr.ReadToEnd

Dim x As Integer = strHtml.IndexOf("<img src")

Dim y As Integer = strHtml.IndexOf(")<br/>")

strOut = strHtml.Substring(x, y - x + 6)

sr.Close()

Catch

strOut = "<h1>Error getting weather</h1>"

Finally

Me.TextBox1.Text = strOut

'WebBrowser1.DocumentText = strOut

End Try

End Sub

End Class