PDA

View Full Version : سوال: دانلود یک برنامه



www.pc3enter.tk
شنبه 12 تیر 1389, 23:09 عصر
سلام دوستان من تازه وارد هستم
من می خواستم با استفاده از inet1 یک برنامه را دانود کنم
به طور مثال برنامه ی IDM
http://www.fun4u.40s.ir/data/subsite/shaytan-parastan_data/files/Picture/Download%20Asan/Internet-Download-Manager.gif
http://mirror2.internetdownloadmanager.com/idman515.exe
لطفا کمکم کنید
باتشکر

parselearn
یک شنبه 13 تیر 1389, 00:02 صبح
با inet نميشه

http://barnamenevis.org/forum/showthread.php?t=148782&highlight=%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF+%D9 %81%D8%A7%D9%8A%D9%84
http://barnamenevis.org/forum/showthread.php?t=159508&highlight=%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF+%D9 %81%D8%A7%D9%8A%D9%84
http://barnamenevis.org/forum/showthread.php?t=131652

www.pc3enter.tk
یک شنبه 13 تیر 1389, 16:48 عصر
دوست عزیز من این ها را خواندم ولی به نتیجه ای نرسیدم
اگر می توانی خودت به شکل ساده و گویا و راحت برایم بگو
اخه من تازه وارد هستم و چیز زیادی بلد نیستم لطفا کمکم کن
با تشکر

parselearn
یک شنبه 13 تیر 1389, 17:08 عصر
كد اين صفحه
http://barnamenevis.org/forum/showthread.php?t=131652

كد اين صفحه با تغييراتي اين شد
تابع DLfile براي دانلود فايل
دو پارامتر داره يكي محل ذخيره سازي و دومي آدرس فايل در اينترنت (كه از تابع URLDownloadToFile ويندوز كمك ميگيره)
تابع ChekConnect هم براي اطلاع از وضعيت اتصال اينترنت هست (كه از تابع InternetGetConnectedStateEx كمك ميگيره)



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
'Dll Connect To The Internet
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'Chek Connect
Public Function ChekConnect() As Boolean
Dim sConnType As String * 255
Dim ret As Long
ret = InternetGetConnectedStateEx(ret, sConnType, 254, 0)
If ret = 1 Then
ChekConnect = True
Conname = sConnType
Else
ChekConnect = False
End If
End Function
'End Chek Connect

Public Function DLfile(savePath As String, theUrl As String) As Boolean
On Error Resume Next
Dim retVal As Long 'our return value
retVal = URLDownloadToFile(0, theUrl, savePath, 0, 0)
DLAdsfile = Not (CBool(retVal))
End Function

Private Sub Command1_Click()
If ChekConnect = True Then
If DLfile(App.Path & "\logo1.gif", "https://mail.google.com/mail/help/images/logo1.gif") = True Then
MsgBox "File was downloaded successfully!"
Else
MsgBox "There was a error downloading the file"
End If
Else
MsgBox "DisConnect"
End If
End Sub

www.pc3enter.tk
یک شنبه 13 تیر 1389, 17:47 عصر
دوست عزیز من تلاش کردم ولی خوب کار نمی کنه هر چی روش کار کردم نتونستم انجامش بده
لطفا اگر زحمتی برای شما نیست برنامه ی آن را روی صفحه بذارید تا من بتوانم مشکلم را حل کنم.

parselearn
یک شنبه 13 تیر 1389, 18:37 عصر
دوست عزيز
اگر كد رو كپي ميكرديد داخل محيط كدنويسي و يك Command هم قرار ميداديد. تموم بود

www.pc3enter.tk
یک شنبه 13 تیر 1389, 18:59 عصر
خیلی ممنونم دستت درد نکه
فقط یک مشکل کوچولو ان هم اینکه وقتی دانلود هر برنامه ای انجام می دی (مثال پایین)
If DLfile(App.Path & "\log.gif", "http://minigame.40sotoon.net/data/subsite/minigame_data/files/a.html") = True Then
با اسم log.gif ذخیره می کند
حالا روشی را بلد هستی تا که تا وقتی برنامه را دانلود می کنیم با اسم اخر نام فایل a.html و ذخیره سازی ان یکی باشد

---------------------------------------------------------------------------------------------------------------

راستی دستور ذخیره سازی سورسش کدام است
از CommonDialog1 هم می توان برای ذخیره سازی استفاده کرد یا نه

parselearn
یک شنبه 13 تیر 1389, 19:07 عصر
با تابع InStrRev ميشه.
http://barnamenevis.org/forum/showthread.php?t=158637&highlight=InStrRev

www.pc3enter.tk
یک شنبه 13 تیر 1389, 19:58 عصر
خوب دستت درد نکه
دیگر سوال ندارم
ممنون