VB6 - Comment modifier l'heure de windows svp?Résolu

Question

Bonjour, je travail pr&#233;sentement sur un projet en VB6 qui aurait pour but de modifier l'heure de windows [celle en bas &#224; droite] selon l'heure d'un autre ordinateur.

Pour se faire j'avais penser faire un programme qui, avec winsock, lierait deux programmes, un sur le serveur qui poss&#232;derait l'heure de l'ordinateur dans un label et un autre qui recevrait cette heure et mettrait &#224; jour l'heure de windows pour celle-ci.

Alors ma question est, une fois le contenu du label re&#231;u, comment puis-je modifier l'heure du windows pour celui re&#231;u par le programme?

Merci d'avance.
PS: Si vous avez des suggestions plus efficaces pour mon projet, n'h&#233;sitez pas :)

scortex84 · Accepted Answer

Hello,

il faut utiliser une bonne vieille API :


Private Declare Function SetLocalTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As Integer



Private 
Structure SYSTEMTIME

Dim wYear 
As 
Short
Dim wMonth 
As 
Short
Dim wDayOfWeek 
As 
Short
Dim wDay 
As 
Short
Dim wHour 
As 
Short
Dim wMinute 
As 
Short
Dim wSecond 
As 
Short
Dim wMilliseconds 
As 
Short
End 
Structure


Dans une fonction  :

Dim ST 
As SYSTEMTIME


With ST
.wYear = Year(dats)
.wMonth = Month(dats)
.wDay = VB.Day(dats)
.wHour = Hour(dats)
.wMinute = Minute(dats)
.wSecond = Second(dats)

End 
With


Call SetLocalTime(ST)




Et voil&#224; ! Je pense que c'est clair, l'API re&#231;oit en parametre une structure contenant toutes les infos.
Il existe une autre API du m&#234;me type mais qui re&#231;oit l'heure GMT et tient compte du d&#233;callage horaire de la zone d&#233;clar&#233;e dans windows (je ne me souviens plus le nom de l'API).

Seb.

Gobillot · Answer

plus simple:



Time$ = "18:40:00"

Date$ = "18/08/2005"

Daniel

violent_ken · Answer

Violent Ken

salut !


C'est en effet plus simple, mais pour la date, c'est plut&#244;t  Date$ = "08-18-2005", parce que sinon c&#224; bug !

cs_Norin · Answer

Un gros merci &#224; tout le monde, &#231;a a L'AIR (moui pcq selon mon exp&#233;rience faut jamais se fier aux apparences :)) de marcher parfaitement, alors merci encore tous !! :)

cs_Norin · Answer

Erf, mon probl&#232;me est maintenant de convertir les heures du style 09:10:00 PM en 21:10:00 sans toucher aux param&#232;tres r&#233;gionaux :S

Gobillot · Answer

Dim dt As Date

    dt = "09:10:00 PM"

    MsgBox dt


Daniel

cs_Norin · Answer

Hmm, je veux avoir le format sans AM/PM lol... J'ai r&#233;ussi en jouant avec format(dateActuelle, "h:m:s") en string mais lorsque je viens pour le mettre dans time$ il plante, disant que les valeurs ne sont pas ad&#233;quates

Gobillot · Answer

ben tu l'as ta date sans AM/PM



    Dim dt1 As Date

    Dim dt2 As Date

    Dim s  As String

    

    s = "09:10:00" & " PM"

    dt1 = s

    dt2 = "21:10:00"

    If dt1 = dt2 Then MsgBox "oui"

    s = dt1

    MsgBox s


Daniel

cs_Norin · Answer

Mais comment je peux faire pour que &#231;a soit toujours ainsi?


Je m'explique, la j'ai mon serveur qui envoi des informations &#224; mon client. Ces informations sont en fait:


Dim dateActuelle as date


dateActuelle = now


winsock1.sendData = dateActuelle

Alors la dateActuelle de l'ordinateur est donc envoy&#233; &#224; un autre ordinateur op&#233;rant le programme client. Maintenant, le but du programme est de faire que ce client voit la date et l'heure de son ordinateur mis &#224; jour afin d'avoir les m&#234;mes que celui du serveur. Mais pour &#231;a, je dois couper mon dateActuelle en heure et jour afin de pouvoir utiliser le $time and $date. Mais les m&#233;thodes que j'utilise me donnent toujours que le type de donn&#233;es est incompatible alors, comment dois-je m'y prendre? 

Merci d'avance

Gobillot · Answer

et c'est quoi cette histoire d' AM/PM 







    Dim Ladate   As String

    Dim letemps  As String

    Dim dateActuelle As Date

    dateActuelle = Now

    

    Ladate = Format$(dateActuelle, "mm-dd-yyyy")

    letemps = Format$(dateActuelle, "Long Time")

    MsgBox "la date seule: " & Ladate

    MsgBox "l'heure seule: " & letemps



     Date$ = Ladate

     Time$ = Letemps

Daniel

cs_Norin · Answer

Erf, marche toujours pas... Le truc de AM/PM c'est &#224; cause des param&#232;tres r&#233;gionaux... Et &#231;a je dois programmer avec :S

Mais il persiste avec le fait que "Type-declaration character does not match declared data type" :(

Gobillot · Answer

j'ai pas cette erreur

il fait &#231;a sur quelle Ligne ?



    Dim Ladate   As String


    Dim letemps  As String


    Dim dateActuelle As Date


    


'   tout d&#233;pend comment arrive la date ????

    dateActuelle = Now


'   "18/08/2005 21:35:00"    

'    ou

'   "18/08/2005 09:35:00 PM"    

    


    Ladate = Format$(dateActuelle, "MM-DD-YYYY")


'   et comment la mettre en sortie


'   soit en format 24h

    letemps = Format$(dateActuelle, "HH:NN:SS")

'   ou en format 12h   

    letemps = Format$(dateActuelle, "HH:NN:SS AM/PM")





    MsgBox "la date: " & Ladate


    MsgBox "l'heure: " & letemps


Daniel

cs_Norin · Answer

Arf, finalement je crois que l'erreur &#233;tait inexistante puisque j'ai fais un nouveau projet avec le m&#234;me code et tout marchait nickel :\

Merci tous

VB6 - Comment modifier l'heure de windows svp?

13 réponses

Discussions similaires