Creating a HWID System [Visual basic]Creating a HWID System [Visual basic]
For those who don´t know what HWID System is: Leave this thread
To all who understand it: Just read and enjoy
This only works for your VB Programme
You will need:
-Visual basic 2010 You can download it here: http://www.microsoft.com/express/
-A host (Can be free)
-Brain
The first step:
You start VB 2010 and click on "Create a new Project" and choose "Win32-Application"
Then there should be a form.
The second step:
Create a Text Box and a Button. Place it anywhere, you want.
Set TextBox to "Read Only"
The third step:
Double click on the button (You can rename "Button1 to "yourname") and copy paste this code:
On the top there should be "Public Class FormX" (X = Any Number)
Put in this:
The fourth step:
Double Click on the Form and copy paste this code:
Above Public Class FormX put in this:
The fifth step:
If you have a host now make a text file on it and name it "DataBase.txt" or something like that
This should be the text:
For HWID, write the number of your friend or m8 he has and sent you.
Name is whatever you want
Credits go to:
Cypher for Code
xXAznrulzXx for creating this thread
@{Banned}**HACKER** for bring me the idea google for it
If you have questions VM or PM me
If you use this for your releases ALWAYS give Cypher credits!
To all who understand it: Just read and enjoy
This only works for your VB Programme
You will need:
-Visual basic 2010 You can download it here: http://www.microsoft.com/express/
-A host (Can be free)
-Brain
The first step:
You start VB 2010 and click on "Create a new Project" and choose "Win32-Application"
Then there should be a form.
The second step:
Create a Text Box and a Button. Place it anywhere, you want.
Set TextBox to "Read Only"
The third step:
Double click on the button (You can rename "Button1 to "yourname") and copy paste this code:
Code:
Dim HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
TextBox1.Text = HWID
End Sub
Put in this:
Code:
Imports System.Management
Double Click on the Form and copy paste this code:
Code:
Dim HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Dim wc As New WebClient
Dim strings As String
strings = wc.DownloadString("URL to text file")
wc.Dispose()
If strings.Contains(HWID) Then
MessageBox.Show("HWID Matches!", "Open!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Error, HWID Does Not Match!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End If
End Sub
Code:
Imports System.Management Imports System.Net
If you have a host now make a text file on it and name it "DataBase.txt" or something like that
This should be the text:
Code:
<HWID>:<Name> <HWID>:Name>
Name is whatever you want
Credits go to:
Cypher for Code
xXAznrulzXx for creating this thread
@{Banned}**HACKER** for bring me the idea google for it
If you have questions VM or PM me
If you use this for your releases ALWAYS give Cypher credits!
Originally Posted by TheEnemy
cant give more infos