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: Kodu kopyalamak için üzerine çift tıklayın!
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 }