AppActivate не отправлять ключи или действительно активировать - PullRequest
Новая
       11

AppActivate не отправлять ключи или действительно активировать

0 голосов
/ 18 декабря 2018

У меня есть сценарий Appactivate VBA, чтобы открыть программу и затем отправить ключи для входа в систему.Он работал безупречно в течение многих лет, и с тех пор, как программа получила обновление, она, похоже, больше не работает.Проблема в том, что appactivate фактически тянет окно вверх, но оно не отправляет никаких ключей.Секция пароля не показывает мигающий курсор, пока я фактически не щелкну мышью по окну.Есть ли еще один способ активировать окно / программу?Код ниже. 

Sub LOGIN()

Shell ("C:\ASD\ASDF.exe")

 Dim PASS As String


 PASS = Range("D11")

    AppActivate ("ASDF")
    'THIS IS WHERE IT STOPS. THE WINDOW POPS UP. THE CODE DOES NOT ERROR ITS JUST DOESN'T SEND ANY KEYS AFTER THIS BECAUSE I THINK THE WINDOW IS TRULY NOT ACTIVE.
    Application.SendKeys "+{TAB 4}"
    Application.SendKeys "FACILITY NAME"
    Application.Wait (Now + TimeSerial(0, 0, 1))
    Application.SendKeys "{TAB 4}"
    Application.SendKeys PASS
    Application.SendKeys vbCrLf

End Sub
...