IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
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ü Ulke yasaklama Addonu Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/848725-ulke-yasaklama-addonu-sorunu.html)

useyd 26 Mart 2021 00:46
Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:
useyd Nickli Üyeden Alıntı (Mesaj 1042463604)
!yasak ekle Ülke ISP şeklinde yapabilirmiyiz.
Bazı ülkeler arasında boşluk oluyor United States gibi.



Bu şekilde çevirebilirmiyiz.

KuL 01 Nisan 2021 00:58
Cevap: Ulke yasaklama Addonu Sorunu
 
Sanirim zaten Sitede degisiklik oldu, Kod ondan dolayi hatada veriyor olabilir artik

silenger 12 Ocak 2025 02:06
Cevap: Ulke yasaklama Addonu Sorunu
 
Yasak ulke kodu olan varmi güncel

ByaSiL 12 Ocak 2025 03:39
Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:
silenger Nickli Üyeden Alıntı (Mesaj 1042963154)
Yasak ulke kodu olan varmi güncel
Dilediğiniz Ükle'yi yasaklamanıza yardımcı olacak güzel bir kod
Yasaklamak istediğiniz ülkeyi Eklemek için : !Yasak ekle Hollanda Silmek için ise : !Yasak sil Hollanda


PHP- Kodu:
on *:text:*:#KANAL:{
if $regex($1,/^[!.][uüÜ]lke/Si) {
if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }
elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }
else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }
elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }
else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
else {
msg # Yasak Ülke Listesi
msg # -
var %:t = 1 | while %:t <= $hget(Ulke,0).data {
msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data
inc %:t
}
msg # -
msg # Yasak Ülke Listesi Sonu
}
}
}
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
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:ulke*:{
var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {
$iif(!$window([MENTION=79043]Network[/MENTION]),window -e [MENTION=79043]Network[/MENTION])
echo -t [MENTION=79043]Network[/MENTION] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)
if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
}
} 
Bende böyle birşey var ama çalışıp çalışmadığını ve kimin yaptığını bilmiyorum.

ZaLiM1979 12 Ocak 2025 19:06
Cevap: Ulke yasaklama Addonu Sorunu
 
Arkadaslar bildigim kadar ükle yasaklamiyi unrealircd.conf icine yapabilirsiniz. Daha güvenli ve koda ihtiyac yok. Saygilarimla.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:06 -->-> Daha önceki mesaj 18:56 --

Verecegim kodu unrealircd.conf'un icine ekleyin ve hanki ülkeler girsin istiyorsaniz onlari ekleyin misal Türkiye'den girsinler TR ekleyin, Almanyadan girsinler DE ekleyin, vsy..

Yazdiginiz ülkeler disinda gelen olursa giremiyorlar.


Kod:
Kod:
ban user {
    mask {
        mask *;
        exclude-country { CH; DE; AT; NO; TR; }
    }
    reason "Sorry, users are not allowed from this country. Have a nice day. :)";
}

silenger 13 Ocak 2025 18:25
Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1042963160)
Dilediğiniz Ükle'yi yasaklamanıza yardımcı olacak güzel bir kod
Yasaklamak istediğiniz ülkeyi Eklemek için : !Yasak ekle Hollanda Silmek için ise : !Yasak sil Hollanda


PHP- Kodu:
on *:text:*:#KANAL:{
if $regex($1,/^[!.][uüÜ]lke/Si) {
if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }
elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }
else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }
elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }
else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
else {
msg # Yasak Ülke Listesi
msg # -
var %:t = 1 | while %:t <= $hget(Ulke,0).data {
msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data
inc %:t
}
msg # -
msg # Yasak Ülke Listesi Sonu
}
}
}
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
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:ulke*:{
var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {
$iif(!$window([MENTION=79043]Network[/MENTION]),window -e [MENTION=79043]Network[/MENTION])
echo -t [MENTION=79043]Network[/MENTION] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)
if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
}
} 
Bende böyle birşey var ama çalışıp çalışmadığını ve kimin yaptığını bilmiyorum.
Who çekiyor fakat belirttiğim kanala yansıtmıyor

Mylife 14 Ocak 2025 11:06
Cevap: Ulke yasaklama Addonu Sorunu
 
Kod:
;bu kısma #kanal yerine komutların çalışacağı kanalı yazın.
on *:text:*:#kanal:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

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

      elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }

    }

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

      if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }

    }

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

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

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

          msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}
;bu kısma verileri yansıtacağı kanalı yazın.
alias _knl return #kanal

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }


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

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{

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

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

  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    ; bu kısımda echo mesajı olarak ayarlanmıştı bunu yine belirlediğiniz kanala yansıtabilirsiniz aşağıdaki gibi.
    msg $_knl - @[Ü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(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)

    if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], deneme şansım olmadı. Bu şekilde işinizi görür sanırım.

silenger 14 Ocak 2025 14:07
Cevap: Ulke yasaklama Addonu Sorunu
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardesim yine ayni eekilde sadece who crkiyor baska birsey yok

Sohbet Koray_ogretmnn H xxx@5.47.200.100 :1 - Mobil
Koray_ogretmnn End of /WHO list

Mylife 14 Ocak 2025 17:14
Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:
silenger Nickli Üyeden Alıntı (Mesaj 1042963859)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardesim yine ayni eekilde sadece who crkiyor baska birsey yok

Sohbet Koray_ogretmnn H xxx@5.47.200.100 :1 - Mobil
Koray_ogretmnn End of /WHO list
kontrol amaçlı onu çeker işlem yapması için yasak ülkeden giriş olması lazım.

Feragat 14 Ocak 2025 19:02
Cevap: Ulke yasaklama Addonu Sorunu
 
Merhaba,

Sorgu yapılan sitenin 80 portundan veri alabildiğine emin misiniz? Çünkü site http(s) protokolünü kullanıyor.
Kod ile siteden veri alınıp alınmadığını bir deneyin isterseniz. Eğer sonuç olumlu ise kodu düzeltmek kolay olacaktır.


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

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