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

 Kayıt ol  Topluluk
5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Kasım 2011, 02:25   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bu kodu uyarlayamadım..




arkadaşlar, bunu ayrı bir pencerede değilde toolbardaki çal dur buttonuna nasıl uyarlarım. Bir türlü çözemedim.

///Radyo kodunu Fener1907 arkadaşım paylaşmıştı.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:LOAD:{ .set %radyoyayin - } alias cal { if ($1 != Dur) { set %caldir $+(sjn.,$ticks) .comopen %caldir wmplayer.ocx var %z $com(%caldir,Url,4,bstr,$1-) %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp)) %z = $com($+(%caldir,wmp),Play,3) } if ($1 == Dur) && ($com(%caldir)) { %z = $com($+(%caldir,wmp),Stop,3) unset %z } } dialog nmkradio { title "Radio" size -1 -1 132 43 option dbu edit "http://212.175.122.53:1453 ", 1, 32 12 98 10, autohs text "Adres :", 2, 3 13 25 8 button "Çal", 3, 4 28 37 12 button "Dur", 4, 46 28 37 12 button "Gizle", 5, 89 28 37 12 text "Örnek : http://212.175.122.53:1453", 6, 28 2 101 8 } on 1:dialog:nmkradio:*:*:{ if ($devent == init) { did -a nmkradio 1 %radioadres if (%radyoyayin == -) { did -a $dname 3 Çal } if (%radyoyayin == +) { did -a $dname 3 Çalıyor } } if ($devent == sclick) { if ($did == 3) { if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... } if (%radyoyayin == -) { .cal $did(1) | .set %radioadres $did(1) | set %radyoyayin + | did -a $dname 3 Çalıyor } } if ($did == 4) { if (%radyoyayin == -) { echo -a $me Yanlış Yere Tıkladın Zaten Radyo Kapalı... } if (%radyoyayin == +) { .cal dur | set %radyoyayin - | did -a $dname 3 Çal } } if ($did == 5) { .dialog -x nmkradio nmkradio } } } menu * { - Radio aç:.timer 1 1 dialog -m nmkradio nmkradio | unset %radioadres - }

//// buda toolbarım
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:start:{ _basla } on *:connect: { update.tb set %olay bagli .timerbaglanti -o 0 10 .baglantikontrol } alias baglantikontrol { if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server } } on *:close:*: { update.tb } on *:appactive: { ;.timer -m 1 100 _dotray if $appactive { update.tb } } alias mdx dll dlls\mdx.dll $1- alias bars return dlls\bars.mdx alias update.tb { if (!$dialog(tb)) { halt } else { scid $activecid if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected) { did -o tb 1 2 +a 2 Kes } else { did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla! } } } dialog tb { title "x" size 0 0 1500 17 option dbu list 1, 2 -1 2978 25, size text "Adres :",14, 5 22 37 8, center edit "", 15,35 21 85 10,autohs button "ÇaL", 16, 125 21 23 9 button "DuR", 17, 148 21 18 9 button "+", 18, 166 21 18 9 button "-", 19, 184 21 18 9 text "İstek :", 20, 205 21 21 8, right edit "", 21,228 21 73 10 button "Gönder", 22,303 21 25 9 } on *:dialog:tb:init:0: { idset 100 mdx MarkDialog $dname mdx SetDialog $dname style mdx SetBorderStyle $dname 2 staticedge rebar HideToolbar . rebar Dock $dialog(tb).hwnd > top mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars mdx SetBorderStyle 1 ;mdx SetColor $dname 1 background $rgb(255,255,255) kalin 1 13 ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255) did -i $dname 1 1 bmpsize 30 30 did -i $dname 1 1 setimage icon large img\baglan.ico did -i $dname 1 1 setimage icon large img\kopar.ico did -i $dname 1 1 setimage icon large img\kanal.ico did -i $dname 1 1 setimage icon large img\adcon.ico did -i $dname 1 1 setimage icon large img\ayar.ico did -i $dname 1 1 setimage icon large img\koruma.ico did -i $dname 1 1 setimage icon large img\extra.ico did -i $dname 1 1 setimage icon large img\admin.ico did -i $dname 1 1 setimage icon large img\cesuryurek.ico did -i $dname 1 1 setimage icon large img\opmen.ico did -i $dname 1 1 setimage icon large img\List.ico did -i $dname 1 1 setimage icon large img\spams.ico did -i $dname 1 1 setimage icon large img\logs.ico did -a $dname 1 +a 1 Bağlantıyı Kes did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü.. did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü.. did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs... did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü.. did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü.. did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü.. did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku.. did -i $dname 1 1 setbkg stretch img\b13.bmp if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 } update.tb -- dll aniwin.dll anime $dialog($dname).hwnd -hn 650 } on *:dialog:tb:*:*: { if $devent == sclick { if $did == 1 { if ($did($dname,1).sel = 2) { if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect | halt } elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server } update.tb did -f $dname 1 scid $activecid window -a "status window" } } if ($did($dname,1).sel = 3) { madkanalmd } if ($did($dname,1).sel = 4) { helperircop } if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen } if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar } if ($did($dname,1).sel = 7) { /efekt } if ($did($dname,1).sel = 8) { klines } if ($did($dname,1).sel = 9) { szline } if ($did($dname,1).sel = 10) { helps } if ($did($dname,1).sel = 11) { spam } if ($did($dname,1).sel = 12) { States } if ($did($dname,1).sel = 13) { loglar } } }


