请问QTP能够象loadrunner一样，持续运行个脚本5分钟么？

suxinghe

请问QTP能够象loadrunner一样，持续运行个脚本5分钟么？

lengz

我简单的写了一个，不是很精确但是希望能给你点帮助

Dim StartTime,EndTime,a
Dim RunTime'运行时间，分钟
RunTime=5
StartTime = Minute(Now)
EndTime=RunTime+StartTime
While Minute(Now)<EndTime Or Minute(Now)<60-EndTime
    a=a+1
Wend
MsgBox a

如果想精确的话可以再加上Second函数，或直接使用Second函数取代Minute函数

marco

可以取执行时的时间，然后用while判断是否到了5分钟，到就结束
楼上那些感觉是做500次，然后每次间隔1秒钟
这两个好像还是有区别的吧

yuxiaoyuan

值得学习。。。

Kinkai

需求无止境，等待结果

kangaroo

wait 300
不就可以了嘛？正好5分钟。不知道LZ到底什么意思，请说清楚些

lengz

用VBS的时间函数就行了～

scdxorange

lr 是什么？

423799223

呵呵
学习一下

shorelew@

可以用lr来并发qtp脚本,但前提是你必须要有lisence.不知道这是不是你要的答案.

iceblue72

持续学习，关注。

volvoo

某些场合，有这个需求，大家不要想当然，别会几个程序语句就的色

walker1020

原帖由 xihong2004 于 2007-9-4 21:48 发表
买一只鸡，作出一份鸭子汤

有意思，偶也有这种感觉

jifeng

哈哈有点意思

zhumingwei

呵呵.楼上的有意思.

xihong2004

买一只鸡，作出一份鸭子汤

yuandjing

5分钟只要temp = timer+(60*5)就可以了

yuandjing

哈哈，翻了一下vb帮助
写了这段代码
可以控制运行持续时间
temp = Timer+10
Do
        If Timer >= temp then
                MsgBox CStr("hello")
                Exit do
        Else
        End if
loop
应该应经帮楼主找到答案了

xinxiachen

同意楼上的,自己写个函数控制循环
不过这个貌似用QTP没多大用处.

rivermen

for i=1 to 300
wait 1
next