以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 网页下载问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195868) |
-- 作者:ZJZK2018 -- 发布时间: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 [此贴子已经被作者于2025/3/16 10:25:16编辑过]
|