Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo obtiene Yi la dirección IP de la otra parte y la muestra en el [Cuadro de edición de IP]?

¿Cómo obtiene Yi la dirección IP de la otra parte y la muestra en el [Cuadro de edición de IP]?

Versión 2

. Apoye el hilo electrónico de la biblioteca

Apoye la Internet de la biblioteca

. Conjunto ventana conjunto 1

. Subrutina_ _StartWindow_Created

Iniciar hilo(;leer,,)

Etiqueta 1. Título = "Leyendo..."

. Lectura de subrutina

Texto IP = a texto (archivo de lectura HTTP("/ips.asp?ip= "))

Antes = buscar texto(texto IP, "Su dirección IP es : ", false) Obtener longitud del texto ("Su dirección IP es: ")

Después = Buscar texto (texto IP, "

Etiqueta 1. Título = "Usted La IP es : "Obtener la mitad del texto (texto IP, antes, después - antes).

. If (Etiqueta 1. Título = "Su dirección IP es: ")

Etiqueta 1. Título = "Error de lectura"

De lo contrario

If (findText(Etiqueta 1. Título, "Unicom", Falso) = -1)

If (Buscar texto(Etiqueta 1. Título, "Netcom", false) = -1)

Etiqueta 1. Título = Etiqueta 1. Título # nueva línea # nueva línea "*No eres usuario de Netcom "

En caso contrario.

Título = Etiqueta 1. Título # nueva línea # nueva línea "*Eres un usuario de Netcom"

Si finaliza

De lo contrario

Etiqueta 1. Título # nueva línea # nueva línea "*Eres un usuario de Netcom"

Esto es lo que escribí antes. Simplemente cambia la etiqueta a un cuadro de edición.