IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi - Add-on ve snippet(parça) kod istekleri buraya

Toprak · 03 Mayıs 2015, 17:23

NeFeSimSin Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Toprak beyfendi S.a ben bırsey sorcaktım sıze

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 }
#nerden on
raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4
#nerden end
on *:sockopen:nerden*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf  
}
on *:sockread:nerden*: {  
  if ($sockerr) { .sockclose $sockname | return }
  var %:nerden | sockread %:nerden
  if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }

bu kod vermışsnızde bn remoteme ekledım lakın calısmıyor :/

Buyur bunu kullan;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    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)$/i) {
    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 Sehir: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 }
}