|
楼主 |
发表于 2024-9-25 03:43:42
|
显示全部楼层
广东省惠州市
.版本 2
.子程序 _按钮1_被单击
.局部变量 局_结构指针, 整数型
.局部变量 局_指针数量, 整数型
.局部变量 局_反馈信息, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_预设地址, 整数型
.局部变量 局_结构信息, WTS_SESSION_INFOA
.局部变量 局_结构信息1, WTS_SESSION_INFOA1
局_反馈信息 = WTSEnumerateSessionsA (0, 0, 1, 局_结构指针, 局_指针数量)
.如果真 (局_反馈信息 ≥ 1 且 局_结构指针 ≥ 1 且 局_指针数量 ≥ 1)
.计次循环首 (局_指针数量, 局_计次)
.如果真 (局_计次 = 1)
CopyMemory_Info (局_结构信息, 局_结构指针, 12)
CopyMemory_Info1 (局_结构信息1, 局_结构指针, 12)
.如果真结束
.如果真 (局_计次 ≥ 2)
CopyMemory_Info (局_结构信息, 局_结构指针 + (局_计次 - 1) × 12, 12)
CopyMemory_Info1 (局_结构信息1, 局_结构指针 + (局_计次 - 1) × 12, 12)
.如果真结束
' 调试输出 (局_结构信息.会话ID, 局_结构信息.会话名, 局_结构信息.状态值)
' 调试输出 (“WTSActive”, 局_结构信息1.状态值.WTSActive)
' 调试输出 (“WTSConnected”, 局_结构信息1.状态值.WTSConnected)
' 调试输出 (“WTSConnectQuery”, 局_结构信息1.状态值.WTSConnectQuery)
' 调试输出 (“WTSShadow”, 局_结构信息1.状态值.WTSShadow)
' 调试输出 (“WTSDisconnected”, 局_结构信息1.状态值.WTSDisconnected)
' 调试输出 (“WTSIdle”, 局_结构信息1.状态值.WTSIdle)
' 调试输出 (“WTSListen”, 局_结构信息1.状态值.WTSListen)
' 调试输出 (“WTSReset”, 局_结构信息1.状态值.WTSReset)
' 调试输出 (“WTSDown”, 局_结构信息1.状态值.WTSDown)
' 调试输出 (“WTSInit”, 局_结构信息1.状态值.WTSInit)
.计次循环尾 ()
WTSFreeMemory (局_结构指针)
.如果真结束
.版本 2
.DLL命令 WTSEnumerateSessionsA, 整数型, "wtsapi32.dll", "WTSEnumerateSessionsA"
.参数 hServer, 整数型, , RD 会话主机服务器的句柄。
.参数 Reserved, 整数型, , 此参数为保留参数。 它必须为零。
.参数 Version, 整数型, , 枚举请求的版本。 此参数必须为 1
.参数 ppSessionInfo, 整数型, 传址
.参数 pCount, 整数型, 传址
.版本 2
.DLL命令 WTSFreeMemory, 整数型, "WtsApi32", "WTSFreeMemory"
.参数 pMemory, 整数型
.版本 2
.DLL命令 CopyMemory_Info, , "kernel32.dll", "RtlMoveMemory", , 公开,
.参数 目标数据地址, WTS_SESSION_INFOA
.参数 源数据, 整数型
.参数 尺寸, 整数型
.版本 2
.数据类型 WTS_SESSION_INFOA
.成员 会话ID, 整数型, , , SessionId 会话的会话标识符。
.成员 会话名, 文本型, , , pWinStationName 指向以 null 结尾的字符串的指针,该字符串包含此会话的 WinStation 名称。 WinStation 名称是 Windows 与会话关联的名称,例如“services”、“console”或“RDP-Tcp#0”。
.成员 状态值, WTS_CONNECTSTATE_CLASS, , , State WTS_CONNECTSTATE_CLASS 枚举类型的值,指示会话的当前连接状态。
.版本 2
.数据类型 WTS_CONNECTSTATE_CLASS
.成员 WTSActive, 整数型, , , WinStation。 当用户登录并主动连接到设备时,会出现此状态。
.成员 WTSConnected, 整数型, , , 已连接到客户Duan。
.成员 WTSConnectQuery, 整数型, , , 正在连接到客户Duan。
.成员 WTSShadow, 整数型, , , 正在隐藏另一个 WinStation。
.成员 WTSDisconnected, 整数型, , , 处于活动状态,但客户Duan已断开连接。 当用户已登录但未主动连接到设备时(例如,当用户选择退出锁屏界面时),会出现此状态。
.成员 WTSIdle, 整数型, , , 正在等待客户Duan进行连接。
.成员 WTSListen, 整数型, , , 正在侦听连接。 侦听器会话等待新客户Duan连接的请求。 没有用户登录侦听器会话。 侦听器会话不能重置、隐藏或更改为常规客户Duan会话。
.成员 WTSReset, 整数型, , , 正在重置。
.成员 WTSDown, 整数型, , , 因错误而关闭。
.成员 WTSInit, 整数型, , , 正在初始化。
|
|