IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

alias ipwhois {

  if ($1 == $null) {

    set %temp.ad $?="Enter Address: "

    sockopen wip $+ $r(1,10000) completewhois.com 80

  }

  if ($1 != $null) {

    set %temp.ad $1

    sockopen wip $+ $r(1,10000) completewhois.com 80

  }

}

on 1:sockopen:wip*: {

  sockwrite -n $sockname POST /cgi-bin/whois.cgi?query= $+ %temp.ad HTTP/1.1

  sockwrite -n $sockname Host: $sock($sockname).ip $+ $str($crlf ,2)

}

on 1:sockread:wip*:{

  window -e @Whois

  aline @Whois Getting Info... done.

  if ($sockerr > 0) return

  :nextread

  sockread %temp

  if ($sockbr == 0) return

  if (%temp == $null) %temp = -

  if ($nohtml(%temp) != $null) {

    aline @Whois $nohtml(%temp)

    goto nextread

    sockclose wip*

  }

}

on 1:sockopen:wh*: {

  sockwrite -n $sockname GET /whois.cgi2?d= $+ %temp.ho HTTP/1.1

  sockwrite -n $sockname Host: whois.net $+ $str($crlf ,2)

}

on 1:sockread:wh*:{

  if (%whoisrdy == 1) {

    if (15f9 isin %temp) {

      set %whoisrdy 0

    }

    window -e @Whois

    sockread %temp

    if ($nohtml(%temp) != $Null) { 

      aline @Whois  $+ $nohtml(%temp)

      .timerss 1 3 /sockclose wh*

    }

  }

}

alias -l nohtml {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )

  return %x

}

Arkada$Lar Domain SorquLamak İçin ;

/ipwhois

YazIyoruz Önümüze Cıkan ßu TaßLoya ;

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

Umarım işinize Yarar