Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于局域网用户登陆问题


  共有2878人关注过本帖树形打印复制链接

主题：关于局域网用户登陆问题
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		关于局域网用户登陆问题  发帖心情 Post By：2021/3/31 16:01:00 [只看该作者]

老师好！

   我想在局域网中不允许相同用户名在不同电脑上登陆，请问代码要如何写。


测试中发现一个用户名可以登陆多台电脑
[此贴子已经被作者于2021/3/31 16:02:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/31 16:35:00 [只看该作者]

登录的时候记录一下电脑IP或者网卡地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59092

然后判断是不是同一个IP或者网卡地址
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/3/31 16:42:00 [只看该作者]

蓝老师好，我还是新手，能不能提供下学习代码

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/31 16:54:00 [只看该作者]

改为使用自定义用户管理：http://www.foxtable.com/webhelp/topics/2048.htm

在用户表增加一个mac列，打开登录窗口的时候，根据2楼的方法获取电脑mac地址，到用户表查询，如果已经有记录就提示并退出；如果没有记录就确定的时候把mac地址存入用户表
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/2 11:14:00 [只看该作者]

老师好！
1、我要怎么根据不同的用户登录写入MAC码？比如：张三登录，MAC就写在张三那行。
2、我退出项目的时候怎么删除本次登录用户的MAC？请指点

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试网络.rar


'------------------------获取本机MAC码-----------------------------------------------
Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
Tables("users").current("mac") = nics(0).GetPhysicalAddress.Tostring
'----------------------------------------------------------------------------------------
获取MAC我是写在用户登录窗口里的。

现在贴出代码字数过多，就报错发表不了。是我浏览器的问题吗？
[此贴子已经被作者于2021/4/2 11:41:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/2 12:02:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试网络.zip
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/2 14:24:00 [只看该作者]

老师，我在局域网中测试这段代码还是不能提示：此用户已在其它电脑登录。我在局域网中新增用户和删除用户是可以的。

If e.Form.Controls("PassWord").Value = dr("Password") Then
    Dim mac As String = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()(0).GetPhysicalAddress.Tostring
    If dr.Isnull("mac") = False
        If dr("mac") <> mac Then
            Messagebox.show("此用户已在其它电脑登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If
    Else
        dr("mac") = mac
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/2 14:27:00 [只看该作者]

其它电脑登录后有保存mac地址吗？

Dim mac As String = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()(0).GetPhysicalAddress.Tostring
msgbox(mac)
msgbox（dr("mac")）
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/2 14:35:00 [只看该作者]

其他电脑登录有保存mac，但是是直接把以前保存的MAC覆盖掉了，所以还是没有提示

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/2 14:45:00 [只看该作者]

6楼的例子我测试没有问题，请上传有问题的实例说明

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询