IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   !Nerden kodu güncel. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/815227-nerden-kodu-guncel.html)

Toprak 11 Nisan 2019 18:40
!Nerden kodu güncel.
 
Kullanımı: !nerden IP/NICK

Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { .echo -a Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) igs.gevezeyiz.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{ 
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf 
  }
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { msg %:kanal $regml(1) $regml(2) }
}

Kod güncellendi.

Zalimsin 14 Eylül 2019 19:08
Cevap: !Nerden kodu güncel.
 
renklendirme yapamadık ama

cArsi 29 Aralık 2019 22:40
Cevap: !Nerden kodu güncel.
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042053663)
Kullanımı: !nerden IP/NICK

Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(nerden,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(nerden,%:r) $1 }
on *:sockopen:nerden*:{ 
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf 
}
on *:sockread:nerden*:{ 
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<i>Hostname:<\/i> <b>(.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) }
  elseif $regex($1-,/<i>(.+)\:.+<b>(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) }
}
elinize sağlık hocam.. bunu sadece belirlediğimiz bir kanalda çalıştırmak için ne yapmalıyız yardımcı olurmusunuz..

OperServ 29 Aralık 2019 22:44
Cevap: !Nerden kodu güncel.
 
Alıntı:
bulen_t Nickli Üyeden Alıntı (Mesaj 1042219577)
elinize sağlık hocam.. bunu sadece belirlediğimiz bir kanalda çalıştırmak için ne yapmalıyız yardımcı olurmusunuz..
Kod:
on *:text:*:#:{
Kod:
on *:input:#:{
Satirlarin yerine kanal ismini koyabilirsin örnek #sohbet Cogaltmak istersen #Sohbet,#radyo,#chat gibi uzatabilirsin..
Asagidaki gibi..
Kod:
on *:input:#sohbet:{
Kod:
on *:text:*:#sohbet:{

cArsi 29 Aralık 2019 22:51
Cevap: !Nerden kodu güncel.
 
çok teşekkürler hocam sağolun..

OperServ 31 Aralık 2019 01:56
Cevap: !Nerden kodu güncel.
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042154998)
renklendirme yapamadık ama
Buyrun hem renkli hem turkçedir

Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*:{
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

vioLeta 01 Ocak 2020 14:26
Cevap: !Nerden kodu güncel.
 
Emeğinize sağlık.

curl 13 Ocak 2020 21:19
Cevap: !Nerden kodu güncel.
 
kod çalışmıyor .

OperServ 14 Ocak 2020 01:08
Cevap: !Nerden kodu güncel.
 
Alıntı:
curl Nickli Üyeden Alıntı (Mesaj 1042234063)
kod çalışmıyor .
Koda bir sikinti yok mirc versionun kaç?

curl 14 Ocak 2020 03:11
Cevap: !Nerden kodu güncel.
 
v6.35 sürüm.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:11 -->-> Daha önceki mesaj 00:49 --

kodlar çakışmış scripte çalışıyormuş tşkler.

Bozkurt- 03 Haziran 2020 20:13
Cevap: !Nerden kodu güncel.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kod çalışmıyor iplocation sitesi kapandığı için güncelleme imkanın var mı

OperServ 05 Haziran 2020 10:23
Cevap: !Nerden kodu güncel.
 
Alıntı:
MasteR06 Nickli Üyeden Alıntı (Mesaj 1042317106)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kod çalışmıyor iplocation sitesi kapandığı için güncelleme imkanın var mı
Merhaba site acilmis tekrar denermisiniz

Furkan- 05 Haziran 2020 10:31
Cevap: !Nerden kodu güncel.
 
Evet düzeldi site açılınca çok şükür her kodumuz ona bağlıydı.

alphae 21 Nisan 2021 03:28
Cevap: !Nerden kodu güncel.
 
Kod calsiyordu simdi calismiyor neden Acaba suan calismiyor bende kendi pc ve vds denedim.


Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042053663)
Kullanımı: !nerden IP/NICK

Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(nerden,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(nerden,%:r) $1 }
on *:sockopen:nerden*:{ 
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf 
}
on *:sockread:nerden*:{ 
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<i>Hostname:<\/i> <b>(.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) }
  elseif $regex($1-,/<i>(.+)\:.+<b>(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) }
}

