📄 viewonline.prg
字号:
*-- 查看在线人:
showwait("正在读取在线名单...")
lcUserOnline = ""
sele locks
scan
if !lock()
lcUserOnline = lcUserOnline + allt(UserName) + chr(13)
endif
endscan
unlock
UserLogin()
showwait("")
messagebox("当前在线名单如下:" + chr(13) + ;
repl("=",20) + chr(13) + ;
lcUserOnline + ;
repl("=",20) ,64,"报告")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -