Dim a,b,c,d,num
‘qX是每一个位图检查点,q1--q10第一位,q11--q20第二位,q21--q30第三位,q31--q40第四位
q1=.Image("imgcode").Check(CheckPoint("imgcode"))
q2=.Image("imgcode").Check(CheckPoint("imgcode_2"))
q3=.Image("imgcode").Check(CheckPoint("imgcode_4"))
q4=.Image("imgcode").Check(CheckPoint("imgcode_5"))
q5=.Image("imgcode").Check(CheckPoint("imgcode_6"))
q6=.Image("imgcode").Check(CheckPoint("imgcode_8"))
q7=.Image("imgcode").Check(CheckPoint("imgcode_9"))
q8=.Image("imgcode").Check(CheckPoint("imgcode_10"))
q9=.Image("imgcode").Check(CheckPoint("imgcode_11"))
q10=.Image("imgcode").Check(CheckPoint("imgcode_12"))
q11=.Image("imgcode").Check(CheckPoint("imgcode_13"))
q12=.Image("imgcode").Check(CheckPoint("imgcode_14"))
q13=.Image("imgcode").Check(CheckPoint("imgcode_15"))
q14=.Image("imgcode").Check(CheckPoint("imgcode_16"))
q15=.Image("imgcode").Check(CheckPoint("imgcode_17"))
q16=.Image("imgcode").Check(CheckPoint("imgcode_18"))
q17=.Image("imgcode").Check(CheckPoint("imgcode_19"))
q18=.Image("imgcode").Check(CheckPoint("imgcode_20"))
q19=.Image("imgcode").Check(CheckPoint("imgcode_21"))
q20=.Image("imgcode").Check(CheckPoint("imgcode_24"))
q21=.Image("imgcode").Check(CheckPoint("imgcode_25"))
q22=.Image("imgcode").Check(CheckPoint("imgcode_26"))
q23=.Image("imgcode").Check(CheckPoint("imgcode_27"))
q24=.Image("imgcode").Check(CheckPoint("imgcode_28"))
q25=.Image("imgcode").Check(CheckPoint("imgcode_29"))
q26=.Image("imgcode").Check(CheckPoint("imgcode_30"))
q27=.Image("imgcode").Check(CheckPoint("imgcode_32"))
q28=.Image("imgcode").Check(CheckPoint("imgcode_33"))
q29=.Image("imgcode").Check(CheckPoint("imgcode_34"))
q30=.Image("imgcode").Check(CheckPoint("imgcode_35"))
q31=.Image("imgcode").Check(CheckPoint("imgcode_36"))
q32=.Image("imgcode").Check(CheckPoint("imgcode_37"))
q33=.Image("imgcode").Check(CheckPoint("imgcode_38"))
q34=.Image("imgcode").Check(CheckPoint("imgcode_39"))
q35=.Image("imgcode").Check(CheckPoint("imgcode_40"))
q36=.Image("imgcode").Check(CheckPoint("imgcode_41"))
q37=.Image("imgcode").Check(CheckPoint("imgcode_42"))
q38=.Image("imgcode").Check(CheckPoint("imgcode_43"))
q39=.Image("imgcode").Check(CheckPoint("imgcode_44"))
q40=.Image("imgcode").Check(CheckPoint("imgcode_45"))
'one check 得出第一位验证码
If ( q1 = true ) Then
a=8
elseif(q2= true) then
a=9
elseif(q3= true) then
a=7
elseif(q4= true) then
a=4
elseif ( q5 = true ) then
a=0
elseif(q6= true) then
a=3
elseif(q7= true) then
a=6
elseif(q8= true) then
a=1
elseif(q9= true) then
a=5
elseif(q10= true) then
a=2
End If
'two check 得出第二位验证码
If (q11= true) Then
b=2
elseif(q12= true) then
b=3
elseif(q13= true) then
b=4
elseif(q14= true) then
b=9
elseif(q15= true) then
b=5
elseif(q16= true) then
b=6
elseif(q17= true) then
b=0
elseif(q18= true) then
b=8
elseif(q19= true) then
b=1
elseif(q20= true) then
b=7
End If
'three check 得出第三位验证码
If ( q21 = true ) Then
c=0
elseif(q22= true) then
c=7
elseif(q23= true) then
c=4
elseif(q24= true) then
c=8
elseif(q25= true) then
c=1
elseif(q26= true) then
c=6
elseif(q27= true) then
c=2
elseif(q28= true) then
c=9
elseif(q29= true) then
c=3
elseif(q30= true) then
c=5
End If
'four check 得出第四位验证码
If (q31= true) Then
d=4
elseif(q32= true) then
d=0
elseif(q33= true) then
d=5
elseif(q34= true) then
d=1
elseif(q35= true) then
d=2
elseif(q36= true) then
d=3
elseif(q37= true) then
d=6
elseif(q38= true) then
d=9
elseif(q39= true) then
d=7
elseif(q40= true) then
d=8
End If
num=(cstr(a)+cstr(b)+cstr(c)+cstr(d))
msgbox" 验证码是:"&num
.WebEdit("imgcode").Set ""&num
.WebButton("登 录").Click
.Sync
End With
执行后总是提示:
提示The "imgcode" Image object was not found in the Object Repository.
Check the Object Repository to confirm that the object exists or to find the correct name for the object.
Line (7): "q1=.Image("imgcode").Check(CheckPoint("imgcode"))".