Código fuente para hacer dinero en 2018

Función privada strGetDate() en forma de cadena

Dim XmlHttp como objeto

set XmlHttp = CreateObject("Microsoft.XMLHTTP")

XmlHttp. Abra "Obtener", "/time/datetime.asp", False

XmlHttp.send

strGetDate = StrConv(XmlHttp. ResponseBody, vbUnicode)

Configuración XmlHttp = Ninguno

Finalizar función

Subform_Load privado()

Temporizador 1. "Intervalo = 3600000" está configurado para detectar cada hora.

Conector final

Subtemporizador privado 1_Timer()

Dim NowTime es una cadena, SetTime es una cadena

Nowtime = formato (strgetdate, "yyyy-mm-ddhh:mm:ss")' Obtenga la hora actual en línea.

settime = " 2018-01-1 00:00 " 'Establece el tiempo de vencimiento.

Si ahora gtSetTime entonces MsgBox("¡Es hora de usar el software!")

Finalizar conector