Sådan ændres System Date With Visual Basic

August 8

Sådan ændres System Date With Visual Basic


Der er forskellige grunde til at ændre tid og dato på en værtscomputer fra inden for en Visual Basic-program. Måske du bygger tidszone management software eller netværk tid synkronisering software. Selv .NET rammer ikke indbygget tillader ændre systemet tid fra Visual Basic, er det muligt at importere en indfødt Windows dynamisk forbundet bibliotek (DLL) til at gøre arbejdet for dig. Brug af InteropServices og ComponentModel navnerum giver dig mulighed for at importere DLL, og påberåbe sig eksterne metode.

Instruktioner

1 Opret en ny fil i Visual Basic projekt og navngive det "SysTime.vb".

2 Kopier og indsæt følgende kode i den nye fil:
Import System
import System.Runtime.InteropServices
Import System.ComponentModel

klasse Systime

<StructLayoutAttribute (LayoutKind.Sequential)>
struktur systemtid
Offentlig år som Short
Offentlig måned Som Short
Offentlig dayOfWeek Som Short
Offentlig dag som Short
Offentlig time som korte
Offentlig minutter Som Short
Offentlig sekund som Short
Offentlige millisekunder som korte
ende struktur

<Startværdi (\ "kernel32.dll \")>
Private Shared Function SetSystemTime (Systime som systemtid ByRef) som Boolesk

Offentlig Shared Sub Indstil (tid som systemtid)
SysTime.SetSystemTime (tid)
End Sub
End Class

3 Kald funktionen ved at kopiere og indsætte følgende kode i de vigtigste loop af dit program:
Dim setTimeTo som SysTime.SystemTime

setTimeTo.year = 0
setTimeTo.month = 0
setTimeTo.dayOfWeek = 0
setTimeTo.day = 0
setTimeTo.hour = 0
setTimeTo.minute = 0
setTimeTo.second = 0
setTimeTo.milliseconds = 0
SysTime.Set (setTimeTo) = 0

4 Skift nuller i det forrige trin til uanset tid du ønsker, at systemet tid til at være.

TIPS

  • Dette kræver, at det kaldende program har fået SeSystemTimePrivilege og at dette privilegium er aktiveret.

relaterede artikler