لود عکس در Webbrowser و دخیره آن در کامپیوتر ؟ ( لطفا راهنمایی کنید)

[behrouz_h]

سلام دوستان ، من داخل Webbrowser یه عکس لود کردم ، حالا چطوری میشه این عکس رو به صورت پنهانی و خودکار بدون نشان دادن کادر Save ، ذخیره کرد؟ ممنون.

[محسن واژدی]

سلام
کد زیر را در مادول کد یا فرم قرار بدین:

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

Public Sub SaveWBPicture(sImgURL$, sDestination$)
URLDownloadToFile 0, sImgURL$, sDestination$, 0, 0
End Sub


به عنوان مثال:

Private Sub Command1_Click()
Call SaveWBPicture("http://www.google.com/images/srpr/logo3w.png", "c:\pic.png")
End Sub


موفق باشید