Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间: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



Access软件网QQ交流群 (群号:198347485)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助