从控制台或 Windows 服务以编程方式创建 Windows 会话

Question

如何以编程方式登录到 Windows 以创建 Windows 登录会话？我需要一种适用于 WinForms 应用程序、控制台应用程序和（最重要的）Windows 服务的方法。

另一个要求是我需要它在运行程序/服务的本地系统以及远程系统上工作。

如果有一种方法可以使用 pInvoke/Win32 API 做到这一点，我也对此持开放态度。

我在研究中发现了这些类似的问题/答案：

以编程方式创建和启动 RDP 会话（无 gui）

这里的答案说这是可能的，但提供了一个链接，但链接中的示例代码不起作用

通过 Win32 API 从服务创建 Windows 会话

没有解决所问问题

以编程方式创建 Windows 会话

没有解决方案，但 OP 在评论中提到http://freerdp.com为他工作。

Answer 1

我创建了一个简单的实用程序，我相信它可以满足问题中的所有要求。您需要添加对 Microsoft Terminal Services Active Client 1.0 类型库 (ActiveX) 的 COM 引用。

我认为它可能不适用于在本地计算机上创建会话，但我在 2012R2 作为服务运行时进行了测试，它实际上可以。可以从 WinForms 应用程序或控制台应用程序调用完全相同的方法。从 WinForms 或控制台应用程序启动时，表单会显示几秒钟，因此我确保将控件设置为 enabled = false 以便无法与之交互。

using System;
using System.Diagnostics;
using System.Threading;
using System.Threading.Tasks;
using System.Windows.Forms;
using AxMSTSCLib;

namespace Utility.RemoteDesktop
{
    public class Client
    {
        private int LogonErrorCode { get; set; }

        public void CreateRdpConnection(string server, string user, string domain, string password)
        {
            void ProcessTaskThread()
            {
                var form = new Form();
                form.Load += (sender, args) =>
                {
                    var rdpConnection = new AxMSTSCLib.AxMsRdpClient9NotSafeForScripting();
                    form.Controls.Add(rdpConnection);
                    rdpConnection.Server = server;
                    rdpConnection.Domain = domain;
                    rdpConnection.UserName = user;
                    rdpConnection.AdvancedSettings9.ClearTextPassword = password;
                    rdpConnection.AdvancedSettings9.EnableCredSspSupport = true;
                    if (true)
                    {
                        rdpConnection.OnDisconnected += RdpConnectionOnOnDisconnected;
                        rdpConnection.OnLoginComplete += RdpConnectionOnOnLoginComplete;
                        rdpConnection.OnLogonError += RdpConnectionOnOnLogonError;
                    }
                    rdpConnection.Connect();
                    rdpConnection.Enabled = false;
                    rdpConnection.Dock = DockStyle.Fill;
                    Application.Run(form);
                };
                form.Show();
            }

            var rdpClientThread = new Thread(ProcessTaskThread) { IsBackground = true };
            rdpClientThread.SetApartmentState(ApartmentState.STA);
            rdpClientThread.Start();
            while (rdpClientThread.IsAlive)
            {
                Task.Delay(500).GetAwaiter().GetResult();
            }
        }

        private void RdpConnectionOnOnLogonError(object sender, IMsTscAxEvents_OnLogonErrorEvent e)
        {
            LogonErrorCode = e.lError;
        }
        private void RdpConnectionOnOnLoginComplete(object sender, EventArgs e)
        {
            if (LogonErrorCode == -2)
            {
                Debug.WriteLine($"    ## New Session Detected ##");
                Task.Delay(10000).GetAwaiter().GetResult();
            }
            var rdpSession = (AxMsRdpClient9NotSafeForScripting)sender;
            rdpSession.Disconnect();
        }
        private void RdpConnectionOnOnDisconnected(object sender, IMsTscAxEvents_OnDisconnectedEvent e)
        {
            Environment.Exit(0);
        }
    }
}

在旁注中，我发现这个问题说可能有一种方法可以在不使用 Windows 窗体的情况下使用 ActiveX 控件（用于 RDP）。我看到了他们给出的例子，我不确定在这种情况下使用他们的代码。

没有窗体的 ActiveX 控件

如果有人知道如何在不将 ActiveX 控件托管在表单上的情况下执行此操作，请发布示例。