Eklenen Resim Ön İzlemesi Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 15 Kasım 2011, 21:22   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Toolbar bana Profesyonel Scripti anımsattı. Neden acaba ?

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 02:52   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Evet çok hoşuma gitti bende en çok kullandığım bir kodu eklemek istedim. Radyo eklemek istedim tek sorun ayrı bir pencere de olsun istemiyorum toolbara koyduğum çal, dur istek gönder olsun istedim. Fakat olmadı.

Scripti hazırlayan arkadaşa buradan teşekkürler çok güzel ve kasmadan çalışan harika bir script olmuş.Keşke şu radyoyuda ekeleyebilsem. Herkes kullansın diye yayınlanan bir scripti görünce bu kadar şaşırmanda ilginç geldi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kullanmasamıydık acaba ?

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 05:24   #4
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




denemedim ama boyle olmasi gerek, hayirli IF'ler.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:start:{ _basla } on *:connect: { update.tb set %olay bagli .timerbaglanti -o 0 10 .baglantikontrol } alias baglantikontrol { if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server } } on *:close:*: { update.tb } on *:appactive: { ;.timer -m 1 100 _dotray if $appactive { update.tb } } alias mdx dll dlls\mdx.dll $1- alias bars return dlls\bars.mdx alias update.tb { if (!$dialog(tb)) { halt } else { scid $activecid if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected) { did -o tb 1 2 +a 2 Kes } else { did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla! } } } dialog tb { title "x" size 0 0 1500 17 option dbu list 1, 2 -1 2978 25, size text "Adres :",14, 5 22 37 8, center edit "", 15,35 21 85 10,autohs button "ÇaL", 16, 125 21 23 9 button "DuR", 17, 148 21 18 9 button "+", 18, 166 21 18 9 button "-", 19, 184 21 18 9 text "İstek :", 20, 205 21 21 8, right edit "", 21,228 21 73 10 button "Gönder", 22,303 21 25 9 } on *:dialog:tb:init:0: { idset 100 mdx MarkDialog $dname mdx SetDialog $dname style mdx SetBorderStyle $dname 2 staticedge rebar HideToolbar . rebar Dock $dialog(tb).hwnd > top mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars mdx SetBorderStyle 1 ;mdx SetColor $dname 1 background $rgb(255,255,255) kalin 1 13 ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255) did -i $dname 1 1 bmpsize 30 30 did -i $dname 1 1 setimage icon large img\baglan.ico did -i $dname 1 1 setimage icon large img\kopar.ico did -i $dname 1 1 setimage icon large img\kanal.ico did -i $dname 1 1 setimage icon large img\adcon.ico did -i $dname 1 1 setimage icon large img\ayar.ico did -i $dname 1 1 setimage icon large img\koruma.ico did -i $dname 1 1 setimage icon large img\extra.ico did -i $dname 1 1 setimage icon large img\admin.ico did -i $dname 1 1 setimage icon large img\cesuryurek.ico did -i $dname 1 1 setimage icon large img\opmen.ico did -i $dname 1 1 setimage icon large img\List.ico did -i $dname 1 1 setimage icon large img\spams.ico did -i $dname 1 1 setimage icon large img\logs.ico did -a $dname 1 +a 1 Bağlantıyı Kes did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü.. did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü.. did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs... did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü.. did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü.. did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü.. did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku.. did -i $dname 1 1 setbkg stretch img\b13.bmp if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 } update.tb -- dll aniwin.dll anime $dialog($dname).hwnd -hn 650 } on *:dialog:tb:*:*: { if $devent == sclick { if $did == 1 { if ($did($dname,1).sel = 2) { if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect | halt } elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server } update.tb did -f $dname 1 scid $activecid window -a "status window" } } if ($did($dname,1).sel = 3) { madkanalmd } if ($did($dname,1).sel = 4) { helperircop } if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen } if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar } if ($did($dname,1).sel = 7) { /efekt } if ($did($dname,1).sel = 8) { klines } if ($did($dname,1).sel = 9) { szline } if ($did($dname,1).sel = 10) { helps } if ($did($dname,1).sel = 11) { spam } if ($did($dname,1).sel = 12) { States } if ($did($dname,1).sel = 13) { loglar } if ($did == 16) { $iif(%radyoyayin,echo -a Zaten yayin Acik,cal $did(15)) | set %radyoyayin + } if ($did == 17) { $iif($input(Radyo Durduruldulsunmu,a),cal dur) } if ($did == 22) { $iif($did(21),msg #radyo !istek $v1,echo -a Istek kutusu bos - isteginizi yazarak deneyiniz.)) } } } alias cal { if ($1 != Dur) { set %caldir $+(sjn.,$ticks) .comopen %caldir wmplayer.ocx var %z $com(%caldir,Url,4,bstr,$1-) %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp)) %z = $com($+(%caldir,wmp),Play,3) } if ($1 == Dur) && ($com(%caldir)) { %z = $com($+(%caldir,wmp),Stop,3) unset %z unset %radyoyayin } }



 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 15:03   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Aeg Farkı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 16:42   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Set cevabın için teşekkürler fakat olmadı. olmamasındaki neden aliasta çal buttonunun idsi 4 yani bendeki ise list 16 daki 2 . Şu aliası nasıl düzenlemeliyim
