Hay varias razones para modificar la fecha y la hora en un equipo host desde una aplicación de Visual Basic . Tal vez usted está construyendo software de gestión de zona horaria o el software de sincronización de tiempo de red. Aunque el . NET Framework no permite de forma nativa cambiar la hora del sistema de Visual Basic , es posible importar un Windows nativas biblioteca enlazada dinámicamente (DLL ) para hacer el trabajo por usted . Utilizando los InteropServices y espacios de nombres ComponentModel permite importar el archivo DLL, e invocar el método externo. Instrucciones
1
Crear un nuevo archivo en el proyecto de Visual Basic y el nombre de " SysTime.vb "
2
Copia y pega el siguiente código en el nuevo archivo . : Importaciones SystemImports System.Runtime.InteropServicesImports System.ComponentModel
Clase SysTime
Estructura años SystemTimePublic Como mes ShortPublic Como díadelasemana ShortPublic Como día ShortPublic En horas ShortPublic Como minutos ShortPublic como segundo ShortPublic como milisegundos ShortPublic como shortend Estructura
privada compartida SetSystemTime Función ( systime como SYSTEMTIME byRef ) como Boolean
Public Shared Sub Set ( tiempo SYSTEMTIME ) SysTime.SetSystemTime (tiempo) End Class SubEnd
3
activar la función de copiar y pegar el siguiente código en el bucle principal del programa : setTimeTo Dim como SysTime . SYSTEMTIME ; setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
4
cambiar los ceros en el paso anterior a la hora que usted desea que la hora del sistema que sea.
