Function 常用流程()
Dim start_time = TickCount()//计算开始时间
Dim 流程操作=0 //定义开关 防止死循环
Do
If 发布产品操作 = 1 Then
ElseIf 判断页面(首页) = True Then
ElseIf 判断页面(页面2) = True Then
ElseIf 判断页面(页面3) = True Then
ElseIf 判断页面(页面4) = True Then
ElseIf 判断页面(成功页面) = True Then
Else
msg "无法识别任何页面",1000
End If
If (TickCount() - start_time) > 3*1000*60 Then //超时间3分钟
TracePrint "超时....."
Exit Do
End If
Loop
End Function
Function 常用流程()
Dim start_time = TickCount()//计算开始时间
Dim 流程操作=0 //定义开关 防止死循环
Do
If 发布产品操作 = 1 Then
ElseIf 判断页面(首页) = True Then
ElseIf 判断页面(页面2) = True Then
ElseIf 判断页面(页面3) = True Then
ElseIf 判断页面(页面4) = True Then
ElseIf 判断页面(成功页面) = True Then
Else
msg "无法识别任何页面",1000
End If
If (TickCount() - start_time) > 3*1000*60 Then //超时间3分钟
TracePrint "超时....."
Exit Do
End If
Loop
End Function
Function 常用流程() Dim start_time = TickCount()//计算开始时间 Dim 流程操作=0 //定义开关 防止死循环 Do If 发布产品操作 = 1 Then ElseIf 判断页面(首页) = True Then ElseIf 判断页面(页面2) = True Then ElseIf 判断页面(页面3) = True Then ElseIf 判断页面(页面4) = True Then ElseIf 判断页面(成功页面) = True Then Else msg "无法识别任何页面",1000 End If If (TickCount() - start_time) > 3*1000*60 Then //超时间3分钟 TracePrint "超时....." Exit Do End If Loop End Function