IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Çözüldü Girişte Şehir Gösterme ve Şehir Yasaklama

Sayfa 1 Toplam 2 Sayfadan

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)

Xadd1

13 Mayıs 2019 12:19

Girişte Şehir Gösterme ve Şehir Yasaklama

öncelikle merhaba. arkadaşlar sizden öğrenmek istediğim sunucuya girişte

[ GİRİŞ ] Nick: xxx - IP: 176.54.135.240 - Ülke: Turkey - Şehir: çanakkale - ISP: Vodafone Telekomunikasyon A.S. - Son Bağlantı: Yeni Giris

bunu bi Network penceresi ile özelime yansıtcak bi remote istiyorum.

ayrıca mümkünse girişteki ankara ve diğer iller olmak üzere ankara istanbul bursa diğer iller. bunun girişerini yasaklıcak bi tablo görünümlü koruma istiyorum. örneğin şehir koruması gibi. açık kapamalı.

mümkünmüdür ?

The	13 Mayıs 2019 13:11

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Kodu komple atarsan buraya bakalım bi

Xadd1

14 Mayıs 2019 06:01

Script remote ile ilgili sorun ?

Toprak

14 Mayıs 2019 15:44

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042076628)

Merhaba, kodu konuya ekler iseniz düzenlemeler yaparız.

Toprak

15 Mayıs 2019 01:47

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

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:{

Xadd1

15 Mayıs 2019 03:36

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

çok teşekkür ederim Toprak

SenatoR-SuVaRi

23 Haziran 2019 15:05

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

güzel bir kod calışması peki buna muaf nick eklenebilirmi acaba

SaruhanLi

23 Haziran 2019 16:54

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

muaf ve arti ulke eklemede beraber olsa daha guzel olurdu

SenatoR-SuVaRi

14 Eylül 2019 20:40

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

önceliklew selam herkese kodu aldım ama calışmıyor bende
girişler statusde şöyle görünüyor
*** Notice -- Sunucuya baglaniyor... Baglanan: Funda_
ne yapmam lazım çalışması için yardımcı olan arkadaşlara şimdiden tesekkürler

Emrehan

14 Eylül 2019 21:04

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042155040)

Kod:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) $.+@.+$/Si) { who +I $regml(2) }

burayı

Kod:

on ^*:snotice:*:if $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

şeklinde değiştirin.

veya

Kod:

on ^*:snotice:*:{

  if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

  elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

}

şeklinde değiştirin iki türlü de çalışır kod o zaman.

SenatoR-SuVaRi

15 Eylül 2019 15:28

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Emrehan Tesekkürler

Fredyyy

20 Eylül 2019 10:43

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Merhabalar, zline yerine shun uygulatabilir miyiz?

Fredyyy

20 Eylül 2019 13:37

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042157969)

Merhabalar, zline yerine shun uygulatabilir miyiz?

Konuya flood gibi olduğu için özür dilerim, burada shunu nicke uygulamak istiyorum.

Emrehan

20 Eylül 2019 15:19

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

.gzline yerine .shun yazın

Fredyyy

20 Eylül 2019 19:57

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Shun kodu inaktif bir yer, bot üzerinden atılıyor. Mesela #opers te sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstadım, #opers kanalında .shun nick şeklinde yaptırabilir miyim? İlgi ve alakanız için teşekkürler.

Emrehan

20 Eylül 2019 20:37

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042158236)

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

      }

    }

  }

  elseif $regex($1,/^[!.-]shun/Si) {

    if !$2 { msg # Lütfen !shun nick olarak belirtiniz. }

    $iif($3,.shun $2 - $3-,.shun $2 - Lütfen Sunucu Kurallarına Uyunuz)

  }

}

Fredyyy

21 Eylül 2019 08:42

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] problemim çözüldü, teşekkür ederim.

Fani	29 Kasım 2019 01:08

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Arkadaşlar Buna ISP de Ekleyebilir miyiz ? Yani Ben Bi Şehri Değilde Sadece O Şehirdeki ISP ye Göre Yasaklamak İstiyorum..
Örn : !yasak ekle Istanbul Turkcell

Gibi..

İki Koşuluda Sağlıyorsa Banlasa ?

Emrehan

