send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cambiar Fecha u Hora del Sistema

  • 0 Respuestas
  • 1282 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:39:27 pm »
Código: Visual Basic
  1.  
  2. Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
  3. Public Type SYSTEMTIME
  4. wYear As Integer
  5.                  wMonth As Integer
  6.                  wDayOfWeek As Integer
  7. wDay As Integer
  8. wHour As Integer
  9. wMinute As Integer
  10. wSecond As Integer
  11. wMilliseconds As Integer
  12. End Type
  13. Public Function CambiarHora(ByVal Hora As Integer, ByVal Minutos As Integer, Byval Segundos As Integer)
  14. Dim Ahora As SYSTEMTIME
  15. Ahora.wYear = Year(Date)
  16. Ahora.wMonth = Month(Date)
  17. Ahora.wDay = Day(Date)
  18. Ahora.wHour = Hora
  19. Ahora.wMinute = Minutos
  20. Ahora.wSecond = Segundos
  21. CambiarHora = SetSystemTime(Ahora)
  22. End Function
  23. Public Function CambiarFecha(Byval Año As Integer, Byval Mes As Integer, Byval Dia As Integer)
  24. Dim Hoy As SYSTEMTIME
  25. Hoy.wYear = Año
  26. Hoy.wMonth = Mes
  27. Hoy.wDay = Dia
  28. Hoy.wHour = Hour(Time)
  29. Hoy.wMinute = Minute(Time)
  30. Hoy.wSecond = Second(Time)
  31. CambiarFecha = SetSystemTime(Hoy)
  32. End Function
« Última modificación: Mayo 12, 2014, 03:17:41 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1308
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Saber el directorio de "Fonts" del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1105
Último mensaje Julio 26, 2010, 04:05:12 pm
por ANTRAX
Como apagar, reiniciar o salir del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1427
Último mensaje Julio 26, 2010, 11:24:30 am
por ANTRAX
Listar Las Fuentes Del Sistema En ComboBox

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1322
Último mensaje Julio 26, 2010, 04:06:50 pm
por ANTRAX
Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1486
Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX