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

12Beğeni(ler)
  • 8 Post By MasteR06
  • 2 Post By MasteR06
  • 1 Post By SNOOPY
  • 1 Post By Sahmelek

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Ağustos 2022, 15:22   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Girişte Ülke/Şehir/İSP Gösterme - Güncel




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) ;- Muaf port ekleme. if $istok(6661,%_port,32) { return } ;- Muaf nick ekleme elseif $istok(Lilith,%_nick,32) { return } ;- Muaf ident ekleme elseif $istok(ident ident1 ident2,%_ident,32) { return } ;- Muaf IP ekleme elseif $istok(85.104.93.153,%_ip,32 ) { return } who +I $9 } } raw 352:*:{ sockopen $+(nerdenpro,%:rand) ipinfo.io 80 sockmark $+(nerdenpro,%:rand) $+($4,¿,$6) } on *:sockopen:nerdenpro*:{ sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) HTTP/1.1 sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Host: ipinfo.io sockwrite -n $sockname Accept-Language: en-US sockwrite -n $sockname Content-Type: application/json; charset=utf-8 sockwrite -n $sockname $crlf } on *:sockread:nerdenpro*:{ var %:nerdenpro | sockread %:nerdenpro | tokenize 32 %:nerdenpro if region isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if city isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if "org isin %:nerdenpro { var %:isp $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $hget(%:n,City) msg #Giriş 0,1[Giriş Bilgi] 0,4Nick:  0,1 %:n  0,4IP:  0,1 %ip  0,4Ulke Kodu:  0,1 %ülke  0,4Şehir:  0,1 %sehir  0,4 ISP:  0,1 %:isp .hfree -w %:n | sockclose $sockname } } alias _tr return $replace($1-,Ü,Ü,ş,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ş,Ş,ğ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[/CENTER]

Merhabalar;
Kod ile sunucuza giren kişilerin bilgilerini kanala yansıtabilirsiniz. Türkçe karakter hatasının çözümü için alias eklenmiştir. Site üzerinden bilgileri çekmek için api almanıza gerek yoktur. Güncel çalışan kod olmadığı için yaptım. Son günlerde sekershelle ait gbotun veri çekmesinde sıkıntı olduğu için paylaşıyorum
.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.

Konu Che tarafından (14 Ağustos 2022 Saat 10:55 ) değiştirilmiştir. Sebep: Code düzeltildi.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 13 Ağustos 2022, 17:59   #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 Ülke/Şehir/İSP Gösterme - Güncel




Girişte Ülke kodu yerine ülke adını görmek isterseniz.

Kodun en altına şu satırı ekleyiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _dzlt return $replace($1-,TR,TÜRKİYE,US,A.B.D,DE,ALMANYA,IT,İTALYA,FR,FRANSA,AZ,AZERBAYCAN,BE,BELÇİKA,BG,BULGARİSTAN,)


Şu kısımı
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) }

Şu şekilde düzeltebilirsiniz. Daha fazla eklemek istediğiniz ülkelerin kodlarını ekleyerek çoğaltabilirsiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_dzlt($_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),"))) }


__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

Alt 31 Ağustos 2022, 12:19   #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 Ülke/Şehir/İSP Gösterme - Güncel




Kod için sağ ol MasteR06. Sadece mIRC girişlerin de uyarı veriyor. Bir de Vpn sorgu da eklenebilir mi?

__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 31 Ağustos 2022, 16:44   #4
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel




Güzel çalışma olmuş

__________________
BLaCK_and_WHiTe is now known as SNOOPY
 
Alıntı ile Cevapla

Alt 01 Eylül 2022, 01:01   #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 Ülke/Şehir/İSP Gösterme - Güncel




High Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod için sağ ol MasteR06. Sadece mIRC girişlerin de uyarı veriyor. Bir de Vpn sorgu da eklenebilir mi?

Muaf port kısmına web ve mobil portları eklememiş olduğunuza emin olun. Vpn sorgusu için bu sitenin api anahtarlı versiyonunu kullanıyor olmanız lazım.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

Alt 01 Eylül 2022, 01:04   #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 Ülke/Şehir/İSP Gösterme - Güncel




