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.
<%@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.
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.