[pt] Função searchIP

[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

[Chefito]

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

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

Saludos y sigue así.

[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 :))

[gna08]

This script returns the ip used for example my website?

[Splash]

Return IP from content.***

Sample:

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

It will return 230.125.85.158. :D

[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 :)
Salu2:)

[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.
("""""""""""""""""""""""""""puedo hablar"""""""""")

xD

[BasicOs]

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

Se preferieren también posso falar el portunhol.

xD

Sabes portuñol? seguro que es mais facil que la lengua de los SMS- :) ... Nunca es tarde
xD es igual :)

[nic]

compilei e executei mas nao acontece nada :( pode me ajudar?

[BasicOs]

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