درود، می‌خواستم ببینم کدی برای Visual Basic 6 هست که بتونه حجمِ یه لینک رو بدست بیاره؟
یعنی من بهش لینک مستقیم دانلود رو بدم و بهم حجم فایل رو بگه... یچیز تو مایه‌های Internet Download Manager که پیش از اینکه فایل رو دانلود کنه حجمش رو نشون میده...
Printable View
درود، می‌خواستم ببینم کدی برای Visual Basic 6 هست که بتونه حجمِ یه لینک رو بدست بیاره؟
یعنی من بهش لینک مستقیم دانلود رو بدم و بهم حجم فایل رو بگه... یچیز تو مایه‌های Internet Download Manager که پیش از اینکه فایل رو دانلود کنه حجمش رو نشون میده...
سوال جالبی بود. دوستان اگه کسی میدونه لطفا جواب بده منم مشتاقم بدونم
سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
******************
********************کد:Function GetFileSize(URL As String) As Long
On Error GoTo Err
Dim strHeader As String
Inet.URL = URL
Inet.Execute , "GET"
While Inet.StillExecuting
DoEvents
Wend
strHeader= Inet.GetHeader()
Select Case Mid$(strHeader, 10, 3)
Case 401:
MsgBox "401 - Unauthorized Access!"
Inet.Cancel
Exit Function
Case 403:
MsgBox "403 - Access Denied!"
Inet.Cancel
Exit Function
Case 404:
MsgBox "404 - File Not Found!"
Inet.Cancel
Exit Function
End Select
GetFileSize = CLng(Inet.GetHeader("Content-Length"))
Exit Function
Err:
MsgBox "Error Reading File Headers!"
Exit Function
End Function
ساده تر.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***************
*********************************کد:Function GetFileSize(URL As String) As Long
Inet.URL = URL
Inet.Execute , "GET"
While Inet.StillExecuting
DoEvents
Wend
GetFileSize = CLng(Inet.GetHeader("Content-Length"))
End Function
یه کنترل Inet به فرمتون اضافه کنید و اسمش رو همون Inet بذارید../// [Ctrl+T رو بزنید و Microsoft Internet Transfer Control 6.0 رو انتخاب کنید]..////// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************************
برنامه خیلی ساده نوشته شده// اما بازم اگه به توضیحات نیاز داشتید بگید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]