IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - mZip

Yapım tarihi: 17 Haziran 2019

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.

Amaç: Kimsenin kullanmayacağını umuyorum, bunun sebebi üst versiyon mIRC'lerde çalışması ve kimsenin işlev olarak işine yaramaması. İşinize yarayacak olan yapı ve $zip tanımı kullanımı.

Not: Değişkenlere, titlebar'a, aliaslara vs nickimi yazmaya gerek duymadım. Bu tarz şeylere gerek olduğunu düşünmüyorum.

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)

        }

      }

    }

  }

}

Görüntüler:

1-
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

2-
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Faydalı olabilecek kaynaklar.
-
1- https://en.wikichip.org/wiki/mirc/identifiers/$zip
2- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Görsel ve yapısal gelişime açık. İlerleyen günlerde biraz daha düzenleyip tekrar paylaşabilirim.
-
Unutmayalım ki onlarca farklı yol ile yapılabilir.
Kolay gelsin.