开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 4827|回复: 23
收起左侧

[易语言纯源码] 计算机挂机锁

[复制链接]
结帖率:33% (1/3)
发表于 2018-2-9 02:09:07 | 显示全部楼层 |阅读模式   湖南省湘西土家族苗族自治州
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
  
DLL命令名返回值类型公开备 注
安装钩子整数型 
DLL库文件名:
 
在DLL库中对应命令名:
SetWindowsHookExA
参数名类 型传址数组备 注
ihook整数型
lpfunc子程序指针
hin整数型
threadid整数型
DLL命令名返回值类型公开备 注
GetModuleHandleA整数型 
DLL库文件名:
 
在DLL库中对应命令名:
GetModuleHandleA
参数名类 型传址数组备 注
lpModuleName整数型
DLL命令名返回值类型公开备 注
卸载钩子整数型 
DLL库文件名:
 
在DLL库中对应命令名:
UnhookWindowsHookEx
参数名类 型传址数组备 注
hHook整数型
DLL命令名返回值类型公开备 注
下一个钩子整数型 
DLL库文件名:
 
在DLL库中对应命令名:
CallNextHookEx
参数名类 型传址数组备 注
hHook整数型
icode整数型
wParam整数型
lParam整数型
DLL命令名返回值类型公开备 注
ClipCursor 
DLL库文件名:
 
在DLL库中对应命令名:
ClipCursor
参数名类 型传址数组备 注
lpRectrect
DLL命令名返回值类型公开备 注
ClipCursor2 
DLL库文件名:
 
在DLL库中对应命令名:
ClipCursor
参数名类 型传址数组备 注
lpRect整数型
DLL命令名返回值类型公开备 注
画圆角柜形整数型 
DLL库文件名:
 
在DLL库中对应命令名:
CreateRoundRectRgn
参数名类 型传址数组备 注
左上角横坐标整数型
左上角纵坐标整数型
右下角横坐标整数型
右下角纵坐标整数型
圆角椭圆的宽整数型
圆角椭圆的高整数型
DLL命令名返回值类型公开备 注
组合区域整数型 
DLL库文件名:
 
在DLL库中对应命令名:
CombineRgn
参数名类 型传址数组备 注
区域句柄整数型
源区域1整数型
源区域2整数型
常数整数型
DLL命令名返回值类型公开备 注
创建新外形整数型 
DLL库文件名:
 
在DLL库中对应命令名:
SetWindowRgn
参数名类 型传址数组备 注
窗口句柄整数型
区域句柄整数型
重画窗口逻辑型
DLL命令名返回值类型公开备 注
创建矩形整数型 执行成功为区域句柄,失败则为零
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateRectRgn
参数名类 型传址数组备 注
X1整数型矩形左上角X,Y坐标
Y1整数型同上
X2整数型矩形右下角X,Y坐标   
Y2整数型同上  
DLL命令名返回值类型公开备 注
SetWindowPos整数型 
DLL库文件名:
 
在DLL库中对应命令名:
SetWindowPos
参数名类 型传址数组备 注
a 
b 
c 
d 
e 
f 
g 
DLL命令名返回值类型公开备 注
GetForegroundwindow整数型 
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetForegroundWindow
参数名类 型传址数组备 注
DLL命令名返回值类型公开备 注
CopyMemory 
DLL库文件名:
 