YekTa 23 Nisan 2021 23:01
Cevap: !Nerden kodu güncel.
 
gene siteyle alakalı bu sorun sll geçmiş ve tasarım degişmiş sitenin denedim ama gene sorun vardı başka site bulmak lazım .

Che 16 Mayıs 2021 15:21
Cevap: !Nerden kodu güncel.
 
Kullanımı: !ip <IP>
Kanal: <#xLine>




Kod:
#ipche on
on *:text:*:#xline:{ if (?ip iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
on *:input:#xline:{ if (?ip iswm $1 && $server && /* !iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
#ipche end

alias -l getip {
  sockclose cheip
  sockopen -46 cheip ipinfo.io 80
  sockmark cheip $1
  %xchan = $2
  %xline = ""
}
on *:sockopen:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c Hata! | unset %xchan %xline | return }
  sockwrite -n $sockname GET $+(http://ipinfo.io/,$sock($sockname).mark,/geo) HTTP/1.1
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:62.0) Gecko/20100101 Firefox/62.0
  sockwrite -n $sockname Accept-Language: en-US
  sockwrite -n $sockname Content-Type: application/json; charset=utf-8
  sockwrite -n $sockname $str($crlf,2)
}
on *:sockread:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c okuma hatası! | unset %xchan %xline | return }
  var %che, %2
  sockread -f %che
  tokenize 32 %che
  if ("*": * iswm $1-) {
    var %2 = $remove($2-,",$chr(44))
    if ($1 == "ip":) { %xline = 0,1 4[0,1 4IP-Bilgi] -0,1 4IP:0 %2 }
    if ($1 == "city":) { %xline = %xline -0,1 4Sehir:0 %2 }
    if ($1 == "region":) { %xline = %xline -0,1 4Bölge:0 %2 }
    if ($1 == "country":) { %xline = %xline -0,1 4Ülke:0 %2 }
    if ($1 == "loc":) { %xline = %xline -0,1 4Konum:0 $replace(%2,-,$+($chr(44),-)) }
    if ($1 == "timezone":) { %xline = %xline  -0,1 4Saat Dilimi:0 %2 | endxit | sockclose $sockname }
  }
  if ($chr(125) isin $1) { endxit | sockclose $sockname }
}
alias -l endxit {
  if (%xline) { msg %xchan %xline }
  else { msg %xchan [IP-Bilgi] $c İP Bulunamadı!
  }
  unset %xline %xchan
}
alias -l c { return $chr(9679) }
Ekran görüntüsü;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sadullah 17 Mayıs 2021 01:37
Cevap: !Nerden kodu güncel.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] abi dokturuyon yine :)

Mahrez 18 Mayıs 2021 00:46
Cevap: !Nerden kodu güncel.
 
Alıntı:
Che Nickli Üyeden Alıntı (Mesaj 1042488320)
Kullanımı: !ip <IP>
Kanal: <#xLine>




Kod:
#ipche on
on *:text:*:#xline:{ if (?ip iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
on *:input:#xline:{ if (?ip iswm $1 && $server && /* !iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
#ipche end

alias -l getip {
  sockclose cheip
  sockopen -46 cheip ipinfo.io 80
  sockmark cheip $1
  %xchan = $2
  %xline = ""
}
on *:sockopen:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c Hata! | unset %xchan %xline | return }
  sockwrite -n $sockname GET $+(http://ipinfo.io/,$sock($sockname).mark,/geo) HTTP/1.1
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:62.0) Gecko/20100101 Firefox/62.0
  sockwrite -n $sockname Accept-Language: en-US
  sockwrite -n $sockname Content-Type: application/json; charset=utf-8
  sockwrite -n $sockname $str($crlf,2)
}
on *:sockread:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c okuma hatası! | unset %xchan %xline | return }
  var %che, %2
  sockread -f %che
  tokenize 32 %che
  if ("*": * iswm $1-) {
    var %2 = $remove($2-,",$chr(44))
    if ($1 == "ip":) { %xline = 0,1 4[0,1 4IP-Bilgi] -0,1 4IP:0 %2 }
    if ($1 == "city":) { %xline = %xline -0,1 4Sehir:0 %2 }
    if ($1 == "region":) { %xline = %xline -0,1 4Bölge:0 %2 }
    if ($1 == "country":) { %xline = %xline -0,1 4Ülke:0 %2 }
    if ($1 == "loc":) { %xline = %xline -0,1 4Konum:0 $replace(%2,-,$+($chr(44),-)) }
    if ($1 == "timezone":) { %xline = %xline  -0,1 4Saat Dilimi:0 %2 | endxit | sockclose $sockname }
  }
  if ($chr(125) isin $1) { endxit | sockclose $sockname }
}
alias -l endxit {
  if (%xline) { msg %xchan %xline }
  else { msg %xchan [IP-Bilgi] $c İP Bulunamadı!
  }
  unset %xline %xchan
}
alias -l c { return $chr(9679) }
Ekran görüntüsü;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

