[DllImport("wtsapi32.dll", SetLastError=true)]
static extern TODO WTSDisconnectSession(TODO);
<DllImport("wtsapi32.dll", SetLastError:=True)> _
Private Shared Function WTSDisconnectSession(ByVal hServer As IntPtr, ByVal SessionId As Integer, ByVal bWait As Boolean) As Boolean
End Function
None.
None.
Please add some!
Friend Function DissconnectSession(ByVal ServerName As String, ByVal SessionID As Integer) As Boolean
Dim RetVal As Boolean
Dim ptrOpenedServer As IntPtr
Try
ptrOpenedServer = WTSOpenServer(ServerName)
RetVal = WTSDisconnectSession(ptrOpenedServer, SessionID, False)
Catch ex As Exception
Throw New Exception(ex.Message & vbCrLf & System.Runtime.InteropServices.Marshal.GetLastWin32Error)
Finally
Try
WTSCloseServer(ptrOpenedServer)
Catch ex As Exception
End Try
End Try
Return RetVal
End Function
Do you know one? Please contribute it!