vb.net下载网页html代码

最新推荐文章于 2024-09-14 09:35:30 发布

wyj518

最新推荐文章于 2024-09-14 09:35:30 发布

阅读量965

点赞数

文章标签： vb.net html textbox stream

本文链接：https://blog.csdn.net/wyj518/article/details/2636427

版权

Private Sub ResponseClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResponseClient.Click
        If txturl.Text = "" Then
            Page.RegisterStartupScript("msg", "<script>alert('网址不能为空！')</script>")
        Else
            pageurl = txturl.Text
            Dim request As WebRequest = request.Create(pageurl)
            Dim response As WebResponse = request.GetResponse
            Dim resStream As Stream
            resStream = response.GetResponseStream
            Dim rs As StreamReader
            rs = New StreamReader(resStream, System.Text.Encoding.UTF8)
            TextBox2.Text = rs.ReadToEnd
            rs.Close()
        End If
    End Sub