e-Tester - エンピレックス

e-Tester チュートリアル
カスタム ページ テストの 挿 入
カスタム テスト ウィザードを 使 用 するほかに、Visual Script ペー
ジの 再 生 前 または 再 生 後 に 実 行 できる、カスタムの Visual Basic テ
ストを 作 成 できます。
リンクの 表 示
1. Visual Script ウィンドウの [1] Welcome - Home SuperStores ペー
ジを 展 開 します。
2. カスタムページプログラム ノードを 選 択 し、マウスの 右 ボタンをク
リックします。
3. [VBA コードの 編 集 ] を 選 択 します。VBA 開 発 環 境 が 開 き、その
ページのコード ウィンドウが 表 示 されます。
4. e-TEST suite の CD-ROM をお 持 ちの 場 合 は、Sample EPI
Scripts¥VBA ディレクトリを 開 きます。Get All Links サブディ
レクトリから Get All Links のオブジェクトの afterPlay イベ
ントに Get All Links テキストをコピーします。
e-TEST suite の CD-ROM をお 持 ちでない 場 合 は、 次 のコード
を RSWVBAPage オブジェクトの afterPlay イベントに 入 力 し
ます。
Dim topdoc As Object
Dim numlinks As Long
Dim hrefVal As String
Dim linkIndex As Long
Dim indexVal As String
Set topdoc = RSWApp.om.GetTopDocument(0)
numlinks = topdoc.links.Length
If numlinks 0 Then
For linkIndex = 0 To numlinks - 1
hrefVal = topdoc.links(linkIndex).href
indexVal = "Link(" + CStr(linkIndex) + ")"
Call RSWApp.WriteToLog(indexVal, "", hrefVal)
Next
End If
5. [ファイル] → [ 終 了 して e-Tester に 戻 る] を 選 択 します。
73