Project 1
What you will need :
FileAve Account
Visual Basic
This thing called a brain :)
Start by creating a Windows Form Application, and add the following:
3 Labels
3 TextBox's
2 Buttons
Put the following name with the buttons, labels, and TextBox's
Label 1 - Username:
Label 2 - Password:
Label 3 - HWID:
TextBox1 - "" (Don't put anything in the TextBox)
TextBox2 - "" (Don't put anything in the TextBox)
TextBox3 - "" (Read Only - True) (Don't put anything in the TextBox)
Button 1 - Login
Button 2 - Get HWID
Now it should look like this :
[img]http://img23.imageshack.us/img23/9241/login1o.png[/img]
Double click Form 1, erase everything and add this code :
Code
Imports System.Management
Public Class Login
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
TextBox3.Text = cpuInfo
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox1.Text = "" Then
MsgBox("Please enter Username/Password")
End If
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Dim wc3 As New System.Net.WebClient
Dim user As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/user.txt")
Dim pass As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/pass.txt")
Dim hwid As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/hwid.txt ")
If user.Contains(":" & TextBox1.Text & ":") And pass.Contains(":" & TextBox2.Text & ":") And hwid.Contains(cpuInfo) Then
Me.Hide()
Form1.Show()
Else
MsgBox("You don't have access")
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
End ClassProject 2
Add a Windows Form to Project 1.
1 Label
2 Buttons
1 TextBox
Put the following name with the buttons, labels, and TextBox's
Label 1 - HWID:
Button 1 - Check HWID
Button 2 - Copy HWID
TextBox 1 - "" (Don't put anything in the TextBox)
Now it should look like this :
[img]http://img89.imageshack.us/img89/5204/login2q.png[/img]
Double click Form 1, erase everything and add this code :
Code
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
TextBox1.Text = cpuInfo
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Try
Clipboard.SetDataObject(cpuInfo)
MsgBox("Copied")
Catch ex As Exception
MsgBox("Failed to copy")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Dim wc3 As New System.Net.WebClient
Dim http3 As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/hwid.txt ")
If http3.Contains(cpuInfo) Then
MsgBox("Your HWID is currently active",MsgBoxStyle.Information, "Check")
Else
MsgBox("Your HWID is not registered", MsgBoxStyle.Information, "Check")
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End ClassAfter your done with EVERYTHING above do the following :
Note : In the code you will see where it says "http://youraccountname.fileave.com/HWID/" Replace "youraccountname" with your account name. This will make sense when we move on.
Step 1 : Go to FileAve.com and Login.
Step 2 : Hit "Upload" and make a new directory called "HWID"
Step 3 : Go in that Directory and click "Create Text File"
Step 4 : Make one HWID.txt, pass.txt, user.txt
Step 5 : When you make all of them your done! Then when you want to register someones application just simply get them to tell you their HWID then register it with FileAve. Get him/her to tell you the username and password they want, then put their HWID in the "HWID.txt" file. Put the username they want in "user.txt" and the password they want in "pass.txt" When you get someones username you always put the username in between the : : (Example :username:) and the password is the same (Example :password:) the password they want will go between the :: . If you need any help private message me and ill help you, thanks.
%99.99 Credits go to FileX
![[Image: DIZMPqM.png]](https://i.imgur.com/DIZMPqM.png)
