.版本 2

.支持库 spec

.子程序 PP_IsWorkStationLocked, 逻辑型

.局部变量 bLocked, 逻辑型

.局部变量 hUser32, 整数型, 静态

.局部变量 fnOpenDesktop, 整数型

.局部变量 fnCloseDesktop, 整数型

.局部变量 fnSwitchDesktop, 整数型

.局部变量 hDesk, 整数型

bLocked ＝ 假

hUser32 ＝ LoadLibraryA (“user32.dll”)

' 调试输出 (hUser32)

.如果真 (hUser32 ＞ 0)

    fnOpenDesktop ＝ GetProcAddress (hUser32, “OpenDesktopA”)

    ' 调试输出 (fnOpenDesktop)

    fnCloseDesktop ＝ GetProcAddress (hUser32, “CloseDesktop”)

    ' 调试输出 (fnCloseDesktop)

    fnSwitchDesktop ＝ GetProcAddress (hUser32, “SwitchDesktop”)

    ' 调试输出 (fnSwitchDesktop)

    .如果真 (fnOpenDesktop ＞ 0 且 fnCloseDesktop ＞ 0 且 fnSwitchDesktop ＞ 0)

        hDesk ＝ OpenDesktopA (“Default”, 0, 假, 256)  ' #DESKTOP_SWITCHDESKTOP 是256

        ' 调试输出 (hDesk)

        .如果真 (hDesk ＞ 0)

            bLocked ＝ 取反 (SwitchDesktop (hDesk))

            CloseDesktop (hDesk)

        .如果真结束

    .如果真结束

.如果真结束

返回 (bLocked)

.子程序 _时钟1_周期事件

调试输出 (PP_IsWorkStationLocked ())

延迟 (2000)

LockWorkStation ()