Hallo Leute !
Heute mein Problem :
Ich wollte mal wieder ein Programm Schützen.
Mein Code :
So jetzt habe ich ja die Imports System.Management Inportiert aber Es gibt diese Fehlermeldungen :
s7.directupload.net/file/d/2777/3ehpv68j_png.htm
Gut Also ein Paar Zeilen Werden Falsch angezeigt .
Heute mein Problem :
Ich wollte mal wieder ein Programm Schützen.
Mein Code :
VB.NET-Quellcode
- Imports System.Management
- Public Class Form1
- Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim cpuInfo As String = String.Empty
- Dim mc As New ManagementClass("win32_processor")
- Dim moc As ManagementObjectCollection = mc.GetInstances()
- For Each mo As ManagementObject In moc
- If cpuInfo = "" Then
- cpuInfo = mo.Properties("processorID").Value.ToString()
- Exit For
- End If
- Next
- End Sub
- End Class
So jetzt habe ich ja die Imports System.Management Inportiert aber Es gibt diese Fehlermeldungen :
s7.directupload.net/file/d/2777/3ehpv68j_png.htm
Gut Also ein Paar Zeilen Werden Falsch angezeigt .