Mostra IP do usuário [Javascript]

Mostra IP do usuário

Publicado por Jose Henrique 08/02/2005

[ Hits: 17.692 ]

Download Java Script - mostra IP do usuario.zip

0 0

Denuncie Favoritos Indicar

esse script mostra o IP do usuario ao entrar no site

Scripts recomendados

MinApp

Proteção com senha

Modelo de site

Palheta de cores utilizando Json e javascript não obstrutivo

Javascript Classe Tabela

Comentários

[1] Comentário enviado por kahlau em 10/02/2005 - 02:07h

manda pra mim o script manu

0 0

[2] Comentário enviado por mister100 em 05/06/2007 - 15:58h

Opa tudo bom.
So umas dicas sobre seu sript.

//Quando vc usua essas 2 linhas, você ta dando um start na JVM do usuário, //caso ele não tenha ela instalada seu script irá dar pau.

myAddress=java.net.InetAddress.getLocalHost();
myAddress2=java.net.InetAddress.getLocalHost();

O ie não consegue reconhecer que vc está tetando chamar um classe do pacote java.net.InetAddress por isso que so funciona na familia mozila, para mim isso e uma pratica de POG, não recomendo utilizar assim.

0 0

[3] Comentário enviado por jonathantavares em 20/09/2007 - 01:05h

Olha, realmente nao deu certo, testei em uma maquina sem JVM, e nao deu certo, testei esse codigo tbm, e funcionou:
<%
Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString = ""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function
Set Obj = CreateObject("Msxml2.XMLHTTP")
'ip = Request.ServerVariables("REMOTE_ADDR") '"200.33.156.233"
ip = "200.176.2.10"
On Error resume Next
strURL = "http://www.ipgeo.com.br/Rel01.asp?ip="& ip
Obj.open "GET",strURL,False
Obj.send
strURL = BinaryToString(Obj.ResponseBody)
AchaInicio = Instr(1,strURL,".")
AchaInicio2 = Cint(Instr(AchaInicio,strURL,"<td>"))+0
AchaFim = Instr(AchaInicio2,strURL,"</td>")
Diferenca = Cint(AchaFim - AchaInicio2)
cidade = Mid(strURL,AchaInicio2,Diferenca)
estado = Mid(strURL,AchaInicio2+50,Diferenca+2)
pais="BR"

If Err <> 0 Then
'se ip não for no Brasil procura internacional
On Error resume Next
strURL = "http://www.programacionweb.net/utilidades/paisip.php?url=" & ip
obj.open "GET",strURL,False
obj.send
strURL = BinaryToString(Obj.ResponseBody)
AchaInicio = Instr(1,strURL,"banderas/")
AchaInicio2 = Cint(Instr(AchaInicio,strURL," /> "))+3
AchaFim = Instr(AchaInicio2,strURL,"</td>")
Diferenca = Cint(AchaFim - AchaInicio2)
Response.Write Mid(strURL,AchaInicio2,Diferenca)
If Err <> 0 Then
'se ocorrer erro no ip internacional exibe erro
Response.Write("erro")
end if
Else
'se ip for no Brasil mostra os dados
Response.Write(cidade&"<br>")
Response.Write(estado&"<br>")
Response.Write(pais)
End If
%>

0 0

[4] Comentário enviado por joliv em 26/01/2008 - 12:10h

Olá pessoal, é sempre bom se ter a ajuda dos leitores.

Mas sugiro que ao publicar um script, informem em que seção do código da página ele deve ser inserido. Poupa tempo. As vezes um vai antes do <head> outros antes <body>, outros dentro do <body>

Abraço e grato pela disposição de ajudar quem aqui vem.

Jorge

0 0