一个简单的登录操作，但是运行很慢，要几分钟，请教大师们是啥原因导致？

deadhunter

请教一个问题，为什么下面的代码运行这么慢

Function setObj(obj,operator,value)
        Dim errMsg,succMsg
        If Not obj.Exist Then
                errMsg = obj.ToString & " 不存在"
                'errMsg = "对象不存在"
                Log "STEP", errMsg
                setObj = False
                Exit Function
        End If

        Select Case operator
        Case 1
                '执行set方法
                succMsg = obj.ToString & " set " & value
                obj.Set value
                Log "STEP", succMsg
        Case 2
                '执行Click方法
                succMsg = obj.ToString & " 执行方法Click "
                obj.Click
                Log "STEP", succMsg
        Case 3
                '执行Object.innerText属性
                succMsg = obj.ToString & " Object.innerText set " & value
                obj.Object.innerText = value
                Log "STEP", succMsg
        Case 4
                '判断item的值是否在weblist中
                If Not checkWebList(obj,value) Then
                        errMsg = obj.ToString & " 中item不存在" & value
                        setObj = False
                        Log "STEP", errMsg
                        Exit Function
                End If
                succMsg = obj.ToString & " Select " & value
                obj.Select value
                Log "STEP", succMsg
        Case 5
                '判断item值是否正确
                'If CInt(value)>CInt(obj.GetROProperty("items count")) Then
                '        errMsg = obj.ToString & " 中item不存在" & value
                '        setObj = False
                '        Log "STEP", errMsg
                '        Exit Function
                'End If
                succMsg = obj.ToString & " Select " & value
                obj.Select value
                Log "STEP", succMsg
        Case 6
                '执行验证码set方法
                succMsg = obj.ToString & " set " & value
                obj.Click
                obj.Set value
                Log "STEP", succMsg
        End Select
        setObj = True
End Function

Function login(email,password)
        Log "STEP","in Function login()"
       
        '关闭所有浏览器窗口
        closeBrowser()
        '创建IE
        OpenWeb("http://test/login.html")
       
  If Not setObj(Browser("test").Page("test").WebEdit("email"),1,email)  _
    And setObj(Browser("test").Page("test").WebEdit("password"),1,password)  Then
'          Or setObj(Browser("test").Page("test").WebEdit("验证码"),1,code)
  Log "STEP","找不到登录入口"
  Exit Function
  End If
  
  If Not setObj(Browser("tett").Page("test").WebButton("登录"),2,"")  Then
          Log "STEP","找不到登录按钮"
    Exit Function
  End If
  
  If isExist(Browser("test").Page("test").Link("退出"))  Then
     login=true
  End If
  
End Function

msnshow

手工运行的话情况如何

kavensyw

会不会是找验证对象等是否存在的时间太长了
比如： obj.Exist 的时间太长了？
我一般习惯obj.Exist(s)的形式

[ 本帖最后由 kavensyw 于 2010-8-15 21:55 编辑 ]

xue202757

是否关联了Recovery Scenario?

zwd183335

obj.Exist可以设置TimeOut

zwd183335

还有运行模式有快速模式，在设置里

deadhunter

原帖由 zwd183335 于 2010-8-17 13:27 发表
obj.Exist可以设置TimeOut

请问在哪设置呢？

deadhunter

原帖由 msnshow 于 2010-8-15 18:15 发表
手工运行的话情况如何

你指单独录制脚本来运行，还是手工操作登录，如果手工操作很快就完成

sogohu

感觉是obj.exsit 的问题，换成waitproperty，应该会快点