برنامه دانلود فایل و یک سوال مربوط به آن

[emprator2009]

سلام به همه دوستان برنامه نویس:قلب:
من یک برنامه دارم که هر آدرسی بهش بدیم اون رو دانلود میکنه حالا من می خواهم:
این برنامه وقتی که آدرس یک فایل زیپ بهش داده شده و وقتی اون رو دانلود کرد یک کلید براش تعریف کنیم که فایل ها رو از حالت زیپ خارج کنه و در مای داکیومنت ذخیره کنه
ممنون میشم کسی برام تغییرات رو اعمال کنه.:قلب::لبخندساده:
مرسی
موفق باشید

[r0ot$harp]

سلام به همه دوستان برنامه نویس:قلب:
من یک برنامه دارم که هر آدرسی بهش بدیم اون رو دانلود میکنه حالا من می خواهم:
این برنامه وقتی که آدرس یک فایل زیپ بهش داده شده و وقتی اون رو دانلود کرد یک کلید براش تعریف کنیم که فایل ها رو از حالت زیپ خارج کنه و در مای داکیومنت ذخیره کنه
ممنون میشم کسی برام تغییرات رو اعمال کنه.:قلب::لبخندساده:
مرسی
موفق باشید

دوست عزیز فایلی به نام UnRAR هست از داخل پوشه WinRAR برداشته و در کنار برنامه خودتون قرار دهید . سپس از طریق دستور زیر فایل رو Extract کنید .


Unrar x File.rar Folder For Extract File

البته این برای فایل های RAR می باشد . برای فایلهای Zip هم در انجمن جستجو کنید وجود دارد .


باتشکر احسان

[emprator2009]

آقا احسان عزیز و دوست داشتنی
می دونم نباید درخواست برنامه رو بکنم ولی شما که اینقد بزرگواری کردی.:قلب: می تونی برنامه رو بگذاری آخه من این برنامه رو احتیاج دارم و حتی هیچ چیز ازش سر در نمیارم.:خجالت:

[xxxxx_xxxxx]

