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

>
+
Etiketlenen Kullanıcılar

36Beğeni(ler)

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 06 Şubat 2020, 04:01   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ulke yasaklama Addonu Sorunu




Zadrich Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Güzel bir kod kullandım gayette güzel çalışıyor lakin tek sıkıntısı cift kelimeli ülkeleri eklemiyor
örneğin; United States gibi cift kelimeli ülkeleri eklemiyor, düzeltilirse çok harika bir çalışma olucaktır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#OperLog:{ 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,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. } else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$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 !ulke sil <Ulke> olarak belirtiniz. } elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. } else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .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 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191) 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.
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...]) 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(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!) if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi } .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname } }



Konu Emrehan tarafından (06 Şubat 2020 Saat 04:04 ) değiştirilmiştir.
 
Alıntı ile Cevapla

 

Etiketler
yasak ulke


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

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
Nick Takip Addonu Sorunu Beatle mIRC Scripting Sorunları 4 03 Ocak 2019 17:49
Yazı Addonu Sorunu ZenqerDenq mIRC Scripting Sorunları 6 30 Mayıs 2017 10:06
Çözüldü NickListesi / Addonu v2.0 Windows 7 list.icl sorunu twopac mIRC Scripting Sorunları 4 17 Ağustos 2015 12:24
Mirc İdent YaSakLama Addonu YaRdım heySs mIRC Scripting Sorunları 2 29 Ocak 2011 23:33
ident yasaklama Addonu varmı eXLove mIRC Scripting Sorunları 4 14 Aralık 2008 20:15