mIRC Scripting - yardım ¿?

mIRC Scripting (https://www.mircscripting.net/)

- Diğer (https://www.mircscripting.net/didher/)

- - yardım ¿? (https://www.mircscripting.net/didher/937-yardym.html)

menu status,menubar,channel {
-
» İp YasakLama:/dialog -m glist glist
-
}

dialog glist {
title "Ban Listesi"
size -1 -1 423 162
option dbu
list 1, 2 10 82 126, size
text "Gline Listesi", 4, 4 2 45 8
button "« « KAPAT » »", 5, 170 116 82 20, flat ok
list 2, 86 10 82 126, size
list 3, 254 10 82 126, size
text "Shun Listesi", 6, 86 2 71 8
text "Zline Listesi", 7, 254 2 54 8
text "Kaldirmak istediginiz Banin ip numarasinin Uzerine Cift tiklayinca Ban Kalkacak.", 8, 72 140 266 8
list 9, 170 10 82 103, size
text "G-Zline Listesi", 10, 170 2 65 8
list 11, 338 10 82 126, size
text "Kline Listesi", 12, 338 2 60 8
edit "", 13, 116 150 147 10, read
}

on *:dialog:glist:*:*:{
if $devent == init {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(240,240,240)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 +b Turkish 13 950 Tahoma
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 textbg $rgb(240,240,240)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 background $rgb(240,240,240)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 text $rgb(0,0,0)
mdx SetColor $dname 8 text $rgb(199,92,2)
mdx SetColor $dname 13 text $rgb(255,0,0)
if !$regex($usermode,/o/) { did -a $dname 13 Bu islemi Yapmaniz icin Admin olmalisiniz.. | return }
set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z
.timer 1 1 .disable #bangizle
}
if $devent == dclick {
if $did == 1 {
gline $+(-*@, $did(1).seltext)
did -d $dname 1 $did(1).sel
}
if $did == 2 {
shun $+(-*@, $did(2).seltext)
did -d $dname 2 $did(2).sel
}
if $did == 3 {
zline $+(-*@, $did(3).seltext)
did -d $dname 3 $did(3).sel
}
if $did == 9 {
gzline $+(-*@, $did(9).seltext)
did -d $dname 9 $did(9).sel
}
if $did == 11 {
kline $+(-*@, $did(11).seltext)
did -d $dname 11 $did(11).sel
}
}
if $devent == close {
write -c gline.txt
write -c zline.txt
write -c shun.txt
write -c gzline.txt
write -c kline.txt
}
}
raw 223:*: {
if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64)
.timer 1 3 unset %gkontrol
}
if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64)
}
if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64)
}
if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64)
}
if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64)
}
/halt
}
alias glist { dialog -m glist glist }
#bangizle off
raw 223:*: { /halt }
raw 249:*: { /halt }
raw 219:*: { /halt }
raw 216:*: { /halt }
#bangizle end

Bu Kodu Calıştıramadım yardımcı olurmusun rica etsem ?

kod tagları içine ekleyerek yeniden gönder karakterler bozulmuş.
ayrıca mdx vs. de ekle zip olarak. bakalım.

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 2244)

kod tagları içine ekleyerek yeniden gönder karakterler bozulmuş.
ayrıca mdx vs. de ekle zip olarak. bakalım.

taamda ben bunu bir sitede böyle buldum remoteye ekledim calışmıyor ondan direk addonu attım !!

Alıntı:

dizZy Nickli Üyeden Alıntı (Mesaj 2245)

taamda ben bunu bir sitede böyle buldum remoteye ekledim calışmıyor ondan direk addonu attım !!

Kod:

menu status,menubar,channel {

-

» İp YasakLama:/dialog -m glist glist

-

}
 

dialog glist {

title "Ban Listesi"

size -1 -1 423 162

option dbu

list 1, 2 10 82 126, size

text "Gline Listesi", 4, 4 2 45 8

button "« « KAPAT » »", 5, 170 116 82 20, flat ok

list 2, 86 10 82 126, size

list 3, 254 10 82 126, size

text "Shun Listesi", 6, 86 2 71 8

text "Zline Listesi", 7, 254 2 54 8

text "Kaldirmak istediginiz Banin ip numarasinin Uzerine Cift tiklayinca Ban Kalkacak.", 8, 72 140 266 8

list 9, 170 10 82 103, size

text "G-Zline Listesi", 10, 170 2 65 8

list 11, 338 10 82 126, size

text "Kline Listesi", 12, 338 2 60 8

edit "", 13, 116 150 147 10, read

}
 

on *:dialog:glist:*:*:{

if $devent == init {
 /*
 

mdx MarkDialog $dname

mdx SetDialog $dname bgcolor $rgb(240,240,240)

mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 +b Turkish 13 950 Tahoma

mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 textbg $rgb(240,240,240)

mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 background $rgb(240,240,240)

mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 text $rgb(0,0,0)

mdx SetColor $dname 8 text $rgb(199,92,2)

mdx SetColor $dname 13 text $rgb(255,0,0)
 */

if !$regex($usermode,/o/) { did -a $dname 13 Bu islemi Yapmaniz icin Admin olmalisiniz.. | return }

set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z

.timer 1 1 .disable #bangizle

}

if $devent == dclick {

if $did == 1 {

gline $+(-*@, $did(1).seltext)

did -d $dname 1 $did(1).sel

}

if $did == 2 {

shun $+(-*@, $did(2).seltext)

did -d $dname 2 $did(2).sel

}

if $did == 3 {

zline $+(-*@, $did(3).seltext)

did -d $dname 3 $did(3).sel

}

if $did == 9 {

gzline $+(-*@, $did(9).seltext)

did -d $dname 9 $did(9).sel

}

if $did == 11 {

kline $+(-*@, $did(11).seltext)

did -d $dname 11 $did(11).sel

}

}

if $devent == close {

write -c gline.txt

write -c zline.txt

write -c shun.txt

write -c gzline.txt

write -c kline.txt

}

}

raw 223:*: {

if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64)

.timer 1 3 unset %gkontrol

}

if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64)

}

if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64)

}

if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64)

}

if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64)

}

/halt

}

alias glist { dialog -m glist glist }

#bangizle off

raw 223:*: { /halt }

raw 249:*: { /halt }

raw 219:*: { /halt }

raw 216:*: { /halt }

#bangizle end

kodu düzelttim ama kısmızı kısımların çalışması için DLL gereklidir. kodun bir kısmı eksik.
kırmızı alanı devre dışı bıraktım DLL vs. bulursan /* ve /* ları kaldır.

[ı]kod yine calışmadı neyse boşver saoll [/ı]

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials