Эмулирование нажатия клавиш в нужный момент

@flPOR · Регистрация: 28.06.2011

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как определить, когда есть смысл посылать стороннему приложению нажатие клавиш, а когда нет?

Например, есть такой код:

Visual Basic

1
2
3

proga = shell("C:\test.EXE", 1)
AppActivate proga
SendKeys {INSERT}

После запуска test.exe, допустим, начинает подгружать DBF-файлы, т. е. в этот момент ей бессмысленно передавать нажатие клашиви INSERT, она просто не отреагирует. Есть ли способ понять, когда приложение, грубо говоря, готово воспринять такое эмулирование нажатия клавиши?

Спасибо!

@~~Busine2009~~ · 16.07.2011, 10:46

flPOR,
попробуйте сделать свой пример на основе этого кода:

Visual Basic

Sub P1()
Dim Программа As Variant
Программа = Shell(PathName:="C:\WINDOWS\system32\calc.exe", WindowStyle:=vbNormalFocus)
Do While IsEmpty(Программа) = True
    DoEvents
Loop
MsgBox "Ready"
End Sub

	16.07.2011, 10:46