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

Bu kodlar Mp3 kontrol merkezli ( veya Mp3 barda diyebiliriz ) bir toolbardır...

Bu toolbardaki Mp3 işlemlerini yapabilmek için ctlamp.dll gereklidir. Bu dll ile Bilgisayarımızda yüklü olan Winampi kontrol edebieceğiz. Dll dosyasının içinde birde winamp.ini dosyasını çektiğinizde dll klasörüne dll ve winamp.ini dosyasını atınız..

Ben dll'nin uzantısını dll\ctlamp.dll Winamp.ini dosyasının uzantısınıda dll\winamp.ini diye ayarladım..

var %a $dll(dll\ctlamp.dll,Command,play)
if ($readini(dll\winamp.ini, winamp, enable))

Burada zaten bu komutlar görülmektedir. Siz kafanıza göre dll'yi ve winamp.ini dosyasını nereye atacağınıza ve uzantısını nasıl ayarlacağınıza karar verirsiniz...

Dll'yi yükleyeceğiniz Adres: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Diğer dll'leri yükleyeceğiniz adres: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Iconlarıda kendiniz bulursunuz artık. Zaten çoğunu bu başlığın ilk adresinde vermiştim...

Bir geri Şarkı (previous), Başlat (Play), Dur (Pause) , Bitir (Stop), Bir ileri Şarkı (Next) olmak üzere toplam 5 özelliği ekledim.. Bu özelliklerin komutsal karşılıkları parantez içindedir. ve bu komutsal karşılıkları kullanarak winampi kontrol ediyoruz.

en aşağıdaki verdiğim kodda da zaten winampi kontrol edebilmek için bu komutları kullandığımızı şu satırlarda kırmızı ile görürsünüz:

var %a $dll(dll\ctlamp.dll,Command,play)
var %a $dll(dll\ctlamp.dll,Command,pause)
var %a $dll(dll\ctlamp.dll,Command,previous)

Bu dll ile Winamp kontrolü yapabileceğiniz diğer bazı işlemlerin komutsal karşılıkları ise şunlardır:

close (Winampi kapatır)
rewind (şarkıyı geriye sarar)
forward (şarkıyı ileriye atlarak sarar/ Rewind komutunun tam tersi işlem yapar.)
playaudiocd (Audio cd çal)
foutstop (sesi azaltarak, ağırdan müziği durdur / stop komutunun benzeridir)

Siz bu komutlarıda kafanıza göre ekleyebilirsiniz.. Toolbar dersinin ilk sayfasında zaten bu toolbarı nasıl değiştireceğiniz anlatılmıştı.. bir daha burada bunlara girmeyeceğim..

Mp3 Kontrol Merkezli (Mp3 Bar) Toolbar Kodları Remoteye yerleştirecektir.. Kodların çalışması için remotelerin açık olması gerekir.

Remoteye Koyulacak kodlar:

Kod:

on *:start: { dialog -m toolbar toolbar }
 

alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }

alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }

alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }

alias rebar { dll DLL\rebar.dll $$1- }

alias bars { return DLL\bars.mdx }
 

on *:connect: {

  update.toolbar

}

on *:disconnect: {

  update.toolbar

}

on *:close:*: {

  update.toolbar

}

alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }
 
 

alias update.toolbar {

  if (!$dialog(toolbar)) { halt }

  else {

    scid $activecid

    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {

      did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.

    }

    else {

      did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.

    }

  }

}
 

dialog toolbar {

  title "x"

  size 0 0 550 $iif($temabul,18,21)

  option dbu

  list 1, 0 4 274 17, size

  list 10, 280 8 270 12, size

  box "Mp3 Kontrol Merkezi", 14, 275 -1 114 33,default
 

  text "", 2, 464 6 45 16, center

  text "", 3, 467 10 39 11, center

}

