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
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

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

31Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Kasım 2019, 01:08   #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



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   #2
Çevrimiçi
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   #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



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   #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 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   #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

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

 
Alıntı ile Cevapla

Cevapla

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
ferizli haber kaynarca haber sohbet teması takipçi satın al anime izle tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers sohbet siteleri sohbet odaları sohbet odaları sohbet Aydın Haber Akyazı Haber Sitesi Ankara Haber Finanzivo 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