Hallo Com,
ich habe mir heute einen Client für mein Programm geschrieben es ist ein Login System mit HwID abfrage !
Nur ich bekomme beim Debugen immer das Problem Exception.InnerException
Spoiler anzeigen
da ich nicht der Ober Pro in Vb bin möchte ich euch um Hilfe bitten.
Hier mein Code:
Könnt ihr mir weiter Helfen ??
Mfg MineCore
ich habe mir heute einen Client für mein Programm geschrieben es ist ein Login System mit HwID abfrage !
Nur ich bekomme beim Debugen immer das Problem Exception.InnerException
Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt..
Hier mein Code:
VB.NET-Quellcode
- Imports MySqlLib3
- Public Class Login
- Public db As New MySqlLib("http://localhost/query.php", True)
- Dim HardwareID As String = System.Security.Principal.WindowsIdentity.GetCurrent.User.Value
- Dim lesen As MySqlLib.ResultCollection = db.Query("SELECT * FROM login WHERE Username='" + Replace(tb_user.Text, " ", "") + "' AND Password='" & Replace(tb_pass.Text, " ", "") + "' AND Group='" & Replace("VIP-Member", " ", "") & "'")
- Dim GetHardwareID As MySqlLib.ResultCollection = db.Query("SELECT * FROM HwIDs WHERE Username='" + Replace(tb_user.Text, " ", "") & "'")
- Dim CheckHardwareID As MySqlLib.ResultCollection = db.Query("SELECT * FROM HwIDs WHERE Username='" + Replace(tb_user.Text, " ", "") + "' AND HwID='" & Replace(HardwareID, " ", "") & "'")
- Private Sub b_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_Login.Click
- If lesen.Row.Count = 1 Then
- lb_LoginStatus.Text = "Status : Login in ..."
- Else
- lb_LoginStatus.Text = "Status : Wrong Login Data"
- lb_LoginStatus.ForeColor = Color.Red
- MessageBox.Show("Wrong Login Data !")
- End If
- End Sub
- Sub GetHwID()
- If GetHardwareID.Row.Count = 1 Then
- lb_LoginStatus.Text = "Status : Cheking HardwareID ..."
- CheckHwID()
- Else
- lb_LoginStatus.Text = "Status : Writing HardwareID in Database ..."
- db.Query("INSERT INTO HwIDs (`Username`,`HwID`) VALUES ('" & tb_user.Text & "','" & HardwareID & "')")
- CheckHwID()
- End If
- End Sub
- Sub CheckHwID()
- If CheckHardwareID.Row.Count = 1 Then
- lb_LoginStatus.Text = "Status : Cheking Complete Acces Granded"
- Me.Close()
- Client.Show()
- Else
- lb_LoginStatus.Text = "Status : HardwareID not maches..."
- MessageBox.Show("HardwareID not maches with the Server Please Reset")
- End If
- End Sub
- End Class
Könnt ihr mir weiter Helfen ??
Mfg MineCore