Foxtable(狐表)用户栏目专家坐堂 → 如何写锁屏代码


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

主题:如何写锁屏代码

帅哥哟,离线,有人找我吗?
zyxhx
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
如何写锁屏代码  发帖心情 Post By:2018/7/5 15:54:00 [显示全部帖子]

请问老师,我想增加一个锁屏按钮,单击此按钮将电脑屏幕锁定,输入FOX用户登录密码后才能解锁。请问如何写代码?

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/5 17:14:00 [显示全部帖子]

老师好,你这个是针对windows系统锁屏的。我是想针对FOX软件设置锁屏,解锁时输入FOX用户登录密码解锁,如图所示:


图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/5 18:19:00 [显示全部帖子]

以我的水平设计不了,算了,不好意思麻烦老师。

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/5 22:34:00 [显示全部帖子]

谢谢老师指点!

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/6 9:11:00 [显示全部帖子]

锁项目后怎样能够使整个项目窗口半透明显示且不可用,解密后方可用,请老师指点。就象下图类似:


图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/7/6 9:21:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/6 9:53:00 [显示全部帖子]

谢谢老师,您太厉害了!真是有问必答。

只是如果要让输入的锁屏密码为当前用户的登录密码,如何自动获取当前用户的登录密码用于解锁屏幕。
[此贴子已经被作者于2018/7/6 10:00:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/6 10:50:00 [显示全部帖子]

老师,能不能将整个项目窗口以及当前任务栏即整个WINDOWS窗口当前状态半透明显示,而不是只锁定项目却任务栏仍然可以切换。

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/6 12:33:00 [显示全部帖子]

我设置了按屏幕显示器分辨率的宽高,结果还是只遮住项目,没有遮住任务栏,老师看下以下代码该如何改?

Dim frm As new windows.Forms.Form
vars("frm") = frm
frm.show
frm.Width = SysInfo.ScreenWidth
frm.Height = SysInfo.ScreenHeight
frm.Top = BaseMainForm.Top
frm.Left = BaseMainForm.Left
frm.FormBorderStyle = Windows.Forms.FormBorderStyle.None  '消除窗口的边框
frm.Opacity = 0.7


 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/7/6 12:44:00 [显示全部帖子]

谢谢老师。

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
实现完全锁住整个系统  发帖心情 Post By:2018/7/7 15:15:00 [显示全部帖子]

您好,老师。以上那些锁屏代码能够将屏幕完全锁住,但是按键盘上的win键就能够进行其它操作,这样就只能够锁住项目,不能同时锁住系统,请问代码应该如何修改?

 回到顶部
总数 16 1 2 下一页