Er zijn verschillende redenen om de tijd en datum te wijzigen op een host- computer vanuit een Visual Basic-toepassing . Misschien bent u het bouwen tijdzone management software of netwerk tijd synchronisatie -software . Hoewel het . NET framework niet standaard mogelijk wijzigen van de systeemtijd van Visual Basic , is het mogelijk om een native Windows dynamisch verbonden library ( DLL ) importeren naar het werk voor u doen . Met behulp van de interopservices en ComponentModel naamruimten kunt u de DLL importeren , en roepen de externe methode . Instructies
1 Maak een nieuw bestand in uw Visual Basic-project en noem het " SysTime.vb "
Copy 2 en plak de volgende code in het nieuwe bestand . : invoer SystemImports System.Runtime.InteropServicesImports System.ComponentModel
Class SYSTIME
Structuur SystemTimePublic jaar Zoals ShortPublic maand Zoals ShortPublic dayOfWeek Zoals ShortPublic dag als ShortPublic uur als ShortPublic minuut zoals ShortPublic tweede zoals ShortPublic milliseconden zoals shortend Structuur Prive Gedeelde Functie SetSystemTime
( SYSTIME als systeemtijd ByRef ) als Boolean Public
Shared Sub set ( tijd als systeemtijd ) SysTime.SetSystemTime (tijd ) Einde SubEnd klasse
3 Roep de functie door het kopiëren en plakken van de volgende code in de hoofdlus van uw programma : Dim setTimeTo als SYSTIME . systeemtijd ; setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
4 Verander de nullen in de vorige stap om welk tijdstip je wilt dat het systeem de tijd te zijn .
|
