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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Mp3bar Ve Toolbar ? (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/196068-mp3bar-ve-toolbar.html)

ßerKant 10 Nisan 2009 17:00

Mp3bar Ve Toolbar ?
 
Forumda bircok toolbar mevcut ama benım begendigim Siyah bir toolbar
var fakat sanırım linkler ölmüş acaba elinde olan varsa upload edeblir mi birde mp3bar kodu we nasıl yüklenecegi hakkında ufak bir bilgi olursa cok sewinirim

SeRDaR406 10 Nisan 2009 17:03

Cevap: Mp3bar Ve Toolbar ?
 
Bir link verirsen arkadaşlar hangi toolbar'dan bahsettiğini anlayacaklardır.Yada yazarı kimse ona göre sana yardım etmeleri kolaylaşacaktır.

ßerKant 10 Nisan 2009 17:08

Cevap: Mp3bar Ve Toolbar ?
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buyrun Hocam burdaki Siyah toolbar McKuruGer Hocm sanırım bir link wermiş onu kurdum ama oLmadı

Resimde Detaylı bir şekilde Görebilirsiniz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Voltage 10 Nisan 2009 19:08

Cevap: Mp3bar Ve Toolbar ?
 
Toolbar dosyasının içinde ki Toolbar.mrc ReBaR.dll ve nHTMLN_2.95.dll yi mirc ana klasörüne çıkartıp yüklemeyi denersen istediğin olacaktır.İyi forumlar.

ßerKant 10 Nisan 2009 21:34

Cevap: Mp3bar Ve Toolbar ?
 
* /dll: Dosyası Açılamıyor 'C:\Documents and Settings\Admın\Application Data\mIRC\toolbar\mdx.dll' (Satır 8, toolbar.mrc)
-


Bide Mp3bar ı Kodu Olan warsa paylaşırsa sewinirim

ßerKant 10 Nisan 2009 22:00

Cevap: Mp3bar Ve Toolbar ?
 
yazmayı unutmuşum üstte ki uyarıyı alıyorum ardından script Donuyor Acaba Sorun Nerden kaynaklanıyor ?

McKruGer 10 Nisan 2009 22:17

Cevap: Mp3bar Ve Toolbar ?
 
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 }

ßerKant 10 Nisan 2009 22:42

Cevap: Mp3bar Ve Toolbar ?
 
Tşk ederim Hocam ama bu mp3bar ı aşşagıda koydugum toolbara nasıl uyarlarız gerci oda bir garip ama bakarsanız sewinirim Resmi upload ettim



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

McKruGer 10 Nisan 2009 22:54

Cevap: Mp3bar Ve Toolbar ?
 
Valla uğraşmak lazım. o kadar vaktim yok incelemeye:)

Flash toolbarı inceleyip oraya eklenebilir mi diye bakmak lazım.

Hayat 10 Nisan 2009 23:08

Cevap: Mp3bar Ve Toolbar ?
 
Ustalar daha iyi bilir ama bu toolbara playeri entegre etmek oldukça zor bence çünkü flash toolbar html sayfası üzerinden gösterim sağlıyor..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:46.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk