So ändern Sie das Systemdatum mit Visual Basic

March 8

So ändern Sie das Systemdatum mit Visual Basic

Es gibt verschiedene Gründe, die Uhrzeit und das Datum auf einem Host-Computer innerhalb einer Visual Basic-Anwendung zu ändern. Vielleicht bauen Sie Timezone-Management-Software oder Netzwerk-Zeit-Synchronisation-Software. Obwohl das NET-Framework nicht nativ zulässt, Ändern der Systemzeit von Visual Basic, ist es möglich, eine systemeigene Windows dynamisch gelinkte Bibliothek (DLL), die Arbeit für Sie tun zu importieren. Mit den InteropServices und ComponentModel-Namespace können Sie importieren die DLL und die externe Methode aufrufen.

Anweisungen

1 Erstellen Sie eine neue Datei in Visual Basic-Projekt und nennen Sie sie "SysTime.vb".

2 Kopieren Sie und fügen Sie den folgenden Code in die neue Datei ein:System importiertImports System.Runtime.InteropServicesSystem.ComponentModel importiert

SysTime-Klasse

< StructLayoutAttribute(LayoutKind.Sequential) >Struktur SystemTimeAls kurze öffentliche JahrAls kurze öffentliche MonatAls kurze öffentliche dayOfWeekAls kurze öffentliche TagAls kurze öffentliche StundeAls kurze öffentliche minuteÖffentliche zweite As ShortAls kurze öffentliche MillisekundenEnde-Struktur

< DllImport(\"kernel32.dll\") >Private Shared Function SetSystemTime(systime as SystemTime byRef) as Boolean

Public Shared Sub gesetzt (Zeit als SystemTime)SysTime.SetSystemTime(time)EndSubEnd-Klasse

3 Rufen Sie die Funktion kopieren und Einfügen den folgenden Code in der Hauptschleife des Programms:Dim SetTimeTo als SysTime.SystemTimeGEHENsetTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set(setTimeTo) = 0

4 Ändern Sie die Nullen im vorherigen Schritt, zu welcher Zeit die Systemzeit sein soll.

Tipps & Warnungen

  • Dies erfordert, dass das aufrufende Programm SeSystemTimePrivilege erteilt wurde und dieses Privileg aktiviert ist.