Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Microsoft -

Visual Basic .NET - Клавиатуры, мыши, джойстики

Все примеры / Клавиатуры, мыши, джойстики

Имитация нажатий клавиш клавиатуры

Автор: Microsoft | добавлено: 20.04.2011, 16:16 | просмотров: 7198 (1+) | комментариев: 1 | рейтинг: *x5
Простой пример на Visual Basic .NET имитирует нажатия клавиш клавиатуры. В примере используются API-функции: FindWindow и SetForegroundWindow.

Код

  Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
  Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean


  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim calculatorHandle As IntPtr = FindWindow("CalcFrame", "Калькулятор")'в этом месте может потребоваться изменение, в зависимости от системы

    If calculatorHandle = IntPtr.Zero Then
      MsgBox("Калькулятор не запущен.")
      Return
    End If

    SetForegroundWindow(calculatorHandle)
    SendKeys.SendWait("123")
    SendKeys.SendWait("+")
    SendKeys.SendWait("456")
    SendKeys.SendWait("=")
  End Sub
Об авторе

Microsoft

Microsoft — мировой лидер в области программного обеспечения, ИТ-услуг и решений. Это одна из крупнейших глобальных корпораций, с представительствами более чем в 190 странах мира и 92,7 тыс. сотрудников.
Microsoft
Последние комментарии (всего: 1)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.

Имитация нажатий клавиш клавиатуры
Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики