'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