Import "Cjson.lua"
Import "ttddm.lua"
Import "ShanHai.lua"
Dim json, table,Result,ID
Dim username=""
Dim password=""
Dim typeid="29"
Dim filepath = "/sdcard/验证.jpg"
SnapShot filepath,237,482,484,723
Dim angle="90"
If Dir.Exist(filepath) Then
TracePrint "存在"
Else
TracePrint "不存在"
End If
//
TracePrint filepath
json = ttddm.tt_SendVerCode(username, password, filepath, typeid)
TracePrint json
If json and json <> ""Then
TracePrint json
table = Cjson.Decode(json)
If table Then
If table["code"] = "0" Then
ID = table["data"]["id"]
//识别结果
Result =table["data"]["result"]
//Result=table["md5"]
TracePrint "图片识别结果为: ", Result \\平台给角度
Swipe (这里不会写了)
Else
TracePrint "图片识别失败: ", table["message"]
End If
End If
Else
TracePrint "发送HTTP请求失败"
End If
这是一个旋转图片验证,平台给角度,滑动距离和公式不会写了 滑动360°距离是400,