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

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

- - kodda degisiklik (https://www.ircforumlari.net/mirc-scripting-sorunlari/497791-kodda-degisiklik.html)

kodda degisiklik

Kod:

n $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {

  if $level($regml(2)) == Sorunlu {

    if $sock(yerelbilgi,1).status != active { set %yerelipno $regml(2) | bağlan $regml(2) }

    $iif(!$window(@Uyari),window -ne @Uyari)

    aline -hp @Uyari 10Sorunlu giris tespit edildi Nicki:4 $regml(1) 10 ip Adresi:4 $regml(2) 

  }

}

on *:sockopen:yerelbilgi:{

  sockwrite -n $sockname GET /index.php?query= $+ %yerelipno  HTTP/1.1

  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf

  sockwrite -n $sockname $clrf   

}

on *:sockread:yerelbilgi:{

  if ($sockerr) { aline @Uyari Veri alımında Hata oluştu. | halt }

  else {

    var %difi 

    sockread %difi

    if (*Country*Region*City* iswm %difi) { set %dify $remove($htmlfrex(%difi),$chr(9)) }

    elseif (*Registry*Information* iswm %difi) { 

      sockclose yerelbilgi 

      if $regex(%dify,/ISP(.+)Google.+Map.+for.+ISP.+Continent/i) {

        splay $mircdirsounds\uyar.wav

        aline -hp @Uyari $regml(1)

        unset %dif*

      }      

    }

  }

}    

alias bağlan {

  sockclose yerelbilgi

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

}

alias htmlfrex {  

  var %x, %i = $regsub($replace($1-,<td>,$chr(160),</td>,$chr(160)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

Bu kod di----on hocamıza ait sanırım sitede değisiklik olmus bunu tekrar nasıl duzenleyebılırız

Cevap: kodda degisiklik

Bu kodun kendiside calismiyorum bir kac deneme yaptim bir user var surekli modeme reset atiyor ipin ilk rakamlari sabit bu kisi kanala girdigi zaman haber vermesini istiyorum ozelime bir yazi ve bir ses mesela kick.waz ile ikisinide ayni anda yapmasi icin ne yapmamiz lazim arkadslar cunku user rahatsiz edici kelimeler kullanmakta ipi akile almam cozum olmuyor cunku o sehirden girisleride engellemis oluyorum o yuzden sadece bu sekilde yapan oldugu zaman ozelime uyari vermesini ve ses ilede haber vermesii lazim ben yada diger admin arkadaslarda ona gore o kisiye gerekli cezayi uygulayabilsin yardimci olursaniz sevinirim

Cevap: kodda degisiklik

yukardaki koddan ayrı bişey mi istiyorsun yanlış anlamadıysam.

Kod:

;

on $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {

  if $level($regml(2)) == ipuyarisi {

    $iif(!$window(@ipuyarisi),window -ne @ipuyarisi)

    aline -hp @ipuyarisi IP UYARISI: $regml(1) nicki $regml(2) ip no $time $date $server

    .splay $mircdirsounds\kick.WAV

  }

}

İp eklemek için;
/auser ipuyarisi ipno
İp Silmek için;
/ruser ipuyarisi ipno

Eğer 87.123.xxx.xxx gibi ipler ile giriyor x olan bölümler değişiyorsa sadece
/auser 87.123*
olarak eklersen 87.123 ile giriş yapan herkeste uyarı verir ve müzik çalar.

Cevap: kodda degisiklik

Eğer 87.123.xxx.xxx gibi ipler ile giriyor x olan bölümler değişiyorsa sadece
/auser 87.123*
olarak eklersen 87.123 ile giriş yapan herkeste uyarı verir ve müzik çalar.
Yazmissini kodu remoteye ekledim
Denemek icin bir /auser 176.40* yaptim direk su cikti
* /auser: Yetersiz veya eksik parametre

Ben sadece ipini kolayca ekleyecegim mesela ilk rakamlari gibi sonra o rakamlar ile giris yapan olursa ozelime bir yazi gelmesini ve ses ilede belli etmesini istiyorum boylelikle giren kisiyi kontrol ederim ve kelime hatasi yapmasina izin vermem

Cevap: kodda degisiklik

pardon aç karınla kafa yerinde olmuyor malum :)

/auser ipuyarisi 176.40*
olarak ekle.

Cevap: kodda degisiklik

evet o sekilde onu defarlarca baska ipleri kayit edebiliriz sanirim ama mesela soyle bir sey olamaz mi mesela kanalda ugur nickli birisi var kufur ediyor ipide ornek verelim 88.243 birde baska birisi var oda kufur ediyor ama farkli kisi onun da ip adresi 78.343 b ikisinide uyariya alacam sonra bunlar giris yaptigi zaman ozele

IP UYARISI: samsan nicki 176.40 ip no 00:21:56 29/07/2012 irc.sunucu.Com -

Bu sekilde cikaracak ama ben hangisi oldugunu cozmekde zorlanacam bunun icin soyle bir sey olamaz mi

IP UYARISI: Kayit benzer nick: ugur: Suaki nicki samsan nicki 176.40 ip no 00:21:56 29/07/2012 irc.sunucu.Com - mumkunmudur cunku uyariya eklediklerim hangisi oldugunu cozmek icin

Birde bu kayit ettigimiz listeye bakma komutu nedir

Cevap: kodda degisiklik

/auser ipuyarisi *!*@176.40 Nick: Ugur $date $time $server
şeklinde Users kısmına eklenirse kırmızı alan *!*@176.40 girişine ait bilgi(info) satırı olur.
Ardından eklemiş olduğunuz bu bilgi satırını olay esnasında çağırmak için $ulist(*!*@176.40,ipuyarisi,1).info komutunu kullanabilirsiniz.