25
Сентябрь
2008
Как переключиться на другого пользователя?
Как переключиться на другого пользователя?
Option Explicit
Private Declare Function ExitWindowsEx _
Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Sub Form_Load()
Dim message As Long
message = ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub