Sub 获取一般性网页代码(ByVal URLstr As String)
        Try
            Dim w As New System.Net.WebClient() '要Imports System.Net
            w.Proxy = Nothing '设置为无代理模式，否则首次运行会慢4秒左右。
            w.CachePolicy = New Cache.RequestCachePolicy(Cache.RequestCacheLevel.NoCacheNoStore) '不要缓存数据，每次都重新拉取最新源码
            If UTF8YN = True Then
                w.Encoding = System.Text.Encoding.UTF8 '网站编码，否则乱码
            End If

            'w.Headers.Add(HttpRequestHeader.UserAgent, "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36") '模拟浏览器请求头
            'w.Headers.Add(HttpRequestHeader.Accept, "text/html, application/xhtml+xml, application/xml; q=0.9, image/webp, */*; q=0.8") '请求的格式
            'w.Headers.Add(HttpRequestHeader.AcceptLanguage, "zh-CN, zh; q=0.8") '注意这一个请求头是必须的。

            Dim strHtml As String = w.DownloadString(URLstr)
            Debug.Print(strHtml)
            RichTextBox1.Text = strHtml

            UTF8YN = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub