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/)
-   -   Operator Toolbar Menü (https://www.ircforumlari.net/mirc-scripting-sorunlari/126471-operator-toolbar-menu.html)

StanteaR 31 Temmuz 2008 18:38
Operator Toolbar Menü
 
Arkadaslar sımdı benım mircin normal toolbar ı var ama ben bu nıck listesının yanına LaureLL ın yaptıgı gıbı bır operator kıckban voıce kıck gıbı bır toolbar menu eklemek ıstıyorum Laurell ın toolbarını ekledım operator toolbar ama mirci acınca otomatık kapanıyor bu sefer nasıl yapabılırım bu asagıdakı benım normal toolbarım
Alıntı:
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 "Servisler Op Control", 14, 275 -1 185 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 25 25
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -a $dname 10 +a -
did -a $dname 10 +a 1 $chr(32) Admin $chr(9) $+ Admin Servisleri
did -a $dname 10 +a -
did -a $dname 10 +a 2 $chr(32) OperServ $chr(9) $+ Oper Servisleri
did -a $dname 10 +a -
did -a $dname 10 +a 3 $chr(32) ChanServ $chr(9) $+ Chanserv Servıslerı
did -a $dname 10 +a -
did -a $dname 10 +a 4 $chr(32) NickServ $chr(9) $+ NickServ Servıslerı
did -a $dname 10 +a -
did -a $dname 10 +a 5 $chr(32) MemoServ $chr(9) $+ MemoServ Servıslerı
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\mp3.ico
did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
did -i $dname 1 1 setimage icon large icon\8.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) Away $chr(9) $+ aWay
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Flood Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Log $chr(9) $+ ßad Nick
did -a $dname 1 +a -
}
on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 10 {
if ($did($dname,10).sel = 3) {
/dialog -m serverinfo serverinfo
}
if ($did($dname,10).sel = 5) {
/dialog -m operserv operserv
}
if ($did($dname,10).sel = 7) {
dialog -m chanserv chanserv
}
if ($did($dname,10).sel = 9) {
/dialog -ma nickserv nickserv
}
if ($did($dname,10).sel = 11) {
/dialog -ma memoserv memoserv
}
}
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) {
sendkey ALT O
}
if ($did($dname,1).sel = 7) {
_k
}
if ($did($dname,1).sel = 9) {
/awaysys
}
if ($did($dname,1).sel = 11) {
/fp
}
if ($did($dname,1).sel = 13) {
.kayitgosterici
}
}
}
}

detay 31 Temmuz 2008 20:30
Cevap: Operator Toolbar Menü
 
rebar.dll den kaynaklaniyordur mircin eski sürümlerini kullan 6.02 olabilir mesela

StanteaR 31 Temmuz 2008 22:56
Cevap: Operator Toolbar Menü
 
Mirc V.6.31 kullanıyorum anlamadım neden kaynaklanıyor bu kendı kendıne kapanıyor mirc

McKruGer 31 Temmuz 2008 23:02
Cevap: Operator Toolbar Menü
 
mircde kullandığın dll dosyalarının uzantıları okunamıyor. Bu nedenle otomatik kapanıyor. Bu durum oluştuğunda mirc eski versiyonlarında uyarı verirken yeni sürümlerde mirc otomatik kapatılır.

StanteaR 01 Ağustos 2008 11:58
Cevap: Operator Toolbar Menü
 
ya yanlıs hatırlamıyorsam bır arkadasın ıconlu operator menusu vardı onu search kısmından arıyorum bulamıyorum LaureLL ın var onu buldumda dıgerını bulamıyorum
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bu var ama ben bunu ıkonlu ya cevırmek ıstıyorum yardım edebılırmısınız acaba kod da bu