在DLL库中对应命令名:
RtlMoveMemory
参数名类 型传址数组备 注
Destination按键信息
Source整数型
cbCopy整数型

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
_编辑框1_按下某键逻辑型 
参数名类 型参考可空数组备 注
键代码整数型
功能键状态整数型
如果真 (键代码 = #回车键 )
_图形按钮1_被单击 ()

子程序名返回值类型公开备 注
_编辑框2_按下某键逻辑型 
参数名类 型参考可空数组备 注
键代码整数型
功能键状态整数型
如果真 (键代码 = #回车键 )
_图形按钮1_被单击 ()

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
按钮初始化 (画板1)
XP风格 (1)
图片框2.可视 = 假
取注册 ()
美化按钮 (图形按钮1, “锁 定”, 9)
美化按钮 (图形按钮2, “退 出”, 9)
美化按钮 (图形按钮3, “选 项”, 9)
美化按钮 (图形按钮4, “全 选”, 9)
美化按钮 (图形按钮5, “反 选”, 9)
美化按钮 (图形按钮6, “确 认”, 9)
画板1.销毁 ()  ' 由于已不再需要
子程序名返回值类型公开备 注
_图形按钮1_被单击  
如果真 (选择框1.选中 = )
桌面半透明 = 真
如果真 (选择框2.选中 = )
锁定计算机 = 真
如果真 (选择框3.选中 = )
任务管理器 = 真
如果真 (选择框4.选中 = )
更改密码 = 真
如果真 (选择框5.选中 = )
计算机注销 = 真
如果真 (选择框6.选中 = )
计算机关闭 = 真
如果 (编辑框1.内容 ≠ “”)
如果 (编辑框1.内容 = 编辑框2.内容)
密码 = 编辑框2.内容
挂机提示 = 编辑框3.内容
载入 (窗口1, , )
销毁 ()
信息框 (“密码和确认密码输入不一致!”, 48, “提示”)
钩子句柄 = 安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0)
信息框 (“密码不可以为空!”, 48, “提示”)

子程序名返回值类型公开备 注
_图形按钮2_被单击  
销毁 ()
子程序名返回值类型公开备 注
_图形按钮4_被单击  
选择框1.选中 = 真
选择框2.选中 = 真
选择框3.选中 = 真
选择框4.选中 = 真
选择框5.选中 = 真
选择框6.选中 = 真
子程序名返回值类型公开备 注
_图形按钮5_被单击  
选择框1.选中 = 假
选择框2.选中 = 假
选择框3.选中 = 假
选择框4.选中 = 假
选择框5.选中 = 假
选择框6.选中 = 假
选择框1.选中 = 假
子程序名返回值类型公开备 注
_图形按钮6_被单击  
图片框2.可视 = 假
图形按钮1.禁止 = 假
图形按钮2.禁止 = 假
图形按钮3.禁止 = 假
XP风格 (1)
子程序名返回值类型公开备 注
_图形按钮3_被单击  
图片框2.可视 = 真
图形按钮1.禁止 = 真
图形按钮2.禁止 = 真
图形按钮3.禁止 = 真
XP风格 (0)


i支持库列表   支持库注释   
xplibXP风格界面库
计算机挂机锁.e (33.95 KB, 下载次数: 102)

评分

参与人数 1好评 +1 精币 +2 收起 理由
China洋葱 + 1 + 2 感谢发布原创作品,精易因你更精彩!

查看全部评分


发表于 2018-5-15 19:21:22 | 显示全部楼层   马来西亚
试试有用没不知道进程能关闭不
回复 支持 反对

使用道具 举报

发表于 2018-4-11 12:48:23 高大上手机用户 | 显示全部楼层   江苏省南京市
评论赚点外块
回复 支持 反对

使用道具 举报

结帖率:64% (9/14)

签到天数: 1 天

发表于 2018-3-14 20:29:31 | 显示全部楼层   浙江省杭州市
评论赚点外快 哈哈
回复 支持 反对

使用道具 举报

发表于 2018-3-10 18:26:04 | 显示全部楼层   广东省东莞市
评论赚点外快 哈哈
回复 支持 反对

使用道具 举报

发表于 2018-3-10 18:25:29 | 显示全部楼层   广东省东莞市
厉害的我的老铁 棒!
回复 支持 反对

使用道具 举报

结帖率:99% (80/81)

签到天数: 8 天

发表于 2018-2-28 13:05:10 | 显示全部楼层   湖南省长沙市
: 计算机挂机
回复 支持 反对

使用道具 举报

结帖率:100% (8/8)

签到天数: 8 天

发表于 2018-2-21 11:58:54 | 显示全部楼层   河北省保定市
測試了一下,比較完美,把一些快捷鍵也屏蔽了,我的輸入法不知道怎麽就是繁體了
回复 支持 反对

使用道具 举报

结帖率:76% (53/70)
发表于 2018-2-12 17:35:14 | 显示全部楼层   北京市北京市
学习一下。。。
回复 支持 反对

使用道具 举报

发表于 2018-2-11 23:30:56 | 显示全部楼层   河北省秦皇岛市
是打算发士大夫士大夫的大是大非
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表