vb.net - 自动登录PC - VB.net

Question

我正在尝试制作自己的自动化软件以同时登录多台计算机，

我创建了一个 VB.net 服务，它使用 sendkeys 函数将密钥发送到电脑，但是我无法让服务为登录的用户输入这些密钥，而不是当我在 Windows 10 登录屏幕时，

这是我目前的代码：

Public Class Service1

Protected Overrides Sub OnStart(ByVal args() As String)
    ' Add code here to start your service. This method should set things
    ' in motion so your service can do its work.
    Dim thread As New Thread(AddressOf maisection)
    thread.Start()

End Sub
Public Function maisection()
    Threading.Thread.Sleep(10000)
    ' Send the keystrokes
    My.Computer.Keyboard.SendKeys("22", True)

    Return True
End Function
Protected Overrides Sub OnStop()
    ' Add code here to perform any tear-down necessary to stop your service.
End Sub

End Class

我不明白为什么当我安装服务并启动它时，它应该在 10 秒后输入 22 但它没有，此时服务作为 LocalService 运行并且我已经选中了“允许服务与之交互”框桌面'。我希望这项服务能够发送用户名和密码以在未来登录 PC，目前它只是一个概念证明。

请问有人可以帮忙吗？

谢谢

标签： vb.netautomationsysadmin