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/)
-   -   !Nerden kodu güncel. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/815227-nerden-kodu-guncel.html)

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...]


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

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