gorg313
یک شنبه 09 فروردین 1394, 23:20 عصر
سلام به همه
عيدتون مبارک اميدوارم سال خوبي داشته باشيد
دنبال يه سورس کد ساده براي دانلود فايل ميگشتم خوشبختانه پيداش کردم
حالا چند تا مشکل دارم اينکه اين سورس کد فايل را دانلود ميکنه ولي برنامه سنگين ميشه
دوم اينکه درباره فايل در حال دانلود اطلاعاتي نميده من ميخوام درون ليبل يه ميزان از زمان و حجم فايل را بهم بده
سورس خوب و کمي داره از 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
Dim errcode As Long
Dim url As String
Dim localFileName As String
url = "http://www.barnamenevis.org/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "دانلود شد"
Else
MsgBox "دانلود کشته شد مُرد بميره"
End If
عيدتون مبارک اميدوارم سال خوبي داشته باشيد
دنبال يه سورس کد ساده براي دانلود فايل ميگشتم خوشبختانه پيداش کردم
حالا چند تا مشکل دارم اينکه اين سورس کد فايل را دانلود ميکنه ولي برنامه سنگين ميشه
دوم اينکه درباره فايل در حال دانلود اطلاعاتي نميده من ميخوام درون ليبل يه ميزان از زمان و حجم فايل را بهم بده
سورس خوب و کمي داره از 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
Dim errcode As Long
Dim url As String
Dim localFileName As String
url = "http://www.barnamenevis.org/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "دانلود شد"
Else
MsgBox "دانلود کشته شد مُرد بميره"
End If