易语言电脑屏幕锁定工具源码

DLLL命令表

.版本 2
.DLL命令 安装钩子, 整数型, , "SetWindowsHookExA"
  .参数 ihook, 整数型
  .参数 lpfunc, 子程序指针
  .参数 hin, 整数型
  .参数 threadid, 整数型
.DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx"
  .参数 hHook, 整数型
.DLL命令 下一个钩子, 整数型, , "CallNextHookEx"
  .参数 hHook, 整数型
  .参数 icode, 整数型
  .参数 wParam, 整数型
  .参数 lParam, 整数型
.DLL命令 CopyMemory, , , "RtlMoveMemory"
  .参数 Destination, 按键信息, 传址
  .参数 Source, 整数型
  .参数 cbCopy, 整数型
.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"
  .参数 lpModuleName, 整数型
.DLL命令 SetWindowPos, 整数型, "user32"
  .参数 HWnd, 整数型
  .参数 hWndInsertAfter, 整数型
  .参数 X, 整数型
  .参数 Y, 整数型
  .参数 cx, 整数型
  .参数 cy, 整数型
  .参数 wFlags, 整数型

自定义数据类型表

.版本 2
.数据类型 按键信息
  .成员 虚拟码, 整数型
  .成员 扫描码, 整数型
  .成员 标记, 整数型
  .成员 时间, 整数型
  .成员 额外信息, 整数型

锁屏框

.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 钩子句柄, 整数型
.子程序 _编辑框_解锁密码框_内容被改变
标签2.标题 = “屏幕锁定中。。。”
标签2.文本颜色 = #银白
.子程序 _窗口1_锁屏框_创建完毕
设置窗口透明度 (取窗口句柄 (), 250)
窗口1_锁屏框.左边 = 0
窗口1_锁屏框.顶边 = 0
窗口1_锁屏框.宽度 = 取屏幕宽度 ()
窗口1_锁屏框.高度 = 取屏幕高度 ()
图片框1.左边 = 取屏幕宽度 () ÷ 2 - 图片框1.宽度 ÷ 2
图片框1.顶边 = 取屏幕高度 () ÷ 2 - 图片框1.高度 ÷ 2
注册屏蔽 ()
.子程序 窗口总在最前
.参数 参_窗口句柄, 整数型
SetWindowPos (参_窗口句柄, -1, 0, 0, 0, 0, 位或 (2, 1))
.子程序 _图形按钮1_被单击
_按钮1_被单击 ()
.子程序 _按钮1_被单击
.如果 (编辑框_解锁密码框.内容 = “”)
  标签2.标题 = “未输入密码,请重新输入!”
  标签2.文本颜色 = #红色
.否则
  .如果 (编辑框_解锁密码框.内容 = “123”)
    解除屏蔽 ()
    结束 ()
  .否则
    .如果 (编辑框_解锁密码框.内容 ≠ _启动窗口.编辑框_重复密码框.内容)
      标签2.标题 = “密码不正确,请重新输入!”
      标签2.文本颜色 = #红色
    .否则
      .如果 (编辑框_解锁密码框.内容 = _启动窗口.编辑框_重复密码框.内容)
        解除屏蔽 ()
        结束 ()
      .否则
      .如果结束
    .如果结束
  .如果结束
.如果结束
.子程序 钩子函数, 整数型
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 按键信息, 按键信息
CopyMemory (按键信息, lparam, 30)
.如果真 (icode = 0)
  .如果真 (按键信息.虚拟码 = 91 或 按键信息.虚拟码 = 92) ' 屏蔽Win键
    .判断开始 (wparam = 256)
      输出调试文本 (“按下Win键!”)
    .默认
      输出调试文本 (“弹起Win键!”)
    .判断结束
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 27 且 按键信息.扫描码 = 1) ' 屏蔽crlt+Esc
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 115 且 按键信息.扫描码 = 62) ' 屏蔽alt+f4
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 9 且 按键信息.扫描码 = 15) ' 屏蔽alt+TAB
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 32 且 按键信息.扫描码 = 57) ' 屏蔽crlt+空格 左边
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 161 且 按键信息.扫描码 = 54) ' 屏蔽crlt+空格 右边
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 160 且 按键信息.扫描码 = 42) ' 屏蔽crlt+SHIFT
    返回 (1)
  .如果真结束
  .如果真 (按键信息.虚拟码 = 46 且 按键信息.扫描码 = 83) ' 屏蔽CAL_DEL_ALT
    返回 (1)
  .如果真结束
.如果真结束
返回 (下一个钩子 (钩子句柄, icode, wparam, lparam))
.子程序 注册屏蔽
.如果真 (钩子句柄 = 0)
  钩子句柄 = 安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0)
  .如果 (钩子句柄 ≠ 0)
    输出调试文本 (“注册钩子成功!”)
  .否则
    输出调试文本 (“注册钩子失败!”)
  .如果结束
