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


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

主题：关于局域网用户登陆问题
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/2 14:57:00 [显示全部帖子]

这是放在局域网共享文件夹下的
[此贴子已经被作者于2021/4/2 14:59:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weipeng6999
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/2 15:01:00 [显示全部帖子]

这是放在局域网共享文件夹下的

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


加好友 发短信
等级：小狐 帖子：349 积分：3329 威望：0 精华：0 注册：2016/3/8 18:13:00 		  发帖心情 Post By：2021/4/6 14:44:00 [显示全部帖子]

老师好！您发的代码我测试了正常，但是现在还有一个问题。一台电脑登录退出后，MAC仍写在users表中，导致另一台用此用户登录时弹出“此用户已在其他电脑登录”，代码应该如何修改？请指教

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