关于QTP识别验证码识别问题

quarguest

我的测试页面验证码是加了很多干扰点的四位数字，所以我加了这么个判断和循环结构。如果位数不定的话，这个办法就不行了。
Do
        Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Output CheckPoint("Internet Explorer_Server_5")
        A=environment.Value ("CheckCode")
        R=""
        For i=1 To Len(A)
                j=Asc(Mid(A,i,1))
                If j>47 And j<58 Then
                        R=R+Chr(j)
                End If
        Next
        If  Len(R)<>4 Then
                Browser("ERP管理系统(仅限内部使用) - 系统登录").Page("ERP管理系统(仅限内部使用) - 系统登录").Image("verifycode.asp?n=43968").Click
        End If
Loop Until Len(R) = 4
environment.Value ("RCode")=R