MasteR06 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 *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) ;- Muaf port ekleme. if $istok(6661,%_port,32) { return } ;- Muaf nick ekleme elseif $istok(Lilith,%_nick,32) { return } ;- Muaf ident ekleme elseif $istok(ident ident1 ident2,%_ident,32) { return } ;- Muaf IP ekleme elseif $istok(85.104.93.153,%_ip,32 ) { return } who +I $9 } } raw 352:*:{ sockopen $+(nerdenpro,%:rand) ipinfo.io 80 sockmark $+(nerdenpro,%:rand) $+($4,¿,$6) } on *:sockopen:nerdenpro*:{ sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) HTTP/1.1 sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Host: ipinfo.io sockwrite -n $sockname Accept-Language: en-US sockwrite -n $sockname Content-Type: application/json; charset=utf-8 sockwrite -n $sockname $crlf } on *:sockread:nerdenpro*:{ var %:nerdenpro | sockread %:nerdenpro | tokenize 32 %:nerdenpro if region isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if city isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if "org isin %:nerdenpro { var %:isp $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $hget(%:n,City) msg #Giriş 0,1[Giriş Bilgi] 0,4Nick:  0,1 %:n  0,4IP:  0,1 %ip  0,4Ulke Kodu:  0,1 %ülke  0,4Şehir:  0,1 %sehir  0,4 ISP:  0,1 %:isp .hfree -w %:n | sockclose $sockname } } alias _tr return $replace($1-,Ü,Ü,ş,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ş,Ş,ğ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[/CENTER]

Merhabalar;
Kod ile sunucuza giren kişilerin bilgilerini kanala yansıtabilirsiniz. Türkçe karakter hatasının çözümü için alias eklenmiştir. Site üzerinden bilgileri çekmek için api almanıza gerek yoktur. Güncel çalışan kod olmadığı için yaptım. Son günlerde sekershelle ait gbotun veri çekmesinde sıkıntı olduğu için paylaşıyorum
.

Elinize Sağlık Fakat giriş Hatası veriyor bu neden acaba Böyle Bir Nick Bulunamadı : #Giriş

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

Konu Sahmelek tarafından (01 Eylül 2022 Saat 01:06 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 01 Eylül 2022, 20:15   #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 Ülke/Şehir/İSP Gösterme - Güncel




Sahmelek Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Elinize Sağlık Fakat giriş Hatası veriyor bu neden acaba Böyle Bir Nick Bulunamadı : #Giriş

Girişleri ayrı bir pencere de Giris adı altında görmek senin için daha kullanışlı olacaktır
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) ;- Muaf port ekleme. if $istok(6661,%_port,32) { return } ;- Muaf nick ekleme elseif $istok(Lilith,%_nick,32) { return } ;- Muaf ident ekleme elseif $istok(ident ident1 ident2,%_ident,32) { return } ;- Muaf IP ekleme elseif $istok(85.104.93.153,%_ip,32 ) { return } who +I $9 } } raw 352:*:{ sockopen $+(nerdenpro,%:rand) ipinfo.io 80 sockmark $+(nerdenpro,%:rand) $+($4,¿,$6) } on *:sockopen:nerdenpro*:{ sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) HTTP/1.1 sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Host: ipinfo.io sockwrite -n $sockname Accept-Language: en-US sockwrite -n $sockname Content-Type: application/json; charset=utf-8 sockwrite -n $sockname $crlf } on *:sockread:nerdenpro*:{ var %:nerdenpro | sockread %:nerdenpro | tokenize 32 %:nerdenpro if region isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if city isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) } if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_dzlt($_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),"))) } if "org isin %:nerdenpro { var %:isp $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $hget(%:n,City) $iif(!$window(@Giris),window -e @Giris) .echo @Giris 0,1[Giriş Bilgi] 0,4Nick:  0,1 %:n  0,4IP:  0,1 %ip  0,4Ulke Kodu:  0,1 %ülke  0,4Şehir:  0,1 %sehir  0,4 ISP:  0,1 %:isp .hfree -w %:n | sockclose $sockname } } alias _tr return $replace($1-,Ü,Ü,ş,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ş,Ş,ğ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,) alias _dzlt return $replace($1-,TR,TÜRKİYE,US,A.B.D,DE,ALMANYA,IT,İTALYA,FR,FRANSA,AZ,AZERBAYCAN,BE,BELÇİKA,BG,BULGARİSTAN,)


__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 01 Eylül 2022, 21:03   #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 Ülke/Şehir/İSP Gösterme - Güncel




Sahmelek Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Elinize Sağlık Fakat giriş Hatası veriyor bu neden acaba Böyle Bir Nick Bulunamadı : #Giriş

#Giriş yerine yansıtmak istediğiniz kanal hangisi ise onu yazın. Öyle bir kanal olmadığı için böyle bir hata alıyorsunuz.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

Cevapla

Etiketler
bölge, geo, giren, giriŞ, gÜncel, gösterme, hangi, ipinfo, irc, isp, kode, mirc, nereden, remotesi, snotice, sunucuya, şehir, Şehirden


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
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
Çözüldü Girişte Şehir Gösterme ve Şehir Yasaklama Xadd1 mIRC Scripting Sorunları 44 19 Eylül 2022 19:55
Girişte Şehir Gösterme Addonu Düzeltme KeMaNiSt mIRC Scripting Sorunları 1 14 Temmuz 2020 02:00
Girişte Şehir Gösterme Addonu KeMaNiSt mIRC Scripting Hazır Kodlar 0 04 Haziran 2020 23:43
Girişte Şehir Gösterme Addonu KeMaNiSt mIRC Scripting Hazır Kodlar 0 04 Haziran 2020 22:52