Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
' make sure that using System.Diagnostics; is included
Imports System.Diagnostics
' make sure that using System.Security.Principal; is included
Imports System.Security.Principal
' make sure that using System.Net; is included
Imports System.Net
' make sure that using System.IO; is included
Imports System.IO
Public Class Form1
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
Dim Url As String = textBox2.Text
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest)
Dim Response As HttpWebResponse = DirectCast(Request.GetResponse(), HttpWebResponse)
Dim Stream As New StreamReader(Response.GetResponseStream())
richTextBox1.Text = Stream.ReadToEnd()
Stream.Close()
End Sub
End Class
No comments:
Post a Comment