Here I am going to show you how to fetch CPU id(Unique number from CPU) using visual basic.
Remember that you have to execute below code from your client PC only once to authorized your premium client.
Copy this code and make exe file of that project and run on client pc.
Save output code either in database for future use.
Dim wmi, cpu
Set wmi = GetObject("winmgmts:")
For Each cpu In wmi.InstancesOf("Win32_Processor")
cpuid = cpuid + cpu.ProcessorID
Next
-----------------------------------------------------------
This will fetch something like BGYGHHF6BG (its an example only).
Now Implement this code in your project and compare output like this..
copy this code to
Dim wmi, cpu
Set wmi = GetObject("winmgmts:")
For Each cpu In wmi.InstancesOf("Win32_Processor")
cpuid = cpuid + cpu.ProcessorID
Next
If cpuid = "BGYGHHF6BG" Then
frmLogin.Show
Unload Me
Else
MsgBox "This Is Not REGISTERED Copy....." & vbCrLf & "" & vbCrLf & "To Register Your Copy Kindly Contact To Mr. ABC ", vbCritical, "WARNING"
Unload Me
End If
-------------------------------------------------------------------------
This code fetches and compare output every time user open your application.
Remember that you have to execute below code from your client PC only once to authorized your premium client.
Copy this code and make exe file of that project and run on client pc.
Save output code either in database for future use.
Dim wmi, cpu
Set wmi = GetObject("winmgmts:")
For Each cpu In wmi.InstancesOf("Win32_Processor")
cpuid = cpuid + cpu.ProcessorID
Next
-----------------------------------------------------------
This will fetch something like BGYGHHF6BG (its an example only).
Now Implement this code in your project and compare output like this..
copy this code to
Dim wmi, cpu
Set wmi = GetObject("winmgmts:")
For Each cpu In wmi.InstancesOf("Win32_Processor")
cpuid = cpuid + cpu.ProcessorID
Next
If cpuid = "BGYGHHF6BG" Then
frmLogin.Show
Unload Me
Else
MsgBox "This Is Not REGISTERED Copy....." & vbCrLf & "" & vbCrLf & "To Register Your Copy Kindly Contact To Mr. ABC ", vbCritical, "WARNING"
Unload Me
End If
-------------------------------------------------------------------------
This code fetches and compare output every time user open your application.
No comments:
Post a Comment