29 Kasım 2019 03:21

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Fani Nickli Üyeden Alıntı (Mesaj 1042196813)

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 || !$4 { msg # Lütfen !yasak <ekle> <Şehir> <ISP> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }

      elseif $istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }

      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $replace($strip($4-),$chr(32),$chr(45)) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 || !$4 { msg # Lütfen !yasak <sil> <Şehir> <ISP> olarak belirtiniz. }

      elseif !$istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }

      else {

        .hadd -m YasakS $strip($3) $remtok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32)

        $iif(!$hget(YasakS,$strip($3)),.hdel -m YasakS $strip($3)) | .hsave -o YasakS yasaks.tprk

        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.

      }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }

      else {

        msg # Yasak giriş listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(YasakS,0).data {

          msg # $+(%:t,-,$chr(41)) 1Şehir:4 $hget(YasakS,%:t).item 1ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(32),$+($chr(32),5,$chr(38),2,$chr(32)),$chr(45),$chr(32))

          inc %:t

        }

        msg # -

        msg # Yasak giriş 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) }

  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { 

    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş }

    $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) 1- IP:4 $token($sock($sockname).mark,1,191) 1- Ülke:2 $hget(Ülke,$sockname) 1- Şehir:2 $hget(Sehir,$sockname) 1- ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32),1- $+(12,$chr(40),4Yasak Giriş!12,$chr(41)))

    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Kullanım: [!.]yasak ekle Şehir ISP

Fani	29 Kasım 2019 17:20

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042196838)

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 || !$4 { msg # Lütfen !yasak <ekle> <Şehir> <ISP> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }

      elseif $istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }

      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $replace($strip($4-),$chr(32),$chr(45)) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 || !$4 { msg # Lütfen !yasak <sil> <Şehir> <ISP> olarak belirtiniz. }

      elseif !$istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }

      else {

        .hadd -m YasakS $strip($3) $remtok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32)

        $iif(!$hget(YasakS,$strip($3)),.hdel -m YasakS $strip($3)) | .hsave -o YasakS yasaks.tprk

        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.

      }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }

      else {

        msg # Yasak giriş listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(YasakS,0).data {

          msg # $+(%:t,-,$chr(41)) 1Şehir:4 $hget(YasakS,%:t).item 1ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(32),$+($chr(32),5,$chr(38),2,$chr(32)),$chr(45),$chr(32))

          inc %:t

        }

        msg # -

        msg # Yasak giriş 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) }

  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { 

    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş }

    $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) 1- IP:4 $token($sock($sockname).mark,1,191) 1- Ülke:2 $hget(Ülke,$sockname) 1- Şehir:2 $hget(Sehir,$sockname) 1- ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32),1- $+(12,$chr(40),4Yasak Giriş!12,$chr(41)))

    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Kullanım: [!.]yasak ekle Şehir ISP

Üstadım Süpersin.. Eline Sağlık.. Buna Bi Kaç Eklenti Daha Var Aklımda :) Süper Koruma Sağlar.. Mesela Agresif Giriş Esnasında Otomatik Koruma Açıp Muaf Nickler Hariç Tüm Yabancı Girişlere Oto Zline Atmak Gibi.. Sadece Muaf Nickler Kalacak ( daha önceden giriş yapmış yada register edilmiş yada muaf eklenmiş ) Geri Kalan Yurt Dışı Girişlere Oto Zline..

Tabi Bu Kadarını İstemeye Yüzüm Yok.. Para ile Yazdıracağım Yakında.. İlgilenen Olursa Ben Geliştirebilirim Bunu Gibisine.. Pm Atsın Lütfen Yada Yarın Birgün Ben Başlık Açacağım :)

SaruhanLi

29 Kasım 2019 21:19

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

bi kod vardı ulke sehir vpn 3 kodu birleştirilmişti hepsi ayrı ayrıydı misal vpn ekle turktelekom ulke ekle amerika şehir ekle bursa ekle sil seklindeydi vardı bende formatta uctu

diE	26 Aralık 2019 19:32

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

kod sanırım sadece türkiye için geçerli ben yurt dışı ülkelerini eklediğimde atma işlemi yapmıyor

Fani	18 Haziran 2020 13:33

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042196838)

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 || !$4 { msg # Lütfen !yasak <ekle> <Şehir> <ISP> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }

      elseif $istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }

      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $replace($strip($4-),$chr(32),$chr(45)) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 || !$4 { msg # Lütfen !yasak <sil> <Şehir> <ISP> olarak belirtiniz. }

      elseif !$istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }

      else {

        .hadd -m YasakS $strip($3) $remtok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32)

        $iif(!$hget(YasakS,$strip($3)),.hdel -m YasakS $strip($3)) | .hsave -o YasakS yasaks.tprk

        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.

      }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }

      else {

        msg # Yasak giriş listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(YasakS,0).data {

          msg # $+(%:t,-,$chr(41)) 1Şehir:4 $hget(YasakS,%:t).item 1ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(32),$+($chr(32),5,$chr(38),2,$chr(32)),$chr(45),$chr(32))

          inc %:t

        }

        msg # -

        msg # Yasak giriş 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) }

  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { 

    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş }

    $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) 1- IP:4 $token($sock($sockname).mark,1,191) 1- Ülke:2 $hget(Ülke,$sockname) 1- Şehir:2 $hget(Sehir,$sockname) 1- ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32),1- $+(12,$chr(40),4Yasak Giriş!12,$chr(41)))

    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Kullanım: [!.]yasak ekle Şehir ISP

