忘记附代码了 , 补上
[JavaScript] 纯文本查看 复制代码 .版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
左边 = 0 ' 设置启动窗口左边距
顶边 = 0 ' 设置启动窗口上边距
宽度 = 取屏幕宽度 () ' 设置启动窗口覆盖屏幕
高度 = 取屏幕高度 () ' 设置启动窗口覆盖屏幕
标签1.左边 = 0 ' 设置标签1左边距
标签1.顶边 = 0 ' 设置标签1上边距
标签1.高度 = 取屏幕高度 () ' 设置标签1覆盖屏幕
标签1.宽度 = 取屏幕宽度 () ' 设置标签1覆盖屏幕
' 鼠标_限制 (_启动窗口.左边, _启动窗口.顶边, _启动窗口.高度, _启动窗口.宽度),未调用模块,此方法作废
.子程序 _按钮1_被单击
载入 (窗口1, , 真)
.子程序 _标签1_鼠标左键被按下, 逻辑型, , 左键点击弹出解锁框
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (窗口1, , 真)
.子程序 __启动窗口_按下某键, 逻辑型, , 按下回车载入窗口1
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
载入 (窗口1, , 真)
.如果真结束
.子程序 __启动窗口_可否被关闭, 逻辑型, , 取消关闭功能及热键功能
返回 (假)
.版本 2
.程序集 窗口程序集_窗口1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ≠ “spzczd”)
信息框 (“不要碰我!”, 0, “哟哟哟哟莫乱点!”, _启动窗口.取窗口句柄 ())
.如果真结束
.如果真 (编辑框1.内容 = “spzczd”)
结束 ()
.如果真结束
|