Hallo,
ich möchte mein Programm vorstellen das nur auf einem PC läuft. Dieses Programm kann man in das Hauptprogramm einbauen.
Der Code:
Die Kommentare dürften für sich selbst sprechen.
Kritik erwünscht!
ich möchte mein Programm vorstellen das nur auf einem PC läuft. Dieses Programm kann man in das Hauptprogramm einbauen.
Der Code:
Visual Basic-Quellcode
- Option Strict On
- Public Class Frm_Main
- Function GetHardwareID() As String 'Gibt HardwareID aus
- Dim HardwareID As String = System.Security.Principal.WindowsIdentity.GetCurrent.User.Value
- Return HardwareID
- End Function
- Private Sub Form_Main(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- If My.Settings.HardwareID = Nothing Then 'Wenn noch keine HardwareID gespeichert ist
- My.Settings.HardwareID = GetHardwareID() 'Nimmt My.Settings.HardwareID die eigene HardwareID an
- My.Settings.Save() 'Speichert HardwareID
- My.Settings.Reload() 'Lädt HardwareID
- Else
- If GetHardwareID() = My.Settings.HardwareID Then 'Vergleich der HardwareID´s
- MessageBox.Show("HardwareID´s stimmen überein!", "HardwareID") 'Vergleich ergibt True
- Else
- MessageBox.Show("HardwareID´s stimmen nicht überein", "HardwareID") 'Vergleich ergibt False
- End 'Programm wird beendet
- End If
- End If
- End Sub
- End Class
Die Kommentare dürften für sich selbst sprechen.
Kritik erwünscht!