[VB.Net] SetSystemTime levert Exception op

[F-Tim]

Goede middag inmiddels alweer,

mijn probleem is als volgt, ik haal de tijd op van een NTP server. Dit gaat inmiddels perfect. Echter als ik daarna de systeem tijd probeer te veranderen aan de hand van die waarde geeft VB.Net de volgende foutmelding: Poging tot het lezen of schrijven van beveiligd geheugen. Dit duidt er vaak op dat ander geheugen is beschadigd.

Ik heb op internet gezocht naar het gebruik van de SetSystemTime functie, maar overal waar ik zoek staat code die vergelijkbaar is met die van mij. Hieronder zal ik een kleine code snippet posten van de code:

code:

 Imports System.Runtime.InteropServices
..
Public Structure SYSTEMTIME
    Public wYear As UInt16
    Public wMonth As UInt16
    Public wDayOfWeek As UInt16
    Public wDay As UInt16
    Public wHour As UInt16
    Public wMinute As UInt16
    Public wSecond As UInt16
    Public wMilliseconds As UInt16
End Structure

Public Class NetworkTimeClient

Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (ByVal lpSystemTime As SystemTime) As Long
..
    Public ReadOnly Property Time() As DateTime
        Get
                ..
                localtime = TimeZone.CurrentTimeZone.ToLocalTime(receiveTime)
                Dim systime As New SYSTEMTIME
                systime.wYear = CUInt(receiveTime.Year)
                systime.wMonth = CUInt(receiveTime.Month)
                systime.wDay = CUInt(receiveTime.Day)
                systime.wHour = CUInt(receiveTime.Hour)
                systime.wMinute = CUInt(receiveTime.Minute)
                systime.wSecond = CUInt(receiveTime.Second)
                SetSystemTime(systime)
                ..
        End Get
    End Property
  End Function
End Class

Echter als ik deze code uitvoer, dan krijg ik de melding zoals ik deze boven gepost heb. Ik heb op google gezocht, en deze, deze en deze website bekeken. Alle 3 geven ze echter een vergelijkbaar resultaat. Maar het werkt bij mij dus niet. Wie kan me vertellen waarom niet?

Edit: Nevermind, maak van de Long als returnwaarde bij SetSystemTime een Integer en het werkt

[ Voor 6% gewijzigd door F-Tim op 29-03-2006 16:01 . Reden: Problem solved ]