Alıntı:
on *:connect: { dialog -m opsop opsop }
alias _opsop {
if $dialog(opsop) {
dialog -c opsop opsop
}
else {
dialog -m opsop opsop
}
}
dialog opsop {
title "LauReLL"
option dbu
size -1 -1 35 51400
button "+o", 1, 2 0 30 25
button "-o", 7, 2 26 30 25
button "+v", 2, 2 52 30 25
button "-v", 8, 2 78 30 26
button "kick", 3, 2 104 30 25
button "ban", 4, 2 131 30 25
button "K-B", 10, 2 156 30 25
button "whois", 5, 2 182 30 25
button "ping", 6, 2 209 30 25
button "+MRc", 11, 2 236 30 25
button "+m", 12, 2 262 30 25
button "-m", 13, 2 289 30 25
button "+c", 14, 2 315 30 25
button "-c", 15, 2 342 30 25
button "+R", 16, 2 369 30 25
button "-R", 17, 2 396 30 25
;button "+m", 18, 2 423 30 25
;button "-m", 19, 2 450 30 25
}
on *:dialog:opsop:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(191,216,156) ]
rebar Dock $dialog(opsop).hwnd > left
}
on *:DIALOG:opsop:sclick:17:{
if ($me isop $active) {
mode $active -R
}
}
on *:DIALOG:opsop:sclick:16:{
if ($me isop $active) {
mode $active +R
}
}
on *:DIALOG:opsop:sclick:15:{
if ($me isop $active) {
mode $active -c
}
}
on *:DIALOG:opsop:sclick:14:{
if ($me isop $active) {
mode $active +c
}
}
on *:DIALOG:opsop:sclick:13:{
if ($me isop $active) {
mode $active -m
}
}
on *:DIALOG:opsop:sclick:12:{
if ($me isop $active) {
mode $active +m
}
}
on *:DIALOG:opsop:sclick:11:{
if ($me isop $active) {
mode $active +MRc
}
}
on *:DIALOG:opsop:sclick:10:{
if ($me isop $active) {
ban $active $snick($active,1)10 | kick $active $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:1:{
if ($me isop $active) {
mode $active +o $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:7:{
if ($me isop $active) {
mode $active -o $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:2:{
if ($me isop $active) {
mode $active +v $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:8:{
if ($me isop $active) {
mode $active -v $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:3:{
if ($me isop $active) {
kick $active $snick($active,1)
}
}
on *:DIALOG:opsop:sclick:4:{
if ($me isop $active) {
ban $active $snick($active,1) 10
}
}
on *:DIALOG:opsop:sclick:5:{
whois $snick($active,1)
}
on *:DIALOG:opsop:sclick:6:{
ctcp $snick($active,1) ping
}
alias mdx { dll dll\mdx.dll $1- }
alias rebar { dll $shortfn(dll\rebar.dll) $$1- }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }

Med Cezir 02 Ağustos 2008 08:17
Cevap: Operator Toolbar Menü
 
Daha Önceden Yapmış Oldugum Bir Op Menusu Vardı Biraz Üstünde Oyniyarak Senin İçin Yanbar Haline Getirdim. Eger üzerinde oynama yapmak istersen yada ufak hatalar varsa burdan yada siteden bildirirsen yardımcı olurum, sabah sabah gözümden kacmış yerleri olabilir.

Gerekli Dll Dosyaları: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kullanacagın İconlarıda Kendin Ayarlarsın..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
on *:start: { dialog -m toolbar toolbar }
on *:connect: {
  update.toolbar
}
on *:disconnect: {
  update.toolbar
}
on *:close:*: {
  update.toolbar
}
 
alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
}
 
dialog toolbar {
  title "By uMuT"
  size 5 5 70 285
  option dbu
  box "Op İşlem", 1, 3 3 67 150
  list 2, 7 12 60 14, size
  list 3, 7 29 60 14, size
  list 4, 7 46 60 14, size
  list 5, 7 63 60 14, size
  list 6, 7 81 60 14, size
  list 7, 7 98 60 14, size
  list 8, 7 115 60 14, size
  list 9, 7 133 60 14, size
  box "Ekle\Sil", 10, 3 155 67 120
  list 11, 7 163 60 14, size
  list 12, 7 181 60 14, size
  list 13, 7 200 60 14, size
  list 14, 7 218 60 14, size
  list 15, 7 237 60 14, size
  list 16, 8 256 60 14, size
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1 12 700 Verdana
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > left
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
  mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
  mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
  mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
  did -i $dname 2 1 bmpsize 24 24
  did -i $dname 2 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 2 +W 175 1    Op Ver
  did -i $dname 3 1 bmpsize 24 24
  did -i $dname 3 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 3 +W 175 1    Deop Et
  did -i $dname 4 1 bmpsize 24 24
  did -i $dname 4 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 4 +W 175 1    Voice Ver
  did -i $dname 5 1 bmpsize 24 24
  did -i $dname 5 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 5 +W 175 1    Devoice Et
  did -i $dname 6 1 bmpsize 24 24
  did -i $dname 6 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 6 +W 175 1    Ban+Kick
  did -i $dname 7 1 bmpsize 24 24
  did -i $dname 7 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 7 +W 175 1    Sebebli Kick
  did -i $dname 8 1 bmpsize 24 24
  did -i $dname 8 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 8 +W 175 1    Kanal Unban
  did -i $dname 9 1 bmpsize 24 24
  did -i $dname 9 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 9 +W 175 1    Temizle Kanalı
  did -i $dname 11 1 bmpsize 24 24
  did -i $dname 11 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 11 +W 175 1    Aop Ekle
  did -i $dname 12 1 bmpsize 24 24
  did -i $dname 12 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 12 +W 175 1    Aop Sil
  did -i $dname 13 1 bmpsize 24 24
  did -i $dname 13 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 13 +W 175 1    Uop Ekle
  did -i $dname 14 1 bmpsize 24 24
  did -i $dname 14 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 14 +W 175 1    Uop Sil
  did -i $dname 15 1 bmpsize 24 24
  did -i $dname 15 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 15 +W 175 1    Akick Ekle
  did -i $dname 16 1 bmpsize 24 24
  did -i $dname 16 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 16 +W 175 1    Akick Sil
}
on *:dialog:toolbar:sclick:*: {
  if $did == 2 { mode $active +o $snick($active,1) }
  if $did == 3 { mode $active -o $snick($active,1) }
  if $did == 4 { mode $active +v $snick($active,1) }
  if $did == 5 { mode $active -v $snick($active,1) }
  if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... :)2 $time %logo }
  if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
  if $did == 8 { banac $active }
  if $did == 9 { timer 0 40 /msg $active - }
  if $did == 11 { cs aop $active add $snick($active,1) }
  if $did == 12 { cs aop $active del $snick($active,1) }
  if $did == 13 { cs uop $active add $snick($active,1) }
  if $did == 14 { cs uop $active del $snick($active,1) }
  if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
  if $did == 16 { cs akick $active del $$? }
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }

Mc_AyALa 09 Aralık 2008 16:35
Cevap: Operator Toolbar Menü
 
Med-Cezir bişi sorcam ben bunu hem sağda hem solda yapamazmıyım ?

Alıntı:
on *:start: { dialog -m toolbarr toolbarr }
on *:connect: {
update.toolbarr
}
on *:disconnect: {
update.toolbarr
}
on *:close:*: {
update.toolbarr
}
alias update.toolbarr {
if (!$dialog(toolbarr)) { halt }
}
dialog toolbarr {
title "By uMuT"
size 5 5 70 285
option dbu
box "Op İşlem", 1, 3 3 67 150
list 2, 7 12 60 14, size
list 3, 7 29 60 14, size
list 4, 7 46 60 14, size
list 5, 7 63 60 14, size
list 6, 7 81 60 14, size
list 7, 7 98 60 14, size
list 8, 7 115 60 14, size
list 9, 7 133 60 14, size
box "Ekle\Sil", 10, 3 155 67 120
list 11, 7 163 60 14, size
list 12, 7 181 60 14, size
list 13, 7 200 60 14, size
list 14, 7 218 60 14, size
list 15, 7 237 60 14, size
list 16, 8 256 60 14, size
}
on *:dialog:toolbarr:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 12 700 Verdana
rebar Dock $dialog(toolbarr).hwnd > left
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBarr flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbarr flat wrap arrows nodivider list > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
did -i $dname 2 1 bmpsize 24 24
did -i $dname 2 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 2 +W 175 1 Op Ver
did -i $dname 3 1 bmpsize 24 24
did -i $dname 3 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 3 +W 175 1 Deop Et
did -i $dname 4 1 bmpsize 24 24
did -i $dname 4 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 4 +W 175 1 Voice Ver
did -i $dname 5 1 bmpsize 24 24
did -i $dname 5 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 5 +W 175 1 Devoice Et
did -i $dname 6 1 bmpsize 24 24
did -i $dname 6 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 6 +W 175 1 Ban+Kick
did -i $dname 7 1 bmpsize 24 24
did -i $dname 7 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 7 +W 175 1 Sebebli Kick
did -i $dname 8 1 bmpsize 24 24
did -i $dname 8 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 8 +W 175 1 Kanal Unban
did -i $dname 9 1 bmpsize 24 24
did -i $dname 9 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 9 +W 175 1 Temizle Kanalı
did -i $dname 11 1 bmpsize 24 24
did -i $dname 11 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 11 +W 175 1 Aop Ekle
did -i $dname 12 1 bmpsize 24 24
did -i $dname 12 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 12 +W 175 1 Aop Sil
did -i $dname 13 1 bmpsize 24 24
did -i $dname 13 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 13 +W 175 1 Uop Ekle
did -i $dname 14 1 bmpsize 24 24
did -i $dname 14 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 14 +W 175 1 Uop Sil
did -i $dname 15 1 bmpsize 24 24
did -i $dname 15 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 15 +W 175 1 Akick Ekle
did -i $dname 16 1 bmpsize 24 24
did -i $dname 16 1 setimage icon large 0, $+ System\icon\op.ico
did -a $dname 16 +W 175 1 Akick Sil
}
on *:dialog:toolbarr:sclick:*: {
if $did == 2 { mode $active +o $snick($active,1) }
if $did == 3 { mode $active -o $snick($active,1) }
if $did == 4 { mode $active +v $snick($active,1) }
if $did == 5 { mode $active -v $snick($active,1) }
if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... :)2 $time %logo }
if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
if $did == 8 { banac $active }
if $did == 9 { timer 0 40 /msg $active - }
if $did == 11 { cs aop $active add $snick($active,1) }
if $did == 12 { cs aop $active del $snick($active,1) }
if $did == 13 { cs uop $active add $snick($active,1) }
if $did == 14 { cs uop $active del $snick($active,1) }
if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
if $did == 16 { cs akick $active del $$? }
}
Böyle bişi yaptm fakat iconlar gözükmedi

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

miRC Versionum 6.21
Yardım edebilirsen sevinirim. TeşekkürLer ...

Med Cezir 14 Aralık 2008 16:23
Cevap: Operator Toolbar Menü
 
Burada Ufak Bir Hatan Var O Nedenle İconlar Görünmüyor.

Bu Satırın Yerine
Kod:
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbarr flat wrap arrows nodivider list > $bars
Bu Satırı Yazarsan Olacaktır.
Kod:
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
Yukarıda Vermiş Oldugum Kod Soldaki İcindi Sagdaki İcin de Düzenli Bir Şekilde Verecek Olursak.

Kod:
on *:start: { dialog -m toolbarr toolbarr }
on *:connect: {
  update.toolbarr
}
on *:disconnect: {
  update.toolbarr
}
on *:close:*: {
  update.toolbarr
}
alias update.toolbarr {
  if (!$dialog(toolbarr)) { halt }
}
dialog toolbarr {
  title "By uMuT"
  size 5 5 70 285
  option dbu
  box "Op İşlem", 1, 3 3 67 150
  list 2, 7 12 60 14, size
  list 3, 7 29 60 14, size
  list 4, 7 46 60 14, size
  list 5, 7 63 60 14, size
  list 6, 7 81 60 14, size
  list 7, 7 98 60 14, size
  list 8, 7 115 60 14, size
  list 9, 7 133 60 14, size
  box "Ekle\Sil", 10, 3 155 67 120
  list 11, 7 163 60 14, size
  list 12, 7 181 60 14, size
  list 13, 7 200 60 14, size
  list 14, 7 218 60 14, size
  list 15, 7 237 60 14, size
  list 16, 8 256 60 14, size
}
on *:dialog:toolbarr:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1 12 700 Verdana
  rebar Dock $dialog(toolbarr).hwnd > right
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBarr flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
  mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
  mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
  mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
  did -i $dname 2 1 bmpsize 24 24
  did -i $dname 2 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 2 +W 175 1 Op Ver
  did -i $dname 3 1 bmpsize 24 24
  did -i $dname 3 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 3 +W 175 1 Deop Et
  did -i $dname 4 1 bmpsize 24 24
  did -i $dname 4 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 4 +W 175 1 Voice Ver
  did -i $dname 5 1 bmpsize 24 24
  did -i $dname 5 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 5 +W 175 1 Devoice Et
  did -i $dname 6 1 bmpsize 24 24
  did -i $dname 6 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 6 +W 175 1 Ban+Kick
  did -i $dname 7 1 bmpsize 24 24
  did -i $dname 7 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 7 +W 175 1 Sebebli Kick
  did -i $dname 8 1 bmpsize 24 24
  did -i $dname 8 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 8 +W 175 1 Kanal Unban
  did -i $dname 9 1 bmpsize 24 24
  did -i $dname 9 1 setimage icon large 0, $+ icon\help.ico
  did -a $dname 9 +W 175 1 Temizle Kanalı
  did -i $dname 11 1 bmpsize 24 24
  did -i $dname 11 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 11 +W 175 1 Aop Ekle
  did -i $dname 12 1 bmpsize 24 24
  did -i $dname 12 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 12 +W 175 1 Aop Sil
  did -i $dname 13 1 bmpsize 24 24
  did -i $dname 13 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 13 +W 175 1 Uop Ekle
  did -i $dname 14 1 bmpsize 24 24
  did -i $dname 14 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 14 +W 175 1 Uop Sil
  did -i $dname 15 1 bmpsize 24 24
  did -i $dname 15 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 15 +W 175 1 Akick Ekle
  did -i $dname 16 1 bmpsize 24 24
  did -i $dname 16 1 setimage icon large 0, $+ icon\favori.ico
  did -a $dname 16 +W 175 1 Akick Sil
}
on *:dialog:toolbarr:sclick:*: {
  if $did == 2 { mode $active +o $snick($active,1) }
  if $did == 3 { mode $active -o $snick($active,1) }
  if $did == 4 { mode $active +v $snick($active,1) }
  if $did == 5 { mode $active -v $snick($active,1) }
  if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... 2 $time %logo }
  if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
  if $did == 8 { banac $active }
  if $did == 9 { timer 0 40 /msg $active - }
  if $did == 11 { cs aop $active add $snick($active,1) }
  if $did == 12 { cs aop $active del $snick($active,1) }
  if $did == 13 { cs uop $active add $snick($active,1) }
  if $did == 14 { cs uop $active del $snick($active,1) }
  if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
  if $did == 16 { cs akick $active del $$? }
}
Oluşan Görüntü.

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

Spectral 04 Nisan 2009 17:05
Cevap: Operator Toolbar Menü
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Uğraşa Uğraşa Bu Hale Getirdim

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

Ben Bu Şekiled Olmasını İstiyorum Yani 1 Tane Düz Uzun Op İşlem Olacak
Resim Olmayacak KAreler Küçük Küçük Fazla Olacak Anlatabilmişimdir inşallah bu code ile uğraştım ve bunu çıkardım


Alıntı:
on *:start: { dialog -m toolbarr toolbarr }
on *:connect: {
update.toolbarr
}
on *:disconnect: {
update.toolbarr
}
on *:close:*: {
update.toolbarr
}
alias update.toolbarr {
if (!$dialog(toolbarr)) { halt }
}
dialog toolbarr {
title "By uMuT"
size 5 5 70 285
option dbu
box "Op İşlem", 1, 3 3 67 150
list 2, 7 12 60 14, size
list 3, 7 29 60 14, size
list 4, 7 46 60 14, size
list 5, 7 63 60 14, size
list 6, 7 81 60 14, size
list 7, 7 98 60 14, size
list 8, 7 115 60 14, size
list 9, 7 133 60 14, size
list 10, 7 143 60 14, size
list 11, 7 163 60 14, size
list 12, 7 181 60 14, size
list 13, 7 200 60 14, size
list 14, 7 218 60 14, size
list 15, 7 237 60 14, size
list 16, 8 256 60 14, size
}
on *:dialog:toolbarr:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 12 700 Verdana
rebar Dock $dialog(toolbarr).hwnd > left
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBarr flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
did -a $dname 2 +W 1500 15000 Op Ver
did -a $dname 3 +W 175 1 Deop Et
did -a $dname 4 +W 175 1 Voice Ver
did -a $dname 5 +W 175 1 Devoice Et
did -a $dname 6 +W 175 1 Ban+Kick
did -a $dname 7 +W 175 1 Sebebli Kick
did -a $dname 8 +W 175 1 Kanal Unban
did -a $dname 9 +W 175 1 Temizle Kanalı
did -a $dname 11 +W 175 1 Aop Ekle
did -a $dname 12 +W 175 1 Aop Sil
did -a $dname 13 +W 175 1 Uop Ekle
did -a $dname 14 +W 175 1 Uop Sil
did -a $dname 15 +W 175 1 Akick Ekle
did -a $dname 16 +W 175 1 Akick Sil
}
on *:dialog:toolbarr:sclick:*: {
if $did == 2 { mode $active +o $snick($active,1) }
if $did == 3 { mode $active -o $snick($active,1) }
if $did == 4 { mode $active +v $snick($active,1) }
if $did == 5 { mode $active -v $snick($active,1) }
if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... 2 $time %logo }
if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
if $did == 8 { banac $active }
if $did == 9 { timer 0 40 /msg $active - }
if $did == 11 { cs aop $active add $snick($active,1) }
if $did == 12 { cs aop $active del $snick($active,1) }
if $did == 13 { cs uop $active add $snick($active,1) }
if $did == 14 { cs uop $active del $snick($active,1) }
if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
if $did == 16 { cs akick $active del $$? }
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }

