Question

vb 保存远程图片

能否用VB实现把网络上的图片保存到本地啊？代码怎么写啊？

Answer 1

'调用一个API函数就可以了啊
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
'将图片保存到D盘
Private Sub Command1_Click()
URLDownloadToFile 0,ByVal "http://www.baidu.com/search/img/rss_xml.jpg",ByVal "d:\1.jpg" ,0,0
Msgbox "现在完成",,"提示"
End Sub

Answer 2

Private Sub Command1_Click()
Dim myData() As Byte, i&, myURL$
myURL = "https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/img/logo-zhidao.gif"
If Inet1.StillExecuting = True Then Exit Sub
myData() = Inet1.OpenURL(myURL, icByteArray)
For i = Len(myURL) To 1 Step -1
If Left$(Right$(myURL, i), 1) = "/" Then RealFile$ = Right$(myURL, i - 1)
Next

Open "c:\1.gif" For Binary Access Write As #1
Put #1, , myData()
Close #1
Picture1.Picture = LoadPicture("c:\1.gif")
End Sub

Private Sub Form_Load()
Picture1.AutoSize = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Dir("c:\1.gif") <> "" Then Kill "c:\1.gif"
End Sub