Dim source As String = "" Dim wb As WebClient = New WebClient() source = wb.DownloadString("http://www.9lessons.info/2010/06/facebook-like-extracting-url-data-with.html") Dim title As String = "" title = Regex.Match(source, "\<title\b[^>]*\>\s*(?<Title>[\s\S]*?)\</title\>", RegexOptions.IgnoreCase).Groups("Title").Value Dim img = "" img = Regex.Match(source, "<img.+?src=[\'](.+?)[\'].+?>", RegexOptions.IgnoreCase).Groups(1).Value Label1.Text = title imgg.ImageUrl = img
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)