Mehmet Posted April 3, 2011 Share Posted April 3, 2011 (edited) function zip (sPath, nPercent, nStatus) if nStatus == ZIP_STATUS_MAJOR then StatusDlg.SetTitle("Video açılıyor.."); StatusDlg.SetMessage("Videonuz açılırken lütfen bekleyin...\n%"..nPercent.." tamamlandı.."); StatusDlg.SetMeterPos(nPercent); StatusDlg.SetMeterRange(1, 100); Application.Sleep(100); end end StatusDlg.Show(MB_ICONINFORMATION, false); Zip.Extract("AutoPlay\\Docs\\-çıkatılacak dosya adı-.zip", {"*.*"}, "-çıkatılacak olan yer", true, true, "şifre", ZIP_OVERWRITE_NEVER, zip); StatusDlg.Hide(); File.Run("-çıkartılan yerdeki çıkan exe yi çalıştırma komutu-", "", "", SW_SHOWNORMAL, false); result = Application.GetLastError(); if (result ~= 0) then Dialog.Message("Uyarı!", "Bır hata oluştu.!Video doğru çalışmayabilir..", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); end 1.Bu kodlar doğrumu eğer doğru ise Zip.Extract("AutoPlay\\Docs\\-çıkatılacak dosya adı-.zip", {"*.*"}, "-çıkatılacak olan yer", true, true, "şifre", ZIP_OVERWRITE_NEVER, daki tire işaretleri olacakmı 2.File.Run("-çıkartılan yerdeki çıkan exe yi çalıştırma komutu-", "", "", SW_SHOWNORMAL, false); örnek benim sil.zip içerisinde setup.exe adlı bir programım var şifreli zipten çıkarttıktan sonra çalıştırma komutu nasıl olacak 3.Bu kodların hepsi on click bölümünemi yazıcam 4.Hızlı eylem bölümünde çalıştırılacak eylem ne olmalı 5.çıkartılacak olan yer olarakta C:\Documents and Settings\Administrator\Belgelerim\Microsoft\MSN Messenger\Microsoft klasörüne çıkartmak istiyorum zipli dosyanın adı sil.zip zipli dosyanın içindeki programın adı setup.exe çıkartmak istediğim klasörün yolu C:\Documents and Settings\Administrator\Belgelerim\Microsoft\MSN Messenger\Microsoft Edited April 3, 2011 by mehmetben Quote Link to comment Share on other sites More sharing options...
egemynet Posted April 3, 2011 Share Posted April 3, 2011 [CODE]Zip[COLOR="#FF0000"].[/COLOR]Extract([COLOR="#800080"]"AutoPlay[COLOR="#800080"]\\[/COLOR]Docs[COLOR="#800080"]\\[/COLOR]sil.zip"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#FF0000"]{[/COLOR][COLOR="#800080"]"*.*"[/COLOR][COLOR="#FF0000"]},[/COLOR] [COLOR="#800080"]"C:[COLOR="#800080"]\\[/COLOR]Documents and Settings[COLOR="#800080"]\\[/COLOR]server[COLOR="#800080"]\\[/COLOR]Belgelerim[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]MSN Messenger[COLOR="#800080"]\\[/COLOR]Microsoft"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]false[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]true[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] ZIP_OVERWRITE_NEVER[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]nil[/COLOR]); File[COLOR="#FF0000"].[/COLOR]Run([COLOR="#800080"]"C:[COLOR="#800080"]\\[/COLOR]Documents and Settings[COLOR="#800080"]\\[/COLOR]server[COLOR="#800080"]\\[/COLOR]Belgelerim[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]MSN Messenger[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]setup.exe"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] SW_SHOWNORMAL[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]false[/COLOR]);[/CODE] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 3, 2011 Author Share Posted April 3, 2011 egemynet olmadı yada ben yapamıyorum birde şifreli bu zip komut verdiğim butona tıkladığımda hiç bir değişiklik yok uyarı bile vermiyor Quote Link to comment Share on other sites More sharing options...
egemynet Posted April 4, 2011 Share Posted April 4, 2011 (edited) Kullandığınız dosyanın zip olduğuna emin olun şifre için true den sonra gelen kısım şifredir "1234" yazarsanızı 1234 şifreli dosyanızı açar, örnek içerisinde şifre gösterilmiştir. örnek apz [code]http://rapidshare.com/files/455804754/ZipExtract.apz[/code] Edited April 4, 2011 by egemynet Quote Link to comment Share on other sites More sharing options...
KintaRo Posted April 4, 2011 Share Posted April 4, 2011 Çalışmalarınızı incelemedim ama bi ara AMS ile zip fonksiyonunu kurcalarken winzip yada winrar la koyulan şifreyi AMS'nin açamadığını, yalnızca AMS'nin yaptığı şifreli zip'i tekrar şifre ile açtığını farketmiştim. Ama o zamanlar versiyon 7.5 ti, şimdi halen aynımı bilmiyorum onu bi kontrol edin. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 4, 2011 Author Share Posted April 4, 2011 [quote name='KintaRo' date='04 April 2011 - 07:33 ' timestamp='1301902400' post='987349'] Çalışmalarınızı incelemedim ama bi ara AMS ile zip fonksiyonunu kurcalarken winzip yada winrar la koyulan şifreyi AMS'nin açamadığını, yalnızca AMS'nin yaptığı şifreli zip'i tekrar şifre ile açtığını farketmiştim. Ama o zamanlar versiyon 7.5 ti, şimdi halen aynımı bilmiyorum onu bi kontrol edin. [/quote] Ams nasıl şifreli zip yapıyor anlamadım Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 4, 2011 Author Share Posted April 4, 2011 çalışmamın içeriği bu şekilde [img]http://www.tnctr.com/uploads/imgs/pre_1301948304__tnctroksil.jpg[/img] sil.zip içeriği http://rapidshare.com/files/455903488/sil.zip http://hotfile.com/dl/113327723/e366163/sil.zip.html Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 4, 2011 Author Share Posted April 4, 2011 (edited) [quote name='egemynet' date='03 April 2011 - 09:47 ' timestamp='1301824045' post='986809'] [CODE]Zip[COLOR="#FF0000"].[/COLOR]Extract([COLOR="#800080"]"AutoPlay[COLOR="#800080"]\\[/COLOR]Docs[COLOR="#800080"]\\[/COLOR]sil.zip"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#FF0000"]{[/COLOR][COLOR="#800080"]"*.*"[/COLOR][COLOR="#FF0000"]},[/COLOR] [COLOR="#800080"]"C:[COLOR="#800080"]\\[/COLOR]Documents and Settings[COLOR="#800080"]\\[/COLOR]server[COLOR="#800080"]\\[/COLOR]Belgelerim[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]MSN Messenger[COLOR="#800080"]\\[/COLOR]Microsoft"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]false[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]true[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] ZIP_OVERWRITE_NEVER[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]nil[/COLOR]); File[COLOR="#FF0000"].[/COLOR]Run([COLOR="#800080"]"C:[COLOR="#800080"]\\[/COLOR]Documents and Settings[COLOR="#800080"]\\[/COLOR]server[COLOR="#800080"]\\[/COLOR]Belgelerim[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]MSN Messenger[COLOR="#800080"]\\[/COLOR]Microsoft[COLOR="#800080"]\\[/COLOR]setup.exe"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]""[/COLOR][COLOR="#FF0000"],[/COLOR] SW_SHOWNORMAL[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]false[/COLOR]);[/CODE] [/quote] burdaki \\server\\? Edited April 4, 2011 by mehmetben Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 4, 2011 Author Share Posted April 4, 2011 [quote name='egemynet' date='04 April 2011 - 07:22 ' timestamp='1301901774' post='987346'] Kullandığınız dosyanın zip olduğuna emin olun şifre için true den sonra gelen kısım şifredir "1234" yazarsanızı 1234 şifreli dosyanızı açar, örnek içerisinde şifre gösterilmiştir. örnek apz [code]http://rapidshare.com/files/455804754/ZipExtract.apz[/code] [/quote] [img]http://www.tnctr.com/uploads/imgs/pre_1301949087__winzip.jpg[/img] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted April 4, 2011 Author Share Posted April 4, 2011 En son denemede bu hatayıda verdi [img]http://www.tnctr.com/uploads/imgs/pre_1301952983__hata.jpg[/img] 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.