Android脚本

Import "Cjson.lua"

Import "ttddm.lua"

Import "ShanHai.lua"

//测试的截图 根据实际开发者自己定义

SnapShot "/sdcard/yzm.jpg", 153, 455, 125, 556

Dim json, table,Result,ID

//你的帐号

Dim username="*****"

//你的密码

Dim password="*****"

//一【图片验证码类型(默认 3 数英混合)：【33】:通用滑块(返回X轴坐标) 【32】:通用文字识别(证件、单据) 【16】:汉字 【14】:图片旋转 【11】:计算题 【7】:无感学习，【4】:闪动GIF，【3】:数英混合， 【2】:纯英文，【1】:纯数字

//二 【点选验证码类型(默认 19 一个坐标) 【19】: 1个坐标， 【20】: 3个坐标， 【21】: 3 ~ 5个坐标， 【22】: 5 ~ 8个坐标。【27】: 1 ~ 4个坐标。【29】: 旋转。

Dim typeid="3"

//无感学习子类型名称(可为空)：用户自定义(需自己记住,不同时为不同的无感学习)。【typeid为(7: 无感学习)时传】

Dim typename=""

//图片旋转角度(可为空 根据需要填写)【如90，-90 负数为逆时针旋转的角度】

Dim angle=""

//备注字段：可为空 当有中文时必须要进行unicode编码否则报错

Dim remark=ShanHai.Utf82Unicode("")

//图片路劲 filepath

Dim filepath = GetSdcardDir() & "/yzm.jpg"

If Dir.Exist(filepath) Then

TracePrint "存在"

Else

TracePrint "不存在!"

End If

TracePrint filepath

//这段代码为【图片识别】的案例

json = ttddm.tt_SendVerCode(username, password, filepath, typeid, typename, angle, remark)

//这段代码为【点选识别】的案例

//json = ttddm.tt_SendPointCode(username, password, filepath, typeid, remark)

// 由于环境限制调式时 去除不等于号的空格

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"]

TracePrint "验证码识别结果为: ", Result

Else

TracePrint "验证码识别失败: ", table["message"]

End If

End If

Else

TracePrint "发送HTTP请求失败"

End If

//报错

//Dim errorUrl="http://api.ttshitu.com/reporterror.json?id="

//Dim 返回值 = URL.Post(errorUrl & ID, "")

// TracePrint 返回值

PC脚本

username="你的账号"

password="你的密码"

//一【图片验证码类型(默认 3 数英混合)：【33】:通用滑块(返回X轴坐标) 【32】:通用文字识别(证件、单据) 【16】:汉字 【14】:图片旋转 【11】:计算题 【7】:无感学习，【4】:闪动GIF，【3】:数英混合， 【2】:纯英文，【1】:纯数字

typeid="3"

//定制识别的模型id,发布成功后的模型id。注：有modelid为定向识别，不存在modelid为通用识别：可空

modelid=""

//根据图片路劲读取成base64 filepath

base64 = Plugin.SMWH.Base64_File(图片地址)

Param="username="&username&"&password="&password&"&typeid="&typeid&"&image="&base64

B64编码 = Plugin.SMWH.Base64_File(图片地址)

//TracePrint B64编码

返回结果json = Plugin.SMWH.WinHttp("http://api.ttshitu.com/base64", 1, param ,"" ,"" ,"","Content-Type: application/json; charset=UTF-8","","","","","","","UTF-8")

TracePrint 返回结果json

result = Plugin.SMWH.GetJSON(返回结果json, "data.result")

//报错

//id= Plugin.SMWH.GetJSON(返回结果json, "data.id")

//返回结果json1 = Plugin.SMWH.WinHttp("http://api.ttshitu.com/reporterror.json?id=" & id,1,"" ,"" ,"" ,"" ,"","","","","","","","UTF-8")

触摸精灵、触动精灵LUA 源码

tt.lua相关插件下载地址：tt.zip

local tt=require "tt" --加载库,需要将tt.lua和ttjson.lua发送至触动的lua目录下！！！

--模拟器用户调用时需要可能需要重构userPath()以保证路径正确

-----------------------------------(使用)----------------------------------

--以下为模仿触动TSLib写法

tt.Info(username,password)--登陆函数，使用下方函数前必须已经调用过此函数！！！

--参数：字符型账号,字符型密码

--无返回值，函数为登陆账号使用

tt.Image(imagefile,typeid,timeout,urltype)

--参数：字符型图片路径,字符型识别类型,数值型超时时间(默认超时60秒),识别的类型(图片识别为1，点选返回坐标为2)

--typeid ：图片验证码类型(默认 3 数英混合)：【33】:通用滑块(返回X轴坐标) 【32】:通用文字识别(证件、单据) 【16】:汉字 【14】:图片旋转 【11】:计算题 【7】:无感学习，【4】:闪动GIF，【3】:数英混合， 【2】:纯英文，【1】:纯数字.！！！

-- 返回坐标类型(默认 19 一个坐标) 【19】: 1个坐标， 【20】: 3个坐标， 【21】: 3 ~ 5个坐标， 【22】: 5 ~ 8个坐标。【27】: 1 ~ 4个坐标。【29】: 旋转。！！！

--urltype ：图片识别为1，点选返回坐标为2！！！

--返回值：识别成功：字符型识别结果，字符型识别id；识别失败：nil，字符型错误信息

tt.ReportError2(yzmid)

--参数：字符型识别id(默认值为上一次识别id，一般不填写)

--返回值：字符型是否成功。成功返回"report success"，失败返回"report failed"

-----------------------------------案例1--------------------------------------------

local tt=require "tt"

tt.Info("***","***")

function userPath()

return "/mnt/sdcard/TouchSprite"--此处填写模拟器的触动实际路径

end

function ttScreen(x1,y1,x2,y2,scale) --此处为触动截图方法 开发者请根据实际脚本工具自己编写

scale=scale or 1

local path=userPath().."/res/ttshu.png"

snapshot("ttshu.png",x1,y1,x2,y2,scale)

return path

end

local a=ttScreen(80, 180, 100, 240) --图片的路径完整路径此处为截图获取的路径

res,id=tt.Image(a, 3,60,1)

print("result",res,id)

res1=tt.ReportError2(id)

print(res1)

UiBot

import mm

Dim path = "C:/Users/Administrator/Desktop/1.png"

Dim base64 = Null

Dim bin = Null

Dim jsons

Dim username="你的账户"

Dim password="你的密码"

//图片验证码类型(默认 3 数英混合)：【33】:通用滑块(返回X轴坐标) 【32】:通用文字识别(证件、单据) 【16】:汉字 【14】:图片旋转 【11】:计算题 【7】:无感学习，【4】:闪动GIF，【3】:数英混合， 【2】:纯英文，【1】:纯数字..

Dim typeid="3"

Dim SUrl = "http://api.ttshitu.com/base64"

// 获取文件base64编码.

// 一般是进行post 发送文件时所用.

base64 = mm.get_file_base64(path)

Dim Param='''{"username":"","password":"","typeid":"","image":""}'''

Dim requestjson = JSON.Parse(Param)

requestjson["username"]=username

requestjson["password"]=password

requestjson["typeid"]=typeid

requestjson["image"]=base64

jsons = HTTP.Post(SUrl,requestjson, 60000)

TracePrint jsons

dim table = JSON.Parse(jsons)

If IsNull(table) = false

If table["code"] = "0"

//识别Id

dim ID = table["data"]["id"]

//识别结果

TracePrint table["data"]["result"]

Else

TracePrint table["message"]

End If

End If