ایا کدی برای دانلود فایل از اینترنت وجود داره ؟

[sinashahab]

سلام
لطفا سریع تر جواب منو بدید .
:تشویق::تشویق:

[meisambandari]

سلام دوسته عزیز
این سورس دانلود فایل از اینترنت!

[sinashahab]

سلام من می خواهم بدون اینکه متوجه بشه دانلود بشه

[r0ot$harp]

دوست عزیز از این کد استفاده کنید .



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
P
ublic Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()

DownloadFile "http://barnamenevis.org/forum/images/buttons/quote.gif", "c:\quote.gif"
End Sub





باتشکر احسان