habe hier ein HWID-System;
Code:
Imports System.IO
Imports System.Management
Public Class Form1
Dim cpuInfo As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtHWID.Text = GetHWID()
Me.AcceptButton = btnConnect
End Sub
Function GetHWID()
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
Return cpuInfo
End Function
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
Dim Request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("meineurl")
Dim Response As System.Net.HttpWebResponse = Request.GetResponse()
Dim SR As System.IO.StreamReader = New System.IO.StreamReader(Response.GetResponseStream)
Dim HWIDAdded As String = SR.ReadToEnd
Dim ThisHWID As String = GetHWID()
If HWIDAdded.Contains(ThisHWID) Then
Form2.Show()
Me.Hide()
Else
Application.Exit()
End If
End Sub
End Class
Wenn ja, wie? Also wie muss ich diese dann ansprechen und dazu mischen (wichtiges zu beachten?)
