vbscript - 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