首先软件初始化

//软件初始化

//参数1 填入你的软件名 参数2 填入软件KEY

返回码 = Plugin.Dama2QMPlugin.Init("这里是你在开发者里面创建软件的名字", "这里是你在开发者里面创建软件的KYE")

If 返回码 <> 0 Then

MsgBox "初始化失败"

End If

这里是你的打码免登录用户名

//用户登录，注意，不能填开发者账号

//参数1 用户名 参数2 密码

返回码 = Plugin.Dama2QMPlugin.Login("打码免用户名", "密码")

If 返回码 <> 0 Then //成功

MsgBox "登陆错误，返回码=" & 返回码

End If

这里就是识别验证码，并返回了

//识别验证码

//参数1 图片路径 (如果传入多张图片，请用分号或逗号分隔，打码兔会将您传入的多张图片组合成GIF动画图片上传识别，如："c:\1.bmp;c:\2.bmp;c:\3.bmp")

//返回的串用逗号分隔，第一列为返回码，第二列为识别结果

//如果返回码>0，表示识别成功，返回验证码ID，否则失败，常见的错误码：-205 识别超时 -101 余额不足

//第一种方法是识别你的硬盘里的图片并返回，我是识别的d:\10.jpg，超时时间我试了一下要30秒以上，太小的话有的识别不出

Dim RetStr

Dim a

RetStr = Plugin.Dama2QMPlugin.DecodeFileSync("d:\10.jpg", 50, 73)

返回码 = Split(RetStr,",")(0)

答案 = Split(RetStr, ",")(1)

If 返回码 > 0 Then

MsgBox "请求成功，验证码ID=" & 返回码 & "；识别结果验证码=" & 答案

idVCode = 返回码

//做你的操作

//如果答案不正确，则报错。返还用户题分

//Plugin.Dama2QMPlugin.ReportError(idVCode);

ElseIf 返回码 = -101 Then //失败

MsgBox "余额不足，请及时充值"

ElseIf 返回码 = -205 Then

//此错误脚本中不建议弹框，重试即可。MsgBox "识别超时"

Else

//脚本中不建议弹框，重试即可，不然脚本会中断MsgBox "识别失败，错误码：" & 返回码

End If

//第二种方法是抓取座标范围图片，识别验证码并返回，你随便选一种吧，座标你要改一下下面我例子中的我用的座标，第一个参数最好不要改。

//

抓取座标范围图片，识别验证码

'功能：通过传入窗口信息请求答题(同步)，由打码兔负责抓取并上载图片。

'参数1：抓取图片的窗口定义，如为空字串，表示全屏截取。

'参数2：窗口坐标，用空格分隔的4个数字，分别表示左、上、右、下，如为空或全0，表示截取整个窗口内容。

'参数3：验证码的超时秒数，系统会在指定的超时时间内处理该验证码(当然会尽快处理)，如果超过该时间未处理，系统会丢弃该验证码。

'返回：以逗号分隔的2个字段，

'

第1个为返回码(<0的请况)或验证码ID(>=0的情况，该数值用于调用ReportError)

'

第2个在成功时为验证码文本(即答案)，失败时为“NULL”

Dim RetStr

RetStr = Plugin.Dama2QMPlugin.DecodeWndSync("ANY_CLASS,ANY_NAME,1", "785 487 895 537", 40, 73)

返回码 = Split(RetStr, ",")(0)

答案 = Split(RetStr, ",")(1)

If 返回码 < 0 Then //失败

MsgBox "请求失败，返回：" & 返回码

Else

MsgBox "请求成功，验证码ID=" & 返回码 & "；验证码=" & 返回文本

idVCode = 返回码

End If

TracePrint "RetStr:" & RetStr

TracePrint "返回码:" & 返回码

TracePrint "答案:" & 答案

输出的答案后，就要你自己写程序，看怎么用了

//整脚本退出前，调用一下反初始化，脚本运行过程中千万别调用

Plugin.Dama2QMPlugin.Uninit

上面的源码去掉红色的字，可以直接用的，谢谢！