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/)

- - Bağlanan kişiye whois çekme (https://www.ircforumlari.net/mirc-scripting-sorunlari/16073-baglanan-kisiye-whois-cekme.html)

hitman

20 Nisan 2006 12:57

Bağlanan kişiye whois çekme

Merhabalar. Sunucuma bağlanan kişiye whois cekip fullname kisminda sakincali bir web reklami veya yazı gördüğümde otomatik olarak sunucudan uzaklastirilmasini istiyorum.Yazıları menuden ekleme/cikarma seklinde yapma imkanımız varmidir.?Böyle bir kod yazılabilirmi.?

Mesela fullname de ABC.Com reklami var.Ben bu reklami farkettiğimde bunu güvenlik botumdaki menuye eklemek istiyorum bu sekilde reklam atan kisiler sunucuya bağlanir bağlanmaz gzline atmak istiyorum.
Cok zor bisey istiyorum farkindayim ama yardimci olursaniz cok memnun olurum.

Bu tür reklamlara sadece günlük cozum üretebiliyorum. Mesela bir ***** sitesinin reklami oluyor whoiste ve bu reklam botlarina selam verildiği zaman
whois cek linke bak vs. seklinde türetilebilir seylerle karsilasiyorum.Spama eklediğimde ise sadece günlük cozum oluyor, ertesi gün birbaska reklam mesajıyla karsilasiyorum.
Simdiden tesekkürler..

hitman

20 Nisan 2006 13:38

Yanıt: Bağlanan kişiye whois cekme ve..

Cok tesekkür ederim. Ekleme/Cikarma olayini da bekleyeceğim. Teşekkürler.

hitman

20 Nisan 2006 22:33

Yanıt: Bağlanan kişiye whois cekme ve..

Kod işe yaramiyor :(
Yardim edin lütfen..

PuSAt

20 Nisan 2006 22:55

Yanıt: Bağlanan kişiye whois çekme

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

bu işine yararmı bıraz oynarsan olabılır

hitman

20 Nisan 2006 22:59

Yanıt: Bağlanan kişiye whois çekme

Bunlar sadece geçici çözüm üretiyor pusat. Ben kökten çözmeliyim sorunu. Anlik seyler pek bisey ifade etmiyor. URL ekleyip anında kesebilmeliyim, tabi mümkünse.

diEfoRyoU

20 Nisan 2006 23:05

Yanıt: Bağlanan kişiye whois çekme

alias fn {
if (*.net iswm $2-) || (*.org iswm $2-) || (irc.* iswm $2-) || (*.com iswm $2-) { .gzline $1 1w Trojan attack security by $me | .spamfilter add pa gzline 1w $+(Reklam,$chr(160),Yasak) $2-
}
}
on *:snotice:*client connect*: { who $9 }
raw 352:*:{ fn $6 $9- | halt }

Servere bağlanan nick lere /who komutu uygular fullnamesinde /if komutunda belirtiğim kelimeler geçerse nicki serverden atar mesajıda 1 haftalık spama ekler
umarım işine yarar

hitman

20 Nisan 2006 23:09

Yanıt: Bağlanan kişiye whois çekme

Süpersin hemen denemesini yapiyorum Dieforyou. Peki bunu diyalog haline getirmemiz mümkünmü.? Yani mesela ben [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresini ekleyeceğim fullnamesinde bu olan kisiler atilacak otomatik olarak. aynı zamanda ben istediğim zaman da cıkarabilmeliyim bu url yi listeden

diEfoRyoU

21 Nisan 2006 00:59

Yanıt: Bağlanan kişiye whois çekme

PHP- Kodu:

   alias fn { 
  var %< $lines(reklam.txt)
  while (0 < %<) {
    if ($read(reklam.txt,%<) iswm $strip($2-)) { 
      .gzline $1 1w Reklam. 
    } 
    dec %< 
  }
}
on *:snotice:*client connect*: { .who $9 }
raw 352:*:{ fn $6 $9- | halt }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
  title "Fullname reklam takip"
  size -1 -1 113 41
  option dbu
  button "Çıkar", 1, 6 14 37 12, flat
  button "Ekle", 2, 6 1 37 12, flat
  combo 3, 51 1 60 39, size sort
  button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
  if (!$did(spam,3).text) {
  echo 2 -a Eklenecek reklamı yazmalısınız. | halt }
  elseif $read(reklam.txt,w,$did(3).text) {
  echo 2 -a $did(spam,3).text Listede zaten var. }
  else {
    write reklam.txt $did(spam,3).text 
  did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: { 
  if (!$did(spam,3).text) { 
  echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
  elseif !$read(reklam.txt,w,$did(3).text) { 
  echo 2 -a $did(3).text Reklam listesinde zaten yok. }
  else { write $+(-dw,",$did(3).text,") reklam.txt 
  did -d $dname 3 $did(3).sel }
}
menu * { 
  Fullname reklam:sp
}

Al bakalım HITMAN güle güle kullan ;)

aRKHe

21 Nisan 2006 02:10

Yanıt: Bağlanan kişiye whois çekme

Bu CoDeLaR BaŞKa ScRiPTTe DeNeDiĞimDe ÇaLıŞıYoR.. KeNDi KuLLaNDıĞım ScRiPTe KoYuNca ÇaLıŞMıYoR SoRuN Ne oLaBiLiR ?

hitman

21 Nisan 2006 02:16

Yanıt: Bağlanan kişiye whois çekme

Kodlar güncellendi. Yeniden dene aRKHe

aRKHe

21 Nisan 2006 02:18

Yanıt: Bağlanan kişiye whois çekme

Alıntı:

HITMAN Nickli Üyeden Alıntı

Kodlar güncellendi. Yeniden dene aRKHe

diEfoRyoU ZaTeN eN SoN YaZDıĞı KoDu 5 Dk. öNCe DeNeDim.. BaŞka ScRiPTe oLuYoR. BaNa GeLinCe YoK ;)

h4pp3n

21 Nisan 2006 02:43

Yanıt: Bağlanan kişiye whois çekme

aRKHe kusura bakma ama sorunu sende ararım böleyse :D

aRKHe

21 Nisan 2006 03:37

Yanıt: Bağlanan kişiye whois çekme

Alıntı:

h4pp3n Nickli Üyeden Alıntı

aRKHe kusura bakma ama sorunu sende ararım böleyse :D

BeNLe Ne aLaKaSı VaR YaHuu :D DiĞeR ScRiPTiDe BeN eKLiYoRum KodLaRı ÇaLıŞıYoR.. KeNdi KuLLaNDıĞım ScriPTe eKLeYinCe ÇaLıŞMıYoR.. BuNuN BeNLe Ne aLaKaSı VaR aLLaH aŞKıNa :D ;)

arananadam1

21 Nisan 2006 12:19

Yanıt: Bağlanan kişiye whois çekme

o zaman mircin ana klasorune whois.txt adinda txt dosyasi olustur.kodlari icerisine at ve kaydet.Sonra mircte /load -rs whois.txt yap.yine olmazsa o mirci at cope :) calisiyor dedigin mirci kullan...kolay gelsin

aRKHe

21 Nisan 2006 16:53

Yanıt: Bağlanan kişiye whois çekme

Alıntı:

arananadam1 Nickli Üyeden Alıntı

CaNaVaR GiBi ÇaLıŞıYoR. ;) Tşk.. ÇüNKü HeR KoDTa YaPMıYoR BaZı KodLaRDa YaPıYoR.. uYuZ BirŞeY YaNi.. NeYSe KoLaY GeLSin..

