Question

谁有易语言禁止关机的源码

Answer 1

'这是dll
.版本 2

.DLL命令 GetWindow, 整数型, "user32", "GetWindow"
.参数 hwnd, 整数型
.参数 wCmd, 整数型

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
.参数 lpClassName, 文本型
.参数 lpWindowName, 文本型
'这是代码:
.版本 2
.支持库 EThread

.子程序 监控

.如果真 (查找指定窗口 ())
运行 (“shutdown -a”, 真, 1)
信息框 (“已成功拦截!关机”, 0, )
.如果真结束
监控 ()

.子程序 查找指定窗口, 逻辑型
.局部变量 hWnd, 整数型

hWnd ＝ FindWindow (“#32770”, “系统关机”)
.如果真 (hWnd ≠ 0)
返回 (真)
.如果真结束
返回 (假)

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

启动线程 (&监控, , )
'需要自己弄一个按钮，点按钮即可开始拦截关机