McKruGer 05 Nisan 2009 02:51
Cevap: Operator Toolbar Menü
 
Not: Toolbardaki menüleri sen dolduruyorsun. Burada sadece menü isimleri, iconları gibi şeyler ayarlanmış gerisi artık insanlar ne yapmak isterse onu yapmak üzere bırakılmıştır.

Fakat Op kontrollerinin kodları girilmiştir. Çalışır vaziyettedir.


Dll dosyalarının indirilmesi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Icon dosyalarının indirilmesi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



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 $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\connect.ico
  did -i $dname 1 1 setimage icon large icon\disconnect.ico
  did -i $dname 1 1 setimage icon large icon\Ayarlar1.ico
  did -i $dname 1 1 setimage icon large icon\kanallar.ico
  did -i $dname 1 1 setimage icon large icon\korumalar2.ico
  did -i $dname 1 1 setimage icon large icon\mp3.ico
  did -i $dname 1 1 setimage icon large icon\dost.ico
  did -i $dname 1 1 setimage icon large icon\oyunlar.ico
  did -i $dname 1 1 setimage icon large icon\internet.ico
  did -i $dname 1 1 setimage icon large icon\panel2.ico
  did -i $dname 1 1 setimage icon large icon\help2.ico
  did -i $dname 1 1 setimage icon large icon\info.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) Ayarlar $chr(9) $+ Bağlantı ve Scriptle İlgili Diğer Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 4  $chr(32) Kanallar $chr(9) $+ Kanala Giriş Diyalogunu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal, Kişisel ve Flood Korumalarını Gösterir.
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Mp3 Çalar $chr(9) $+ Mp3 Çaları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Notify $chr(9) $+ Gelişmiş Notify Listesi ve Adres Defterini 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) Adresler $chr(9) $+ Internet Adreslerini içeren dialogu Açar..
  did -a $dname 1 +a -
  did -a $dname 1 +a 10 $chr(32) Panel $chr(9) $+ Tüm Ayarların gösterildiği kontrol panelini açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Yardım Menüsünü Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 12 $chr(32) Hakkında $chr(9) $+ Script Hakkındaki Bilgileri Açar.
  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) {
        .ayarlar

      }
      if ($did($dname,1).sel = 7) {
        .kanallar
      }
      if ($did($dname,1).sel = 9) {
        .kanalkorumalari
      }
      if ($did($dname,1).sel = 11) {
        .mp3c
      }
      if ($did($dname,1).sel = 13) {
        .Notifylist
      }

      if ($did($dname,1).sel = 15) {
        .oyunlar

      }
      if ($did($dname,1).sel = 17) {
        .internet

      }

      if ($did($dname,1).sel = 19) {
        .cpanel
      }
      if ($did($dname,1).sel = 21) {
        .run help.chm
      }
      if ($did($dname,1).sel = 23) {
        .hakkinda

      }
    }
  }
}

