Çevrimdışı

Acaba şöyle birşey mümkün mü arkadaşlar,

Toolbar'a bi buton yerleştirsem, tıklandığında $$?="" kullanarak bi pencere açtırarak oraya yazılan IP üzerindeki tüm gline, gzline, kline, shun vs. tüm banları kaldırabilir miyiz? Ben biraz uğraştım ama istediğim sonucu elde edemiyorum. Bu konuda yardıma ihtiyacım var, lütfen.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
everything. everyone. everywhere. ends.

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresindeki kodu baz alarak

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,14,17)
option dbu
list 4, 0 -2 550 17, size
list 1, 0 4 550 17, size
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 Turkish 14 800 Cyrillic
mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255)
mdx SetColor $dname 3 text $rgb(0,0,0)
mdx SetFont $dname 3 +a 20 600 arial
mdx SetColor $dname 2,3 textbg $rgb(113,188,255)
.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,4 ToolBar flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1,4 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
mdx SetBorderStyle 1
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 27 27
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kes.ico
did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
did -i $dname 1 1 setimage icon large icon\kanal.ico
did -i $dname 1 1 setimage icon large icon\korumalar.ico
did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
did -i $dname 1 1 setimage icon large icon\gorunum.ico
did -i $dname 1 1 setimage icon large icon\liste.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\yardım.ico
did -i $dname 1 1 setimage icon large icon\lineac.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Görünümler $chr(9) $+ Scriptinizin Görünümüyle İlgili Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Listeler $chr(9) $+ Scriptinizdeki Notify, Düşman Listesi Gibi Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 12 $chr(32) X:Line Ac $chr(9) $+ Verilen ipdeki tüm tkl banlarını acar.
}

on *:dialog:toolbar:*:*: {
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) {
Korumalar
}
if ($did($dname,1).sel = 11) {
kontrolpanel
}
if ($did($dname,1).sel = 13) {
gorunumler
}
if ($did($dname,1).sel = 15) {
listeler
}
if ($did($dname,1).sel = 17) {
oyunlar
}
if ($did($dname,1).sel = 19) {
internet
}
if ($did($dname,1).sel = 21) {
yardim
}
if ($did($dname,1).sel = 23) {
xlineac
}
}
}
}
alias xlineac { var %ip $$?=IP? | gzline $+(-*@,%ip) | kline $+(-*@,%ip) }


kirmizilar benim eklediklerim denemedim ama calismasi gerekir

 

Çevrimdışı

Teşekkür ederim mikrop. Eklediğin kodlar gayet düzgün çalışıyor.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
everything. everyone. everywhere. ends.