المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : درس عمل برنامج لضغط الملفات ببرنامج Auto Play Media Studio


ايمن سالم
12-02-2011, 04:21 PM
عمل برنامج لضغط الملفات وتشفيرها شبيه ببرنامج Winzip

http://ahmedreda89.googlepages.com/Salam2.png


درس عمل برنامج ضغط الملفات
**********
سوف نشرح اليوم درس جميل وهو عمل برنامج لضغط الملفات وتشفيرها شبيه ببرنامج Winzip وغيره من برامج ضغط الملفات فالطريقة سهله وممتعه وتريد قليل من التركز فقط .
**********
نبدأ باسم الله
أولاً نفتح مشروع جديد ونختار خلفية أولون علي اختيارك :

http://img525.imageshack.us/img525/7658/001hbh.jpg

ثانياً نقوم بإدراج 4 أزرار ونسميها كالتالي:
1- إضافة ملف
2- إضافة مجلد
3- حــــــــــذف
4- حــذف الكل

http://img825.imageshack.us/img825/1818/75795355.jpg

1- ( إضافة ملف)
دبل كلك علي زر إضافة ملف ثم ندرج الطود التالي:

-- Display file browse dialog
fAdd = Dialog.FileBrowse(true, "Add File...", _DesktopFolder, "All Files (*.*)|*.*|", "", "", false, true);
if fAdd[1] ~= "CANCEL" then
-- Split file path
sFile = String.SplitPath(fAdd[1]);
-- Add file to listbox
ListBox.AddItem("ListBox1", sFile.Filename..sFile.Extension, fAdd[1]);
end


http://img156.imageshack.us/img156/7544/14283305.jpg

2- (إضافة مجلد)
دبل كلك علي زر إضافة مجلد ثم ندرج الكود التالي:

-- Display folder browse dialog
folAdd = Dialog.FolderBrowse("Add File(s) From Folder", _DesktopFolder);
if folAdd ~= "CANCEL" then
-- Set file type(s)
tbSearchFiles = {"*.*"};
for index,type in tbSearchFiles do
-- Collect file(s) in folder
file = File.Find(folAdd, type, false, false, nil);
if file ~= nil and file ~="CANCEL" then
for j,file_path in file do
-- Split file path
sFile = String.SplitPath(file_path);
-- Add file to listbox
ListBox.AddItem("ListBox1", sFile.Filename..sFile.Extension, file_path);
end
end
end
end


http://img703.imageshack.us/img703/645/23000257.jpg

3- ( حــــذف)
دبل كلك علي زر حذف ثم ندرج الكود التالي:

lSelected = ListBox.GetSelected("ListBox1");
if (lSelected) then
-- Remove selected from listbox
ListBox.DeleteItem("ListBox1", lSelected[1]);
end


http://img821.imageshack.us/img821/3330/49331896.jpg

4- ( حذف الكل)
دبل كلك زر حذف الكل ثم ندرج الكود التالي:

-- Delete all items from listbox
ListBox.DeleteItem("ListBox1", -1);


http://img203.imageshack.us/img203/9706/47825600.jpg

ثم نقوم بإضافة عنصرين :
: ListBox وهو لعرض أسماء الملفات بداخله
Input: لتشفير الملف المضغوط بباسوورد كالتالي :

http://img13.imageshack.us/img13/2848/89896573.jpg

ثم نختار من Project ثم Global Functions كما في الصور التالية:

http://img828.imageshack.us/img828/2333/14407994.jpg

ونقوم بإدراج الكود التالي:

