获取网页源代码

https://social.msdn.microsoft.com/Forums/en-US/796a87dd-5692-4df6-95f1-c191beb794d4/help-get-html-source-code-chrome?forum=vbgeneral

Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Function getwebcode(ByVal url As String, ByVal encoder As String) As String
        Dim myWebClient As WebClient = New WebClient()
        Dim myDataBuffer As Byte() = myWebClient.DownloadData(url)
        Dim SourceCode As String = Encoding.GetEncoding(encoder).GetString(myDataBuffer)
        Return SourceCode
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim back As String = getwebcode(TextBox2.Text, "UTF-8")
        TextBox1.Text = back
    End Sub
End Class

Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("http://api.hostip.info/?ip=68.180.206.184")