Ziplemek Ve Şifrelemek ?

[pilgetir]

Merhaba bir sorum var autoıt ile klasörlerim içerisindeki dosyaları ve klasörler içerisindeki dosyalarıda ziplemek ve istediğim şifreyi koydurtmak istiyorum nasıl yapabilirim bir bilgim yok sadece tek tek dosyaları ziplemek istiyorum swf png mp4 gibi dosyalarım vs var ?

[pilgetir]

Yardım bekliyorum.

[yasarcan]

şifrelesen dahi temp'de açtığı için boşa gidecektir:D

[pilgetir]

Olsun tek tıkla tüm dosyaları tek tek ziplesin ve sıkıştırsında

[blue_life]

@pilgetir

Sıkıştırma ve şifreleme konusunda 7z.exe, rar.exe vs. den prametre kullanarak yararlanabilirsin...
7z içni basit bir örnek vermek istiyorum... Öncelikle 7zip klasöründeki, 7z.exe dosyasını au3 scripth dosyasının yanına kopyalayın.
Isterseniz ilgili dosyayı fileinstall ile autoit içine de alabilirsiniz. Çalıştıracağınız zaman temp klasörüne çıkartıp işlem yaptırmanız kafi.

Bir dosya sıkıştırmak için;
[codebox]Global $7z_exe = @ScriptDir & '\7z.exe'
If FileExists($7z_exe) = 0 Then
MsgBox(16,"Hata",$7z_exe & " bulunamadı!")
Exit
EndIf

Global $Pass = "123"

Global $7zFile,$Instr
Global $File = FileOpenDialog("Sıkıştırılacak dsoyanı seç!", @ScriptDir & "\", "Tüm Dosyalar (*.*)")
If Not @error Then
$7zFile = $File
$Instr = StringInStr($7zFile,".",0,-1)
If $Instr > 0 And StringInStr(StringTrimLeft($7zFile,$Instr),"\") = 0 Then $7zFile = StringLeft($7zFile,$Instr-1)
$7zFile &= ".7z"

RunWait($7z_exe & ' a -p' & $Pass & ' "' & $7zFile & '" "' & $File & '"',"",@SW_HIDE)
EndIf[/codebox]

Bir klasörü sıkıştırmak için;
[codebox]Global $7z_exe = @ScriptDir & '\7z.exe'
If FileExists($7z_exe) = 0 Then
MsgBox(16,"Hata",$7z_exe & " bulunamadı!")
Exit
EndIf

Global $Pass = "123"

Global $7zFile,$Instr
Global $File = FileSelectFolder("Sıkıştırılacak klasörünü seç!", "", 5,@ScriptDir)
If Not @error Then
$7zFile = $File
$Instr = StringInStr($7zFile,".",0,-1)
If $Instr > 0 And StringInStr(StringTrimLeft($7zFile,$Instr),"\") = 0 Then $7zFile = StringLeft($7zFile,$Instr-1)
$7zFile &= ".7z"

RunWait($7z_exe & ' a -p' & $Pass & ' "' & $7zFile & '" "' & $File & '"',"",@SW_HIDE)
EndIf[/codebox]

Aynı şekilde ilgli programları ams projelerinizde de benzer şekilde parametre ile çalıştırarak kullanabilirsiniz. Kolay gelsin...