QTP / UFT-在SendKeys函数中包含全选文本

Question

所以我有这个发送键功能：

代码：

Public Function sendKeys(Obj, strParam)
    Wait(1)
    Obj.Click
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.SendKeys strParam
    set shell = Nothing
    Wait(2)
End Function

但是我想做的就是在此功能中包括一种方法，该方法是首先在 WebEdit 字段中选择文本，然后输入数据。

此刻我要做的是

代码：

call sendKeys( Browser("openurl:= ").Page("url:= ").WebElement("xpath:= "), "^a")
call sendKeys( Browser("openurl:= ").Page("url:= ").WebElement("xpath:= "), "text")

所以本质上我想做的是将以上内容组合为一个语句，该语句执行全选文本并插入所需的文本。

Answer 1

只需在您的sendkeys函数中添加一行：

Public Function sendKeys(Obj, strParam)
    Wait(1)
    Obj.Click
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.SendKeys "^a" 'New line
    shell.SendKeys strParam
    set shell = Nothing
    Wait(2) 
End Function