Türkçe Mirc Domain SorguLama
kod:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
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 } |