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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   SoLda Toolbar (https://www.ircforumlari.net/mirc-scripting-sorunlari/356873-solda-toolbar.html)

bedqoq 26 Eylül 2010 16:53

SoLda Toolbar
 
Arkadaşlar Şöyle bir Cod yazdım ama ben bunu SoLda da KuLLanmak İstiyorum. bunu yaparken yani Sola uyarlarken üsttede olduğu için Şöyle bir hata veriyor 'Toolbar bu isim kullanılıyor. bunun sebebi aynı toolbarın olmasıdır sanırım.' ben bunu değiştirmek istedim soltoolbar diye o zamanda toolbar işlemedi. yardımcı olcak arkadaşlara Şimdiden TeşekürLer..


------------------------------------------------------
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 $date $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) Kes $chr(9) $+ Bağlantıyı Kes
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Bağlan $chr(9) $+ Servere Bağlan
}
}
}

dialog toolbar {
title "x"
size 0 2 396 $iif($temabul,29,31)
option dbu
list 13, 0 0 396 19
list 1, 0 11 396 17, size
list 2, 403 13 150 8, size
list 7, 403 25 150 13, size
list 9, 403 -3 150 1
box "Hızlı İşlemler", 8, 397 5 44 34,default
text "", 11, 463 17 45 26, center
text "", 12, 466 21 39 22, center

}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 12 17 550 Courier New
.timersaat 0 1 saat 12

rebar HideToolbar
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,2,7,9,13 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,2,7,9,13

did -i $dname 2 1 bmpsize 16 16
did -i $dname 2 1 setimage +nhd 0 icon small icon\operator.ico
did -a $dname 2 +b 1 $chr(32) $+ $chr(9) $+ OP / DEOP
did -i $dname 2 1 setimage +nhd 0 icon small icon\voice.ico
did -a $dname 2 +b 2 $chr(32) $+ $chr(9) $+ VOICE / DEVOICE
did -i $dname 2 1 setimage +nhd 0 icon small icon\ikaz.ico
did -a $dname 2 +b 3 $chr(32) $+ $chr(9) $+ KICK BAN
did -i $dname 7 1 bmpsize 16 16
did -i $dname 7 1 setimage +nhd 0 icon small icon\kick.ico
did -a $dname 7 +b 1 $chr(32) $+ $chr(9) $+ Kick
did -i $dname 7 1 setimage +nhd 0 icon small icon\Whois.ico
did -a $dname 7 +b 2 $chr(32) $+ $chr(9) $+ Whois Çek
did -i $dname 7 1 setimage +nhd 0 icon small icon\Query.ico
did -a $dname 7 +b 3 $chr(32) $+ $chr(9) $+ Özel Aç

did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 26 26
did -i $dname 1 1 setimage icon large icon\disconnect.ico
did -i $dname 1 1 setimage icon large icon\baglanti.ico
did -i $dname 1 1 setimage icon large icon\mds.ico
did -i $dname 1 1 setimage icon large icon\mp3.ico
did -i $dname 1 1 setimage icon large icon\panel.ico
did -i $dname 1 1 setimage icon large icon\islamca.ico
did -i $dname 1 1 setimage icon large icon\dost.ico
did -i $dname 1 1 setimage icon large icon\Games2.ico
did -i $dname 1 1 setimage icon large icon\radyo.ico
did -i $dname 1 1 setimage icon large icon\Mouse.ico
did -i $dname 1 1 setimage icon large icon\internet.ico
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 Bağlan $chr(9) $+ Servere Bağlan
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Away Menüsü $chr(9) $+ away Menüsünü Açar
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Mp3 Player $chr(9) $+ Zirve mp3 player
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) KontroL PaneLi $chr(9) $+ Kontrol PaneLini Açar
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) KorumaLar $chr(9) $+ hay_ta Korumalar Açar
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) AyarLar $chr(9) $+ Script Ayarlarını açar
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Oyunlar $chr(9) $+ Script Oyunlarını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) ZirveFM DinLe $chr(9) $+ ZirveFm DinLemenizi SağLar
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Mosuse AyarLarı $chr(9) $+Mouse seçmenizi Sağlar
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Zirve Web $chr(9) $+ Sunucu Web Sitesini Açmanızı SağLar.
did -a $dname 1 +a -

}
on *:dialog:toolbar:sclick:*:{
if $did == 2 {
if $did(2).sel == 2 {
if $sline($active,1) isop $active {
mode $active -o $sline($active,1)
}
else {
mode $active +o $sline($active,1)
}
}
if $did(2).sel == 3 {
if $sline($active,1) isvoice $active {
mode $active -v $sline($active,1)
}
else {
mode $active +v $sline($active,1)
}
}
if $did(2).sel == 4 {
mode $active +b $sline($active,1) $+ !*@*
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}

if $did == 7 {
if $did(7).sel == 2 {
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}
if $did == 7 {
if $did(7).sel == 3 {
whois $nick $sline($active,1)
}
}
if $did == 7 {
if $did(7).sel == 4 {
query $nick $sline($active,1)
}
}

if $devent == sclick {
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) {
.awayset
}
if ($did($dname,1).sel = 7) {
.mp3player
}
if ($did($dname,1).sel = 9) {
.cpanel
}
if ($did($dname,1).sel = 11) {
.dialog -m protext protext
}
if ($did($dname,1).sel = 13) {
.hytayönet
}
if ($did($dname,1).sel = 15) {
.oyun
}
if ($did($dname,1).sel = 17) {
.radyob
}
if ($did($dname,1).sel = 19) {
.mouse
}
if ($did($dname,1).sel = 21) {
.run sunucum.com
}
if ($did($dname,1).sel = 23) {
.$mircdiryardim.htm
}
}
}
}
------------------------------------------------------

StanteaR 26 Eylül 2010 17:15

Cevap: SoLda Toolbar
 
Sanırım Sen Böyle Bır Toolbar Istıyorsun..

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

Rohit 26 Eylül 2010 19:03

Cevap: SoLda Toolbar
 
Alıntı:

bedqoq; Nickli Üyeden Alıntı
Arkadaşlar Şöyle bir Cod yazdım ama ben bunu SoLda da KuLLanmak İstiyorum.

Oncelikle Sen bu kodu yazmadin.
Ve bu toolbar'i yan'a rebar.dll ile yerlestirebilirsin, ancak
yan tarafta durmasi mIRC'te bazi kasmalar ve sorunlara yol
acacaktir.

fener1907 26 Eylül 2010 22:29

Cevap: SoLda Toolbar
 
rebar Dock $dialog(toolbar).hwnd > top
burda ki top 'u left yap ve toolbar yazan yerleride değiştir örneğin tb , toolbarr yaparsan vs. gibi tamadır


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net