vb下载文件

'Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

r = URLDownloadToFile(0, spvPrintControllerURL & "?lotNo=" & lotNumber, pdfPath, 0, 0)

或者

patch=×××.pdf

FileByte = Inet1.OpenURL(spvPrintControllerURL & "?lotNo=" & lotNumber, icByteArray)
        Open pdfPath For Binary As #1
        Put #1, 1, FileByte
        Close #1