|
'****************************************************
Dim CostTime,MyTime1,MyTime2,MySec
1:Browser("Browser").Navigate "http://192.168.50.199/TDMB"
2:MyTime1=Now
3: If Browser("Browser").Page("XXX管理系统").Exist Then
4: MyTime2=Now
5: CostTime=MyTime2-MyTime1
6: MySec=Second(CostTime)
7: msgbox MySec
8: else
9: 。。。。。
'*****************************************************
断点设置在第2行和第4行
此段代码用来计算两个步骤之间的时间,调试时发现运行至第2行时“MyTime1”没有返回任何值,而到第4行时“MyTime1”和“MyTime2”才相继返回不同的值,请问各位这是什么原因?如何正确实现先取到“MyTime1”然后再取“MyTime2” ?
谢谢!
[ 本帖最后由 深水胖炸弹 于 2007-11-15 16:40 编辑 ] |
|