Aşagıdaki aliasta kırmızı ile belirttim yerler çal, dur buttonlarının idleri.
Bu bir dialog ta olduğu için sadece buttonun idsini vermek yetiyor fakat bunu tolbara koyunca değişiyor. Toolbardaki buttonum list 16 daki 2 düğme
bunu kırmızı ile belirttim yerde nasıl demeliyim. şöylemi olmalı


var %z $com(%caldir,Url,if ($did($dname,16).sel = 2),bstr,$15-)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias cal { if ($1 != Dur) { set %caldir $+(sjn.,$ticks) .comopen %caldir wmplayer.ocx var %z $com(%caldir,Url,4,bstr,$1-) %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp)) %z = $com($+(%caldir,wmp),Play,3) } if ($1 == Dur) && ($com(%caldir)) { %z = $com($+(%caldir,wmp),Stop,3) unset %z } }



Konu LordAres tarafından (16 Kasım 2011 Saat 16:48 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 17:14   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




LordAres Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Set cevabın için teşekkürler fakat olmadı. olmamasındaki neden aliasta çal buttonunun idsi 4 yani bendeki ise list 16 daki 2 . Şu aliası nasıl düzenlemeliyim
Aşagıdaki aliasta kırmızı ile belirttim yerler çal, dur buttonlarının idleri.
Bu bir dialog ta olduğu için sadece buttonun idsini vermek yetiyor fakat bunu tolbara koyunca değişiyor. Toolbardaki buttonum list 16 daki 2 düğme
bunu kırmızı ile belirttim yerde nasıl demeliyim. şöylemi olmalı


var %z $com(%caldir,Url,if ($did($dname,16).sel = 2),bstr,$15-)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias cal { if ($1 != Dur) { set %caldir $+(sjn.,$ticks) .comopen %caldir wmplayer.ocx var %z $com(%caldir,Url,4,bstr,$1-) %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp)) %z = $com($+(%caldir,wmp),Play,3) } if ($1 == Dur) && ($com(%caldir)) { %z = $com($+(%caldir,wmp),Stop,3) unset %z } }


Sapa sağlam çalışıyor.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 17:52   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




çal tuşuna bastığımda radyo zaten çalıyor diyor. oysa radyo çalmıyor. yani sclick ( tıklanma olayı çalışıyor ) Fakat Alias radyodaki button id leri farklı olduğu için radyo çalmıyor.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 18:32   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




LordAres Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
çal tuşuna bastığımda radyo zaten çalıyor diyor. oysa radyo çalmıyor. yani sclick ( tıklanma olayı çalışıyor ) Fakat Alias radyodaki button id leri farklı olduğu için radyo çalmıyor.

O kodun Dialogla bir işi yok kardeşim.

/cal adres şeklinde denersen çalıştığını göreceksin.

Ben toolbarı alıp denedim ve sorunsuz bir şekilde çalıştı.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 18:56   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Vayy be Paint hocam çok sağolasın iki gündür yapmadım şey kalmamıştı evet çalışıyor. Harikasın teşekkürler Fakat sorun şu mirci ilk açtığımda
çal tuşuna tıklarsam çalmıyor. başta mutlaka /cal Adres yapmam gerekiyor.
bunu yaptıktan sonra çal tuşuna tıklarsam çalışıyor.
çalmaya başladığında Çal buttonundaki yazıyı Çalıyor Yapabilirmiyim yada neresini değiştirmem lazım


Konu LordAres tarafından (16 Kasım 2011 Saat 19:04 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
bu, kodu, uyarlayamadım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hazir Kodu Sound kodu Lazim Pandorum mIRC Scripting Sorunları 2 22 Ekim 2010 12:00
web kodu Lovestory mIRC Scripting Sorunları 3 21 Ocak 2010 02:51
selam status ekranına saat kodu koydum O Kodu NASIL SİLECEM ??? Y ofofyaRim mIRC Scripting Sorunları 5 31 Ağustos 2009 23:42
Log kodu Xcrape mIRC Scripting Sorunları 0 03 Eylül 2008 19:18