Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
LucasForever

Sistema De Whois - Busca Por Dominios Registrados

Question

Bom dia galera... é um codigo muito importante e que poucos programadores conhecem...refiz este script de busca de dominio registrado, funciona para .com.br, .com, .net, entre outros... so testei os mais conhecidos.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'refeito por lucas forever
Dim mensagem1 ' variavel
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
procuraurl = "http://www." & request.form("dominio")
dominio = request.form("dominio")
' Cria um objeto XML
Set criaconexao = CreateObject("Microsoft.XMLHTTP")
' Conecta-se com a url buscada
criaconexao.Open "get", procuraurl, False
on error resume next
criaconexao.Send
pagina = criaconexao.getResponseHeader("Date")
' Retorna a busca
if pagina="" then
mensagem1 = "Resultado da pesquisa:<br><br>www."&dominio&"<br><br><strong><font color='#009900'>PARABÊNS, DOMÍNIO DISPONÍVEL PARA REGISTRO<br><br></strong>"
else
mensagem1 = "Resultado da pesquisa:<br><br>www."&dominio&"<br><br><strong><font color='#FF0000'>IMPOSSÍVEL, DOMÍNIO JÁ REGISTRADO<br><br></font></strong>"
end if
Set criaconexao = Nothing
end if
%>
<html>
<head>
<title>sistema de whois</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body><form method=post action="whoisbom.asp">
  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td> <div align="center">para dominios .com, .net, .com.br, entre outros.</div></td>
    </tr>
    <tr>
      <td> <div align="center">www.
          <input type=text name=dominio size=20>
          <input name="submit" type=submit value="Buscar dominio">
        </div></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="center"> <%=mensagem1%> </div></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>

se alguém incrementar este codigo, por favor poste ele aqui.

Share this post


Link to post
Share on other sites

8 answers to this question

Recommended Posts

  • 0

está já que é whois... aonde tão os dados do dominio no seu codigo????

ele usa o xmlhttp para buscar o dominio.... mais mesmo o dominio estando disponivel ira gerar um cod fonte.... mesmo que seje de erro de pagina não encontrada...

Share this post


Link to post
Share on other sites
  • 0

Bom, amigo Bareta, ai é que está, ele não tem, ou não precisa deste retorno de codigo fonte ou quem a registrou, ele so retorna os valores e mostra se a página está ou não registrada, dai se alguém, incrementar, posta ai... e outra, este código retorna praticamente qualquer busca de domínio, .com.br, .com, .net, .gov.br, entre outros...é so chegar lá e digitar o domínio, e é bastante rápido o retorno... vi muitos e até utilizei muitos outros codigos de whois...que são muito extensos, demoram para retornar o resultado e outros nem retornam, este foi o unico que encontrei que busca tudo que quero sem precisar de muita programação e funciona bem.

mas se alguém, fizer um "upgrade" nele, posta ai pra gente...valeu... :ph34r: :ph34r:

Share this post


Link to post
Share on other sites
  • 0

Olá,

A consulta de domínios com terminação.br está limitada.

300 consultas por dia ou 20 domínios a cada 5 minutos, de acordo com o funcionário do Registro.br que falei por telefone.

Alguém sabe alguma saída para pesquisar mais que o limite estabelecido?

Share this post


Link to post
Share on other sites
  • 0

conforme postado anteriormente... e acredito que devido a um backup da base de dados do forum não ta aqui meu post...

pega isso em outro site que trabalhe com .com.br

Share this post


Link to post
Share on other sites
  • 0
Guest Hermes Alves

Rapaz como respondido anteriormente tambem, não existe outro site.

Share this post


Link to post
Share on other sites
  • 0

Amigo Lucas, obrigado! Seu código funciona muito bem e é muito simples. Vou testá-lo agora em minha página "de verdade" e creio que vai atender...

Valeu!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148575
    • Total Posts
      644272
×
×
  • Create New...