¿Cómo obtener una IP de Internet local en un lenguaje sencillo?

.Soporte de biblioteca de Internet

.Subroutine_button1_clicked

.Dirección IP variable local, tipo de texto

dirección IP = reemplazo de subtexto (a texto(HTTP leer archivo("/templates/ipv6man/?id='ipv6'/gt;lt;/iframegt;"

dirección ip = obtener texto medio(dirección ip, buscar texto (ip dirección, "var direcciónip = '", 1, verdadero) 17, 15)

dirección IP = obtener texto a la izquierda (direcciónip, buscar texto (direcciónip, "'", 1, verdadero) - 1 )

Cuadro de edición 1. contenido = direcciónip

Escribir en archivo ("C:\MyIPaddress.txt", en conjunto de bytes (cuadro de edición 1.contenido))

.Se hace clic en la subrutina _Botón 2_

Suspender().