Foxtable(狐表)用户栏目专家坐堂 → 网页下载问题


  共有29人关注过本帖树形打印复制链接

主题:网页下载问题

帅哥,在线噢!
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:769 积分:6152 威望:0 精华:0 注册:2018/2/1 17:26:00
网页下载问题  发帖心情 Post By:2025/3/16 10:23:00 [只看该作者]

下面代码执行没有反应,老师帮我看看,错在哪里?谢谢!

Dim url As String = "https://ggzy.hzctc.hangzhou.gov.cn/AfficheShow/Home?AfficheID=ed92e4c8-2b39-4869-9f98-3309d11fbf77&IsInner=0&IsHistory=0&ModuleID=22"
Dim baseUrl As String = "https://ggzy.hzctc.hangzhou.gov.cn"
Dim browser As System.Net.WebClient = Nothing ' 在外部声明变量

Try
    ' 添加SSL证书验证绕过
    System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12
    System.Net.ServicePointManager.ServerCertificateValidationCallback = Function() True
    
    ' 创建带Cookie的浏览器对象
    browser = New System.Net.WebClient ' 在Try块内实例化
    browser.Headers.Add("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36")
    browser.Headers.Add("Accept-Language", "zh-CN,zh;q=0.9")
    browser.Encoding = System.Text.Encoding.UTF8
    
    ' 获取网页内容并保存临时文件
    Dim html As String = browser.DownloadString(url)
    System.IO.File.WriteAllText(ProjectPath & "temp.html", html)
    
    ' ... [原有解析和下载逻辑保持不变] ...
    
Catch ex As Exception
    MessageBox.Show("错误详情:" & vbCrLf & 
    ex.Message & vbCrLf & 
    "堆栈跟踪:" & vbCrLf & 
    ex.StackTrace)
Finally
    ' 安全释放资源
    If browser IsNot Nothing Then
        browser.Dispose()
    End If
End Try




图片点击可在新窗口打开查看此主题相关图片如下:web.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2025/3/16 10:25:16编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112756 积分:574131 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/16 20:02:00 [只看该作者]

如果有开发接口发上来看看。如果是自己分析别人网页的抓数据的,这里无法做技术支持

 回到顶部