Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
⚠️ Güvenlik nedeniyle tüm kullanıcı şifreleri sıfırlanmıştır. Lütfen buraya tıklayarak yeni şifre talep ediniz.
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

31Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 3 Toplam 5 Sayfadan 12 3 45
 
LinkBack Seçenekler Arama Stil
Alt 21 Eylül 2019, 08:42   #1
Ç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



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

 
Alıntı ile Cevapla

Alt 29 Kasım 2019, 01:08   #2
Ç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



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 ?

 
Alıntı ile Cevapla

Alt 29 Kasım 2019, 03:21   #3
Ç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



Fani Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 ?

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

Konu Emrehan tarafından (29 Kasım 2019 Saat 14:31 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 29 Kasım 2019, 17:20   #4
Ç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 Süpersin.. Eline Sağlık.. Buna Bi Kaç Eklenti Daha Var Aklımda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

Alt 18 Haziran 2020, 13:33   #5
Ç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 28 Ağustos 2020, 11:03   #6
Ç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 29 Kasım 2019, 21:19   #7
Ç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

Alt 26 Aralık 2019, 19:32   #8
Ç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 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 17 Temmuz 2020, 00:20   #9
Ç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, 22:16   #10
Ç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

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)
 

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
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması Sesli Sohbet
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