开发VB.NET应用：如何实现免用户名密码一键远程桌面连接？

Got it！要搞定VB.NET里的免密远程桌面需求，其实不用折腾复杂的第三方库，靠Windows自带的cmdkey.exe和mstsc.exe就能轻松实现。下面给你两种实用方案，对应按钮点击直接连接的场景：

方案一：通过凭据管理器预存账号，一键启动连接 #

这个方案的核心是先把远程主机的账号密码存入Windows凭据管理器，然后直接启动远程桌面，系统会自动复用预存的凭据，不用手动输入。

按钮A的点击事件代码 #

Private Sub btnA_Click(sender As Object, e As EventArgs) Handles btnA.Click
    ' 替换成你的目标主机IP/名称、用户名、密码
    Dim remoteHost As String = "192.168.1.100"
    Dim username As String = "RemotePC\AdminUser" ' 域环境要加域名，本地用主机名\用户名
    Dim password As String = "YourStrongPassword123"

    Try
        ' 第一步：将凭据添加到Windows凭据管理器（后台执行，无窗口）
        Using cmdkeyProc As New Process()
            cmdkeyProc.StartInfo.FileName = "cmdkey.exe"
            cmdkeyProc.StartInfo.Arguments = $"/generic:TERMSRV/{remoteHost} /user:{username} /pass:{password}"
            cmdkeyProc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            cmdkeyProc.Start()
            cmdkeyProc.WaitForExit()
        End Using

        ' 第二步：启动远程桌面连接到目标主机
        Using mstscProc As New Process()
            mstscProc.StartInfo.FileName = "mstsc.exe"
            mstscProc.StartInfo.Arguments = $"/v:{remoteHost}" ' 指定远程主机
            mstscProc.Start()
        End Using

    Catch ex As Exception
        MessageBox.Show($"连接失败：{ex.Message}", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

方案二：生成临时RDP文件，配合凭据免密连接 #

如果需要更灵活的配置（比如设置桌面分辨率、全屏模式等），可以生成临时RDP文件，再用mstsc打开它，同样结合凭据管理器实现免密。

按钮A的点击事件代码 #

Private Sub btnA_Click(sender As Object, e As EventArgs) Handles btnA.Click
    Dim remoteHost As String = "192.168.1.100"
    Dim username As String = "RemotePC\AdminUser"
    Dim password As String = "YourStrongPassword123"

    Try
        ' 先添加凭据到管理器（和方案一一样）
        Using cmdkeyProc As New Process()
            cmdkeyProc.StartInfo.FileName = "cmdkey.exe"
            cmdkeyProc.StartInfo.Arguments = $"/generic:TERMSRV/{remoteHost} /user:{username} /pass:{password}"
            cmdkeyProc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            cmdkeyProc.Start()
            cmdkeyProc.WaitForExit()
        End Using

        ' 生成临时RDP文件，可添加更多配置项
        Dim rdpSettings As String = $"full address:s:{remoteHost}
username:s:{username}
prompt for credentials:i:0
screen mode id:i:2 ' 2=全屏，1=窗口
desktopwidth:i:1920
desktopheight:i:1080"

        Dim tempRdpPath As String = Path.Combine(Path.GetTempPath(), "RemoteA.rdp")
        File.WriteAllText(tempRdpPath, rdpSettings)

        ' 启动mstsc打开该RDP文件
        Using mstscProc As New Process()
            mstscProc.StartInfo.FileName = "mstsc.exe"
            mstscProc.StartInfo.Arguments = $" ""{tempRdpPath}"""
            mstscProc.Start()
        End Using

        ' 可选：程序退出时删除临时RDP文件，避免残留
        ' File.Delete(tempRdpPath)

    Catch ex As Exception
        MessageBox.Show($"连接失败：{ex.Message}", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

重要注意事项 #

• 密码安全：上面的代码里密码是明文，这在生产环境非常危险！建议用DPAPI（Windows数据保护API）或者自定义加密算法存储密码，使用时再解密。
• 凭据缓存：添加一次凭据后，会保存在系统里直到手动删除。如果需要切换账号，记得先执行cmdkey /delete:TERMSRV/{remoteHost}清除旧凭据。
• 权限问题：运行程序的用户需要有操作凭据管理器的权限，普通用户一般都有，但域环境下可能需要管理员授权。

内容的提问来源于stack exchange，提问作者ali.n.901