/*
*@Fun 微锐代答
*@arg null
*@retun null
**/
Sub microRui()
TID = "-1"
While Len(TID) = 2
//截图并发送,前台截取。
TID = Plugin.Microrui.SendImage(weiRui, 1046, judgeX, judgeY, 140, 65, 20)
//参数说明(具体看插件压缩包里的说明):SendImage( 上传密码串,游戏ID,截图起点坐标X,Y,图片的长,宽,超时时间单位秒)
//直接发送图片文件。
//TID = Plugin.Microrui.SendFile("47|59659363F0D090484D356728BBBE9677", 1001, "图片路径", 300)
//参数说明(具体看插件压缩包里的说明):SendFile(上传密码串,游戏ID,图片路径,超时时间单位秒)
TracePrint TID
Delay 1500
Wend
Answer = "-1"
While Answer = "-1"
Delay 2500
Answer = Plugin.Microrui.GetAnswer(TID)
TracePrint Answer
Wend
If Answer <> "-1" Then
If Answer = "-9" Then
//-9:图片无法识别,请检查截取的图片是否正确
ElseIf Answer = "-8" Then
//-8:答题超时
ElseIf Answer = "1" Then
//答案1
Call switchValidate()
ElseIf Answer = "2" Then
//答案2
Call switchValidate()
ElseIf Answer = "3" Then
//答案3
Call switchValidate()
ElseIf Answer = "4" Then
//答案4
Call switchValidate()
Else
//其它返回值
Call inputValidate()
End If
End If
End Sub
/*
*@Fun 判断是否有验证码
*@arg null
*@retun null
**/
Function judgeHasValidate()
Dim intX, intY
FindPic 650, 400, 1110, 780, "Attachment:\验证码.bmp", 1.0, intX, intY
//MessageBox intX &" "& intY
If intX > 0 and intY > 0 Then
judgeX = intX + 60
judgeY = intY + 65
judgeHasValidate = 1
Else
judgeHasValidate = 0
End If
End Function
/*---------------------------判断有无验证码—————-----------*/
Function judgeValidate()
Delay 3000
While validateFlag
hasV = judgeHasValidate()
//MessageBox judgeX &" "& judgeY
If hasV = 1 Then
Call microRui()
Delay 10000
Else
validateFlag = false
End If
Wend
If Not validateFlag Then
Call selectChannel()
End If
End Function
/*
*@Fun 切换下一张验证码
*@arg null
*@retun null
**/
Function switchValidate()
SetSimMode 2
Dim intX, intY
FindPic 650, 400, 1110, 780, "Attachment:\切图.bmp", 1.0, intX, intY