Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]登录用户限制操作


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

主题：[求助]登录用户限制操作
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/7/29 18:41:00 [显示全部帖子]

做个计划，每10秒钟检查一下加密狗，根据狗是否存在，来执行相关操作
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/7/29 18:51:00 [显示全部帖子]

做个计划：
 
If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then
   baseMainform.Enabled = False
Else
   baseMainform.Enabled = True
End if
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/7/29 19:04:00 [显示全部帖子]

If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then ‘如果加密狗不存在
   baseMainform.Enabled = False  '禁用整个主界面
Else
   baseMainform.Enabled = True  '启用整个主界面
End if

 

 

 

这么简单，怎么就看不明白？ 如果看不明白，就不用做这个功能了。

 

记得将2F7EFE3A0632AE5C改为实际的加密abc后的字符串。

[此贴子已经被作者于2013-7-29 19:04:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/8/5 11:40:00 [显示全部帖子]

有点酸的方法正确，漏掉一个细节：

 

f UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Orelse Ukey.UID <> User.Tag.Trim("*") Then

End if
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/8/5 11:48:00 [显示全部帖子]

不可能

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