Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://pdf.mxjz12.cn/aurora/200-3.html") '不同登录可直接下载
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim Asc As object = Web.Document.links
Dim s As String
For Each esa As object In Asc
If esa.outerhtml.Contains("Download01") Then
s = esa.outerhtml.split("""")(3)
Dim hc As New HttpClient(s)
If hc.GetFile("D:\桌面\新建文件夹\" & s.split("/")(3)) Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
End If
Next
web.dispose
如上内容,下载文件没问题,但是如果将web.Navigate("http://pdf.mxjz12.cn/aurora/200-3.html")换成
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139788") '需要登录网站用户名密码才能下载
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim Asc As object = Web.Document.links
Dim s As String
For Each esa As object In Asc
If esa.outerhtml.Contains("viewFile.asp") Then
s = "http://www.foxtable.com/bbs/" & esa.outerhtml.split("""")(1).Replace("amp;","")
Dim hc As New HttpClient(s)
If hc.GetFile("D:\桌面\新建文件夹\" & s.split("=")(2) & ".zip") Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
End If
Next
结果因为需要登录,结果下载下来的文件全是空文件,打不开,如何通过已知的账号密码,进行登录然后下载对应的文件?
[此贴子已经被作者于2020/10/28 10:21:19编辑过]