Sunday, 17 May 2015

Get unique CPU ID for all unique client - visual basic - no need to generate setup key.

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. 

No comments:

Post a Comment