首先软件初始化
//软件初始化
//参数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
上面的源码去掉红色的字,可以直接用的,谢谢!