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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Girişte Ülke/Şehir/İSP Gösterme - Güncel (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/984758-giriste-ulke-sehir-isp-gosterme-guncel.html)

Bozkurt- 13 Ağustos 2022 15:22
Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Kod:
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-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][/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.

Bozkurt- 13 Ağustos 2022 17:59
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:
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:
  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:
  if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_dzlt($_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),"))) }

High 31 Ağustos 2022 12:19
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?

SNOOPY 31 Ağustos 2022 16:44
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Güzel çalışma olmuş

Bozkurt- 01 Eylül 2022 01:01
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042714088)
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.

Sahmelek 01 Eylül 2022 01:04
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Alıntı:
MasteR06 Nickli Üyeden Alıntı (Mesaj 1042710543)
Kod:
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-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][/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ş

High 01 Eylül 2022 20:15
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Alıntı:
Sahmelek Nickli Üyeden Alıntı (Mesaj 1042714251)
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:
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,)

Bozkurt- 01 Eylül 2022 21:03
Cevap: Girişte Ülke/Şehir/İSP Gösterme - Güncel
 
Alıntı:
Sahmelek Nickli Üyeden Alıntı (Mesaj 1042714251)
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:50.

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