30 lines
1.0 KiB
VB.net
30 lines
1.0 KiB
VB.net
|
Imports System.Net
|
||
|
|
Imports System.IO
|
||
|
|
Imports System.Diagnostics
|
||
|
|
|
||
|
|
Module Module1
|
||
|
|
Function GetPage(ByVal pageUrl As String) As String
|
||
|
|
Dim s As String = ""
|
||
|
|
Try
|
||
|
|
Dim request As HttpWebRequest = WebRequest.Create(pageUrl)
|
||
|
|
Dim response As HttpWebResponse = request.GetResponse()
|
||
|
|
Using reader As StreamReader = New StreamReader(response.GetResponseStream())
|
||
|
|
s = reader.ReadToEnd()
|
||
|
|
End Using
|
||
|
|
Catch ex As Exception
|
||
|
|
Debug.WriteLine("FAIL: " + ex.Message)
|
||
|
|
End Try
|
||
|
|
Return s
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Function ExtractBody(ByVal page As String) As String
|
||
|
|
Return System.Text.RegularExpressions.Regex.Replace(page, ".*<body[^>]*>(.*)</body>.*", "$1", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Sub Main()
|
||
|
|
Dim page As String = GetPage("http://yoururl.foo")
|
||
|
|
Dim body As String = ExtractBody(page)
|
||
|
|
Debug.WriteLine(body)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Module
|