VB6取远程桌面访问者的客户端电脑IP
如何获取电脑是否在锁屏状态?
[md]```
Option Explicit
Private Const WTS_CURRENT_SERVER_HANDLE = 0&
Private WTS_CURRENT_SESSION As Long
Private Type WTS_CLIENT_ADDRESS
AddressFamily As Long
Address(20) As Byte
End Type
Private Declare Function WTSQuerySessionInformation _
Lib "wtsapi32" Alias "WTSQuerySessionInformationW" ( _
ByVal hServer As Long, _
ByVal SessionID As Long, _
ByVal WTSInfoClass As Long, _
ByRef Address As Long, _
ByRef p