Автоматический вход в ПК - VB.net - PullRequest
Новая
       19

Автоматический вход в ПК - VB.net

0 голосов
/ 15 апреля 2019

Я пытаюсь создать свое собственное программное обеспечение для автоматизации одновременного входа на несколько компьютеров,

Я создал службу 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, и я установил флажок «Разрешить службу» взаимодействовать с рабочим столом ». Я бы хотел, чтобы эта служба в будущем отправляла имя пользователя и пароль для входа в систему на ПК, а пока это просто подтверждение концепции.

Пожалуйста, кто-нибудь может помочь?

Спасибо

...