Código fuente de calibración de hora en lenguaje simple

Procedimiento de calibración de hora de red:----------------------------------------------------- --- --------------------.Versión 2

.Soporte biblioteca INTERNET. Subprogram_button1_clicked

Texto de página web de variable local, tipo de texto

Variable local Matriz de texto, tipo de texto, "0"

. , "0"

. Variable local TimeTemporary, tipo de texto, "0"

. Hora variable local, tipo de texto label1.title = "Obteniendo hora de red..."

Evento de procesamiento ()

Texto de página web = a texto (archivo de lectura HTTP ( " /stime .asp "))

Matriz de texto = texto dividido (texto de la página web, "Hora del servidor: ", )

.)

.

Si es verdadero (obtenga el número de miembros de la matriz (matriz de texto) < 2)

Cuadro de mensaje ("¡No se pudo obtener la hora de la red! ¡No se pudo conectar a la red!", 0 #Ícono de mensaje, "Temporizador de red :")

Etiqueta 1.Title = "¡Error al obtener la hora de la red!"

Devolución ()

.Si es verdadero, final

texto web = matriz de texto [2]

matriz de texto = texto dividido (texto web, "document.write('", )

. Si es verdadero (obtiene el número de matriz miembros (matriz de texto) < 2 )

Cuadro de mensaje ("¡No se pudo obtener la hora de la red! ¡No se pudo conectar a la red!", 0 #Icono de mensaje, "Temporizador de red:")

Etiqueta 1.Title = "¡Error al obtener la hora de la red! "

return()

.Si es verdadero fin

fecha temporal = texto dividido (texto matriz [3], "')", )

hora = fecha temp [1]

fecha temp = texto dividido (matriz de texto [6], "var hrs = ", )

Tiempo temp = texto dividido (fecha temp [2], ";", )

Tiempo = tiempo tiempo temp [1] "hrs"

Fecha temporal = texto dividido (matriz de texto [6], "var min = ", )

Temperatura de hora = texto dividido (fecha temporal [2], ";", )

Hora = Hora hora temp [1] "minutos"

Fecha temp = texto dividido (matriz de texto [6], "var szec = ", )

Hora temp = texto dividido ( fecha temp [2], ";", )

Tiempo temp = texto dividido (fecha temp.", )

Tiempo = hora tiempo temp [1] "Segundos"

Etiqueta 1.Title = " La hora actual de la red es: " hora

. Si es verdadero (casilla de verificación 1.marcada = verdadero)

Establezca la hora actual (a la hora (hora))

.Si es verdadero final --------- -- ------------------------------------------------ -- ---------------- descarga de la fuente aquí:/c0k4cbbbzf.