üstad emeğine sağlık , bunu peki sunucuya user girişte xline kanalına nickimiz yansıtsa böyle bişi mümkünmü

YouMyCure 18 Mayıs 2021 15:36
Cevap: !Nerden kodu güncel.
 
Alıntı:
Nea Nickli Üyeden Alıntı (Mesaj 1042489154)
üstad emeğine sağlık , bunu peki sunucuya user girişte xline kanalına nickimiz yansıtsa böyle bişi mümkünmü
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Che 18 Mayıs 2021 18:43
Cevap: !Nerden kodu güncel.
 
Alıntı:
Nea Nickli Üyeden Alıntı (Mesaj 1042489154)
üstad emeğine sağlık , bunu peki sunucuya user girişte xline kanalına nickimiz yansıtsa böyle bişi mümkünmü

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

_KaCaK_ 19 Mayıs 2021 12:33
Cevap: !Nerden kodu güncel.
 
Emeginize saglik

Sarya 21 Mayıs 2021 12:04
Cevap: !Nerden kodu güncel.
 
Emeğinize sağlık.

Style35 22 Mayıs 2021 18:25
Cevap: !Nerden kodu güncel.
 
Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?

YouMyCure 22 Mayıs 2021 18:33
Cevap: !Nerden kodu güncel.
 
Alıntı:
Style35 Nickli Üyeden Alıntı (Mesaj 1042490814)
Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?
!nerden nick şeklinde mi deniyorsun ? pmden iletişim atarsan bakabiliriz.

Style35 22 Mayıs 2021 18:45
Cevap: !Nerden kodu güncel.
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1042490816)
!nerden nick şeklinde mi deniyorsun ? pmden iletişim atarsan bakabiliriz.
Hocam pm atamıyorum. Yetersiz mesaj sayım. İp ve nick şeklinde deniyorum ikisinde de olmuyor.

YouMyCure 22 Mayıs 2021 19:53
Cevap: !Nerden kodu güncel.
 
Alıntı:
Style35 Nickli Üyeden Alıntı (Mesaj 1042490818)
Hocam pm atamıyorum. Yetersiz mesaj sayım. İp ve nick şeklinde deniyorum ikisinde de olmuyor.
sunucu adresinizi yazın yada profilindeki sunucu adresinden iletişime geçebiliriz.

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

Alıntı:
Style35 Nickli Üyeden Alıntı (Mesaj 1042490814)
Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?
flag yetersizliğinden dolayı who komutunda gerçek ip adresini göremiyor.
whois deki gerçek ip adresine entegre edildi
kullanmak isteyen olursa diye paylaşıyorum!
Kullanım: !nerden nick/ip
Kod:
raw 378:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($token($6,2,64),¿,$2)
on *:sockopen:pro*:{
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf
}
on *:sockread:pro*:{
  var %:pro | sockread %:pro | tokenize 32 %:pro
  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }
  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }
  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }
  if "org isin %:pro {
    var %:isp $remove($gettok(%:pro,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 %:kanal Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
    .hfree -w %:n | sockclose $sockname
  }
}
on *:input:*: {
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($2,¿,Bilinmiyor) }
    else { .whois $2 }
  }
}

Mahrez 26 Mayıs 2021 16:20
Cevap: !Nerden kodu güncel.
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1042490820)
sunucu adresinizi yazın yada profilindeki sunucu adresinden iletişime geçebiliriz.

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


