شرح كيفية عمل برنامج لضغط وتشفير الملفات ببرنامج Auto Play Media Studio

بسم الله الرحمن الرحيم

سوف نتعلم اليوم درس عمل برنامج لضغط وتشفير الملفات مثل برنامج 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