جستجو:
چند سوال در مورد فايل zip در VB (http://www.barnamenevis.org/forum/showthread.php?t=116101)

[emprator2009]

دوست عزیز ممنون از جوابتون
امیدوارم همیشه در زندگی موفق باشی.

[emprator2009]

xxxxx_xxxxx (http://www.barnamenevis.org/forum/member.php?u=46030)ممنونم واقعا زحمت کشیدی.
فقط یک سوال من برنامه رو دانلود کردم و اجرا می کنم تقریبا می فهمم چیه ولی نمی تونم توی برنامه ای که مال دانلود بود ازش استفاده کنم میشه برام توی اون برنامه ای که گذاشتم تغییرات رو اعمال کنی شاید فقط 5 دقیقه وقتت رو بگیرم خواهش می کنم این کا رو برام بکن.ممنون میشم.
مرسی
موفق باشی

[emprator2009]

دوستان برنامه نویس گل
خواهش می کنم یکی تغییراتی رو که گفتم برام توی برنامه ای که گذاشتم اعمال کنه.
آخه خودم هر کار می کنم به مشکل بر می خورم.:گریه::گریه:
این برنامه برای من خیلی مهمه.
فکر نکنم برای افراد با تجربه و کارکشته سایت بیشتر از 5 دقیقه طول بکشه.:لبخندساده:
خواهش می کنم برنامه رو تغییر بدید.:خجالت::خجالت::خجالت:
ممنون:قلب:
موفق باشی.

[emprator2009]

سلام به همه دوستان
:گریه::گریه::گریه::افسرده::اف� �رده::ناراحت:
هیچکس اینجا نیست به من کمک کنه خواهش می کنم یکی این برنامه رو درست کنه
به خدا وقت کم دارم باید این برنامه رو سریع درست کنم.
خیلی برام حیاتی هست.
متشکرم.

[emprator2009]

ترو خدا یکی کمک کنه بابا ناسلامتی اینجا بزرگترین سایت برنامه نویسان ایرانه. ها!!!
خودم خیلی روش کار کردم ولی نتونستم این دوتا برنامه رو باهم جور کنم.
به جون خودم می دونم نباید پشت سر هم پست های مکرر بزارم اما می بینم چاره ای نیست.
منو به بزرگواری خودتون ببخشید.
امیدوارم هرکی کمک کنه خدا دستش رو یک جای دیگه بگیره.
ممنون
موفق باشید

[xxxxx_xxxxx]

دو تا كلاس داره يكي براي zip كردن يكي هم براي unzip. به كلاس zip كه احتياجي نداريد، حذفش كنيد.
دستورات توي كامند unzip رو نگه داريد. بقيه رو هم حذف كنيد.

[r0ot$harp]

دوست عزیز از این کد استفاده کن ببین مشکلت حل می شه یا نه ؟



Dim FileName As String

Private Sub cmdUpdate_Click()

If cmdUpdate.Caption = "Download" Then
FileName = GetFileName(Text.Text)
cmdUpdate.Caption = "Cancel"
ProgressBar.Value = 0
FileDownloader.DownloadFile Text.Text, App.Path & "\" & FileName

Else
FileDownloader.Cancel
ProgressBar.Value = 0
cmdUpdate.Caption = "Download"
End If

End Sub

Private Sub FileDownloader_DowloadComplete()
MsgBox "Download complete", vbOKOnly + vbInformation, "Success"
cmdUpdate.Caption = "Download"
ProgressBar.Value = 0

If InStr(1, LCase(FileName), ".rar") <> 0 Then

Unrar

ElseIf InStr(1, LCase(FileName), ".zip") <> 0 Then
Unzip
Else
MsgBox "This File Non Archive"

End If

End Sub

Private Sub FileDownloader_DownloadErrors(strError As String)
MsgBox strError, vbOKOnly + vbCritical, "Error"
cmdUpdate.Caption = "Download"
ProgressBar.Value = 0
FileDownloader.Cancel
End Sub

Private Sub FileDownloader_DownloadProgress(intPercent As String)
ProgressBar.Value = intPercent
End Sub

Public Function GetFileName(strURL As String) As String

On Error Resume Next

Dim i As Integer

Dim strFileName As String

i = Len(strURL) - 1

If i <= 0 Then GetFileName = "": Exit Function
If Mid(strURL, 1, 7) <> "http://" Then GetFileName = "": Exit Function
If strURL = "http://" Then GetFileName = "": Exit Function

Do Until i = 0

If Mid(strURL, i, 1) = "/" Then
strFileName = Mid(strURL, i + 1, Len(strURL) - i)

Dim a As Integer

a = Len(strFileName) - 1

Do Until a = 0

If Mid(strFileName, a, 1) = "." Then
GetFileName = strFileName

Exit Function

Else
a = a - 1
End If

Loop

Exit Do

Else
i = i - 1
End If

Loop

GetFileName = ""
End Function

Private Sub Unzip()

End Sub

Private Sub Unrar()

End Sub



باتشکر احسان

[emprator2009]

ممنون احسان جان از کمک شما (می دونستم بالاخره یکی جواب میده ممنونم)
برنامه رو همون جوری که گذاشتی تغییر دادم ولی ارور میده.
شاید من یک جای اشتباه کردم میشه برنامه رو ضمیمه کنی.
مرسی
ممنون
موفق باشید

[xxxxx_xxxxx]

سلام
تو PM گفتيد:


برنامه:
اول فایل زیپ رو دریافت کنه بعد از حالت زیپ خارج کنه و بعد بریزه داخل مای داکیومنت کاربر.


ويرايش:تكميل شد. (خلاصه شد + ذخيره تو My Documents)

راستي بخشي از دلايلي كه به اين تاپيك نمي تونستم پاسخ بدم:
1- طول كشيدن پيدا كردن يك فايل زيپ كم حجم تو اينترنت
2- سرعت پايين اينترنت
3- مشكلات اخير سايت كه هر صفحه بعد از 10 بار رفرش مياد
4- تغييرات تو برنامه و اجراي اون بدون ذخيره كردن تغييرات و مواجه شدن با خطاي معروف Don't Send
و ...
اينها رو گفتم كه يه وقت برداشت ديگه اي از اين غيبت نشه
موفق باشيد/

[emprator2009]

عالی بود نمی دونم چی بگم دمت گرم
خدا خیرت بده.
یک دنیا تشکر.
مرسی
موفق باشی

[iranmdp]

دوستان عزیز این رو دانلود کنید ، برای دانلود فایل است ولی فکر می کنم از برنامه ای که ویرایش شده بهتر باشه
، چون من خودم روش کار کردم و حد اقل دانلود هایی که برای من کرده بدون فرمان خطا بوده

[iranmdp]

http://stashbox.org/416390/loading.gif

ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ــــــــــ



دوستان عزیز هیچ کدوم از شما نمی تونید همین برنامه رو طوری درست کنید که بشه با اون از سرور های پروکسی دانلود کرد ؟

[kahrizak]

hello i'm babak;
first you must download sharpziplib.dll
by that follow these below codes :)
//////

filename = filename;
FileStream fileStreamIn = new FileStream
(filename, FileMode.Open, FileAccess.Read);
ZipInputStream zipInStream = new ZipInputStream(fileStreamIn);
ZipEntry entry = zipInStream.GetNextEntry();

//byte[] buffer = new byte[BufferSize];

int _arrsize = 0;
while (entry != null)
{
_arrsize++;
zipInStream.Password = orginalpass;
entry = zipInStream.GetNextEntry();
}
byte[][] _unzipedarr = new byte[_arrsize][];
fileStreamIn.Close();
zipInStream.Close();

fileStreamIn = new FileStream(filename, FileMode.Open, FileAccess.Read);
zipInStream = new ZipInputStream(fileStreamIn);
entry = zipInStream.GetNextEntry();
int _count = 0;

while (entry != null)
{
zipInStream.Password = orginalpass;
byte[] buffer = new byte[(int)entry.Size];
_unzipedarr[_count] = new byte[zipInStream.Read(buffer, 0, buffer.Length)];
buffer.CopyTo(_unzipedarr[_count], 0);
entry = zipInStream.GetNextEntry();
_count++;
}

[SAEID2009]

آیا میشه کاری کرد که وقتی برنامه داره دانلود میشه زمان باقی مانده رو هم اعلام کنه مثل download manager اگر کسی بلده برنامش رو لطف کنه و بزاره.
با تشکر