[MasteR06]

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.

[MasteR06]

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),"))) }

[High]

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

[SNOOPY]

Güzel çalışma olmuş

[MasteR06]

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.

[Sahmelek]

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ş

[High]

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,)

[MasteR06]

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.