vb6如何将获取到的byte直接显示在picture上面，而不是下载再去显示。

Question

如何将获取到的byte直接显示在picture上面，而不是下载再去显示。

Private Sub DownNetFile(ByVal nUrl As String, ByVal cookie As String, ByVal nFile As String) '证书图片下载
    Dim b() As Byte
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open "GET", nUrl, False
    http.setrequestheader "Cookie", cookie
    http.Send
    http.WaitForResponse
    Do While http.Status <> 200
       DoEvents
    Loop

    b() = http.ResponseBody
    Open nFile For Binary As #1
    Put #1, , b()
    Close #1
    
End Sub

Answer 1

 
Private Sub DownNetFile(ByVal nUrl As String, ByVal cookie As String, ByVal nFile As String) '证书图片下载
    Dim b() As Byte
    Dim http As Object
    Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
  if not fso.FileExists(nFile) then
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open "GET", nUrl, False
    http.setrequestheader "Cookie", cookie
    http.Send
    http.WaitForResponse
    Do While http.Status <> 200
       DoEvents
    Loop
 
    b() = http.ResponseBody
    Open nFile For Binary As #1
    Put #1, , b()
    Close #1
else
    Open nFile For Binary As #1
    Get #1, , b()
    Close #1
endif    
End Sub