Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Mettre heure système

Mettre heure système

4 réponses
Avatar
**Pierre**
Bonjour,

Comment mettre à jour l'heure système à l'aide du code ? D'avance merci.

--
Pierre
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien Bezagu
Pierre,

La seule solution semble être de passer par les fonctions API SetLocalTime
et SetSystemTime grâce à P/Invoke.

Fabien

"**Pierre**" a écrit dans le message de
news: %
Bonjour,

Comment mettre à jour l'heure système à l'aide du code ? D'avance merci.

--
Pierre




Avatar
**Pierre**
Avec SetLocalTime ca marche.

--
Pierre
"**Pierre**" a écrit dans le message de
news:
Merci, j'ai fait la fonction suivante en API
Imports System

Imports System.Runtime.InteropServices

Imports System.DateTime

Private Structure SYSTEMTIME

Public wYear As Short

Public wMonth As Short

Public wDayOfWeek As Short

Public wDay As Short

Public wHour As Short

Public wMinute As Short

Public wSecond As Short

Public wMilliseconds As Short

End Structure

Private Declare Function SetSystemTime Lib "kernel32" (ByRef lpSystemTime


As
SYSTEMTIME) As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim lpSystemTime As SYSTEMTIME

Dim test As Boolean

lpSystemTime.wYear = System.DateTime.Now.Year

lpSystemTime.wMonth = System.DateTime.Now.Month

lpSystemTime.wDayOfWeek = System.DateTime.Now.DayOfWeek

lpSystemTime.wDay = System.DateTime.Now.Day

lpSystemTime.wHour = 14

lpSystemTime.wMinute = System.DateTime.Now.Minute

lpSystemTime.wSecond = System.DateTime.Now.Second

lpSystemTime.wMilliseconds = System.DateTime.Now.Millisecond

Try

test = SetSystemTime(lpSystemTime)

Catch ex As Exception

MessageBox.Show("Faux" & ex.ToString)

End Try

End Sub


Ce qui est bizzare c'est qu'il me met 16heure à la place de 14 heures ???

Je ne comprend pas. D'avance merci.

--

"Fabien Bezagu" <fbezagu_at_novacor_dot_fr> a écrit dans le message de
news:
> Pierre,
>
> La seule solution semble être de passer par les fonctions API


SetLocalTime
> et SetSystemTime grâce à P/Invoke.
>
> Fabien
>
> "**Pierre**" a écrit dans le message


de
> news: %
> > Bonjour,
> >
> > Comment mettre à jour l'heure système à l'aide du code ? D'avance


merci.
> >
> > --
> > Pierre
> >
> >
>
>




Avatar
**Pierre**
Merci, j'ai fait la fonction suivante en API
Imports System

Imports System.Runtime.InteropServices

Imports System.DateTime

Private Structure SYSTEMTIME

Public wYear As Short

Public wMonth As Short

Public wDayOfWeek As Short

Public wDay As Short

Public wHour As Short

Public wMinute As Short

Public wSecond As Short

Public wMilliseconds As Short

End Structure

Private Declare Function SetSystemTime Lib "kernel32" (ByRef lpSystemTime As
SYSTEMTIME) As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim lpSystemTime As SYSTEMTIME

Dim test As Boolean

lpSystemTime.wYear = System.DateTime.Now.Year

lpSystemTime.wMonth = System.DateTime.Now.Month

lpSystemTime.wDayOfWeek = System.DateTime.Now.DayOfWeek

lpSystemTime.wDay = System.DateTime.Now.Day

lpSystemTime.wHour = 14

lpSystemTime.wMinute = System.DateTime.Now.Minute

lpSystemTime.wSecond = System.DateTime.Now.Second

lpSystemTime.wMilliseconds = System.DateTime.Now.Millisecond

Try

test = SetSystemTime(lpSystemTime)

Catch ex As Exception

MessageBox.Show("Faux" & ex.ToString)

End Try

End Sub


Ce qui est bizzare c'est qu'il me met 16heure à la place de 14 heures ???

Je ne comprend pas. D'avance merci.

--

"Fabien Bezagu" <fbezagu_at_novacor_dot_fr> a écrit dans le message de
news:
Pierre,

La seule solution semble être de passer par les fonctions API SetLocalTime
et SetSystemTime grâce à P/Invoke.

Fabien

"**Pierre**" a écrit dans le message de
news: %
> Bonjour,
>
> Comment mettre à jour l'heure système à l'aide du code ? D'avance merci.
>
> --
> Pierre
>
>




Avatar
TroXsA - [VB.NET-2005]
Une commande 'Time' (MS-DOS) avec un shell
ou un process fait facilement l'affaire non ?
j'ai pas fait le teste alors je sais pas trop ! :)

___________________________________________________
Affiche ou modifie l'heure système.

TIME [/T | heure]

TIME sans paramètres affiche l'heure en cours et demande une nouvelle heure.
Appuyez sur ENTRÉE pour conserver la même heure.

Si les extensions de commandes sont activées, la commande TIME prend en
charge
le commutateur /T qui fait que la commande n'indique que l'heure, sans
demander d'en entrer une nouvelle.
____________________________________________________

--
TroXsA
http://cerbermail.com/?rIXgaw9Xsl