'Imports System
'Imports System.Net
Public Function DownloadSource(ByVal address As String, ByVal UserAgent As String) As String
Dim Result As String
Using NetC As New WebClient()
NetC.Headers(HttpRequestHeader.UserAgent) = UserAgent
Result = NetC.DownloadString(address)
End Using
Return Result
End Function
Public Function DownloadSource(ByVal address As Uri, ByVal UserAgent As String) As String
Return DownloadSource(address.ToString(), UserAgent)
End Function