x_files_x Posted April 8, 2010 Share Posted April 8, 2010 Hocam Auto it ile elimde bulunan exe dosyalarımdan birine winrarla sıkıştırıp sifreleme yapabilecegim bi script varmı? nasıl yapabilirim yani.bu şifreleme olayını atomatik yapıcak ben sadece dosyayı gostercem o yapıcak Link to comment Share on other sites More sharing options...
blue_life Posted April 8, 2010 Share Posted April 8, 2010 @x_files_x Malesef tam anlamadım. Biz autoitte, FileInstall kullanarak ilgili dosyamızı autoit içene alabiliyoruz. İşte FileInstall ile autoit içine gömdüğümüz dosya zaten (winrar kadar olmasada) sıkıştırılıyor. O zaman ben bir çok dosyanın bulunduğu klasör gösterim ve bu klasörün içindeki tüm dosyalar autoit içine alınsın diyorsan, ufak bir çalışma yapabilirim... Kolay gelsin.... Link to comment Share on other sites More sharing options...
Abdullah 37 Posted April 8, 2010 Share Posted April 8, 2010 O zaman ben bir çok dosyanın bulunduğu klasör gösterim ve bu klasörün içindeki tüm dosyalar autoit içine alınsın diyorsan, ufak bir çalışma yapabilirim... Kolay gelsin.... arkadaşım tam böyle bir şey arıyorum Link to comment Share on other sites More sharing options...
x_files_x Posted April 8, 2010 Author Share Posted April 8, 2010 @x_files_x Malesef tam anlamadım. Biz autoitte, FileInstall kullanarak ilgili dosyamızı autoit içene alabiliyoruz. İşte FileInstall ile autoit içine gömdüğümüz dosya zaten (winrar kadar olmasada) sıkıştırılıyor. O zaman ben bir çok dosyanın bulunduğu klasör gösterim ve bu klasörün içindeki tüm dosyalar autoit içine alınsın diyorsan, ufak bir çalışma yapabilirim... Kolay gelsin.... Hocam evet fileinstali biliyorum da benim istedigim sey söyle olucak; şimdi benim elimde bir kac program var.diyelimki birisi A klasorunun icinde.ben autoit çalısmama tıkladıgım zaman A klasorunun icindeki deneme.exe dosyama sifre koyarak winrara atıcak bunu istiyom.yani ben butun programları tek tek winrarla sifrelemek istemiyorum.bu program yapsın diyorum.şimdiden tsk ederim Link to comment Share on other sites More sharing options...
blue_life Posted April 8, 2010 Share Posted April 8, 2010 @Abdullah 37 Aslında uzun süre böyle basit bi rşey yapacaktım ama işte, uygun zaman... Neyse umarım işine yarar... http://www.4shared.com/file/1nE-GSxe/BL_FIRecord.html[/CODE] @x_files_x Şimdi sen bir dosya gösterip, bu dosyayı winrar içine alsın ve senin belirlediğin şifreyi dosyaya versin diyorsun. Bu tip işlemler için yine winrardan faydalanmak zorundasın. Winrar klasöründe Rar.exe dosyası olması lazım Komut satırı ile onu açıp parametrelerini öğrenip, kurcala! Kolay gelsin... Link to comment Share on other sites More sharing options...
x_files_x Posted April 8, 2010 Author Share Posted April 8, 2010 @Blue_life hocam bilgisizligime mazur görün lutfen ben dediginiz gibi rar.exe auto it scriptine söyle yazdım Run(@ProgramFilesDir & "\WinRAR\Rar.exe") bundan sonra napıcam bilmiorum yada lutfen siz yaparmısınız kodlarınıda bakarım kurcalarım o zaman daha iyi olur lutfen hocam. Link to comment Share on other sites More sharing options...
blackman12 Posted April 8, 2010 Share Posted April 8, 2010 $sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3) ;$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Tüm Dosyalar (*.*)",3) if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe","a -psifre " & @DesktopDir & "\archive.rar " & $sec,@ProgramFilesDir & "\WinRAR") EndIf[/CODE] çok basitçe durum böyle ama winrarın yardım dosyasını iyice bi oku derim. Link to comment Share on other sites More sharing options...
x_files_x Posted April 8, 2010 Author Share Posted April 8, 2010 Hocam valla iki saatir uykulu uykulu okuyorum ama bi turlu komutları nereye nasıl işlicem çözemedim verdiginiz kodu yaptım hatalar cktı ekrana.dosya bulunamadı.dosya acılamadı gibi. Link to comment Share on other sites More sharing options...
blackman12 Posted April 8, 2010 Share Posted April 8, 2010 nasıl hatalarmış onlar bir resim koysana? şu kod neyin hatasını verirki zaten iki satır. ; senden exe dosyasını seçmeni ister $sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3) ;eğer hata yoksa ve program filesta winrar ın yüklüyse if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then ;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler. ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe","a -psifre " & @DesktopDir & "\archive.rar " & $sec,@ProgramFilesDir & "\WinRAR") EndIf Link to comment Share on other sites More sharing options...
x_files_x Posted April 8, 2010 Author Share Posted April 8, 2010 Hocam hata şöyle Please register to see this content. Link to comment Share on other sites More sharing options...
blue_life Posted April 9, 2010 Share Posted April 9, 2010 @x_files_x Winrarın kurulu olmasına gerek yok. Sadec rar.exe yi kullanabilirsin. Aşağıdaki scripti kurcalayıp, kendine göre ayarla. Kolay gelsin.... http://bluelife.winbuilder.net/index.php?dir=Garbage%2F&download=WinrarFilePass.rar[/CODE] Link to comment Share on other sites More sharing options...
Abdullah 37 Posted April 9, 2010 Share Posted April 9, 2010 @Abdullah 37 Aslında uzun süre böyle basit bi rşey yapacaktım ama işte, uygun zaman... Neyse umarım işine yarar... http://www.4shared.com/file/1nE-GSxe/BL_FIRecord.html[/CODE] Hocam senin için sakıncası yoksa bu çalışmanın kodlarını paylaşabilirmisin? Link to comment Share on other sites More sharing options...
blackman12 Posted April 9, 2010 Share Posted April 9, 2010 sorun document and settings arasındaki boşuktan kaynaklanıyor.Win7 de böyle bir olay olmadığı için bende sorun vermedi neyse sen şöyle kullan o zaman bu komutu: ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR")[/CODE] Link to comment Share on other sites More sharing options...
blue_life Posted April 9, 2010 Share Posted April 9, 2010 @Abdullah 37 Özelden, ufak düzeltme yaparak gönderdim. Tabi programıda, düzeltme yaptığım için güncelledim. @blackman12 Bende sorunsuz çalışmıştı. Evet adreste boşluklu klasör veyahut dosya ismi olunca, bazı programlar hata veriyor. En doğrusu seninde söylediğin gibi dosya konumlarını tırnak içine almak. İyi forumlar... Link to comment Share on other sites More sharing options...
x_files_x Posted April 9, 2010 Author Share Posted April 9, 2010 @Blue_Life hocam dediginzi yaptım c://document.rar adında rarlı olarak dosyalarımı rarlıdır.çok saolun.bişi sorcam peki ben bunun yolunu degistirebilirmiyim. @Blackman12 hocam sizinde dediginiz yaptım bu hatayı verdi.acaba ben nerde yalnıs yapıyorum Link to comment Share on other sites More sharing options...
blackman12 Posted April 9, 2010 Share Posted April 9, 2010 Yani arkadaşım hazır o kadar alışmışsın ki hiç aklına gelmiyor değil mi yeni verdiğim satırı yukarıda verdiğim satırla değiştirmek... ; senden exe dosyasını seçmeni ister $sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3) ;eğer hata yoksa ve program filesta winrar ın yüklüyse if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then ;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler. ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR") EndIf[/CODE] @BlueLife bu arada ben pek incelememiştim. rar.exe de kullanılabiliyorsa güzel...Ben bu işler için her zaman 7z.exe kullanırım. Link to comment Share on other sites More sharing options...
blue_life Posted April 9, 2010 Share Posted April 9, 2010 @x_files_x Örnekte değişkenler atamıştım. Onları incele. Sen yeni oluşturulan rar dosyasının konumunu mu değiştirmek istiyorsun. Misal desktopta oluşsun istersen; Global $KAYDET = @DesktopDir & "\Test.rar"[/CODE] yapabilirsin.... Bu arada o örnekte birden fazla dosya seçebilirsin.... @blackman12 Ever rar.exe de kullanılıyor ama bence 7z.exe daha güzel olsa gerek. Link to comment Share on other sites More sharing options...
x_files_x Posted April 9, 2010 Author Share Posted April 9, 2010 Allah razı olsun @Blackman12 ve @Blue_Life hocalarım.sorunumu çözdüm sayenizde.iyi çalışmalar dilerim sizlere. Link to comment Share on other sites More sharing options...
peerfen Posted April 9, 2010 Share Posted April 9, 2010 @Abdullah 37 Özelden, ufak düzeltme yaparak gönderdim. Tabi programıda, düzeltme yaptığım için güncelledim. @blackman12 Bende sorunsuz çalışmıştı. Evet adreste boşluklu klasör veyahut dosya ismi olunca, bazı programlar hata veriyor. En doğrusu seninde söylediğin gibi dosya konumlarını tırnak içine almak. İyi forumlar... @blue_life kodlari sakincasi yoksa burda paylasabilirmisiniz Link to comment Share on other sites More sharing options...
imaginary Posted April 9, 2010 Share Posted April 9, 2010 @blue_life kodlari sakincasi yoksa burda paylasabilirmisiniz Evet sakincasi yoksa burda paylasabilirmisiniz... Link to comment Share on other sites More sharing options...
peerfen Posted April 10, 2010 Share Posted April 10, 2010 @Bluelife arkadasim programinbana verdigi scripde desktop yolunu gösterdim fakat dosyalari cikarmadi bir hatada göremedim autoitin son sürümünü kullanyiorum hata nerde acaba Func _BL_FILE_INSTALL($NEREYE = @DesktopDir,$UZERINI_YAZ = 1) If StringRight($NEREYE, 1) <> "\" Then $NEREYE &= "\" If $UZERINI_YAZ > 1 Or $UZERINI_YAZ < 0 Then $UZERINI_YAZ = 1 DirCreate($NEREYE & "GTA San Andreas User Files") FileInstall("GTA San Andreas User Files\GTASAsf1.b",$NEREYE & "GTA San Andreas User Files\GTASAsf1.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf2.b",$NEREYE & "GTA San Andreas User Files\GTASAsf2.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf3.b",$NEREYE & "GTA San Andreas User Files\GTASAsf3.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf4.b",$NEREYE & "GTA San Andreas User Files\GTASAsf4.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf5.b",$NEREYE & "GTA San Andreas User Files\GTASAsf5.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf6.b",$NEREYE & "GTA San Andreas User Files\GTASAsf6.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf7.b",$NEREYE & "GTA San Andreas User Files\GTASAsf7.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\GTASAsf8.b",$NEREYE & "GTA San Andreas User Files\GTASAsf8.b",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\gta_sa.set",$NEREYE & "GTA San Andreas User Files\gta_sa.set",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\replay.rep",$NEREYE & "GTA San Andreas User Files\replay.rep",$UZERINI_YAZ) DirCreate($NEREYE & "GTA San Andreas User Files\User Tracks") DirCreate($NEREYE & "GTA San Andreas User Files\Gallery") FileInstall("GTA San Andreas User Files\Gallery\gallery1.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery1.jpg",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\Gallery\gallery10.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery10.jpg",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\Gallery\gallery11.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery11.jpg",$UZERINI_YAZ) FileInstall("GTA San Andreas User Files\Gallery\gallery12.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery12.jpg",$UZERINI_YAZ) Link to comment Share on other sites More sharing options...
blue_life Posted April 10, 2010 Share Posted April 10, 2010 @peerfen Func _BL_FILE_INSTALL($NEREYE = @DesktopDir,$UZERINI_YAZ = 1) If StringRight($NEREYE, 1) <> "\" Then $NEREYE &= "\" If $UZERINI_YAZ > 1 Or $UZERINI_YAZ < 0 Then $UZERINI_YAZ = 1 .... Endfunc[/CODE] Şeklinde kodlarımız oluşunca biz bunu direkt kullanamıyoruz... Komutları işletilmesi için; _BL_FILE_INSTALL() satırını çalışmanın ilgili yerine eklemek zorundasın. Yani script kapanmadan bu fonksiyon işletilmeli. Misal ben winrar klasörünü göstererek kod üretim. Ve winrar klasörü masaüstüne çıksın. O zaman; [code]_BL_FILE_INSTALL(@DesktopDir) ; Bu satırı eklemek zorundası Func _BL_FILE_INSTALL($NEREYE = @TEMPDIR,$UZERINI_YAZ = 1) If StringRight($NEREYE, 1) <> "\" Then $NEREYE &= "\" If $UZERINI_YAZ > 1 Or $UZERINI_YAZ < 0 Then $UZERINI_YAZ = 1 DirCreate($NEREYE & "WinRAR") FileInstall("WinRAR\Default.SFX",$NEREYE & "WinRAR\Default.SFX",$UZERINI_YAZ) FileInstall("WinRAR\Def_ENG.sfx",$NEREYE & "WinRAR\Def_ENG.sfx",$UZERINI_YAZ) FileInstall("WinRAR\Descript.ion",$NEREYE & "WinRAR\Descript.ion",$UZERINI_YAZ) FileInstall("WinRAR\File_Id.diz",$NEREYE & "WinRAR\File_Id.diz",$UZERINI_YAZ) DirCreate($NEREYE & "WinRAR\Formats") FileInstall("WinRAR\Formats\7z.fmt",$NEREYE & "WinRAR\Formats\7z.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\7zxa.dll",$NEREYE & "WinRAR\Formats\7zxa.dll",$UZERINI_YAZ) FileInstall("WinRAR\Formats\ace.fmt",$NEREYE & "WinRAR\Formats\ace.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\arj.fmt",$NEREYE & "WinRAR\Formats\arj.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\bz2.fmt",$NEREYE & "WinRAR\Formats\bz2.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\cab.fmt",$NEREYE & "WinRAR\Formats\cab.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\gz.fmt",$NEREYE & "WinRAR\Formats\gz.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\iso.fmt",$NEREYE & "WinRAR\Formats\iso.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\lzh.fmt",$NEREYE & "WinRAR\Formats\lzh.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\tar.fmt",$NEREYE & "WinRAR\Formats\tar.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\UNACEV2.DLL",$NEREYE & "WinRAR\Formats\UNACEV2.DLL",$UZERINI_YAZ) FileInstall("WinRAR\Formats\uue.fmt",$NEREYE & "WinRAR\Formats\uue.fmt",$UZERINI_YAZ) FileInstall("WinRAR\Formats\z.fmt",$NEREYE & "WinRAR\Formats\z.fmt",$UZERINI_YAZ) FileInstall("WinRAR\License.txt",$NEREYE & "WinRAR\License.txt",$UZERINI_YAZ) FileInstall("WinRAR\Order.htm",$NEREYE & "WinRAR\Order.htm",$UZERINI_YAZ) FileInstall("WinRAR\Rar.exe",$NEREYE & "WinRAR\Rar.exe",$UZERINI_YAZ) FileInstall("WinRAR\Rar.txt",$NEREYE & "WinRAR\Rar.txt",$UZERINI_YAZ) FileInstall("WinRAR\RarExt.dll",$NEREYE & "WinRAR\RarExt.dll",$UZERINI_YAZ) FileInstall("WinRAR\RarExt64.dll",$NEREYE & "WinRAR\RarExt64.dll",$UZERINI_YAZ) FileInstall("WinRAR\RarExtLoader.exe",$NEREYE & "WinRAR\RarExtLoader.exe",$UZERINI_YAZ) FileInstall("WinRAR\RarFiles.lst",$NEREYE & "WinRAR\RarFiles.lst",$UZERINI_YAZ) FileInstall("WinRAR\rarnew.dat",$NEREYE & "WinRAR\rarnew.dat",$UZERINI_YAZ) FileInstall("WinRAR\rarreg.key",$NEREYE & "WinRAR\rarreg.key",$UZERINI_YAZ) FileInstall("WinRAR\ReadMe.txt",$NEREYE & "WinRAR\ReadMe.txt",$UZERINI_YAZ) FileInstall("WinRAR\TechNote.txt",$NEREYE & "WinRAR\TechNote.txt",$UZERINI_YAZ) FileInstall("WinRAR\Uninstall.exe",$NEREYE & "WinRAR\Uninstall.exe",$UZERINI_YAZ) FileInstall("WinRAR\Uninstall.lst",$NEREYE & "WinRAR\Uninstall.lst",$UZERINI_YAZ) FileInstall("WinRAR\UnRAR.exe",$NEREYE & "WinRAR\UnRAR.exe",$UZERINI_YAZ) FileInstall("WinRAR\UnrarSrc.txt",$NEREYE & "WinRAR\UnrarSrc.txt",$UZERINI_YAZ) FileInstall("WinRAR\WhatsNew.txt",$NEREYE & "WinRAR\WhatsNew.txt",$UZERINI_YAZ) FileInstall("WinRAR\WinCon.SFX",$NEREYE & "WinRAR\WinCon.SFX",$UZERINI_YAZ) FileInstall("WinRAR\WinRAR.chm",$NEREYE & "WinRAR\WinRAR.chm",$UZERINI_YAZ) FileInstall("WinRAR\WinRAR.exe",$NEREYE & "WinRAR\WinRAR.exe",$UZERINI_YAZ) FileInstall("WinRAR\Zip.SFX",$NEREYE & "WinRAR\Zip.SFX",$UZERINI_YAZ) FileInstall("WinRAR\zipnew.dat",$NEREYE & "WinRAR\zipnew.dat",$UZERINI_YAZ) FileInstall("WinRAR\Zip_ENG.sfx",$NEREYE & "WinRAR\Zip_ENG.sfx",$UZERINI_YAZ) EndFunc Link to comment Share on other sites More sharing options...
isaavcı Posted June 9, 2010 Share Posted June 9, 2010 Yani arkadaşım hazır o kadar alışmışsın ki hiç aklına gelmiyor değil mi yeni verdiğim satırı yukarıda verdiğim satırla değiştirmek... ; senden exe dosyasını seçmeni ister $sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3) ;eğer hata yoksa ve program filesta winrar ın yüklüyse if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then ;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler. ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR") EndIf[/CODE] @BlueLife bu arada ben pek incelememiştim. rar.exe de kullanılabiliyorsa güzel...Ben bu işler için her zaman 7z.exe kullanırım. hocam iyide sıkıştırıyor çıkartırken şifre istiyor fakat çıkart dediğin zaman Documents and Settings\isa\Desktop\ gibi sıraya göre dosyalıyor tek dosya olarak yapılamazmı Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.