Sendkeys в UFT 14.51 - PullRequest
Новая
       67

Sendkeys в UFT 14.51

0 голосов
/ 19 февраля 2020

Мне нужно ввести комбинацию alt + enter в UFT14.51. Я весь день искал решение, но пока не нашел жизнеспособного решения. :(

Может быть, кто-то знает какой-то волшебный c способ сделать это?

Вот что я пробовал: %enter, TE_ALT+TE_ENTER и несколько других подобных комбинаций, но нет безрезультатно: (

1 Ответ

0 голосов
/ 20 февраля 2020

Вот как я отправляю символ табуляции в моем приложении VB 6.0. Я оставлю это на ваше усмотрение, выясните, какие коды клавиш вам нужно отправить. 

' Declares and constants for SendTab sub

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)

Private Const VK_TAB = &H9
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Sub SendTab()

10      On Error GoTo SendTab_Error

20      keybd_event VK_TAB, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

30      keybd_event VK_TAB, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

40      On Error GoTo 0
50      Exit Sub

SendTab_Error:

60      LogErr "Error " & Err.Number & " (" & Err.Description & ") " & _
               IIf(Erl <> 0, "on line " & CStr(Erl) & " of", "in") & _
               " procedure SendTab of Module mMisc"

End Sub
...