QTP 10/11 で VBScript を使用して次のことを行う必要があります。
VBScript は 1 つのログイン ページを開きます。ログイン後、そのページのリンク数をカウントし、すべてのリンクを出力します。その後、すべてのリンクを 1 つずつ開きます。
すべての動的リンクを見つけるのに問題があります。
Page
の (またはFrame
の)ChildObject
メソッドを使用して、ページ上のすべてのリンクを取得できます。
Set desc = Description.Create()
desc("html tag").Value = "a"
Set links = Browser("B").Page("P").ChildObjects(desc)
For i = 0 to links.Count - 1
Print links(i).GetRoProperty("inner_text") & " => " & links(i).GetRoProperty("href")
Next
それらをクリックすることに関しては、リンクをクリックした後にオブジェクトを無効にするナビゲーションが発生するため、少し複雑です。そのたびに (インデックスを追跡しながら)links
実行するか、別のブラウザー/タブでリンクを開く必要があります。ChildObjects