Ci sono vari motivi per modificare l'ora e la data su un computer host all'interno di un'applicazione Visual Basic. Forse si sta costruendo il software di gestione del fuso orario o software di sincronizzazione del tempo di rete. Anche se il framework .NET nativamente non consente la modifica dell'ora di sistema da Visual Basic, è possibile importare una libreria nativa di Windows collegamento dinamico (DLL) per fare il lavoro per voi. Utilizzando gli spazi dei nomi InteropServices e ComponentModel consente di importare la DLL e richiamare il metodo esterno.

Istruzioni

1

Creare un nuovo file nel progetto Visual Basic e il nome "SysTime.vb".

2

Copiare e incollare il codice seguente nel nuovo file:
Imports System
Imports System.Runtime.InteropServices
Imports System. ComponentModel

Classe SysTime

< StructLayoutAttribute(LayoutKind.Sequential) >
Struttura SystemTime
Pubblica anno As Short
Pubblica mese As Short
Public dayOfWeek As Short
Giornata aperta al pubblico come breve
Pubblica ora As Short
Pubblico minuto As Short
Pubblico secondo As Short
Millisecondi pubbliche As Short
End Structure

< DllImport(\"kernel32.dll\") >
Privata ha condiviso la funzione SetSystemTime(systime as SystemTime byRef) as Boolean

Public Shared Sub impostare (time come SystemTime)
SysTime.SetSystemTime(time)
End Sub
End Class

3

Chiamare la funzione copiando e incollando il codice seguente nel ciclo principale del programma:
Dim setTimeTo come SysTime.SystemTime
VAI
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

Modificare gli zeri nel passaggio precedente a qualsiasi ora si desidera il tempo di sistema per essere.

Consigli & Avvertenze

• Ciò richiede che il programma chiamante è stata concessa SeSystemTimePrivilege e che questo privilegio è abilitato.