ByCapkin

27 Şubat 2007 15:54

Cevap: Yanıt: Bağlanan kişiye whois çekme

Alıntı:

diEfoRyoU Nickli Üyeden Alıntı

PHP- Kodu:

   alias fn { 
var %< $lines(reklam.txt)
while (0 < %<) {
if ($read(reklam.txt,%<) iswm $strip($2-)) { 
.gzline $1 1w Reklam. 
} 
dec %< 
}
}
on *:snotice:*client connect*: { .who $9 }
raw 352:*:{ fn $6 $9- | halt }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
title "Fullname reklam takip"
size -1 -1 113 41
option dbu
button "Çıkar", 1, 6 14 37 12, flat
button "Ekle", 2, 6 1 37 12, flat
combo 3, 51 1 60 39, size sort
button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
if (!$did(spam,3).text) {
echo 2 -a Eklenecek reklamı yazmalısınız. | halt }
elseif $read(reklam.txt,w,$did(3).text) {
echo 2 -a $did(spam,3).text Listede zaten var. }
else {
write reklam.txt $did(spam,3).text 
did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: { 
if (!$did(spam,3).text) { 
echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
elseif !$read(reklam.txt,w,$did(3).text) { 
echo 2 -a $did(3).text Reklam listesinde zaten yok. }
else { write $+(-dw,",$did(3).text,") reklam.txt 
did -d $dname 3 $did(3).sel }
}
menu * { 
Fullname reklam:sp
}

Al bakalım HITMAN güle güle kullan ;)

Burada istediğim fullnameleri elemek için ne yapmalıyız ? Mesela [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresi atılmasın?

Convex

27 Şubat 2007 16:53

Cevap: Yanıt: Bağlanan kişiye whois çekme

Alıntı:

ByCapkin Nickli Üyeden Alıntı

Burada istediğim fullnameleri elemek için ne yapmalıyız ? Mesela [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresi atılmasın?

mirc'e kodları ekledikten sonra kanala filan sağ tıkla Fullname Reklam görcen

ByCapkin

10 Mart 2007 16:06

Cevap: Yanıt: Bağlanan kişiye whois çekme

Alıntı:

diEfoRyoU Nickli Üyeden Alıntı

PHP- Kodu:

   alias fn { 
var %< $lines(reklam.txt)
while (0 < %<) {
if ($read(reklam.txt,%<) iswm $strip($2-)) { 
.gzline $1 1w Reklam. 
} 
dec %< 
}
}
on *:snotice:*client connect*: { .who $9 }
raw 352:*:{ fn $6 $9- | halt }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
title "Fullname reklam takip"
size -1 -1 113 41
option dbu
button "Çıkar", 1, 6 14 37 12, flat
button "Ekle", 2, 6 1 37 12, flat
combo 3, 51 1 60 39, size sort
button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
if (!$did(spam,3).text) {
echo 2 -a Eklenecek reklamı yazmalısınız. | halt }
elseif $read(reklam.txt,w,$did(3).text) {
echo 2 -a $did(spam,3).text Listede zaten var. }
else {
write reklam.txt $did(spam,3).text 
did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: { 
if (!$did(spam,3).text) { 
echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
elseif !$read(reklam.txt,w,$did(3).text) { 
echo 2 -a $did(3).text Reklam listesinde zaten yok. }
else { write $+(-dw,",$did(3).text,") reklam.txt 
did -d $dname 3 $did(3).sel }
}
menu * { 
Fullname reklam:sp
}

Al bakalım HITMAN güle güle kullan ;)

Kardeşim Burda Renkli Fullnameleri Atmiyor Bunu Nasıl Yaparm?

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