1

VBScriptを使用してオブジェクトをオブジェクトリポジトリに自動的に追加することは可能ですか？

Webページ/アプリケーションにリンクのリストがあるとしましょう。オブジェクトを手動で追加すると時間がかかるため、オブジェクトをリポジトリに自動的に追加しようとしました。しかし、QTPで（実行時に）オブジェクトリポジトリをアクティブ化する方法がわからないため、続行できませんでした。

以下は私が試した私のコードです：

Function Objects_Count(myObject)
  Dim Objects
  Set Objects=Description.Create
  Objects("micclass").value=myObject
  set obj=Browser("title:=.*").Page("title:=.*").ChildObjects(Objects)
  For i=0 to obj.count-1
    'msgbox i
    c=obj(i).getroproperty("name")
    If obj(i).Exist(1) Then
      obj(i).highlight
    End If
    Print c
  Next
End Function
Call Objects_Count("link")

上記のコードは、ログファイルに表示されるリンク名を取得し、アプリケーション/ウェブページでも強調表示されます。そのリンク（オブジェクト）のプロパティをオブジェクトリポジトリに追加する方法を教えてください。

ありがとう！

4

2 に答える 2

2

オブジェクト リポジトリを操作するには、既存のオブジェクト リポジトリであるオブジェクトが必要で、Mercury.ObjectRepositoryUtilをload使用してそれにオブジェクトを追加しますAddObject。

Set myRepository = CreateObject("Mercury.ObjectRepositoryUtil")
myRepository.Load "C:\QuickTest\Tests\Flights.tsr"
myRepository.AddObject myLink, Browser("B").Page("P"), "myLinkName"

あなたの状況でそれを機能させるには、少し遊んでみる必要があります。IndexQTP ヘルプを使用して、ObjectRepositoryUtil のアクセス可能なすべてのメソッド/プロパティを検索します。タブの下の検索ボックスに「ObjectRepositoryUtil」と入力するだけです。

于 2013-02-12T07:34:02.667 に答える