Πώς να καλέσετε τις μεταβλητές περιβάλλοντος από Visual Basic

Οι μεταβλητές περιβάλλοντος αποθηκευμένες ρυθμίσεις για το λειτουργικό σύστημα . Για παράδειγμα , μια μεταβλητή κοινό περιβάλλον είναι η θέση των αρχείων του λειτουργικού συστήματος . Η μεταβλητή περιβάλλοντος επιτρέπει σε άλλες εφαρμογές να ξέρετε τι σκληρό δίσκο και ο κατάλογος περιέχει τα αρχεία συστήματος . Αυτές οι ρυθμίσεις χρησιμοποιούνται από τις εφαρμογές σε γλώσσες προγραμματισμού όπως η Visual Basic . Οδηγίες
Η 1

Χρησιμοποιήστε την κλάση του περιβάλλοντος . . NET Visual Basic έχει μια κατηγορία ειδικά για την κλήση μεταβλητές περιβάλλοντος . 2

Εκτυπώστε το όνομα του μηχανήματος . Για τον προγραμματισμό του δικτύου , χρησιμοποιήστε το " MachineName " ιδιοκτησίας. Ο κώδικας παρακάτω εκτυπώνει το όνομα του υπολογιστή , το οποίο χρησιμοποιείται για τον εντοπισμό ενός υπολογιστή στο δίκτυο

Console.WriteLine ( "Αυτό είναι το όνομα δικτύου του μηχανήματος : " + Environment.MachineName ) .

με 3

Βρείτε το λειτουργικό σύστημα , τα αρχεία του συστήματος και το όνομα χρήστη . Γνωρίζοντας το λειτουργικό σύστημα του υπολογιστή μπορεί να προσαρμόσετε τις ρυθμίσεις της εφαρμογής για διαφορετικά συστήματα . Αρχεία συστήματος που χρησιμοποιούνται για εφαρμογές που απαιτούν να χρησιμοποιούν εσωτερικές λειτουργίες των Windows

Console.WriteLine ( " Λειτουργικό σύστημα: " & Environment.OSVersion.ToString ( ) ) . Console.WriteLine ( "Αρχεία System Directory : " + Περιβάλλον . SystemDirectory ) Console.WriteLine ( "Χρήστης : " + Environment.UserName )
Η 4

Αποκτήστε την έκδοση του λειτουργικού συστήματος . Για παράδειγμα , ένας υπολογιστής μπορεί να είναι ένας διακομιστής ή επιτραπέζιο . Ανάλογα με την έκδοση , ο υπολογιστής μπορεί να χρησιμοποιήσει μια εφαρμογή με διαφορετικό τρόπο και έχουν διαφορετικές ρυθμίσεις

Console.WriteLine ( « Έκδοση λειτουργικού συστήματος : " + Environment.Version.ToString ( ) ) .
5

Βρείτε γράμματα μονάδας δίσκου . Μπορεί να θέλετε να ξέρετε τι μονάδες είναι διαθέσιμες για μια εφαρμογή . Αυτός ο βρόχος επαναλαμβάνεται σε μια λίστα γράμματα μονάδας δίσκου και να τα εκτυπώνει στην κονσόλα

Dim mydriveletters Όπως String ( ) Dim i Όπως Int32mydriveletters = Environment.GetLogicalDrives ( ) Console.WriteLine ( « Drive Letter : " ) . Για πάγκο = 0 Για να mydriveletters.Length - 1Console.WriteLine ( . mydriveletters ( i ) ToString ( ) ) Επόμενο
Η
εικόνων