IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:19.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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