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.
Mit freundlichen Grüßen,
Robskiy.
Verschoben. ~Thunderbolt
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
- Imports System.Management
- Public Class LoadingForm
- #Disable Warning BC42025
- Private Sub LoadingForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- progressLabel.Text = "Initializing loading sequence..."
- End Sub
- Private Sub LoadingForm_Show(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
- Sleep(1)
- progressLabel.Text = "Establishing connection to server..."
- Sleep(1)
- If My.Computer.Network.Ping("google.de") = True Then
- progressLabel.Text = "Successfully connected to server..."
- Sleep(1)
- progressLabel.Text = "Gathering local hardware id..."
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ''''''''''''''''''''''''''''''''''''''hwid function''''''''''''''''''''''''''''''''''''''''
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Dim HWIDp1 As String = String.Empty
- Dim HWIDp2 As String = String.Empty
- Dim HWIDp3 As String = String.Empty
- Dim HWIDfinal As String = String.Empty
- Dim mcCPU As New ManagementClass("Win32_Processor")
- Dim mocCPU As ManagementObjectCollection = mcCPU.GetInstances()
- Dim mcBIOS As New ManagementClass("Win32_BIOS")
- Dim mocBIOS As ManagementObjectCollection = mcBIOS.GetInstances()
- Dim mcRAM As New ManagementClass("win32_PhysicalMemory")
- Dim mocRAM As ManagementObjectCollection = mcRAM.GetInstances()
- For Each moCPU As ManagementObject In mocCPU
- If HWIDp1 = "" Then
- HWIDp1 = mcCPU.Properties("ProcessorId").Value.ToString()
- Exit For
- End If
- Next
- For Each moBIOS As ManagementObject In mocBIOS
- If HWIDp2 = "" Then
- HWIDp2 = mcBIOS.Properties("SerialNumber").Value.ToString()
- Exit For
- End If
- Next
- For Each moRAM As ManagementObject In mocRAM
- If HWIDp3 = "" Then
- HWIDp3 = mcRAM.Properties("SerialNumber").Value.ToString()
- Exit For
- End If
- Next
- HWIDfinal = HWIDp1 + HWIDp2 + HWIDp3
- MsgBox("HWID: " + HWIDfinal, MsgBoxStyle.Information)
- Else
- progressLabel.Text = "An error occured while trying to connect to the server..."
- End If
- End Sub
- Public Sub Sleep(ByVal seconds As Single)
- Static start As Single
- start = Microsoft.VisualBasic.Timer()
- Do While Microsoft.VisualBasic.Timer() < start + seconds
- System.Windows.Forms.Application.DoEvents()
- Loop
- End Sub
- End Class
Mit freundlichen Grüßen,
Robskiy.
Verschoben. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()