DECLARE Long  BlockInput IN user32 Long
BlockInput(1)
WAIT WINDOW "5seconds" TIMEOUT 5
WAIT clear
BlockInput(0)

Win 7/32 下可以运行的：

Clear
Declare Integer BlockInput In user32 Integer fBlockIt

=BlockInput(1)
? "*** 阻塞键盘及鼠标事件"

For I =1  To 10
    Do Dataproc
Endfor

=BlockInput(0)
? "*** 解除阻塞键盘及鼠标事件"

Function Dataproc
    * it is just an emulation of a time-consuming procedure
    Local I
    Wait Window Nowait "正在创建游标..."
    Create Cursor cs (Id N(6), dt D)
    For I = 1 To 10000
        Insert Into cs Values (I, Date() - I)
    Endfor
    Wait Clear
    ? Chr(9) + "- 游标创建日期和时间 : " + Ttoc (Datetime())
    Use In cs
    Return
Endfunc

手册上注明：在 WinNT4, User32.dll 有错误: Cannot find entry point BlockInput in the DLL.

我的笔记本运行版本是 windows 7 家庭普通版,不行.

BlockInput XP之后不给随便用，试试“以管理员身份运行”应该可以，成功返回 #0

搞定了,非常感谢!

好像每次都得 以管理员身份运行 .我再试试.....

对的，以管理员身份运行

如果你是搞开发的，还是灌旗舰版，家庭版功能受限的，旗舰版的默认用户是超级管理员，家庭版只是一个普通的管理员，没有绝对的权限去控制电脑。

我的也是本本+Win 7 家庭版的，正版 500 元，后来咬牙卸载了，重新灌了旗舰版。
至于 32 或 64 位，这个关系不大，保存点的，32 位。

当时买电脑，付完款后，告诉我 Win7 要另外购买的，没有 OEM，后来付了 500 元再买的正版，回家之后发现是家庭版的，很懊恼，开始舍不得卸掉，最后现实战胜了感情。

[此贴子已经被作者于2016-2-27 08:48编辑过]