0

だから私はこの送信キー機能を持っています:

コード：

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")

したがって、本質的に私がやりたいことは、上記を1つのステートメントに組み合わせて、すべてのテキストを選択し、必要なテキストを挿入することです。

4

1 に答える 1

2

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
于 2018-08-13T14:45:08.167 に答える