behrouz_h
جمعه 12 خرداد 1391, 00:08 صبح
سلام دوستان ، من داخل Webbrowser یه عکس لود کردم ، حالا چطوری میشه این عکس رو به صورت پنهانی و خودکار بدون نشان دادن کادر Save ، ذخیره کرد؟ ممنون.
محسن واژدی
جمعه 12 خرداد 1391, 02:36 صبح
سلام
کد زیر را در مادول کد یا فرم قرار بدین:
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
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.