//8.x语法
Dim w, h
Dim x, y
Dim code, i
const CODELENGTH = 5
w = Plugin.Sys.GetScRX
h = Plugin.Sys.GetScRY
//在整个屏幕上找图片,并返回左上角坐标
FindPic 0,0,w,h,"Attachment:\a.bmp",0.9,x,y
If x>0 And y>0 Then
//偏移后得到数字左上角坐标
x = x + 7
y = y + 71
For i=1 To CODELENGTH
code = code & GetNum(x,y)
x = x + 5 + 1
Next
MessageBox code
Else
MessageBox "验证码位置查找失败!"
End If
EndScript
//******************* 函数,子过程开始 *******************
//功能:获取图片上某个范围内的一个数字
//参数:
// intX:数字左上角x坐标值
// intY:数字左上角y坐标值
Function GetNum(intX, intY)
Dim num(9)
Dim pixelcolor, str, i
//0-9特征码
num(0) =