IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Socket !ip ip-numarasi sorgulama (https://www.ircforumlari.net/mirc-scripting-sorunlari/834011-socket-ip-ip-numarasi-sorgulama.html)

Socket !ip ip-numarasi sorgulama

merhaba aşağı da ki socket kodunda sunucuya giren ipleri kayıt altına almıyor. !ip ip-numarası şeklinde sorguladıgımda, her hangi bir sonuç çıkarmıyor. sorun nerde acaba? yardımcı olacaklara şimdiden minnettarım. Teşekürler iyi IF'ler.

Kod:

elseif $regex($remove($4,:),/^([!.&][ıiİ]p)$/Si) { 

      if ($rootbul($_nick($1)) == 0) { swbot privmsg $3 :Master/Root listesinde ekli olmadığınızdan bu komut'u kullanamazsınız. | return }      

      elseif !$regex($5,/\.+/Si) { swbot privmsg $3 :Lütfen IP belirtiniz. ÖRN; 2[!.]4ip 2<IP> | return }

      elseif !$hget($strip($5),1).data { swbot privmsg $3 $+(,$strip($5),) IP'ine ait kayıt bulunamadı. | return }

      swbot privmsg $3 :===" Nick "===" Tarih "===" Saat "===" Action "===

      swbot privmsg $3 :

      var %ar = 1 | while %ar <= $hget($strip($5),0).data {

        swbot privmsg $3 $+(%ar,-4,$chr(41),) $token($hget($strip($5),%ar).data,1,32) -- $token($hget($strip($5),%ar).item,1,191) -- $token($hget($strip($5),%ar).item,2,191) -- $token($hget($strip($5),%ar).data,2-,32)

        inc %ar

      }

      swbot privmsg $3 :

      swbot privmsg $3 :===== Kayıtlı Bulunan IP Sayısı: $findfile(IP/,*.tprk,0) =====

      swbot privmsg $3 :Tüm Girişlerde, Bir IP İçin Aynı Nickle Giriş, Bir Kez Kaydedilir.

      swbot privmsg $3 :

      .hadd -msu20 StatsK Sorgu $strip($5)

      swbot stats g | swbot stats k | swbot stats s

      sockclose nerdens       

      $+(.timer,$strip($5)) 1 1 sockopen nerdens 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 $(|) sockmark nerdens $strip($5)

    }

Cevap: Socket !ip ip-numarasi sorgulama

yukarıdaki kod sadece !ip ip-adresi yazıldığında verilecek reaksiyonu gösteriyor. kodun tamamına göz atmak lazım.
Botun kayıt almaya başladığı kısmı merak ediyorsan "client connecting" geçen satırları incelemen gerekiyor.

Cevap: Socket !ip ip-numarasi sorgulama

Alıntı:

diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042141320)

Kod:

elseif $regex($2,/352/) && $hget(IRC-SC-Giris,$8) {

    var %:sc_ip = $6, %:sc_nick $8

    if $istok($_sunucuip %:myip,%:sc_ip,32) { return }

    var %:rand $+($8,$rand(10,9999999))

    .sockopen $+(city,%:rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .sockmark $+(city,%:rand) $+(%:sc_ip,¿,%:sc_nick,¿,$hget(IRC-SC-Giris,$8))

    if (%:agresif == on) {

      .hinc -mu20 Agresif %:sc_ip 1

      if $hget(Agresif,%:sc_ip) >= 5 {

        swscbot gzline $+(*@,%:sc_ip) +10 Sunucuya agresif giriş/cıkış tespit edildi 10 dakika uzaklaştırıldınız.

        .hdel -ms Agresif %:sc_ip

        return

      }

    }

  }

  elseif $regex($2,/(PRIVMSG)/i) && $regex($3,/^#root$/Si) {

    if $regex($4-,/Client connecting:/Si) && $regex($_nick($1),/(.+)\.(.+)\./Si) {

      .hadd -msu15 IRC-SC-Giris $strip($6) $_nick($1)

      swscbot who +I $strip($6)

    }

  }

aynı txt dosyasında ki satırlar bunlar.

Cevap: Socket !ip ip-numarasi sorgulama

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Üstad iletişime gecerek yardımcı oldu sağolsun, emeklerine saglık. konu kilitlenebilir.