on *:dialog:toolbar:init:0: {

  mdx MarkDialog $dname

  mdx SetDialog $dname style

  mdx SetFont $dname 1,14 Turkish 14 800 Cyrillic

  mdx SetColor $dname 3 text $rgb(0,0,0)

  mdx SetFont $dname 3 +a 20 600 arial

  .timersaat 0 1 saat 3
 

  rebar HideToolbar

  rebar Dock $dialog(toolbar).hwnd > top

  mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl

  mdx SetControlMDX $dname 1,10,4 ToolBar flat wrap arrows nodivider > $bars

  mdx SetBorderStyle 1,10
 

  did -i $dname 10 1 bmpsize 20 20

  did -i $dname 10 1 setimage icon large icon\geri.ico

  did -i $dname 10 1 setimage icon large icon\basla.ico

  did -i $dname 10 1 setimage icon large icon\durdur.ico

  did -i $dname 10 1 setimage icon large icon\bitir.ico

  did -i $dname 10 1 setimage icon large icon\ileri.ico

  did -a $dname 10 +a -

  did -a $dname 10 +a 1 $chr(32) Geri $chr(9) $+ Önceki şarkıya gelir.

  did -a $dname 10 +a -

  did -a $dname 10 +a 2 $chr(32) Çal $chr(9) $+ Şarkıyı başlatır.

  did -a $dname 10 +a -

  did -a $dname 10 +a 3 $chr(32) Dur $chr(9) $+ Şarkıyı Durdurur.

  did -a $dname 10 +a -

  did -a $dname 10 +a 4 $chr(32) Bitir $chr(9) $+ Şarkıya Son verir.

  did -a $dname 10 +a -

  did -a $dname 10 +a 5 $chr(32) İleri $chr(9) $+  Bir sonraki şarkıya geçer.

  did -a $dname 10 +a -
 
 

  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)

  did -i $dname 1 1 bmpsize 32 32

  did -i $dname 1 1 setimage icon large icon\baglan.ico

  did -i $dname 1 1 setimage icon large icon\kes.ico

  did -i $dname 1 1 setimage icon large icon\Ayarlar.ico

  did -i $dname 1 1 setimage icon large icon\kanal.ico

  did -i $dname 1 1 setimage icon large icon\korumalar.ico

  did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico

  did -i $dname 1 1 setimage icon large icon\mp3.ico

  did -a $dname 1 +a -

  did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 7 $chr(32) Winamp $chr(9) $+ Winampi Açar

  did -a $dname 1 +a -
 

}
 

on *:dialog:toolbar:*:*: {

  if $devent == sclick {

    if $did == 10 {

      if ($readini(dll\winamp.ini, winamp, enable)) {

        var %click $did($dname,10).sel

        if (%click == 3) {

          var %a $dll(dll\ctlamp.dll,Command,previous)

        }

      }

    }

    if $did == 10 {

      if ($readini(dll\winamp.ini, winamp, enable)) {

        var %click $did($dname,10).sel

        if (%click == 5) {

          var %a $dll(dll\ctlamp.dll,Command,play)
 

        }

      }

    }

    if $did == 10 {

      if ($readini(dll\winamp.ini, winamp, enable)) {

        var %click $did($dname,10).sel

        if (%click == 7) {

          var %a $dll(dll\ctlamp.dll,Command,pause)

        }

      }

    }

    if $did == 10 {

      if ($readini(dll\winamp.ini, winamp, enable)) {

        var %click $did($dname,10).sel

        if (%click == 9) {

          var %a $dll(dll\ctlamp.dll,Command,stop)

        }

      }

    }

    if $did == 10 {

      if ($readini(dll\winamp.ini, winamp, enable)) {

        var %click $did($dname,10).sel

        if (%click == 11) {

          var %a $dll(dll\ctlamp.dll,Command,next)

        }

      }

    }

    if $did == 1 {

      if ($did($dname,1).sel = 3) {

        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }

        else {

          scid $activecid server

        }

        update.toolbar

        did -f $dname 1

        scid $activecid window -a "status window"

      }

      if ($did($dname,1).sel = 5) {

        Ayarlar

      }

      if ($did($dname,1).sel = 7) {

        Kanallar

      }

      if ($did($dname,1).sel = 9) {

        Korumalar

      }

      if ($did($dname,1).sel = 11) {

        kontrolpanel

      }

      if ($did($dname,1).sel = 13) {

         .run C:\Program Files\Winamp\Winamp.exe

      }

    }

  }

}

Kod sonucu oluşan görüntü ise şu şekildedir:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ayrıca Ek olarak:

alias ctlamp return $shortfn($mircdirctlamp.dll)
alias camp { if ($isid) { return $dll($ctlamp,$1,$iif($2-,$2-,$null)) } | else { dll $ctlamp $1 $iif($2-,$2-,$null) } }
alias ampsay {
if (!$timer(ampbar)) { .timerampbar 0 1 ampbar }
if ( %sayamp != $camp(GetSongTitle) ) {
set %sayamp $camp(GetSongTitle)
saysong
}
}
alias saysong { if ( $camp(GetSongTitle) != WINAMP NOT RUNNING! ) { amsg winamp ~ $camp(GetSongTitle) - ( $+($int($calc($camp(TGetLength) / 60)),:,$iif($calc($camp(TGetLength) % 60) < 10,$+(0,$calc($camp(TGetLength) % 60)),$calc($camp(TGetLength) % 60))) / $+($dll($ctlamp,TGetBRate,.),kbps) ) - ( Playlist: $camp(TGetPlsPosition) / $camp(TGetPlsCount) ) } }

Bu Şekildede Çalan Şarkıyı Görebilirsiniz..
if (!$timer(ampbar)) { .timerampbar 0 1 ampbar }
ßu Kısım İse Dialog'a çalan şarkı 'yı Belirtmek İçindir. tabii ampbar adlı aliası Oluşturursanız

alias ampbar { did -a dialogadı idno Çalan : %sayamp }
örnek ; { did -a mircdb 10 Çalan : %sayamp }