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> </td>
</tr>
<tr>
<td><div align="center"> <%=mensagem1%> </div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
se alguém incrementar este codigo, por favor poste ele aqui.
Pergunta
LucasForever
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.
se alguém incrementar este codigo, por favor poste ele aqui.
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.