pilgetir Posted February 12, 2012 Share Posted February 12, 2012 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 ? Quote Link to comment Share on other sites More sharing options...
pilgetir Posted February 13, 2012 Author Share Posted February 13, 2012 Yardım bekliyorum. Quote Link to comment Share on other sites More sharing options...
yasarcan Posted February 13, 2012 Share Posted February 13, 2012 şifrelesen dahi temp'de açtığı için boşa gidecektir:D Quote Link to comment Share on other sites More sharing options...
pilgetir Posted February 13, 2012 Author Share Posted February 13, 2012 Olsun tek tıkla tüm dosyaları tek tek ziplesin ve sıkıştırsında Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 13, 2012 Share Posted February 13, 2012 @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... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.