通用识别(JSON / Base64)
Imports System
Imports System.Net.Http
Imports System.Text
Imports System.IO
Imports System.Threading.Tasks
Module Program
Private ReadOnly ApiUrl As String = "http://api.ttshitu.com"
Private Async Function PredictBase64Async() As Task
Dim username As String = "你的账号"
Dim password As String = "你的密码"
Dim typeid As String = "3" ' 数英混合
Dim imageBytes As Byte() = File.ReadAllBytes("C:\temp\captcha.jpg")
Dim imageBase64 As String = Convert.ToBase64String(imageBytes)
Dim json As String = "{""username"":""" & username & """,""password"":""" & password & """,""typeid"":""" & typeid & """,""image"":""" & imageBase64 & """}"
Using client As New HttpClient()
client.Timeout = TimeSpan.FromSeconds(60)
Dim content = New StringContent(json, Encoding.UTF8, "application/json")
Dim response = Await client.PostAsync(ApiUrl & "/predict", content)
Dim result = Await response.Content.ReadAsStringAsync()
Console.WriteLine(result)
' success=true 时 data.result 为识别结果,data.id 可用于报错
End Using
End Function
Sub Main()
PredictBase64Async().GetAwaiter().GetResult()
End Sub
End Module
报错脚本
' POST http://api.ttshitu.com/reporterror.json
' body: {"id":"识别成功返回的id"}
余额查询(GET)
' GET http://api.ttshitu.com/queryAccountInfo.json?username=你的账号&password=你的密码
' 返回字段:data.balance / data.consumed / data.successNum / data.failNum