في هده التدوينة الحصرية على مدونة رواد الحماية سأشارككم سكربت جد بسيط يمكنك من خلاله أن تقوم بعمل ضغط للملفات و المجلدات ببروسيس صامت يمكنك دمجه مع مشروعك أو استخدامه لسحب الكووكيز أدع طريقة الاستخدام لك 😉😉.
لغة البرمجة :
VBScript
الإمتداد :
VBS
طريقة الإستعمال :
فقط قم بإنشاء ملف بصيغة vbs تم ضع الكود أسفله بداخل الملف مع تغيير ../00 بالمسار الكامل للمجلد أو الملف تم ستضهر output بإسم ebf.zip .
الكود :
ArchiveFolder "ebf.zip", "..\00" Sub ArchiveFolder (zipFile, sFolder) With CreateObject("Scripting.FileSystemObject") zipFile = .GetAbsolutePathName(zipFile) sFolder = .GetAbsolutePathName(sFolder) With .CreateTextFile(zipFile, True) .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0)) End With End With With CreateObject("Shell.Application") .NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items Do Until .NameSpace(zipFile).Items.Count = _ .NameSpace(sFolder).Items.Count WScript.Sleep 1000 Loop End With End Sub
خارج الموضوع تحويل الاكوادإخفاء الابتساماتإخفاء