Es gibt verschiedene Gründe , um die Zeit und das Datum auf einem Host-Computer ändern innerhalb einer Visual Basic-Anwendung . Vielleicht bauen Zeitzone Management-Software oder Netzwerk Zeitsynchronisation Software. Obwohl die . NET Framework nicht nativ erlauben die Änderung der Systemzeit von Visual Basic , ist es möglich, eine native Windows dynamisch gelinkten Bibliothek (DLL ) zu importieren , um die Arbeit für Sie tun. Mit den InteropServices und ComponentModel Namensräume können Sie die DLL zu importieren, und rufen Sie den externen Verfahren . Anleitung
1
Erstellen einer neuen Datei in Ihrem Visual Basic-Projekt und nennen Sie es " SysTime.vb "
2
Kopieren Sie den folgenden Code in die neue Datei . : Importe SystemImports System.Runtime.InteropServicesImports System.ComponentModel
Klasse SysTime
Struktur SystemTimePublic Jahr Wie ShortPublic Monat Als ShortPublic dayOfWeek Wie ShortPublic Tag Wie ShortPublic Stunde als ShortPublic Minute ShortPublic als zweite als ShortPublic Millisekunden gekürzt Struktur
Privat Gemeinschafts Funktion SetSystemTime ( systime als SystemTime byRef ) as Boolean
Public Shared Sub Set ( Zeit als SystemTime ) SysTime.SetSystemTime (Zeit ) Ende SubEnd Klasse
3
Rufen Sie die Funktion durch Kopieren und Einfügen den folgenden Code in der Hauptschleife des Programms : Dim setTimeTo als SysTime . SystemTime ; setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
4
ändern Sie die Nullen in den vorherigen Schritt, um welcher Zeit Sie wollen, dass die Systemzeit zu sein .