flag yetersizliğinden dolayı who komutunda gerçek ip adresini göremiyor.
whois deki gerçek ip adresine entegre edildi
kullanmak isteyen olursa diye paylaşıyorum!
Kullanım: !nerden nick/ip
Kod:
raw 378:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($token($6,2,64),¿,$2)
on *:sockopen:pro*:{
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf
}
on *:sockread:pro*:{
  var %:pro | sockread %:pro | tokenize 32 %:pro
  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }
  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }
  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }
  if "org isin %:pro {
    var %:isp $remove($gettok(%:pro,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 %:kanal Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
    .hfree -w %:n | sockclose $sockname
  }
}
on *:input:*: {
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($2,¿,Bilinmiyor) }
    else { .whois $2 }
  }
}
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ustad bunu operste yapmak için düzenleyecegimiz bir yer varmı ? kanal kısmını bulamadımda

YouMyCure 26 Mayıs 2021 21:01
Cevap: !Nerden kodu güncel.
 
Alıntı:
Nea Nickli Üyeden Alıntı (Mesaj 1042492337)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ustad bunu operste yapmak için düzenleyecegimiz bir yer varmı ? kanal kısmını bulamadımda
Kod:
on *:input:*: {
Burayı
Kod:
on *:input:#Opers: {

Emre 26 Mayıs 2021 21:20
Cevap: !Nerden kodu güncel.
 
Emeğinize sağlık.

Toprak 05 Temmuz 2021 18:35
Cevap: !Nerden kodu güncel.
 
Kod güncellendi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Feragat 05 Temmuz 2021 19:21
Cevap: !Nerden kodu güncel.
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042507339)
Kod güncellendi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
!nerden @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

vioLeta 05 Temmuz 2021 20:21
Cevap: !Nerden kodu güncel.
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042507339)
Kod güncellendi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eline sağlık canım

Che 05 Temmuz 2021 20:31
Cevap: !Nerden kodu güncel.
 
Eline sağlık kardeşim.

CeRoN 05 Temmuz 2021 20:50
Cevap: !Nerden kodu güncel.
 
Emeğinize sağlık, güzel bir çalışma olmuş.

Zanay 07 Temmuz 2021 15:06
Cevap: !Nerden kodu güncel.
 
Yapıyosun bu sporu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042507339)
Kod güncellendi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kL 07 Temmuz 2021 15:07
Cevap: !Nerden kodu güncel.
 
Emeğine Sağlık

Sarya 11 Kasım 2021 19:41
Cevap: !Nerden kodu güncel.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel işler yapıyorsun emeğine sağlık

Akabinde 01 Aralık 2021 17:53
Cevap: !Nerden kodu güncel.
 
Emeginize SagLık

Enes 26 Mart 2022 22:48
Cevap: !Nerden kodu güncel.
 
konuyu hortlaşmış gibi olmayayıda çalışan kodu olan atabilir mi ?

Che 28 Mart 2022 23:39
Cevap: !Nerden kodu güncel.
 
Alıntı:
Enes Nickli Üyeden Alıntı (Mesaj 1042650200)
konuyu hortlaşmış gibi olmayayıda çalışan kodu olan atabilir mi ?


Kullanımı: !nerden IP/NICK


Kod:
raw 378:*:{
  sockopen $+(chepro,%:rand) ipinfo.io 80
  sockmark $+(chepro,%:rand) $+($token($6,2,64),¿,$2)
}
on *:sockopen:chepro*:{
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),?token=118fa7da158796) 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:chepro*:{
  var %:chepro | sockread %:chepro | tokenize 32 %:chepro
  if region isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:chepro,2-,58),$chr(44),") }
  if city isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:chepro,2-,58),$chr(44),") }
  if country isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:chepro,2-,58),$chr(44),") }
  if "org isin %:chepro {
    var %:isp $remove($gettok(%:chepro,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 %:kanal Nick:4 %:n - IP: %ip - Ulke: %ülke - Sehir: %sehir - ISP: %:isp Saat: $time - Tarih: $date
    .hfree -w %:n | sockclose $sockname
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden <IP/Nick> olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:rand $r(1000,99999) | sockopen $+(chepro,%:rand) ipinfo.io 80 | sockmark $+(chepro,%:rand) $+($2,¿,Bilinmiyor) }
    else { .whois $2 }
  }
}


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

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