function QueryAllowProjectClose() --this function will be called when the program is exiting
confirmation = Dialog.Message("رسالة تأكيد?", "هل تود بالفعل الخروج من البرنامج?", MB_YESNO, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
if confirmation == 6 then
-- The yes button was pressed, allow program to close (return true)
return true;
else
-- The yes button was NOT pressed, do NOT allow the program to close (Return false)
return false;
end
end


http://img148.imageshack.us/img148/111/31175699.jpg

وأخيراً وليس أخراً نقوم بإدراج زر ونسميه (إبدا الضغط) وشرحة هو لضغط الملف بالإضافة لخروج نافذة تحديد مكان حفظ الملف بعد الضغط
دبل كلك الزر ثم ندرج الكود التالي:

-- Count listbox items (file(s) to add to zip)
tFiles = ListBox.GetCount("ListBox1");

if tFiles == 0 then
-- Display error message
Dialog.Message("خطأ", "لا يوجد ملف في مريع القائمة الرجاء الضغط على اضافة ملف .", MB_OK, MB_ICONINFORMATION);
else
-- Display save zip file as... dialog
sDia = Dialog.FileBrowse(false, "Save Zip File As...", _DesktopFolder, "Zip File (*.zip)|*.zip|", "", "zip", false, false);
if sDia[1] ~= "" and sDia[1] ~= "CANCEL" then
-- Create a table containing files to add to zip
tb_Files = {}
for i=1, tFiles do
tFile = ListBox.GetItemData("ListBox1", i);
Table.Insert(tb_Files, i, tFile);
end
-- Show status dialog
StatusDlg.Show(MB_ICONNONE, false);
-- Add files to zip
Zip.Add(sDia[1], tb_Files, true, Input.GetText("Input1"), ComboBox.GetItemData("ComboBox1", ComboBox.GetSelected("ComboBox1")), nil, false);
-- Hide status dialog
StatusDlg.Hide();
end
end


http://img823.imageshack.us/img823/8853/35854115.jpg

وهكذا يصبح الشكل النهائي

http://img717.imageshack.us/img717/4927/19153065.jpg

وفي النهاية نضغط F5 للمعاينة والتجربة

وللإفادة الأكثر تم رفع الملف المشروح عليه مفتوح المصدر
للتحميل

http://img31.imageshack.us/img31/2525/6463dba45d.gif (http://www.mediafire.com/?lxeed0o9dcw3ne8)

وفي النهاية ارجوا ان اكون قد وفت في الشرح
فإن صح فمن الله وإن خطأ فمن نفسي والشيطان
ولا تنسونا من صالح دعائكم

مرفق الشرح في كتاب الكترونى

حمد محمد
12-02-2011, 04:34 PM
●ـঝঝछঊǁ|[موضوع مهم وابداع كبير]|ǁछঝঝछـ●

abohmam
12-02-2011, 05:42 PM
بارك الله فيك اخانا أيمن

فكرة جميلة والشرح رائع

ساقوم بالمحاولة والتطبيق ان شاء الله

البغرامي
12-02-2011, 06:15 PM
السلام عليكم ورحمة الله وبركاته
موضوع جميل ومفيد جدا اخي واكواد برمجية قوية جدا تستحق التجربة والبرمجة^^
بارك الله فيك اخي العزيز ايمن
+ واصل انك في الطريق الصحيح:abc_138:

المغربي الجديد
12-02-2011, 08:13 PM
جزاك الله خيرا
وبارك الله بك وفيك الى يوم الدين
موضوع رائع جدا جدا
تم نسخه وتحميل المرفق وستتم التجربة ان شاء الله لأنه غريب علي ولازم أجربه
جعل الله عملك في ميزان حسناتك
تسلم الايادي
:abc_152:

أبو يوسف
12-02-2011, 08:22 PM
جزاك الله خيرا اخي الكريم ايمن سالم وبارك الله فيك

المغربي الجديد
12-02-2011, 08:58 PM
جزاك الله كل خير
بعد الاطلاع لم أشأ الا الرجوع الى الموضوع لأشكرك على المرفق الرائع فعلا فكرة رائعة أن نوثق المواضيع بشروحات في شكل كتيب مرفق للاحتفاظ به والرجوع اليه عند الحاجة
جعل الله عملك في ميزان حسناتك
تسلم الايادي
:abc_152:

ام هشام
12-02-2011, 09:24 PM
http://www.alhsa.com/forum/imgcache2/39339.gif

الاصيل
13-02-2011, 02:32 PM
السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . بارك الله فيك اخانا أيمن:abc_152:

ايمن سالم
13-02-2011, 04:10 PM
بارك الله فيكم جميعا
وشكرا لمروركم العطر وردودكم الاكثر من رائعه
ولقد رفعت لكم ملف العمل مفتوح المصدر
للتحميل إضغط علي الارنوب

http://img31.imageshack.us/img31/2525/6463dba45d.gif (http://www.mediafire.com/?lxeed0o9dcw3ne8)

عاشق الحور
19-02-2011, 11:18 AM
بارك الله فيك

فلسطيني
19-02-2011, 11:24 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

محمود عفيفى
23-02-2011, 04:42 AM
تسلم أيدك اخى أيمن
درس رائع والحمد لله تمت التجربه
تم التقييم وبإنتظار المزيد بإذن الله :abc_139:

محمد العهامي
27-02-2011, 11:33 AM
حياك الله أخي أيمن سالم

شرح مميز وموضوع مهم ورائع

ولدي سؤال عسى أن تجد له حل

لدي ملف مضغوط rar or zip محمي بكلمة سرية .. وأريد فتح هذه الملفات عن طريق الاوتو بلي .. دون علم المستخدم بالكلمة السرية

للتوضيح أكثر .. مشروعي يحوي على عدة ملفات رار او زيب محمية بكلمة مرور وهذه الملفات محتوية على برامج أو ما شابة أريد عندما يقوم المستخدم

بالنقر على أيقونة ما يقوم البرنامج بأدخال الرقم السري في الملف المحمي وفكة إلى أي مكان ومن ثم تشغيلة ..

أتمنى أن تجد طلبي هذا.... حتى وأن كانت هذه الطريقة بالملتميديا بلدر ..( لاني وجدت بعض الاقراص مصممة بهذه الطريقة)

أو أستخدام الملفات الدفاعية في عمل ذلك .. وهل يدعم الاوتو بلي أو الملتميديا بلدر شفرات الدوز اقصد ملفات bat

لك ألف ألف شكر مقدماً ..

ايمن سالم
19-03-2011, 04:44 PM
:abc4web_c:

الدموكي
25-03-2011, 01:38 AM
بارك الله فيك اخ ايمن علي هذا الشرح الممتاز والبسيط وانت شجعتني لتعلم هذا البرنامج الرائع
جزاك الله كل خير :abc_152:

علاء بركات
21-04-2011, 10:33 AM
لك الاجر والثواب من رب العباد
موفق

اسامه محي احمد
21-04-2011, 09:03 PM
مشكوريييييييييييييييين

سعيد سوبر
30-04-2011, 05:52 PM
شكرا ..................؟:abc_022:

أبوياسر
04-05-2011, 08:08 AM
بارك الله فيك على هذا الموضوع الرائع
:abc_139::abc_139:
:abc_050::abc_050:

بريزة
02-07-2011, 01:33 PM
شكرا شكرا بارك الله في عملك

محمود الشريف
03-07-2011, 06:27 PM
مشكور أخوي

بدر ضاوي
14-07-2011, 08:27 AM
ابداع
جزاك الله خير

أبو صخر
14-07-2011, 05:29 PM
:abc_152: شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_152:

بدر ضاوي
15-07-2011, 10:14 AM
البرنامج شغال صح
الا فقره المجلد يطلع خطاء اذا اظفت مجلد
ياليت احد يقدر يفيدنا

الحارث بن فيصل
15-07-2011, 03:05 PM
:abc_138::abc_138: شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_138::abc_138:

يحمد الفزاني
16-07-2011, 02:47 AM
نسال الله أن يحفظ جميع بلاد المسلمين من بطش الطغاة والجبارين
اللهم أبدلنا بمن يُحكم فينا شرعك الذي إرتضيت لنا .....
إنك نعم المولى ونعم النصير

رمضان الجزائري
11-12-2011, 01:51 AM
شكررررررررررررررررررررررر ررررررررررررررا

أبو فارس
13-12-2011, 02:06 PM
:abc_022: موفق بإذن الله ... لك مني أجمل تحية . :abc_152:

عفروتو
17-12-2011, 09:31 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_152:

سميرة
11-03-2012, 07:38 AM
شكرا جزيلا

منعمفيتش
20-06-2012, 06:45 PM
جـزاك الله خيـرا:abc_050:

مجاهد عصام
16-09-2012, 04:14 PM
جزاك الله كل خير

الهمام
17-09-2012, 02:49 PM
شكرا على المجهود الرائع

موفق بإذن الله ... لك مني أجمل تحية .

عبد الجليل الأمين
22-09-2012, 05:21 PM
السلام عليكم ورحمة الله وبركاته

كابرا دابرا
29-09-2012, 11:54 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .


:abc_026:

ديافانس
19-10-2012, 05:48 AM
جزاكم الله خيرا
رابط ملف المشروع لا يعمل

محمدالسيدمحمد
15-11-2012, 08:05 PM
موفق بإذن الله ... لك مني أجمل تحية .

كمال الجزائري
16-11-2012, 02:27 PM
جزاك الله خيرا

سامى ابوسريع
16-11-2012, 10:04 PM
جزاك الله كل الخير اخى الكريم :abc_152:

الخامس
11-12-2012, 04:36 PM
رائع جداا والف شكر

محمد الــمصري
07-02-2013, 02:03 PM
ش شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

فتى الدموع
28-03-2013, 12:20 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

حسام كندش
22-04-2013, 03:57 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

منار بربرة
27-04-2013, 09:54 AM
الف شكر اخى

النجم المبدع
15-08-2013, 07:05 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

الكبيراوى
27-09-2013, 05:34 PM
https://lh6.ggpht.com/ljsBlBRMogh_nP_CuBBoS3ux8F6J5KB8Uo4A-75cCGGKj9RyVTEMUyE_nP9-Nhwk99bw=w300 شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_051:

خيبر خيبر
03-12-2013, 02:46 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

تورنت جيتس
03-12-2013, 09:16 PM
فكرة جميلة والشرح رائع

فرح صالحي
09-03-2014, 07:44 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
:abc_152:

محمد الشيمى
28-03-2014, 01:36 AM
بارك الله فيك

فاضل الجبوري
15-04-2015, 08:34 AM
السلام عليكم ورحمة الله وبركاته ..علما ان البرنامج هذا البرنامج يااخي لا يعمل بصورة صحيحة

أنس ياسر
25-05-2015, 01:40 AM
شكرا جزيلا اخي الكريم

احمد مجدى
07-04-2016, 01:20 AM
ممتاز تسلم وبارك الله فيك

محمد سامر
11-08-2016, 05:20 PM
موفق بإذن الله ... لك مني أجمل تحية .

نورسوفت
21-03-2018, 11:31 PM
السلام عليكم ورحمة الله وبركاته شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

عيد نور
30-09-2019, 10:18 PM
بارك الله فيكم جميعا

جمال سات
06-12-2019, 08:22 AM
بارك الله فيك
شرح كافي و والي

فهد الشيخ
21-11-2020, 07:43 AM
Thank you :abc_051:

المبرمج القادم
23-01-2021, 01:10 PM
:abc_152: موفق بإذن الله ... لك مني أجمل تحية .

سمير المخفي
23-01-2021, 06:31 PM
السلام عليكم ورحمة الله وبركاته
بارك الله فيك:abc_052: