1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Imports System.Net
Imports System.IO
Public Class FORM1
Public request As HttpWebRequest
Public response As HttpWebResponse
Public source As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
request = DirectCast(HttpWebRequest.Create(TextBox1.Text), HttpWebRequest)
response = DirectCast(request.GetResponse, HttpWebResponse)
source = New StreamReader(response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
End Sub |
Partager