بسم الله الرحمن الرحيم
سوف نتعلم اليوم درس عمل برنامج لضغط وتشفير الملفات مثل برنامج winzip
الطريقة سهلة وجميلة فهي تحتاج الى تركيز فقط
---------------------------------------------------
نبدء بأسم الله
اولا نفتح مشروع جديد نختار خلفية اول لون على اختيارك :
ثانيا نقوم بأدراج ازرار اربعة ونسميها :
1- اضافة ملف
2-اضافة مجلد
3- حذف ملف
4-حذف مجلد
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
1- (اضافة مجلد)
دبل كلك على زر اضافة مجلد وندرج الكود التالي : -- 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
1- (حذف)
دبل كلك على زر حذف وندرج الكود التالي :lSelected = ListBox.GetSelected("ListBox1");
if (lSelected) then
-- Remove selected from listbox
ListBox.DeleteItem("ListBox1", lSelected[1]);
end
1- (حذف الكل)
دبل كلك على زر حذف الكل وندرج الكود التالي :-- Delete all items from listbox
ListBox.DeleteItem("ListBox1", -1);
ثم نقوم بإضافة عنصرين :
ListBox وهو لعرض أسماء الملفات بداخله :
Input: لتشفير الملف المضغوط بباسوورد كالتالي :
ثم نختار من Project ثم Global Functions كما في الصور التالية:
ونقوم بأدراج الكود التالي :
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
وأخيراً وليس أخراً نقوم بإدراج زر ونسميه (إبدا الضغط) وشرحة هو لضغط الملف بالإضافة لخروج نافذة تحديد مكان حفظ الملف بعد الضغط دبل كلك الزر ثم ندرج الكود التالي:
-- 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
الان قد انتهينا :
نضيف بعض الايقونات الجميلة للبرنامج
سوف اضع رابط تحميل الايقونات في الاسف
الان قد انتهيانا من البرنامج بلكامل
لتحميل الايقونات
لتحميل ملف مفتوح مع البرنامج
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة Abbas Dohy
