标题：网页下载问题

1楼

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

此主题相关图片如下：web.jpg

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

共1 条记录, 每页显示 10 条, 页签: [1]