Görüntü

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

DenperaS 05 Nisan 2009 03:15
Cevap: Operator Toolbar Menü
 
med cezir çok güzel olmuş ellerine sağlık ama şuradaki durumu nasıl düzeltebiliriz

resmi upload ettim bakabilirsin.

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

Spectral 05 Nisan 2009 03:26
Cevap: Operator Toolbar Menü
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Wiew de Tollbar Var Onu Kapatırsan Düzelir Sanırım

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Emeğine Sağlık Çok Güzel Olmuş Fakat Benim Yapmak İstediğim 2. Resimdeki Gibi Birşey Bir Türlü Yapamadım Halada uğraşıyorum :S

Med Cezir 05 Nisan 2009 04:18
Cevap: Operator Toolbar Menü
 
DenperaS Görünüm(View) den Toolbar Secenegini Secili Olmakdan Cıkarırsan Sorunun Hal Olucaktır.

Spectral Senin istediginde Sanırım İconsuz Olması Bunun İçin

Kod:
did -i $dname 2 1 setimage icon large 0, $+ icon\help.ico
İcon lar için belirtmiş oldugumuz yolu silmemiz gerekiyor.

Kod:
on *:start: { dialog -m toolbar toolbar }
on *:connect: {
  update.toolbar
}
on *:disconnect: {
  update.toolbar
}
on *:close:*: {
  update.toolbar
}
alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
}
dialog toolbar {
  title "By uMuT"
  size 5 5 70 285
  option dbu
  box "Op İşlem", 1, 3 3 67 150
  list 2, 7 12 60 14, size
  list 3, 7 29 60 14, size
  list 4, 7 46 60 14, size
  list 5, 7 63 60 14, size
  list 6, 7 81 60 14, size
  list 7, 7 98 60 14, size
  list 8, 7 115 60 14, size
  list 9, 7 133 60 14, size
  box "Ekle\Sil", 10, 3 155 67 120
  list 11, 7 163 60 14, size
  list 12, 7 181 60 14, size
  list 13, 7 200 60 14, size
  list 14, 7 218 60 14, size
  list 15, 7 237 60 14, size
  list 16, 8 256 60 14, size
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1 12 700 Verdana
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > left
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
  mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
  mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
  mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
  did -i $dname 2 1 bmpsize 24 24
  did -a $dname 2 +W 175 1    Op Ver
  did -i $dname 3 1 bmpsize 24 24
  did -a $dname 3 +W 175 1    Deop Et
  did -i $dname 4 1 bmpsize 24 24
  did -a $dname 4 +W 175 1    Voice Ver
  did -i $dname 5 1 bmpsize 24 24
  did -a $dname 5 +W 175 1    Devoice Et
  did -i $dname 6 1 bmpsize 24 24
  did -a $dname 6 +W 175 1    Ban+Kick
  did -i $dname 7 1 bmpsize 24 24
  did -a $dname 7 +W 175 1    Sebebli Kick
  did -i $dname 8 1 bmpsize 24 24
  did -a $dname 8 +W 175 1    Kanal Unban
  did -i $dname 9 1 bmpsize 24 24
  did -a $dname 9 +W 175 1    Temizle Kanalı
  did -i $dname 11 1 bmpsize 24 24
  did -a $dname 11 +W 175 1    Aop Ekle
  did -i $dname 12 1 bmpsize 24 24
  did -a $dname 12 +W 175 1    Aop Sil
  did -i $dname 13 1 bmpsize 24 24
  did -a $dname 13 +W 175 1    Uop Ekle
  did -i $dname 14 1 bmpsize 24 24
  did -a $dname 14 +W 175 1    Uop Sil
  did -i $dname 15 1 bmpsize 24 24
  did -a $dname 15 +W 175 1    Akick Ekle
  did -i $dname 16 1 bmpsize 24 24
  did -a $dname 16 +W 175 1    Akick Sil
}
on *:dialog:toolbar:sclick:*: {
  if $did == 2 { mode $active +o $snick($active,1) }
  if $did == 3 { mode $active -o $snick($active,1) }
  if $did == 4 { mode $active +v $snick($active,1) }
  if $did == 5 { mode $active -v $snick($active,1) }
  if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... :)2 $time %logo }
  if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
  if $did == 8 { banac $active }
  if $did == 9 { timer 0 40 /msg $active - }
  if $did == 11 { cs aop $active add $snick($active,1) }
  if $did == 12 { cs aop $active del $snick($active,1) }
  if $did == 13 { cs uop $active add $snick($active,1) }
  if $did == 14 { cs uop $active del $snick($active,1) }
  if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
  if $did == 16 { cs akick $active del $$? }
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
Oluşan Görüntü.

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

