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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   whois çekenin bilgilerini gormek (https://www.ircforumlari.net/mirc-scripting-sorunlari/296498-whois-cekenin-bilgilerini-gormek.html)

Leo 12 Kasım 2009 11:13
whois çekenin bilgilerini gormek
 
selamun aleykum arkadaslar admin yetkim dahilinde bana whois çeken kişilerin ip adresi ulke şehir olarak bilgilerini alacağim bir addon varmi şimdiden tsşkrler arkadaslar iyi ifler

SessizKaLp 12 Kasım 2009 11:40
Cevap: whois çekenin bilgilerini gormek
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

işine yarar umarım.

Leo 12 Kasım 2009 23:48
Cevap: whois çekenin bilgilerini gormek
 
11,1Nick1...11:8 ali 1................................................ ....
11,1IP no1.11:8 ings-4dbf57ec.pool.mediaWays.net 1................................................ .....
11,1Ülke1...............11:9 1............................................
11,1Bölge1.............11:9 1.......................................
11,1Şehir1..............11:9 1......................................
11,1Enlem1............11:9 1........................................
11,1Boylam1..........11:9 1.........................................
11,1Organizasyon:9 1................................................ .
11,1Yerel Zaman1..11:9 1............................................
0,1----------------Bilgi Sonu-------------------

kim whois çekerse bundan baska bilgi gostermiyor sorun nedir kodda arkadaslar

Dilara 13 Kasım 2009 00:13
Cevap: whois çekenin bilgilerini gormek
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mevcut olan kod'n kendimce edit'i aşağıda mevcuttur. Herhangibi bir sorun olmaksızın olağan şekilde çalışmaktadır. Eklediğiniz kodu içerisinde [hatalı] değişiklik yaptıysanız o denli bir uyarı alabilirsiniz.

Kod:
on *:sockopen:yerelbilgi:{
  sockwrite -n $sockname GET /ip_tracer/?QRY= $+ %yerelipno  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 $clrf 
}
on *:sockread:yerelbilgi:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
  }
  else {
    var %difi
    sockread %difi
    if (*<td>*</td>* iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
    if (*<img src*alt="ip address flag">*</td>* iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
  }
}
alias bağlan {
  sockclose yerelbilgi
  sockopen yerelbilgi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  if !$window(@Whois) {
    .timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
    .timer -h 1 2850 titlebar @Whois yerel bilgiler...
  }
  else { .timer -h 1 2800 window -a @Whois }
  .timer -h 1 2900 aline @Whois 7,1Nick1.0:4 $!eval(%yerelnick,1) 1
  .timer -h 1 2950 aline @Whois 7,1IP no1.0:4 $!eval(%yerelipno,1) 1
  .timer -h 1 3000 aline @Whois 7,1Ülke1.0:4 $!eval(%yerelulke,1) 1
  .timer -h 1 3100 aline @Whois 7,1Saat1.0:4 $!token(%yerelbilgi,1,126) 1
  .timer -h 1 3700 aline @Whois 0,1°•°•°•°•°•°• 7Bilgi Sonu0 °•°•°•°•°•°•
  .timer -h 1 3750 sockclose yerelbilgi
  .timer -h 1 4000 unset %yerel*
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:snotice:*whois*on*you*: {
  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
    set %yerelipno $remove($token($3,2,64),$chr(41))
    set %yerelnick $2 
    bağlan
    echo -a 5,1•°7 $2 14 nicki size whois çekti,bilgileri alınıyor...  4,1··5  Byn JeSsys.4 ··
  }
}

Eklediğiniz kodu güncelleyiniz.

neobre 13 Kasım 2009 12:53
Cevap: whois çekenin bilgilerini gormek
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

neobre 13 Kasım 2009 12:54
Cevap: whois çekenin bilgilerini gormek
 
Kod:
on *:sockopen:yerelbilgi:{
  sockwrite -n $sockname GET /ip_tracer/ $+ %yerelipno  HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
  sockwrite -n $sockname $clrf 
}
on *:sockread:yerelbilgi:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
  }
  else {
    var %difi
    sockread %difi
    if (*</td>* iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
    if (*<img src*alt="ip address flag">*</td>* iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
  }
}
alias bağlan {
  sockclose yerelbilgi
  sockopen yerelbilgi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  if !$window(@Whois) {
    .timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
    .timer -h 1 2850 titlebar @Whois yerel bilgiler...
  }
  else { .timer -h 1 2800 window -a @Whois }
  .timer -h 1 2900 aline @Whois 11,1Nick1...11:8 $!eval(%yerelnick,1) 1....................................................         
  .timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1.....................................................
  .timer -h 1 3000 aline @Whois 11,1Ülke1...............11:9 $!eval(%yerelulke,1) 1............................................
  .timer -h 1 3100 aline @Whois 11,1Bölge1.............11:9 $!token(%yerelbilgi,1,126) 1.......................................
  .timer -h 1 3200 aline @Whois 11,1Şehir1..............11:9 $!token(%yerelbilgi,2,126) 1......................................
  .timer -h 1 3300 aline @Whois 11,1Enlem1............11:9 $!token(%yerelbilgi,3,126) 1........................................
  .timer -h 1 3400 aline @Whois 11,1Boylam1..........11:9 $!token(%yerelbilgi,4,126) 1.........................................
  .timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1.................................................
  .timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1............................................
  .timer -h 1 3700 aline @Whois 0,1----------------Bilgi Sonu-------------------
  .timer -h 1 3750 sockclose yerelbilgi
  .timer -h 1 4000 unset %yerel*
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:snotice:*whois*on*you*: {
  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
    set %yerelipno $remove($token($3,2,64),$chr(41))
    set %yerelnick $2 
    bağlan
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
  }
}
Buda Kodu.


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

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