Illegal Use

By | August 17, 2020

How to Prevent using an Access database on other computers

This Database can run on only 2 Computers.

Purpose

Purpose of this database is

To Prevent Your Database to run on 2nd Computer without your Permission.

This database will not work on 3rd, 4th, 5th ……………. Computer.

After Registration of 1st and 2nd Computer, you can run this database only on these Computers.

Method:

Table: Registration

Main Form

 

 

 

 

 

 

Registration Form

Private Sub btnOK_Click()

If IsNull(txtName) Then

MsgBox (“Please Enter Your Name First !”), vbOKOnly, “Name Required”

DoCmd.GoToControl “txtName”

End

End If

If Not IsNull(txtName) Then

YourName = txtName

GetDate = Date

MB1 = MBSerialNumber()

DoCmd.Close acForm, “Registration”

DoCmd.OpenForm “Registration”

End If

End Sub

Private Sub Form_Load()

If IsNull(YourName) Then

DoCmd.OpenForm “Registration”

End

End If

If Not IsNull(YourName) Then

DoCmd.Close acForm, “Registration”

DoCmd.OpenForm “Login”

End If

End Sub

Download Database

Login Form

 

 

 

 

 

Private Sub btnLogin_Click()

If txtUserName = “Admin” And txtPassword = “123456” Then

DoCmd.OpenForm “Main Form”

DoCmd.Close acForm, “Login”

End

ElseIf txtUserName = “Admin” And txtPassword <> “123456” Then

MsgBox (“You have Typed Wrong Password! Please Try Again”), vbOKOnly, “Wrong Password”

DoCmd.GoToControl “txtPassword”

End

ElseIf txtUserName <> “Admin” And txtPassword = “123456” Then

MsgBox (“You have Typed Wrong UserName! Please Try Again”), vbOKOnly, “Wrong UserName”

DoCmd.GoToControl “txtUserName”

End

ElseIf txtUserName <> “Admin” And txtPassword <> “123456” Then

MsgBox (“You have Typed Wrong Criteria! Please Try Again”), vbOKOnly, “Wrong Input”

txtUserName = “”

txtPassword = “”

End

End If

End Sub

Part 1

Video Part 2

Video Part 3

 

Private Sub Form_Load()

GetMB1 = MBSerialNumber()

GetMB2 = MBSerialNumber()

If txtMB1 = GetMB1 Or txtMB2 = GetMB2 Then

End

Else

DoCmd.OpenForm “Illegal Use”

DoCmd.Close acForm, “Login”

End If

End Sub

Illegal Use Form

Private Sub btnYes_Click()

DoCmd.OpenForm “AlFareed”

DoCmd.Close acForm, “Illegal Use”

End Sub

Private Sub btnNo_Click()

DoCmd.Quit

End Sub

AlFareed Form

Private Sub GetMB2_Click()

MB2 = MBSerialNumber()

End Sub

Reset All Form 

Private Sub Reset_Click()

GetDate = Null

YourName = Null

MB1 = Null

MB2 = Null

DoCmd.Close acForm, “Reset All”

End Sub

Private Sub Form_Load()

Call Reset_Click

End Sub

Function Code to Get Mother Board Serial Number

Public Function MBSerialNumber() As String

Dim objs As Object

Dim obj As Object

Dim WMI As Object

Dim sAns As String

Set WMI = GetObject(“WinMgmts:”)

Set objs = WMI.InstancesOf(“Win32_BaseBoard”)

For Each obj In objs

sAns = sAns & obj.SerialNumber

If sAns < objs.Count Then sAns = sAns & “2k”

Next

MBSerialNumber = sAns

End Function

References

 

 

 

 

 

 

Download Database

Share This:

Leave a Reply

Your email address will not be published. Required fields are marked *