Spectral 05 Nisan 2009 04:37
Cevap: Operator Toolbar Menü
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Benim İstediğim
Mause İle Üstüne Gelince Küçük Alan Kaplayacak Alt Alta Olarak Ve Mircin Sol Bölümünü Alacak İçine

Med Cezir 05 Nisan 2009 05:42
Cevap: Operator Toolbar Menü
 
Üstüne gelince cıkacak alanı ben kücülttüm sen dahada kücültmek istersen.
Kod:
did -i $dname 2 1 bmpsize 24 24
Kod:
did -i $dname 2 1 bmpsize 16 16
Bu Kısmı ben 24 den 16 ya indirdim istegine göre dahada kücülterek örnegin 12 yapabilirsin. ( Kodda kırmızı ile belirttigim kısımlar)
Anladıgım kadarı ilede Group Box ı sol alt köşeye kadar indirip butonları biraz daha yaklaştırdım.

Bundan sonrası artık sana kalıyor, diger örneklerede bakarak degişiklikler yapabilirsin. Biz sana yöntemleri gösterdik.

Kod:
on *:start: { dialog -m toolbar toolbar }
on *:connect: {
  update.toolbar
}
on *:disconnect: {
  update.toolbar
}
on *:close:*: {
  update.toolbar
}
alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
}
dialog toolbar {
  title "By uMuT"
  size 5 5 70 285
  option dbu
  box "Op İşlem", 1, 3 3 67 350
  list 2, 7 10 60 2, size
  list 3, 7 24 60 2, size
  list 4, 7 38 60 2, size
  list 5, 7 52 60 2, size
  list 6, 7 66 60 14, size
  list 7, 7 80 60 14, size
  list 8, 7 94 60 14, size
  list 9, 7 108 60 14, size
  list 11, 7 122 60 14, size
  list 12, 7 136 60 14, size
  list 13, 7 150 60 14, size
  list 14, 7 164 60 14, size
  list 15, 7 178 60 14, size
  list 16, 8 192 60 14, size
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1 12 700 Verdana
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > left
  mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
  mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
  mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
  mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 background $rgb(255,255,255)
  did -i $dname 2 1 bmpsize 16 16
  did -a $dname 2 +W 175 1    Op Ver
  did -i $dname 3 1 bmpsize 16 16
  did -a $dname 3 +W 175 1    Deop Et
  did -i $dname 4 1 bmpsize 16 16
  did -a $dname 4 +W 175 1    Voice Ver
  did -i $dname 5 1 bmpsize 16 16
  did -a $dname 5 +W 175 1    Devoice Et
  did -i $dname 6 1 bmpsize 16 16
  did -a $dname 6 +W 175 1    Ban+Kick
  did -i $dname 7 1 bmpsize 16 16
  did -a $dname 7 +W 175 1    Sebebli Kick
  did -i $dname 8 1 bmpsize 16 16
  did -a $dname 8 +W 175 1    Kanal Unban
  did -i $dname 9 1 bmpsize 16 16
  did -a $dname 9 +W 175 1    Temizle Kanalı
  did -i $dname 11 1 bmpsize 16 16
  did -a $dname 11 +W 175 1    Aop Ekle
  did -i $dname 12 1 bmpsize 16 16
  did -a $dname 12 +W 175 1    Aop Sil
  did -i $dname 13 1 bmpsize 16 16
  did -a $dname 13 +W 175 1    Uop Ekle
  did -i $dname 14 1 bmpsize 16 16
  did -a $dname 14 +W 175 1    Uop Sil
  did -i $dname 15 1 bmpsize 16 16
  did -a $dname 15 +W 175 1    Akick Ekle
  did -i $dname 16 1 bmpsize 16 16
  did -a $dname 16 +W 175 1    Akick Sil
}
on *:dialog:toolbar:sclick:*: {
  if $did == 2 { mode $active +o $snick($active,1) }
  if $did == 3 { mode $active -o $snick($active,1) }
  if $did == 4 { mode $active +v $snick($active,1) }
  if $did == 5 { mode $active -v $snick($active,1) }
  if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... :)2 $time %logo }
  if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
  if $did == 8 { banac $active }
  if $did == 9 { timer 0 40 /msg $active - }
  if $did == 11 { cs aop $active add $snick($active,1) }
  if $did == 12 { cs aop $active del $snick($active,1) }
  if $did == 13 { cs uop $active add $snick($active,1) }
  if $did == 14 { cs uop $active del $snick($active,1) }
  if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
  if $did == 16 { cs akick $active del $$? }
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Spectral 05 Nisan 2009 05:59
Cevap: Operator Toolbar Menü
 
