Cambiar Fecha u Hora del Sistema

en: Julio 26, 2010, 01:39:27 pm

Código: Visual Basic

 
Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
Public Type SYSTEMTIME 
wYear As Integer
       wMonth As Integer
       wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Function CambiarHora(ByVal Hora As Integer, ByVal Minutos As Integer, Byval Segundos As Integer)
Dim Ahora As SYSTEMTIME 
Ahora.wYear = Year(Date)
Ahora.wMonth = Month(Date)
Ahora.wDay = Day(Date)
Ahora.wHour = Hora
Ahora.wMinute = Minutos
Ahora.wSecond = Segundos
CambiarHora = SetSystemTime(Ahora)
End Function
Public Function CambiarFecha(Byval Año As Integer, Byval Mes As Integer, Byval Dia As Integer)
Dim Hoy As SYSTEMTIME 
Hoy.wYear = Año
Hoy.wMonth = Mes
Hoy.wDay = Dia
Hoy.wHour = Hour(Time)
Hoy.wMinute = Minute(Time)
Hoy.wSecond = Second(Time)
CambiarFecha = SetSystemTime(Hoy)
End Function

Apagar el equipo, reiniciar Windows, reiniciar el Sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2204	Julio 26, 2010, 10:31:47 am por ANTRAX
Saber el directorio de "Fonts" del sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2224	Julio 26, 2010, 04:05:12 pm por ANTRAX
Como apagar, reiniciar o salir del sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2386	Julio 26, 2010, 11:24:30 am por ANTRAX
Listar Las Fuentes Del Sistema En ComboBox Iniciado por ANTRAX	Respuestas: 0 Vistas: 2264	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: 2543	Julio 26, 2010, 11:33:48 am por ANTRAX

Underc0de - Hacking y seguridad informática

Cambiar Fecha u Hora del Sistema

ANTRAX

Cambiar Fecha u Hora del Sistema

Similar topics (5)