|
本帖最后由 610761555 于 2014-9-15 10:48 编辑
即兴查API写的小程序;
功能比较简陋的一个屏幕锁,供学习交流使用!
主要功能:
窗口自适应系统分辨率;
控件居中;
窗口无边框;
窗口透明;
- 空间 TLL示例
- var hwnd,GWL_EXSTYLE,GWL_STYLE,WS_EX_LAYERED
- 功能 锁屏_点击()
- control.show("锁屏",false)
- var ret,桌面_宽,桌面_高,已锁定_宽,已锁定_高,已锁定_x,已锁定_y,解锁_宽,解锁_高,密码_宽,密码_高
- window.setwindowtop(hwnd) //窗口置顶
- system.getscreen(桌面_宽,桌面_高) //取系统分辨率
- window.setwindowsize(hwnd,桌面_宽,桌面_高) //置窗口大小
- window.setwindowpos(hwnd,0,0) //设置窗口位置
- //控件根据系统分辨率居中排列
- window.getwindowsize(control.gethandle("已锁定"),已锁定_宽,已锁定_高) //取控件宽和高
- window.getwindowsize(control.gethandle("解锁"),解锁_宽,解锁_高)
- window.getwindowsize(control.gethandle("密码"),密码_宽,密码_高)
- 已锁定_x=桌面_宽/2-(已锁定_宽+解锁_宽+密码_宽)/2
- 已锁定_y=桌面_高/2-已锁定_高/2
- control.setpos("已锁定",已锁定_x,已锁定_y,0,0,1)
- control.setpos("解锁",已锁定_x+已锁定_宽,已锁定_y,0,0,1)
- control.setpos("密码",已锁定_x+已锁定_宽+解锁_宽,已锁定_y,0,0,1)
-
- 窗口底色=13160660 //窗口自身底色
- 透明方式=2 //dwFlags是透明方式,可以取两个值:LWA_ALPHA=2 LWA_COLORKEY=1
- 透明度=50
-
- ret=dllcall("user32","int","GetWindowLongA","int",hwnd,"int",GWL_EXSTYLE)
- ret=ret+WS_EX_LAYERED
- dllcall("user32","int","SetWindowLongA","int",hwnd,"int",GWL_EXSTYLE,"int",ret)
- dllcall("user32","int","SetLayeredWindowAttributes","int",hwnd,"int",窗口底色,"int",透明度,"int",透明方式)
- 功能结束
- 功能 初始化()
- control.show("热键0",false)
- hwnd=window.getmyhwnd() //取窗口句柄
- GWL_EXSTYLE=-20 //扩展窗口风格
- GWL_STYLE=-16
- WS_EX_LAYERED=524288 //窗口扩展属性
- //去除边框
- dllcall("user32.dll","int","SetWindowLongA","int",hwnd,"int",GWL_EXSTYLE,"int",256)
- dllcall("user32.dll","int","SetWindowLongA","int",hwnd,"int",GWL_STYLE,"int",WS_EX_LAYERED)
- 功能结束
- 功能 热键0_热键()
- help.exit()
- 功能结束
- //点击关闭_执行操作
- 功能 TLL示例_关闭()
- return false
- 功能结束
- 功能 解锁_点击()
- var 密码
- 密码=edit.gettext("密码")
- if(密码=="123456")
- help.exit()
- endif
- 功能结束
- 空间结束
复制代码
【其它源码】
【开源】 ▇▇5173/UU898/17173交易信息查询▇▇
【开源】▇▇多线程控制台框架式/带界面/换游戏也不愁▇▇
【原创开源】一键读写界面全部控件配置_0827-1512
局域网聊天实例--TC源码
自动取激活码激活游戏】
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|