QTP中参数化链接

经常见人问如何在QTP中参数化链接，而很多人回答的比问的人更复杂。现在将一种简单的办法列出来，供大家参考。

我经常喜欢这样用。

假如我们录制的时候，输入的是AUTO0003，如下

 1
 2 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).WebEdit( " txtFCode " ).Set  " AUTO0003 "
 3 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).WebButton( " 保 存 " ).Click
 4 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).Link( " 列 表 " ).Click
 5 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_2 " ).Link( " AUTO0003 " ).Click
 6
 7 ' 上面这个AUTO0003就是最开始就录好的，我们想输入不同的内容，同时能在列表中点击它。
 8 ' 如下
 9
10 ' 假设我们要输入的为 
11 DIM  I
12 FOR  I = 1   TO   2
13 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).WebEdit( " txtFCode " ).Set  " AUTO000 " & I
14 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).WebButton( " 保 存 " ).Click
15 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_3 " ).Link( " 列 表 " ).Click
16
17 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_2 " ).Link( " AUTO0003 " ).SetTOProperty  " Text " ,  " AUTO000 " & I
18 Browser( " SCM1.0 " ).Page( " SCM1.0 版权所有 " ).Frame( " mainFrame_2 " ).Link( " AUTO0003 " ).Click
19
20 ' 看到了没，只需要简单的一句SetToProperty "Text", "..你的自定义的内容
21   NEXT