IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 4 Toplam 5 Sayfadan 123 4 5
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Çözüldü Girişte Şehir Gösterme ve Şehir Yasaklama (https://www.ircforumlari.net/mirc-scripting-sorunlari/820614-giriste-sehir-gosterme-ve-sehir-yasaklama.html)

KuL 02 Nisan 2021 15:16
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Anladigim kadariyla bir ip sorgulama linki kisaltilmis, o sorun degil. Ama Site galiba https e gecmis, ondan dolayi sockopende -e ile port olarak 443 girilmesi gerektigini okumustum daha önceki konularda.

Ama kullandigim 6.25 dekinde test etmeme ragmen calismadi, o yüzden bilmiyorum nasil cözülür

angry1 02 Nisan 2021 17:49
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Kod:
; on *:text:*:#Opers:{  if $regex($1,/^[!.-]yasak/Si) {    if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }    elseif $regex($2,/^ekle$/Si) {      if !$3 { msg # Lütfen !yasak <ekle> <Şehir> olarak belirtiniz. }      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }      elseif $hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }      else { .hadd -ms YasakS $strip($3) $nick | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesine eklendi. }    }    elseif $regex($2,/^s[ıiİ]l$/Si) {      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }      elseif !$hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde ekli değil. }      else { .hdel -ms YasakS $strip($3) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesinden silindi. }    }    elseif $regex($2,/^l[ıiİ]st$/Si) {      if !$hget(YasakS,0).data { msg # Yasak şehir listesi boş. }      else {        msg # Yasak şehir listesi        msg # -        var %:t = 1 | while %:t <= $hget(YasakS,0).data {          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  Ekleyen:2 $hget(YasakS,%:t).data          inc %:t        }        msg # -        msg # Yasak şehir listesi sonu      }    }  } } on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk } on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) } raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) } on *:sockopen:isp*:{    if ($sockerr) { .sockclose $sockname | return }  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1    sockwrite -nt $sockname Host: $sock($sockname).addr  sockwrite -nt $sockname Connection: keep-alive  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36  sockwrite -nt $sockname $crlf } on *:sockread:isp*:{    var %:isp | sockread -f %:isp | tokenize 32 %:isp  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {      .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz)      if $hget(YasakS,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak şehir girişi.. }  }  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {      $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname    sockclose $sockname  } }
Düne kadar oldukça sağlıklı çalışıyordu. Site değiştimi ne yaptıysa artık, bir güncelleme gerekiyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:49 -->-> Daha önceki mesaj 17:46 --

Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042077769)
Sanırım istediğin gibi oldu =)

Kod:
on *:text:*:#Opers:{
  if $regex($1,/^[!.-]yasak/Si) {
    if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !yasak <ekle> <Şehir> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -ms YasakS $strip($3) $nick | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }
      elseif !$hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde ekli değil. }
      else { .hdel -ms YasakS $strip($3) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak şehir listesi boş. }
      else {
        msg # Yasak şehir listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  Ekleyen:2 $hget(YasakS,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak şehir listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{ 
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {
    .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz)
    if $hget(YasakS,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak şehir girişi.. }
  }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}
#Opers kanalında;
  • !yasak ekle Şehir
  • !yasak sil Şehir
  • !yasal list

Gibi kullanabilirsiniz..

Kendin kullanacaksan eğer;
Kod:
on *:text:*:#Opers:{
Böyle değiştir;
Kod:
on *:input:#Opers:{
Düne kadar oldukça sağlıklı çalışıyordu. Site değiştimi ne yaptıysa artık, bir güncelleme gerekiyor.

Zadrich 04 Nisan 2021 23:45
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Üzülerek belirtmek istiyorum ki
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Adresi değişikliklere giderek bir çok kodun işlevsiz kalmasına sebep olmuştur. Bilginize..

High 28 Temmuz 2022 12:41
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Faydalı ve gerekli bir Kod idi. Düzeltilebilirse bir çok kişi faydalanacaktır.

Tunne 16 Eylül 2022 17:26
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042077769)
Sanırım istediğin gibi oldu =)

Kod:
on *:text:*:#Opers:{
  if $regex($1,/^[!.-]yasak/Si) {
    if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !yasak <ekle> <Şehir> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -ms YasakS $strip($3) $nick | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }
      elseif !$hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde ekli değil. }
      else { .hdel -ms YasakS $strip($3) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak şehir listesi boş. }
      else {
        msg # Yasak şehir listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  Ekleyen:2 $hget(YasakS,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak şehir listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{ 
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {
    .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz)
    if $hget(YasakS,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak şehir girişi.. }
  }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}
#Opers kanalında;
  • !yasak ekle Şehir
  • !yasak sil Şehir
  • !yasal list

Gibi kullanabilirsiniz..

Kendin kullanacaksan eğer;
Kod:
on *:text:*:#Opers:{
Böyle değiştir;
Kod:
on *:input:#Opers:{


mrb kolay gelsın hocam elınıze saglık emegınız ıcın. ekledım mırce kodu input olarak soye hata verdı statuste
#OPERS:{ Unknown command tskler

OperServ 17 Eylül 2022 19:13
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Alıntı:
Tunne Nickli Üyeden Alıntı (Mesaj 1042719722)
mrb kolay gelsın hocam elınıze saglık emegınız ıcın. ekledım mırce kodu input olarak soye hata verdı statuste
#OPERS:{ Unknown command tskler
kodu tamamen atarmısın eksik almış olabilirsin.

Tunne 17 Eylül 2022 22:19
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 


kod ustte attıgım toprak aıttı bunu mırc ekledım karsıma cıkan mesajı pasteledım.

OperServ 19 Eylül 2022 15:09
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Alıntı:
Tunne Nickli Üyeden Alıntı (Mesaj 1042720084)

kod ustte attıgım toprak aıttı bunu mırc ekledım karsıma cıkan mesajı pasteledım.
Kodu remoteye ekleyip opers kanalinda kullabilirsiniz tüm kanaları istersen #opers kanalını silip # eklemen yeterlidir..

Kod:
on *:input:*:#Opers:{
  if $regex($1,/^[!.-]yasak/Si) {
    if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !yasak <ekle> <Şehir> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -ms YasakS $strip($3) $nick | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }
      elseif !$hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde ekli değil. }
      else { .hdel -ms YasakS $strip($3) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak şehir listesi boş. }
      else {
        msg # Yasak şehir listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  Ekleyen:2 $hget(YasakS,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak şehir listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{ 
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {
    .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz)
    if $hget(YasakS,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak şehir girişi.. }
  }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}

High 19 Eylül 2022 18:22
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Kod çalışıyor mu? OperServ, bende aktif olmadı.

Dwight 19 Eylül 2022 18:47
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
 
Kod çalışsa bile çoğu ISP yüzünden yanlış bilgi verecektir. Çünkü ISP'lerin çoğu NAT kullanıyor.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:47.
Sayfa 4 Toplam 5 Sayfadan 123 4 5
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk