Zip & Unzip با Chilkat

[Reza_sh_42]

با سلام
مدتی بود که به دنبال dll فایل هایی می گشتم که بدون نیاز به نرم افزار خاص بتونه فایل های مورد نیازم رو Zip & unzip کنه و روی اونها هم بشه رمز گذاشت Chilkat این کار رو انجام داده و خوشبختانه کرکش رو هم پیدا کردم . حالا اون رو برای علاقه مندان اینجا می زارم . امیدوارم مورد استفاده قرار بگیره

No Warez Activity
فایل keygen حذف شد

[ano0sh]

با سلام
مدتی بود که به دنبال dll فایل هایی می گشتم که بدون نیاز به نرم افزار خاص بتونه فایل های مورد نیازم رو Zip & unzip کنه و روی اونها هم بشه رمز گذاشت Chilkat این کار رو انجام داده و خوشبختانه کرکش رو هم پیدا کردم . حالا اون رو برای علاقه مندان اینجا می زارم . امیدوارم مورد استفاده قرار بگیره
دوست عزیز شما component سوکت chilkat رو هم دارید؟
ممکنه بذارید؟

[sadeghjun]

سلام
اینجا (http://soft98.ir/software/programming/component/3802-Chilkat-Components.html)لینک همه کامپوننت ها + کرکش هست.

[mehran901]

اگه نیاز به رمز گذاری نداشته باشین ب خیلی ساده و راحت میتونین زیپ و آنزیپ کنین ، البته شاید بشه رمز هم گذاشت من بهش نیاز نداشتم دیگه بیشتر باهاش درگیر نشدم
Microsoft Shell Controls and automation
رو از رفرنس ها ادد کنید
زیپ کردن :



Dim a As New Shell

Open "d:\1234.zip" For Output As #2
Print #2, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close
a.NameSpace("D:\1234.zip").CopyHere a.NameSpace("D:\123").Items



آنزیپ :


Dim a As New Shell
a.NameSpace("D:\").CopyHere a.NameSpace("D:\1234.zip").Items