Teşekkürler Çok Güzel Olmuş Tam İstediğim Gibi UFak Bi Eklenti Yapabilirmiyiz Peki Buna ? Panel Olarak Ekleyecez Fakat İçinden

Kontrol Panelleri YAzacak Gösterdiğim Yerde
Tıklayınca Bi List Çıkacak
Remote
Mirc Options
Vs
vs
Gibi

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

Ben O Boşluğu Yapabildim de . Olarak Olmuyor

Birde Bende Hata Var Sanırım Ekleyemiyorum Bu Şekilde

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


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

Tamam ToolBarı Kapatınca Süper Oluyor Gördüğün Gibi Toolbarı Açınca Sorun Çıkartıyor Bunu Sadece Kanalda Göstersin özelde Veya Statusde Göstermesin ? Mümkünmüdür AcabA

Spectral 07 Nisan 2009 18:39
Cevap: Operator Toolbar Menü
 
Birde Bende Hata Var Sanırım Ekleyemiyorum Bu Şekilde

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

Bu Kısmı Yapdım Da Diğerlerinde Başarılı Olamadım

xkorpix 08 Temmuz 2009 03:44
Cevap: Operator Toolbar Menü
 
Hocam ÇaLı$maLariniz Gerçekten Takdire $ayan. Sormak İstediqim ßu ßarı NickListen Herhanqi ßir Nickin Uzerine TıkLandığında Aktif oLmasını SağLaya BiLirmisiniz ? ßu YapıLabiLirse Muthi$ ßir $ey OLur $imdiden Te$ekkürLer ..