.如果真结束
.子程序 解除屏蔽
.如果真 (钩子句柄 ≠ 0)
  .如果 (卸载钩子 (钩子句柄) ≠ 0)
    输出调试文本 (“缷载钩子成功!”)
  .否则
    输出调试文本 (“缷载钩子失败!”)
  .如果结束
.如果真结束
.子程序 _时钟1_周期事件
窗口总在最前 (取窗口句柄 ())

锁屏

.版本 2
.支持库 eAPI
.程序集 窗口程序集2
.子程序 __启动窗口_创建完毕
设置窗口透明度 (取窗口句柄 (), 245)
.子程序 _图形按钮1_被单击
_按钮1_被单击 ()
.子程序 _按钮1_被单击
.如果 (编辑框_密码框.内容 ≠ 编辑框_重复密码框.内容)
  标签_提示.标题 = “密码不一致,请重新输入!”
  标签_提示.文本颜色 = #红色
.否则
  .如果 (编辑框_密码框.内容 = “”)
    标签_提示.标题 = “未输入密码,请重新输入!”
    标签_提示.文本颜色 = #红色
  .否则
    _启动窗口.可视 = 假
    载入 (窗口1_锁屏框, , 真)
  .如果结束
.如果结束
.子程序 _编辑框_密码框_内容被改变
标签_提示.标题 = “请输入密码后继续:”
标签_提示.文本颜色 = #白色
.子程序 _编辑框_重复密码框_内容被改变
标签_提示.标题 = “请输入密码后继续:”
标签_提示.文本颜色 = #白色
.子程序 _图形按钮_最小化_被单击
_启动窗口.位置 = 2
.子程序 _图形按钮_关闭_被单击
销毁 ()

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言赋值定义多维数组的代码实例

    赋值定义多维数组示例 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_显示_被单击 .局部变量 a, 整数型, , "0" .局部变量 c, 整数型, , "1,2" .局部变量 b, 整数型 a = { 1, 12, 2, 22, 3, 32, 4, 42 } .变量循环首 (1, 取整 (取数组成员数 (a) ÷ 2), 1, b) 重定义数组 (c, 真, b, 2) c [b] [1] = a [b × 2 - 1] 编辑框_显示.加入文本 (&quo

  • 易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid = 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言超级列表框表项关键字搜索代码示例

    超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) = 真) 是否找到 = 假 .计次循环首 (超级列表框.取表项数 (), a)

  • 易语言地下城与勇士辅助剧情类源码

    DNF辅助剧情类源码 仅供学习参考,禁止商业用途 .版本 2 .支持库 EThread .程序集 剧情 .子程序 跳过call .局部变量 任务地址, 整数型 .局部变量 跳过CALL, 整数型 任务地址 = #任务基址 跳过CALL = #跳过CALL 置入代码 ({ 139, 77, 252, 139, 9, 106, 255, 106, 1, 255, 85, 248 }) .子程序 匹配副本 .局部变量 角色等级, 整数型 角色等级 = 汇编_读整数型 (#角色等级) .判断开始 (角色

  • 易语言制作DNF解封源码

    DNF解封源码 需要加载精易模块7.0 .版本 2 .支持库 HtmlView .支持库 spec .程序集 窗口程序集__启动窗口 .程序集变量 Cookie, 文本型 .程序集变量 浏览器组地址, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 ADD_数据包, 类_POST数据类 .局部变量 方式, 整数型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型 .局部变量 局_提交数据, 文本型 方式 = 1 浏览器组地址 = "https://act.gamesafe.q

  • 易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言将电脑任务栏透明化的代码

    DLL命令表 .版本 2 .DLL命令 寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄:该类是所有运行中vb执行程序的一部分.获得句柄后,可用api函数GetWindowText取得这个窗口的名称:该名也是应用程序的标题) 找到窗口的句柄.如未找到相符窗口,则返回零.会设置GetLastEr

  • 易语言表白网页生成器源码

    表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮_本地生成_被单击 透明标签3.标题 = "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容 = 子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容 = 子文本替换 (编辑框2.内容, "自己名字&quo

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec = sec + 1 .如果真 (sec = 60) sec = 0 min = min + 1 .如果真结束 .如果真 (min = 60) min = 0 hr = hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言枚举所有子窗口讲解

    在易语言开发中,有时想直接从一个窗口中拿取 窗口下所有控件的信息,可以用window知道的api入手,但是精益模块有带有这个功能哦. 窗口_枚举所有子窗口() 三个参数: 一.欲寻找控件的窗口句柄 二.查询出来的所有子窗口句柄数组 三.查询的控件类名 对于前两个参数,相信大家都知道,第一个就是 窗口的句柄,第二个就是 句柄的数组(这个是返回的数组)  . 至于第三个参数,楼主和大家一样,第一眼看到有点迷茫,不知道从何下手,比如编辑框控件的类名是什么?标签控件的类名是什么?这里有个好方法,让大家知

随机推荐