Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Net
- Imports System.IO
- Private Function getHTML(ByVal Adress As String) As String
- Dim rt As String = ""
- Dim wRequest As WebRequest
- Dim wResponse As WebResponse
- Dim SR As StreamReader
- wRequest = WebRequest.Create(Adsress) 'Type in textbox info where it says address
- wResponse = wRequest.GetResponse
- SR = New StreamReader(wResponse.GetResponseStream)
- rt = SR.ReadToEnd
- SR.Close()
- Return rt
- End Function
- Button1
- TextBox2.text = getHTML(TextBox1.text)
Add Comment
Please, Sign In to add comment