.版本 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 ()