QTP/UFT - 在 SendKeys 函数中包含 Select 所有文本

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

但我想做的是在此函数中包含一种方法，首先 select WebEdit 字段中的文本，然后输入数据。

目前我做的是：

代码：

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

所以基本上我想做的是将上面的内容组合成一个语句，该语句执行 select 所有文本并插入所需的文本。

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

QTP/UFT - 在 SendKeys 函数中包含 Select 所有文本

QTP/UFT - Include A Select All Text in SendKeys Function

vbscript

qtp

hp-uft

uft14