Πώς να αλλάξετε την ημερομηνία του συστήματος με Visual Basic

Υπάρχουν διάφοροι λόγοι για να αλλάξετε την ώρα και την ημερομηνία σε έναν κεντρικό υπολογιστή μέσα από μια εφαρμογή της Visual Basic . Ίσως είστε οικοδόμηση λογισμικό διαχείρισης χρονική ζώνη είτε ώρας δικτύου λογισμικό συγχρονισμού . Παρά το γεγονός ότι η NET framework . Δεν εγγενώς επιτρέπουν την αλλαγή την ώρα του συστήματος από τη Visual Basic , είναι δυνατό να εισαχθεί ένας ντόπιος των Windows συνδέεται δυναμικά βιβλιοθήκης ( DLL ) για να κάνει τη δουλειά για σας . Χρησιμοποιώντας τις Interopservices και ονομάτων ComponentModel σας επιτρέπει να εισαγάγετε το αρχείο DLL , και να επικαλεσθεί την εξωτερική μέθοδο . Οδηγίες
Η

1 Δημιουργήστε ένα νέο αρχείο στο έργο της Visual Basic σας και ονομάστε το " SysTime.vb " 2

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο νέο αρχείο . : εισαγωγές SystemImports System.Runtime.InteropServicesImports System.ComponentModel

Class Systime

Δομή SystemTimePublic έτος Όπως ShortPublic μήνα Όπως ShortPublic dayOfWeek Ως ημέρα ShortPublic Όπως ShortPublic ώρα Όπως ShortPublic λεπτό όπως ShortPublic δεύτερη όπως ShortPublic χιλιοστά του δευτερολέπτου όπως Δομή μειώσουμε το

Private Shared SetSystemTime Λειτουργία ( Systime ως SystemTime ByRef ) ως Boolean

Δημόσιο Κοινόχρηστο Sub Ορισμός (χρόνος ως SystemTime ) SysTime.SetSystemTime (χρόνος ) Τέλος SubEnd Class
εικόνων 3

Καλέστε τη λειτουργία με αντιγραφή και επικόλληση τον παρακάτω κώδικα στο κύριο βρόχο του προγράμματός σας : Dim setTimeTo ως Systime . SystemTime ? setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
Η 4

Αλλάξτε τα μηδενικά στο προηγούμενο βήμα σε ό, τι ώρα θέλετε το σύστημα για να είναι .
Η
εικόνων