Merci,j'ai essayé le lien et j'ai fait un copié collé de l'api mais ca ne marche pô, y a pas un moyen + simple et + direct de changer la date du systeme (parceke c'est surtout ca ke je veux changer et non l'heure.
Bendes
Posté le 02-09-2001 à 17:26:25
Colle ce code dans une form
Code :
Private 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
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
' Ici tu insère l'heure actuelle ou essayes sans initialiser ces variables...
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub
[edtdd]--Message édité par Bendes--[/edtdd]
---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.