Üstadım Kod Süper Çalışıyor Fakat Şöyle Bi Sorun Var.. Bazı Kişilerin Şehri Göstermiyor Boş Çekiyor.. Bunun Yerine Boş Olanlara Bilinmiyor Yazsa.. Bizde Bilinmiyor Turkcell Desek Mesela.. Böylece İstanbul Turkcell Değilde Bilinmiyor Turkcell ide Atsa Olabilir mi ?

KeMaNiSt

14 Temmuz 2020 13:25

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Teşekkür ederim öncelikle. Ancak yasak şehir ekleyip denememe rağmen atmıyor, yani komut uygulamıyor.

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:{

KeMaNiSt

16 Temmuz 2020 18:25

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

-
* /tokenize: Sıra cok uzun (Satır 43, giristesehirgoster.txt)
-
* /tokenize: Sıra cok uzun (Satır 43, giristesehirgoster.txt)
-
Girişte statuste böyle bir uyarı veriyor bunu nasıl düzeltebiliriz

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:{

diEfoRyoU

17 Temmuz 2020 00:20

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Kod:

var %:isp | sockread -f %:isp | tokenize 32 %:isp

yazan kısmı

Kod:

var %:isp | sockread -f %:isp | tokenize 32 $left(%:isp,800)

şeklinde düzenleyebilirsin.

cArsi

28 Ağustos 2020 11:03

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042196838)

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 || !$4 { msg # Lütfen !yasak <ekle> <Şehir> <ISP> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }

      elseif $istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }

      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $replace($strip($4-),$chr(32),$chr(45)) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 || !$4 { msg # Lütfen !yasak <sil> <Şehir> <ISP> olarak belirtiniz. }

      elseif !$istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }

      else {

        .hadd -m YasakS $strip($3) $remtok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32)

        $iif(!$hget(YasakS,$strip($3)),.hdel -m YasakS $strip($3)) | .hsave -o YasakS yasaks.tprk

        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.

      }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }

      else {

        msg # Yasak giriş listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(YasakS,0).data {

          msg # $+(%:t,-,$chr(41)) 1Şehir:4 $hget(YasakS,%:t).item 1ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(32),$+($chr(32),5,$chr(38),2,$chr(32)),$chr(45),$chr(32))

          inc %:t

        }

        msg # -

        msg # Yasak giriş 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) }

  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { 

    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş }

    $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) 1- IP:4 $token($sock($sockname).mark,1,191) 1- Ülke:2 $hget(Ülke,$sockname) 1- Şehir:2 $hget(Sehir,$sockname) 1- ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32),1- $+(12,$chr(40),4Yasak Giriş!12,$chr(41)))

    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Kullanım: [!.]yasak ekle Şehir ISP

Süper çalışıyor elinize sağlık.. peki buna yasak listeden muaf tutabileceğimiz nickleri ekletebilirmiyiz..

diEfoRyoU

28 Ağustos 2020 22:16

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Alıntı:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) $.+@.+$/Si) { who +I $regml(2) }

Kodda bulunan yukarıdaki kısmı tamamen silip yine aynı yere aşağıdaki yamayı yapıştırırsan istediğin olacaktır.
kırmızı alanlar muaf nick alanı yeşil alanlar muaf ip alanıdır.
Umarım işine yarar.

Kod:

on *:snotice:*:{

  if $regex(cc,$1-,/Client connecting (on port|at) .+\: (.+) \(.+@(.+)\)/Si) {

if $istok(muafnick1 muafnick2,$regml(cc,2),32) { return }

if $istok(ip1 ip2,$regml(cc,3),32) { return } 

who +I $regml(cc,2) }

}

ExcLuSive

01 Nisan 2021 05:43

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Sadece ISP yasaklama olarak nasıl ayarlayabiliriz?

angry1

02 Nisan 2021 11:30

Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama

Merhaba arkadaşlar: Sanırım bu verileri aldığımız ipaddresslocation.org adresinde değişiklik oldu. kodlar çalışmıyor ülke şehir göstermiyor, yardımcı olabilirmisiniz? Bu makalede paylaştığınız kodları kullanıyorum güncelleme yapabilirseniz çok memnun olurum. hayırlı İF ler.

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: 09:08.

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster