[pt] Função searchIP

Pode participar desse fórum. ¿Tu tenhes alguns scripts que gostaria de compartilhar? ¿Ajuda? Obrigado

Moderador: Splash

Responder
Splash
Mensajes: 18
Registrado: 10 Feb 2010, 21:32
Ubicación: Brasil, Porto Alegre
Contactar:

[pt] Função searchIP

Mensaje por Splash »

Uma função bem simples que eu criei. Ela retorna o primeiro endereço IP
válido do conteúdo de uma URL.

Código: Seleccionar todo

;By Igor Ferreira Cemim
;igor.cemim at yahoo.com.br
;http://www.autoitscript.com/forum/index.php?showuser=46021

;Retorna o PRIMEIRO endereço IP do conteúdo de uma URL.
Func searchIP($URL = "http://www.ip-adress.com/")
  InetGet($URL, @TempDir & "\IP.dat", 1)

  ;Expressão regular por:
  ;http://www.geekzilla.co.uk/view0CBFD9A7-621D-4B0C-9554-91FD48AADC77.htm
  $re = "\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b"
  $file = FileOpen(@TempDir & "\IP.dat", 0)

  While 1
    $line = StringLower(FileReadLine($file))
    If @error = -1 Then
      FileClose($file)
      FileDelete(@TempDir & "\IP.dat")
      ExitLoop
    EndIf

    $webIP = StringRegExpReplace($line, "[a-z]", "")
    $IP = StringRegExp($webIP, $re, 2)

    If (IsArray($IP)) Then
      FileClose($file)
      FileDelete(@TempDir & "\IP.dat")
      Return $IP[0]
    EndIf
  WEnd
EndFunc
Dúvidas? É só perguntar. :D

Idade/Age: 16
Web: http://meadiciona.com/cemim/
Avatar de Usuario
Chefito
Profesional del Autoit
Mensajes: 2035
Registrado: 21 Feb 2008, 18:42
Ubicación: Albacete/Cuenca (España)

Re: [pt] Função searchIP

Mensaje por Chefito »

Jejeje....códigos interesantes. Buena expresión regular para la ip :smt023 .
Pero porque creas archivos temporales pudiendo bajar el código html directamente con la función _INetGetSource? :smt017 .

Aaahhhhh.....recuerda que autoit tiene una función para esto: _GetIP

Saludos y sigue así.
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
Splash
Mensajes: 18
Registrado: 10 Feb 2010, 21:32
Ubicación: Brasil, Porto Alegre
Contactar:

Re: [pt] Função searchIP

Mensaje por Splash »

Sim sim, eu sei da função _getIP, mas o objetivo da minha função é procurar um IP
em uma página. :)
(Traducción Mod, Si, si, ya se de la función _getIP, PERO el objetivo de mi función es conseguir una IP en una página :))

Idade/Age: 16
Web: http://meadiciona.com/cemim/
Avatar de Usuario
gna08
Hacker del Foro
Mensajes: 379
Registrado: 27 Sep 2008, 18:51
Ubicación: Cordoba, Argentina

Re: [pt] Função searchIP

Mensaje por gna08 »

This script returns the ip used for example my website? :smt024
Aunk no m Buskes, Seguro m enkontras!
Splash
Mensajes: 18
Registrado: 10 Feb 2010, 21:32
Ubicación: Brasil, Porto Alegre
Contactar:

Re: [pt] Função searchIP

Mensaje por Splash »

Return IP from content.***

Sample:

"Bla bla bla... My website content... 230.125.85.158"

It will return 230.125.85.158. :D

Idade/Age: 16
Web: http://meadiciona.com/cemim/
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2085
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Re: [pt] Função searchIP

Mensaje por BasicOs »

Gracias por el Script!!
I enjoy more Portuguese than english. Look how similar it is:

Diferencias:_____ão-ion_________________ei-ado________o-el________________do-del___udo-nido
Portugues :Uma função bem simples que eu criei. Ela retorna o primeiro endereço IP válido do conteúdo de uma URL. Dúvidas.
Español :Una funcion bien simple que he creado. Ella retorna la primera direccion IP válida del contenido de una URL. Dudas.

Otro ____________ ão-ion___mas-pero__o-el___da-de
Sim sim, eu sei da função _getIP, mas o objetivo da minha função é procurar um IP em uma página. :)
Si, si, yo se de la función _getIP, PERO el objetivo de mi función es procurarse una IP en una página :))

Se necesita el inglés? Se entiende mejor que los nuevos lenguajes de los SMS :) :smt043 :smt043
Salu2:)
Splash
Mensajes: 18
Registrado: 10 Feb 2010, 21:32
Ubicación: Brasil, Porto Alegre
Contactar:

Re: [pt] Função searchIP

Mensaje por Splash »

Prefiro falar português mesmo... as línguas realmente são bem semelhantes...
( """""""hablar """"""""""mismo """las """"""""""""""""""""""son bien semejantes .. Traducción Mod)

Se preferieren también posso falar el portunhol. :smt027
("""""""""""""""""""""""""""puedo hablar"""""""""")

xD

Idade/Age: 16
Web: http://meadiciona.com/cemim/
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2085
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Re: [pt] Função searchIP

Mensaje por BasicOs »

Splash escribió:Prefiro falar português mesmo... as línguas realmente são bem semelhantes...

Se preferieren también posso falar el portunhol. :smt027

xD
Sabes portuñol? seguro que es mais facil que la lengua de los SMS- :) ... :smt026 Nunca es tarde
xD es igual :)
nic
Mensajes: 2
Registrado: 03 Mar 2013, 19:22

Re: [pt] Função searchIP

Mensaje por nic »

compilei e executei mas nao acontece nada :( pode me ajudar?
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2085
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Re: [pt] Função searchIP

Mensaje por BasicOs »

Explica un poco más que pasa?¿ que compilas?
Responder