mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
30 Mart 2022, 23:20 | #1 |
mZip (mIRC Zip)
Yapım tarihi: 17 Haziran 2019 - Feragat
Açıklama: Yalnızca mIRC 7.55 ve üzeri versiyonlarda çalışır. Kolay ve ham bir arayüz. Onlarca uyarı ve farklı çıktılar kullanmadım. Kullanımı: Herhangi bir ekranda Sağ Tık mZip sekmesinden çalıştırabilirsiniz. Belirtilen dosyayı zip'ler veya ziplenen dosyayı çıkartır. Görseller: - Kod;mZip ;Menu menu * { .mZip:mZip } ;Aliases alias mZip dialog -mr mZip mZip alias mZSel %mZ.1 = $zip($nopath(%mZ.rep),%mZ.p1,%mZ.f,%mZ.p) alias mZEx %mZ.2 = $zip($nopath(%mZ.f),%mZ.p2,%mZ.rep,%mZ.p) alias mZBegin { set %mZ.f2 $nofile(%mZ.f) set %mZ.rep %mZ.f2 $+ $token($nopath(%mZ.f),1,46) $+ .zip } alias mZReload { set %mZ.f2 $nofile(%mZ.f) set %mZ.rep %mZ.f2 $+ $token($nopath(%mZ.f),1,46) } ;Dialog dialog mZip { title "mZipBasic" size -1 -1 178 184 option dbu button "Gözat", 1, 8 19 25 12, flat box "mIRC Zip", 3, 3 2 173 179 list 4, 71 46 101 129, size extsel hsbar vsbar text "Dosya içeriği", 2, 72 36 35 8 text "Seçilen Dosya:", 5, 72 20 35 8 text "", 6, 114 20 57 8 button "Dönüştür", 7, 35 19 25 12, flat button "Çıkart", 8, 8 33 25 12, flat box "Seçenekler", 9, 7 52 60 51 check "Şifrele", 10, 12 71 50 10 check "Üzerine Yaz", 11, 12 85 50 10 } ;Event on *:dialog:mZip:*:*:{ if ($devent = init) { set %mZ.d did -a mZip } if ($devent = close) { unset %mZ.* } if ($devent = sclick) { ;Dosya bilgilerini yansıt. if ($did = 1) { set %mZ.f $sfile($mircdir,Dosya Seç,Tamam) if (%mZ.f != $null) { inc %mZ.n %mZ.d 6 $nopath(%mZ.f) %mZ.d 4 Sıra: %mZ.n $+ -) $time %mZ.d 4 Dosya: $nopath(%mZ.f) %mZ.d 4 Boyut: $file(%mZ.f).size KB %mZ.d 4 Değiştirme Tarihi: $asctime($file(%mZ.f).mtime, dd.mm.yyyy) $iif($token($nopath(%mZ.f), 2, 46) != zip, %mZ.d 4 CRC32: $crc($nopath(%mZ.f))) %mZ.d 4 - } } ;Create if ($did = 7) { if (%mZ.f != $null) { mZBegin if ($did(10).state = 1) { set %mZ.p $?*="Zip Şifresini Girin." $iif(%mZ.p1 = co, set %mZ.p1 cpo, set %mZ.p1 cp) mZSel } if ($did(11).state = 1) { $iif(%mZ.p1 = cp, set %mZ.p1 cpo, set %mZ.p1 co) if ($did(10).state = 1) { mZSel } else { %mZ.1 = $zip($nopath(%mZ.rep),%mZ.p1,%mZ.f) } } if ($did(10).state != 1 && $did(11).state != 1) { %mZ.1 = $zip($nopath(%mZ.rep),c,%mZ.f) } } } ;Extract if ($did = 8) { if (%mZ.f != $null) { mZReload if ($did(10).state = 1) { set %mZ.p $?*="Zip Şifresini Girin." $iif(%mZ.p2 = eo, set %mZ.p2 epo, set %mZ.p2 ep) mZEx } if ($did(11).state = 1) { $iif(%mZ.p2 = ep, set %mZ.p2 epo, set %mZ.p2 eo) if ($did(10).state = 1) { mZEx } else { %mZ.1 = $zip($nopath(%mZ.f),%mZ.p2,%mZ.rep) } } if ($did(10).state != 1 && $did(11).state != 1) { %mZ.1 = $zip($nopath(%mZ.f),e,%mZ.rep) } } } } } - 1- https://en.wikichip.org/wiki/mirc/identifiers/$zip
________________
The Ghost of Christmas Past.. i'm here sometimes |
|
|
31 Mart 2022, 00:46 | #2 |
paylasim icin tesekkürler, emeginize saglik
________________
Hope. . . ✨
|
|
|
31 Mart 2022, 00:47 | #3 |
Paylaşım İçin teşekkürler Emeğine Sağlık Başarılar Dilerim
|
|
|
31 Mart 2022, 01:54 | #4 |
Emeğine sağlık Feragat, paylaşımın için teşekkürler.
________________
per aspera ad astra ✨ |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
|
|