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

观娱网 2020-01-22

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

通过事先记录用户的操作环境参数,与表中或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课的结尾部分,有相关讲解,点击“了解更多”观看此视频。