[CF][VB.Net] Comment changer la date système du PDA ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
|
Private Declare Function SetSystemTime Lib "coredll.dll" (ByRef newTime As SYSTEMTIME) As Long
Public Structure SYSTEMTIME
Dim wYear As Integer
Dim wMonth As Integer
Dim wDayOfWeek As Integer
Dim wDay As Integer
Dim wHour As Integer
Dim wMinute As Integer
Dim wSecond As Integer
Dim wMilliseconds As Integer
End Structure
Public Function SetDate(Optional ByVal mAnnee As Integer = 0, Optional ByVal mMois As Integer = 0, Optional ByVal mJour As Integer = 0, Optional ByVal mHeure As Integer = 0, Optional ByVal mMinute As Integer = 0, Optional ByVal mSeconde As Integer = 0, Optional ByVal mMilliseconde As Integer = 0) As Long
Dim retValue As long
Try
Dim maNouvelleDate As SYSTEMTIME
If mAnnee = 0 Then
maNouvelleDate.wYear = Date.Now.Year
Else
maNouvelleDate.wYear = mAnnee
End If
If mMois = 0 Then
maNouvelleDate.wMonth = Date.Now.Month
Else
maNouvelleDate.wMonth = mMois
End If
If mJour = 0 Then
maNouvelleDate.wDay = Date.Now.Day
Else
maNouvelleDate.wDay = mJour
End If
If mHeure = 0 Then
maNouvelleDate.wHour = Date.Now.Hour
Else
maNouvelleDate.wHour = mHeure
End If
If mMinute = 0 Then
maNouvelleDate.wMinute = Date.Now.Minute
Else
maNouvelleDate.wMinute = mMinute
End If
If mSeconde = 0 Then
maNouvelleDate.wSecond = Date.Now.Second
Else
maNouvelleDate.wSecond = mSeconde
End If
If mMilliseconde = 0 Then
maNouvelleDate.wMilliseconds = Date.Now.Millisecond
Else
maNouvelleDate.wMilliseconds = mMilliseconde
End If
maNouvelleDate.wDayOfWeek = -1
retValue = SetSystemTime(maNouvelleDate)
Catch ex As Exception
retValue = 0
MsgBox(ex.Message)
End Try
return retValue
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetDate(2006, 3, 5)
End Sub |
J'utilise ce code pour essayer de changer la date systeme de mon PDA fonctionnant sou WinCE 4.2 mais il me retourne tjour NotSupportedExeption...
Quelqu'un serait'il ou est l'erreur...?
Merci d'avance...