Hardware ID System

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Hardware ID System

    Hallo Community,

    ich versuche mir momentan ein hardware id system zu schreiben, jedoch habe ich nun ein Problem. Mein Konzept: Das Program öffnet sich verbindet sich mit einem Webserver, wo die hardware id per php abgefragt wird, jedoch habe ich ein Problem beim generieren dieser id. Ich bekomme in Zeile 38 eine NullReferenceException. Ich weiß nicht warum nichts zurück gegeben wird, denn alles ist eigentlich richtig definiert. Hier ist der Code.

    Quellcode

    1. Imports System.Management
    3. Public Class LoadingForm
    5. #Disable Warning BC42025
    6. Private Sub LoadingForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. progressLabel.Text = "Initializing loading sequence..."
    8. End Sub
    10. Private Sub LoadingForm_Show(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    11. Sleep(1)
    12. progressLabel.Text = "Establishing connection to server..."
    13. Sleep(1)
    14. If My.Computer.Network.Ping("google.de") = True Then
    15. progressLabel.Text = "Successfully connected to server..."
    16. Sleep(1)
    17. progressLabel.Text = "Gathering local hardware id..."
    19. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    20. ''''''''''''''''''''''''''''''''''''''hwid function''''''''''''''''''''''''''''''''''''''''
    21. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    23. Dim HWIDp1 As String = String.Empty
    24. Dim HWIDp2 As String = String.Empty
    25. Dim HWIDp3 As String = String.Empty
    26. Dim HWIDfinal As String = String.Empty
    28. Dim mcCPU As New ManagementClass("Win32_Processor")
    29. Dim mocCPU As ManagementObjectCollection = mcCPU.GetInstances()
    30. Dim mcBIOS As New ManagementClass("Win32_BIOS")
    31. Dim mocBIOS As ManagementObjectCollection = mcBIOS.GetInstances()
    32. Dim mcRAM As New ManagementClass("win32_PhysicalMemory")
    33. Dim mocRAM As ManagementObjectCollection = mcRAM.GetInstances()
    35. For Each moCPU As ManagementObject In mocCPU
    36. If HWIDp1 = "" Then
    37. HWIDp1 = mcCPU.Properties("ProcessorId").Value.ToString()
    38. Exit For
    39. End If
    40. Next
    42. For Each moBIOS As ManagementObject In mocBIOS
    43. If HWIDp2 = "" Then
    44. HWIDp2 = mcBIOS.Properties("SerialNumber").Value.ToString()
    45. Exit For
    46. End If
    47. Next
    49. For Each moRAM As ManagementObject In mocRAM
    50. If HWIDp3 = "" Then
    51. HWIDp3 = mcRAM.Properties("SerialNumber").Value.ToString()
    52. Exit For
    53. End If
    54. Next
    56. HWIDfinal = HWIDp1 + HWIDp2 + HWIDp3
    58. MsgBox("HWID: " + HWIDfinal, MsgBoxStyle.Information)
    60. Else
    61. progressLabel.Text = "An error occured while trying to connect to the server..."
    62. End If
    63. End Sub
    65. Public Sub Sleep(ByVal seconds As Single)
    66. Static start As Single
    67. start = Microsoft.VisualBasic.Timer()
    68. Do While Microsoft.VisualBasic.Timer() < start + seconds
    69. System.Windows.Forms.Application.DoEvents()
    70. Loop
    71. End Sub
    72. End Class


    Mit freundlichen Grüßen,
    Robskiy.

    Verschoben. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Robskiy schrieb:

    For Each moCPU As ManagementObject In mocCPU
    If HWIDp1 = "" Then
    HWIDp1 = mcCPU.Properties("ProcessorId").Value.ToString()
    Exit For
    End If
    Next


    moCPU <> mcCPU
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Sollte nun eigendlich recht schnell zu finden sein. Achte auf die Schreibweise, nur in dem zitierten Code. mcCPU hat keine Property Namens ProcessorId, ist ja die ManagementKlasse, kein ManagementObject der ManagementObjectCollection durch welche du iterierst. Wie heist den die Variable im Scope der Schleife, welche die ManagementObjecte repräsentiert?
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „NoIde“ ()

    Heyho,

    an sich wäre das kein Problem. Aber man hat dir ja sogar schon gesagt was Sache ist. Da bringt es ja keine Vorlage die du nur kopieren musst
    und dann trotzdem das Problem nicht verstehst oder? (absolut nicht böse gemeint)
    Schau dir deinen Code nochmal an und befolge die Tipps.

    Wie zum Beispiel: Visual Studio - Empfohlene Einstellungen
    Ansonsten poste uns doch mal deine Lösungsansätze / was du so versucht hast denn wie gesagt steht hier ja schon was los ist im Thread.
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Ich programmiere nur in C# und hatte nur die Vermutung, dass @Robskiy Strict Off proggen würde, dem war nicht so, aber den Wink mit dem Zaunpfahl hat der Kollege dennoch nicht verstanden.
    Davon mal abgesehen würde ich nie Form_Loading für nennenswerten Code verwenden, das hat seine eigenen Tücken.

    Ansonsten habe ich mal ein winziges Projekt angehängt.
    HWID00.zip

    @Dksksm Im Form_Load steht kein nennenswerter Code, der steht in Form_Shown. Ansonsten korrekt.
    @Robskiy Du hast drei Mal denselben Fehler gemacht, den ersten hat @NoIde bereits benannt:

    VB.NET-Quellcode

    1. HWIDp1 = moCPU.Properties("ProcessorId").Value.ToString()
    2. ' ...
    3. HWIDp2 = moBIOS.Properties("SerialNumber").Value.ToString()
    4. ' ...
    5. HWIDp3 = moRAM.Properties("SerialNumber").Value.ToString()

    Und:
    Die sekundenweise Pause ist suboptimal.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende