限制用户非法使用或入侵软件

时　间:2019-05-13 10:01:34
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:通过事先记录用户的操作环境参数，与表中或VBA代码中的参数进行比对，来达到杜绝非法用户使用自已开发的软件。
正　文:

不需要用户名和密码，就可以达到限制用户非法使用您开发的软件。在这里分享一个方案。

一、原理：

第1步事先在表中记录用户的操作环境参数，可以在用户的电脑上去获得（一般来说是自已的同事，因为他要用你的软件，当然会让你操作他的电脑），比如：

'获得机器名用：
Environ("COMPUTERNAME")

'获得用户名：
Environ("USERNAME")

第2步：用autoexec宏来执行启动窗体，在运行启运窗体前通过函数来判断用户是否合法

Function CheckComputer()
'如果计算机名等于ZHANGZHI
    If Environ("COMPUTERNAME") = "ZHANGZHI" Then
       DoCmd.OpenForm "frmStart" 'frmStart是启动窗体
    Else
       MsgBox "非法使用本软件，即将退出!", vbCritical, "提示"
       DoCmd.Quit '退出
    End If
End Function

二、视频讲解

在《Access每天三分钟 第三季》第2课的结尾部分，有相关讲解，点击：https://m.qlchat.com/wechat/page/topic-intro?topicId=2000004658621584