欢迎来到路由器窝!

获取网站代码

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2019-09-21 08:37

文章简介

Sub 获取一般性网页代码(ByVal URLstr As String) Try Dim w As New System.Net.WebClient() 要Imports System.Net w.Proxy = Nothing 设置为无代理模式,否则

  • 正文开始
  • 相关文章
    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

转载请注明:vs2010» 获取网站代码

标签:
  • 软件安装包制作(Advanced Installer)11.6.0 最新破解版
    185阅读
    破解方法: 1、先运行【advinst.msi】安装原版程序,安装完成后先不要运行程序; 2、复制压缩包中的Patch.exe程序到安装目录,默认安装目录为C:\Program Files\Caphyon\Advanced Installer 11.0\bin\x86或者x64\ 3、运行Patch.exe,点击PAT...
  • VB.net复制RichTextBox1内容源码
    104阅读
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...
  • vb.net判断文件或者文件夹是否存在源码
    91阅读
    Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Boo_DirExist(F:/d...
  • VB.NET checkbox默认选中
    160阅读
    设置控件的属性Checked设置为True
  • 在Vb.Net中弹出对话框的简单方法。使用Messagebox
    228阅读
    方法很简单,就是引用 System.Windows.Forms. 然后在代码页面头部 ImportsSystem.Windows.Forms 即可。 或者直接使用System.Windows.Forms.Messagebox.show() 之后就能使用Messagebox对话框了。
  • vb.net2010发送邮件
    146阅读
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim smtp As New System.Net.Mail.SmtpClient(smtp.126.com, 25) smt...
  • 读取文件路径的文件夹名字
    120阅读
    Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
  • vb.net 正则表达式 取 html代码中的A标签的 href 链接
    278阅读
    Public Sub saveAUrl(ByVal Str As String) Dim r As Regex Dim m As Match r = New Regex((?=a.*?href\s*=\s*)(?1[^]*)(?=|(?1\S+)), RegexOptions.IgnoreCase Or RegexOp...
  • vb.net2010读取网页内容
    84阅读
    Dim Doc As New System.Net.WebClient Dim TempText As String TempText = System.Text.Encoding.Default.GetChars(Doc.DownloadData(http://www.zngps.com/)) RichTextBox...
  • Visual Studio发布应用未能创建默认证书的问题解决方法
    216阅读
    我用Visual Studio自带的生成-发布,提示未能创建默认证书.正在中止发布。这个问题当时出现后,特意在网上找了一下,发现不少人也遇到同样的问题。解决方法:点击你创建的项目 右键》 属性》签名》从存储区选择》选择证书 当我这么做的时候,显示无可用证书 q
上一页:vb.net 正则表达式 取 html代码中的A标签的 href 链接
下一页:VB.net基础:如何获得并显示网上图片
最近更新作品
VB.net基础:如何获得并显示网上图片
更新时间:2020-07-02

150人已经看过了!

获取网站代码
更新时间:2019-09-21

147人已经看过了!

vb.net 正则表达式 取 html代码中的A标签的 href 链接
更新时间:2019-09-21

278人已经看过了!

VB.NET用正则表达提取数字
更新时间:2019-09-21

241人已经看过了!

判断指定路径下是否存在指定文件
更新时间:2018-12-08

117人已经看过了!

vb.net控件隐藏
更新时间:2017-11-20

165人已经看过了!

vb.net2010邮件发送带附件,带设置测试可用
更新时间:2017-08-24

129人已经看过了!

vb.net2010发送邮件
更新时间:2017-08-24

146人已经看过了!

VB.NET固定选项卡TabControl的标题宽度
更新时间:2017-06-13

158人已经看过了!