I의 구조는 다음과 같습니다포장 풀기 _WTS_CLIENT_ADDRESS.Address (터미널 서비스 클라이언트에서 검색 할 IP 주소)
Dim _ClientIPAddress As New _WTS_CLIENT_ADDRESS
Dim rtnPtr As IntPtr
Dim rtncount As Int32
NativeMethods.WTSQuerySessionInformation(CInt(NativeMethods.WTS_CURRENT_SERVER_HANDLE), NativeMethods.WTS_CURRENT_SESSION, NativeMethods.WTS_INFO_CLASS.WTSClientAddress, rtnPtr, rtncount)
'_ClientIPAddress()
_ClientIPAddress = _
CType(System.Runtime.InteropServices.Marshal.PtrToStructure(rtnPtr, GetType(_WTS_CLIENT_ADDRESS)), _WTS_CLIENT_ADDRESS)
주소 : 다음의 호출에 의해 채워집니다
<StructLayout(LayoutKind.Sequential)> _
Public Structure _WTS_CLIENT_ADDRESS
Public AddressFamily As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=20)> _
Public Address() As Byte
End Structure
바이트 배열이 채워지지만 유용한 문자열 또는 정수 값으로 변환하는 방법을 알지 못합니다. MDSN 설명서는 희박합니다. http://msdn.microsoft.com/en-us/library/aa383857(VS.85).aspx