一样出错
Dim url As String = "https://oss-wuliu.test.cnoocmall.com/V_TransportOrderShip/38142443/R4A2U6/%E9%99%84%E4%BB%B62.jpg?Expires=1717556417&OSSAccessKeyId=uFWxMQw7LTpby6b4&Signature=Nwr8s2KmzvgDkkGmfon4tltEwp0%3D"
Dim request As system.net.HttpWebRequest = TryCast(system.net.WebRequest.Create(url), system.net.HttpWebRequest)
Dim response As system.net.HttpWebResponse = TryCast(request.GetResponse(), system.net.HttpWebResponse)
Dim responseStream As IO.Stream = response.GetResponseStream()
Dim path As String = "D:\问题\附件2.jpg"
Dim stream As IO.Stream = New IO.FileStream(path, IO.FileMode.Create)
Dim bArr As Byte() = New Byte(1023) {}
Dim size As Integer = responseStream.Read(bArr, 0, CInt(bArr.Length))
While size > 0
stream.Write(bArr, 0, size)
size = responseStream.Read(bArr, 0, CInt(bArr.Length))
End While
stream.Close()
responseStream.Close()
Output.Show("OK")
此主题相关图片如下：1.png
加好友 
发短信
Post By：2024/5/30 15:15:00 [显示全部帖子]
