Hi,ich möchte ein "Login" System machen,das die HWID checkt. Diese stehen auf eine Pastebin Seite (ja ich weiß das das unsicher ist) getrennt mit einem Doppelpunkt also so: HWID1:HWID2.
Ich habe schon folgendes versucht,aber es hat leider nicht geklappt. Wäre nett wenn mir jemand sogen könnte wo der Fehler liegt,damit ich mich verbessern kann^^
Imports System.Net
Imports System.IO
Public Class Form1
Private Const Hwidz As String = "Pastebin Link mit HWID:HWID"
Private wc As WebClient
Function GetHwId()
Dim HardwareId As String = System.Security.Principal.WindowsIdentity.GetCurrent.User.Value
Return HardwareId
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CheckHwId
End Sub
Sub CheckHwId()
Dim HWIDS As String() = wc.DownloadString(Hwidz).Split(Environment.NewLine)
TextBox1.Text = Hwidz.Split(":")(0)
If TextBox1.Text = GetHwId() Then okuser()
TextBox1.Text = Hwidz.Split(":")(1)
If TextBox1.Text = GetHwId() Then okuser()
TextBox1.Text = Hwidz.Split(":")(1)
If TextBox1.Text = GetHwId() Then okuser()
End Sub
Sub okuser()
MsgBox("HWID korrekt")
End Sub
End Class
Ich habe schon folgendes versucht,aber es hat leider nicht geklappt. Wäre nett wenn mir jemand sogen könnte wo der Fehler liegt,damit ich mich verbessern kann^^
Imports System.Net
Imports System.IO
Public Class Form1
Private Const Hwidz As String = "Pastebin Link mit HWID:HWID"
Private wc As WebClient
Function GetHwId()
Dim HardwareId As String = System.Security.Principal.WindowsIdentity.GetCurrent.User.Value
Return HardwareId
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CheckHwId
End Sub
Sub CheckHwId()
Dim HWIDS As String() = wc.DownloadString(Hwidz).Split(Environment.NewLine)
TextBox1.Text = Hwidz.Split(":")(0)
If TextBox1.Text = GetHwId() Then okuser()
TextBox1.Text = Hwidz.Split(":")(1)
If TextBox1.Text = GetHwId() Then okuser()
TextBox1.Text = Hwidz.Split(":")(1)
If TextBox1.Text = GetHwId() Then okuser()
End Sub
Sub okuser()
MsgBox("HWID korrekt")
End Sub
End Class