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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
31Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 3 Toplam 5 Sayfadan 12 3 45
 
LinkBack Seçenekler Stil
Alt 29 Kasım 2019, 21:19   #21
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

__________________
İki Yüzlü İnsan Pazar Tezgahı Gibidir? Öne İyilerini Koyar, Arkası Hep Çürüktür!
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 26 Aralık 2019, 19:32   #22
Çevrimdışı
diE
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 18 Haziran 2020, 13:33   #23
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama



Emrehan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 ?

__________________
...::: Benim Kusurum SENSİN. Kimse KUSURUM'a Bakmasın :::...
 
Alıntı ile Cevapla

Alt 14 Temmuz 2020, 13:25   #24
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.
Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sanırım istediğin gibi oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Opers:{

Böyle değiştir;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#Opers:{


 
Alıntı ile Cevapla

Alt 16 Temmuz 2020, 18:25   #25
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sanırım istediğin gibi oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Opers:{

Böyle değiştir;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#Opers:{


 
Alıntı ile Cevapla

Alt 17 Temmuz 2020, 00:20   #26
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 var %:isp | sockread -f %:isp | tokenize 32 %:isp

yazan kısmı
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
var %:isp | sockread -f %:isp | tokenize 32 $left(%:isp,800)

şeklinde düzenleyebilirsin.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 28 Ağustos 2020, 11:03   #27
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama



Emrehan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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..

 
Alıntı ile Cevapla

Alt 28 Ağustos 2020, 22:16   #28
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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) }
}


__________________
TurkSohbet.NET | #XPass
Konu diEfoRyoU tarafından (30 Ağustos 2020 Saat 00:40 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 01 Nisan 2021, 05:43   #29
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama



Sadece ISP yasaklama olarak nasıl ayarlayabiliriz?

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

Alt 02 Nisan 2021, 11:30   #30
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Cevapla
Sayfa 3 Toplam 5 Sayfadan 12 3 45

Etiketler
remote, remote kodları

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Remote ile ilgili Sinan BERBER mIRC Scripting Sorunları 14 24 Nisan 2014 11:34
Seslenme remote sorun MerakLıuSer mIRC Scripting Sorunları 7 12 Kasım 2013 22:28
script remote de yazı dili AybarSsss mIRC Scripting Sorunları 1 18 Şubat 2010 13:35
Remote ile ilgili ShaoLin mIRC Scripting Sorunları 1 16 Ağustos 2008 02:18
remote dialogu ile ilgili sorun By_ReBeL mIRC Scripting Sorunları 0 30 Ocak 2007 14:06




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org