Det er ulike grunner til å endre klokkeslett og dato på en vertsmaskin fra en Visual Basic-programmet . Kanskje du bygger tidssone programvare eller nettverk tid synkronisering programvare. Selv om . NET rammeverket tillater ikke smertefritt å endre systemet tid fra Visual Basic, er det mulig å importere en innfødt Windows dynamisk koblet bibliotek ( DLL) for å gjøre jobben for deg. Bruke InteropServices og ComponentModel navnerom lar deg importere DLL, og påkalle den eksterne metode . Instruksjoner
en
Opprett en ny fil i Visual Basic-prosjektet og gi den navnet " SysTime.vb "
2
Kopier og lim inn følgende kode inn i den nye filen . : importen SystemImports System.Runtime.InteropServicesImports System.ComponentModel
Class SysTime
Struktur SystemTimePublic år Som ShortPublic måned Som ShortPublic dayOfWeek Som ShortPublic dag Som ShortPublic time As ShortPublic minutt som ShortPublic andre som ShortPublic millisekunder som Kortside Struktur
Private Delt Funksjon SetSystemTime ( systime som SystemTime ByRef ) som boolske
Public Delt Sub Set ( tid som SystemTime ) SysTime.SetSystemTime (tid ) Avslutt SubEnd Class
3
Ring funksjon ved å kopiere og lime inn følgende kode i hovedvisningen loop av programmet : Dim setTimeTo som SysTime . SystemTime , setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
4
Endre nuller i forrige trinn til det tidspunktet du ønsker at systemet tid til å være .