UFT中实现在光标位置按回车键的方法咨询（现有函数失效）

我之前在UFT自动化测试里也碰到过类似的情况——明明光标已经在文本框里，但用WScript.Shell.SendKeys发送回车键就是没反应。大概率是因为你的当前窗口或控件焦点没有被正确捕获，或者等待时间不够系统响应。下面给你几个靠谱的解决方案，按优先级排序：

方案1：用UFT控件自带的SendKeys方法（最推荐） #

UFT的WebEdit等控件本身就支持SendKeys方法，它直接针对控件操作，比WshShell更可靠，完全不需要担心焦点跑偏：

Public Function PressEnterOnCurrentFocus()
    ' 先尝试定位当前获得焦点的WebEdit控件
    Dim focusedEdit
    Set focusedEdit = Desktop.ActiveBrowser.Page(".*").WebEdit("micclass:=WebEdit", "focused:=True")
    
    If focusedEdit.Exist(1) Then
        ' 如果找到焦点控件，直接给它发回车键
        focusedEdit.SendKeys "{ENTER}"
    Else
        '  fallback方案：如果找不到焦点控件，激活浏览器窗口后再发
        Set WshShell = CreateObject("WScript.Shell")
        WshShell.AppActivate Desktop.ActiveBrowser.GetROProperty("title")
        WshShell.SendKeys "{ENTER}"
        Set WshShell = Nothing
    End If
    Set focusedEdit = Nothing
End Function

调用这个函数前，确保你的文本框已经获得焦点（比如SetFieldValue之后不用额外操作，因为输入后光标本来就在框里），这个方法基本不会踩焦点的坑。

方案2：用UFT的DeviceReplay模拟硬件按键 #

如果控件自带的方法不好使，可以试试Mercury.DeviceReplay，它是模拟真实硬件级别的按键操作，完全绕过软件层面的焦点问题：

Public Function PressEnterWithDeviceReplay()
    Set objDeviceReplay = CreateObject("Mercury.DeviceReplay")
    Wait 0.3 ' 给系统一点响应时间，避免操作太快
    objDeviceReplay.PressKey 13 ' ASCII码13对应回车键
    Set objDeviceReplay = Nothing
End Function

这个方法几乎适用于所有场景，哪怕是一些特殊的自定义控件，只要光标在上面，就能触发回车键。

方案3：优化原有WshShell方案 #

如果你坚持要用原来的WshShell方法，那一定要确保窗口和控件都激活：

Public Function PressEnter()
    ' 假设你知道文本框的对象，先强制设置焦点
    Dim targetEdit
    Set targetEdit = Browser("你的浏览器").Page("你的页面").WebEdit("你的文本框")
    
    If targetEdit.Exist(2) Then
        targetEdit.SetFocus ' 强制把焦点拉回文本框
        Wait 0.5 ' 缩短等待时间，1秒太长，0.5秒足够
        
        Set WshShell = CreateObject("WScript.Shell")
        ' 先激活浏览器窗口，确保SendKeys发送到正确的地方
        WshShell.AppActivate targetEdit.GetROProperty("title")
        WshShell.SendKeys "{ENTER}"
        Set WshShell = Nothing
    End If
    Set targetEdit = Nothing
End Function

这个方案的关键是AppActivate和SetFocus双保险，避免SendKeys把按键发送到后台窗口。

小提示 #

• 尽量避免用Wait(1)这种固定长等待，UFT里可以用Exist方法的超时参数，或者Sync方法让页面加载完成后再操作。
• 如果是Web页面，也可以试试用FireEvent触发文本框的onkeypress事件，比如targetEdit.FireEvent "onkeypress", 13，这也是一种思路。

内容的提问来源于stack exchange，提问作者bugfinder