El programa VB se utiliza para establecer un límite de tiempo de uso; por ejemplo, quiero que el programa caduque el día de Año Nuevo de 2018.

Función privada strGetDate() como cadena

Dim XmlHttp como objeto

Establecer XmlHttp = CreateObject("Microsoft. XMLHTTP")

XmlHttp.Open "Get", "/time/datetime.asp", False

vbUnicode)

Establecer XmlHttp = Nada

Función final

Private Sub Form_Load()

Timer1.Interval = 3600000 'Establecer prueba cada Una vez cada hora

Fin Sub

Privado Sub Timer1_Timer()

Dim NowTime As String, SetTime As String

NowTime = Format( strGetDate, "yyyy-MM-dd hh. mm: ss ") 'Obtener tiempo en línea: mm: ss ") 'Obtener hora actual en línea

SetTime = "2018-01-1 00:00:00 " 'Establecer hora de vencimiento

Si NowTime gt; SetTime entonces MsgBox ( "¡Primero uso del software!")

End Sub