StanteaR 30 Eylül 2009 16:54
Cevap: Operator Toolbar Menü
 
Selam Arkadaslar Bır Operator Toolbar Var Fakat Bır Yerde Bır Hata Mesajı Verıyor Onu Cözemedım Yardımcı Olabılırmısınız Acaba

Hata Mesajı : * /did: invalid parameters (line 176, YanMenü)

Alıntı:
dialog tyl {
size -1 -1 1 1
option pixels
}
on *:dialog:tyl:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname style tool
mdx SetBorderStyle $dname 1 staticedge
mdx SetBorderStyle 1
rebar HideToolbar .
rebar Dock $dialog(tyl).hwnd > left
}
if ($devent == sclick) {
}
if ($devent == dclick) {
}
}
dialog tyr {
size -1 -1 25 300
option dbu
list 2, 2 1 23 300, size
;size 760 85 190 600
;list 1, 50 2 135 500, size
;list 2, 2 2 45 500, size
;icon 3, 5 505 185 95, icon/bar.jpg
;option pixels
}
on *:dialog:tyr:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle $dname 2 staticedge
mdx SetBorderStyle 2
rebar Dock $dialog(tyr).hwnd > right
mdx SetControlMDX $dname 2 toolbar flat wrap arrows nodivider > $bars
mdx SetFont $dname 2 12 700 verdana
mdx SetDialog [ $dname ] bgcolor $rgb(237,237,237)
mdx SetDialog 2,4 bgcolor $rgb(237,237,237)
mdx SetBorderStyle
mdx SetColor 2 background [ $rgb(237,237,237) ]
}
if ($devent == sclick) {
if ($did == 1) {
}
if ($did == 2) {
if (@* iswm $active) {
if $did($dname,2).sel == 2 { window -c $active }
}
elseif ($active == Status Window) {
if $did($dname,2).sel == 2 { $iif($status == connected,oper,hops) }
if $did($dname,2).sel == 3 { $iif($status == connected,helpers,hops) }
if $did($dname,2).sel == 4 { $iif($status == connected,lusers,hops) }
if $did($dname,2).sel == 5 { $iif($status == connected,motd,hops) }
if $did($dname,2).sel == 6 { clear $active }
}
elseif (#* iswm $active && $me isop $active) {
if $did($dname,2).sel == 2 { if ($snick($active)) { whois $snick($active) } }
if $did($dname,2).sel == 3 { if ($snick($active)) { ns info $snick($active) all } }
if $did($dname,2).sel == 4 { if ($snick($active)) { query $snick($active) } }
if $did($dname,2).sel == 5 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),o) { samode $active -o $snick($active,%a.q!) }
else { mode $active +o $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 6 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),h) { samode $active -h $snick($active,%a.q!) }
else { mode $active +h $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 7 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),v) { samode $active -v $snick($active,%a.q!) }
else { mode $active +v $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 8 { if ($snick($active)) { samode $active +b $snick($active) | kick $active $snick($active) $active 14Kanal Kurallarına Uymadığınız Tespit Edilmiştir. %logo } }
if $did($dname,2).sel == 9 { if ($snick($active)) { kick $active $snick($active) $active 14Kurallara Uymadığınız İçin Kanaldan Uzaklaştırıldınız 12 Hızlı Kick. %logo } }
if $did($dname,2).sel == 10 { if ($snick($active)) { ping $snick($active) } }
if $did($dname,2).sel == 11 { if ($snick($active)) { silence $snick($active) | echo -a 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo } }
if $did($dname,2).sel == 12 { clear $active }
}
elseif (#* iswm $active) {
if $did($dname,2).sel == 2 { if ($snick($active)) { .whois $snick($active) } }
if $did($dname,2).sel == 3 { if ($snick($active)) { ns info $snick($active) all } }
if $did($dname,2).sel == 4 { if ($snick($active)) { query $snick($active) } }
if $did($dname,2).sel == 5 { if ($snick($active)) { ping $snick($active) } }
if $did($dname,2).sel == 6 { if ($snick($active)) { .ignore $snick($active) | echo -a 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo } }
if $did($dname,2).sel == 7 { clear $active }
if $did($dname,2).sel == 8 { goz $active }
}
else {
if $did($dname,2).sel == 2 { .whois $active }
if $did($dname,2).sel == 3 { .msg nickserv info $active all }
if $did($dname,2).sel == 4 { ignore -p $active | timer 1 2 close -m $active | notice $active 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo }
if $did($dname,2).sel == 5 { log on $active }
if $did($dname,2).sel == 6 { close -m $active }
if $did($dname,2).sel == 7 { close -m }
if $did($dname,2).sel == 8 { clear $active }
}
}
if ($devent == dclick) {
}
}
}
on *:active:*:{
if $active == Status Window { amenu Status }
elseif #* iswm $active && $me !isop $active { amenu Kullanıcı }
elseif #* iswm $active && $me isop $active || $me ishop $active { amenu Operator }
else { amenu Ozel }
}
alias amenu {
if $1 == Operator {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ozel.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\op.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\hop.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\vop.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kick.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kick.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ping.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ Seçili Nick'e İnfo Çeker
did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel görüşmeye Alır
did -a tyr 2 +a 4 Op $chr(9) $+ Seçili Nick'e Op Verir Veya Alır
did -a tyr 2 +a 5 Hop $chr(9) $+ Seçili Nick'e Halfop Verir Veya Alır
did -a tyr 2 +a 6 Vop $chr(9) $+ Seçili Nick'e Vop Verir veya Alır
did -a tyr 2 +a 7 Ban $chr(9) $+ Seçili Nick'i Kanaldan Atar
did -a tyr 2 +a 8 Kick $chr(9) $+ Seçili Nick'i Kickler
did -a tyr 2 +a 9 Ping $chr(9) $+ Seçili Nick'i Pingler
did -a tyr 2 +a 10 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder
did -a tyr 2 +a 11 Clear $chr(9) $+ Aktif Pencereyi Temizler
}
elseif $1 == Kullanıcı {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ozel.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ping.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ Seçili Nick'e İnfo Çeker
did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel Görüşmeye Alır
did -a tyr 2 +a 4 Ping $chr(9) $+ Seçili Nick'i Pingler
did -a tyr 2 +a 5 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder
did -a tyr 2 +a 6 Clear $chr(9) $+ Aktif Pencereyi Temizler
}
elseif $1 == Status {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\oper.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\user.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\motd.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\helper.ico
did -a tyr 2 +a 1 Opers $chr(9) $+ Şuan Online Olan İRcOplar
did -a tyr 2 +a 5 Helps $chr(9) $+ Şuan Online Olan Helperler
did -a tyr 2 +a 2 Users $chr(9) $+ Şuan Online Olan Userler
did -a tyr 2 +a 3 Motd $chr(9) $+ Sunucu Giriş Mesajı
did -a tyr 2 +a 4 Clear $chr(9) $+ Ekranı Temizler
}
elseif $1 == Ozel {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 25 25
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\loglar.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kapat.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kapat.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ $active Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ $active Nick İnfo Çeker
did -a tyr 2 +a 3 İgnore $chr(9) $+ $active Nickinin Size Yazmasını Engeller
did -a tyr 2 +a 4 Log'la $chr(9) $+ $active İle Yazışmalırınızı Kayıt Eder
did -a tyr 2 +a 5 Kapat $chr(9) $+ $active İle Pencerenizi Kapatır
did -a tyr 2 +a 6 Tüm $chr(9) $+ Tüm Özel Pencereleri Kapatır
did -a tyr 2 +a 7 Clear $chr(9) $+ Ekranı Temizler
}
}


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

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