Public Class MainClass
Public Shared Sub Main
System.Console.WriteLine(GetPageHTML("http://www.google.com"))
End Sub
Public Shared Function GetPageHTML(ByVal URL As String) As String
Dim objWC As New System.Net.WebClient()
Return New System.Text.UTF8Encoding().GetString(objWC.DownloadData(URL))
End Function
End Class
|