Tekil Mesaj gösterimi
Alt 26 Ocak 2007, 00:57   #26
Çevrimdışı
McKruGer
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Toolbar Tasarımı [Güncellendi]




---------------------------------------------------------------------------------------------------------------------------------

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...]

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,title) } } } 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 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.



--------------------------------------------------------------------------------------------------------------------------------

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet