8 replies to this topic

[igadino]

Galera eu estou com probleminha neste script ele verifica varios dominios intenacional e nacional
quando eu altero objXML.Open "GET", end_pag, false para "get" o SITE www.hostsys.com, aparece a mensagem disponivel para registro.

etou no aguardo

<%
'Set the response buffer to true
Response.Buffer = False 
'Set the script timeout to 90 seconds
Server.ScriptTimeout = 90
'refeito por lucas forever
Dim msgErro ' variavel
dim ResponseText
ResponseText=true
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
end_pag = "http://www." & request.form("dominio")&""&request.form("pont")&""
Dominio=request.form("dominio")
url_dom = request.form("dominio")&""&request.form("pont")&""
' Cria um objeto XML
	If Len(Dominio) < 2 then
		msgErro = "<br><br><strong><font color='blue'>Erro ! O domínio deve possuir pelo menos dois caracteres</font><br><br></strong>"	
	ElseIf Len(Dominio) > 32 THEN
	msgErro = "<br><br><strong><font color='blue'>Erro ! O domínio deve possuir no máximo 26 caracteres</font><br><br></strong>"
	Else
Set objXML = CreateObject("Msxml2.ServerxmlHttp")
' Conecta-se com a url buscada
objXML.Open "GET", end_pag, false
on error resume next
objXML.Send
Resultado = objXML.ResponseText = ResponseText 
' Retorna a busca
If instr(Dominio, ".") Or instr(Dominio, ",") or instr(Dominio, ";") or instr(Dominio, ":") then
msgErro = "<br><br><strong><font color='blue'>O dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
else
If (Resultado="") Then
msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"
else
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font>já registrado</font><br><br></strong>"
end if
end if
end if
Set objXML = Nothing
end if
%>

Edição feita por: DarkSign, 13/04/2009, 14:01.
[code] ao invés de [quote]

[DiegoCoruja]

Ola Amigo,

fiz uma alteração no ultimo if
e aqui comigo funcionou coloquei o site de exemplo webtutoriais.com e apareceu a mensagem

Impossível, o dominio www.webtutoriais.com já registrado

[codebox] If instr(Dominio, ".") > 0 or instr(Dominio, ",") > 0 or instr(Dominio, ";")> 0 or instr(Dominio, ":")> 0 then
msgErro = "<br><br><strong><font color='blue'>O dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
else
If Resultado = "" Then
msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"
else
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font>já registrado</font><br><br></strong>"
end if
end if[/codebox]

aqui eu não criei o form para enviar então alterei o request.form e só deixei request

[igadino]

Não amigo o script esta funcionando ja testei mais SITE 195 DOMINIO .COM.BR, .BR, .ORG.BR, .GOV.BR SO DEU ERRO WWW.MAIL-YAHOO.COM.BR

TESTEI 235 DOMINIO INTERNACIONAL .COM, .NET, .NAME SO DEU ERRO NO WWW.MAIL-YAHOO.COM

Segue o link para testarem Verifica dominios
Verifica dominios
objXML.Open "get" WWW.MAIL-YAHOO.COM aparece a mensagem indisponivel mas se colocar "get" o SITE www.hostsys.com, aparece a mensagem disponivel para registro. um trabalha com "GET" e o outro trabalha com "get" como eu faço para resolver este problema

Edição feita por: igadino, 23/03/2009, 23:01.

[DiegoCoruja]

Desculpa não tinha entendido,
talves isso possa ajudar

if instr(dominio, "-") > 0 then
objXML.Open "get", end_pag, false
else
objXML.Open "GET", end_pag, false
end if
objXML.Send

[igadino]

Olha o problama do mail-yahoo.com resouveu mais mail-yahoo.com.br continua

[DiegoCoruja]

tenta esse!

<% Option Explicit %> 
<% 
Response.Buffer = false
Dim ObjXML
Dim ResultadoConsulta
Dim Situacao
Dim Dominio

Dominio = Request.form("dominio")&Request.form("pont")

If Len(Dominio) < 9 THEN
	Situacao = "Erro ! O domínio deve possuir pelo menos dois caracteres"	
ElseIf Len(Dominio) > 32 THEN
	Situacao = "Erro ! O domínio deve possuir no máximo 26 caracteres"
Else
	Set ObjXML = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&Dominio, False
	ObjXML.Send
	
	ResultadoConsulta = ObjXML.ResponseText
	
	If instr(1,ResultadoConsulta,"inexistente") Then
		Situacao = "Disponível para Registro"
	ElseIf instr(1,ResultadoConsulta,"encontrada nenhuma") Then
		Situacao = "Erro ! Sintaxe Inválida "
	ElseIf instr(1,ResultadoConsulta,"Como fazer uma consulta") Then
		Situacao = "Erro ! Sintaxe Inválida "
	ElseIf instr(1,ResultadoConsulta,"Primeiro") Then
		Situacao = "Domínio de Primeiro Nível Inválido"
	Else
		Situacao = "Dominio já Registrado"
	End If
			
End If
'retorna o resultado à função
Response.Write Situacao
%>

Edição feita por: DarkSign, 13/04/2009, 14:00.
use [code] pra melhorar visibilidade

[igadino]

Amigo será se não existe uma maneira de implementar sem colocar a linha ObjXML.Open "GET", "http://registro.br/c...is?qr=", False
e sim ObjXML.Open "GET", ""&Dominio, False

[DiegoCoruja]

tenho que pesquisar para saber!, mas esse foi a maneira que achei para funcionar!

[igadino]

Olha eu tive que fazer um if para verificar se dominio e nacional ou internacional vou tentar fazer tambem se eu conseguir vou postar o codigo para que precisa
faz um teste neste link abaixo
Verifica dominio