51Testing软件测试论坛

标题: 请高手帮助，QTP的一段脚本怎么改？ [打印本页]

作者: deargodlove 时间: 2009-5-5 16:08
标题: 请高手帮助，QTP的一段脚本怎么改？
Window("SecureCRT").Restore
Window("SecureCRT").Activate
Window("SecureCRT").WinObject("AfxFrameOrView80u").Click 310,334
Window("SecureCRT").WinObject("AfxFrameOrView80u").Type "1"
Window("SecureCRT").WinObject("AfxFrameOrView80u").Type  micReturn
Window("SecureCRT").WinObject("AfxFrameOrView80u").Click 270,426

-----------------
以上这些是录制的脚本，怎么加函数使  当“1”这块  小于100时，一直循环执行这两句？？？
Window("SecureCRT").WinObject("AfxFrameOrView80u").Type "1"
Window("SecureCRT").WinObject("AfxFrameOrView80u").Type  micReturn

作者: deargodlove 时间: 2009-5-5 22:40
咋没人帮助呢？？？？？？？？

作者: peimzh 时间: 2009-5-5 22:49
首先请问LZ变量是多少，比如A=132

那代码如下：
Window("SecureCRT").Restore
Window("SecureCRT").Activate
Window("SecureCRT").WinObject("AfxFrameOrView80u").Click 310,334
for i = 1 to A
   if i< 100 then
            Window("SecureCRT").WinObject("AfxFrameOrView80u").Type A
            Window("SecureCRT").WinObject("AfxFrameOrView80u").Type  micReturn
      end if
Next
Window("SecureCRT").WinObject("AfxFrameOrView80u").Click 270,426
不知道你是否是这个意思？

作者: lyscser 时间: 2009-5-5 23:28
Terminal字符段？有对应的插件木？有插件应该比较简单那

作者: deargodlove 时间: 2009-5-6 10:25

原帖由 peimzh 于 2009-5-5 22:49 发表
首先请问LZ变量是多少，比如A=132

那代码如下：
Window("SecureCRT").Restore
Window("SecureCRT").Activate
Window("SecureCRT").WinObject("AfxFrameOrView80u").Click 310,334
for i = 1 to A
if ...

感谢，是这样的
这句应该是Window("SecureCRT").WinObject("AfxFrameOrView80u").Type "table 1"
如何只变"table 1"中的1，而table不变？

作者: dabie 时间: 2009-5-6 17:27
try
"table" & i

作者: 阿七 时间: 2009-5-6 17:55
如何只变"table 1"中的1，而table不变？
那就定2个参数嘛呵呵
1个变的  1个不变的

作者: deargodlove 时间: 2009-5-7 11:06

原帖由阿七于 2009-5-6 17:55 发表
如何只变"table 1"中的1，而table不变？
那就定2个参数嘛呵呵
1个变的  1个不变的

怎么弄啊？麻烦给改一下呗新手不会

作者: fly_away 时间: 2009-5-9 02:12
偶猜的
貌4用这个
具体循环参考上面朋友的，偶只是把 i 转化成文本，然后与"table"连接，这样应该可以行得通

……
Window("SecureCRT").WinObject("AfxFrameOrView80u").TYPE "table "+cstr(i)
……
……

::yxiao:::
试试，要不行再来讨论

[ 本帖最后由 fly_away 于 2009-5-9 02:15 编辑 ]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)