易语言等待按键

.版本 2

.支持库 shellEx

.程序集 窗口程序集1

.程序集变量 F8, 整数型

.子程序 __启动窗口_创建完毕

F8 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键)

.子程序 _按钮1_被单击

载入 (窗口1, , 假)

延时 (1000)

_启动窗口.可视 ＝ 假

窗口1.可视 ＝ 假

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.如果真 (参数一 ＝ F8)

_启动窗口.可视 ＝ 真

窗口1.可视 ＝ 真

.如果真结束

这里要加一个标签组件，再注册热键 ，加上标签反馈事件就OK了。

一直转圈圈那是鼠标等待状态,但是让鼠标不动,那真的好吗?写程序的不是应该就算自己的程序崩溃结束了也不能让用户的其它 *** 作出错不是吗?

给你提供了两个函数,一个是获取鼠标状态的,65561就是鼠标等待状态,还有一个就是锁定鼠标键盘的,复制下面代码粘贴到易语言上就可以用了

.版本 2

.子程序 取鼠标指针形状, 整数型

.局部变量 a, CURSORINFO

GetCursorPos (a.ptScreenPos)

a.cbSize ＝ 20

GetCursorInfo (a)

返回 (a.hCursor)

.子程序 锁定鼠标键盘

BlockInput (1) ' 锁定

BlockInput (0) ' 解锁

.版本 2

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", 公开

.参数 POINTAPI, POINTAPI, 传址

.DLL命令 GetCursorInfo, 整数型, "user32", "GetCursorInfo", 公开

.参数 piconinfo, CURSORINFO, 传址

.DLL命令 BlockInput, 整数型, , "BlockInput", 公开

.参数 fBlock, 整数型

.版本 2

.数据类型 POINTAPI

.成员 X, 整数型

.成员 Y, 整数型

.数据类型 CURSORINFO

.成员 cbSize, 整数型

.成员 flags, 整数型

.成员 hCursor, 整数型

.成员 ptScreenPos, POINTAPI

---