Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
Imports Newtonsoft.Json
'json解析用
Imports System.IO
Imports System.Net
'图灵机器人-语音对话的实现
Public Class tulin
Dim KEY As String
'这里是注册时得到的key
Public Sub New(_key As String)
KEY = _key
End Sub
Public Function run(tbxinput As String) As String
Dim input As String = tbxinput
Dim url As String = "http://www.tuling123.com/openapi/api?key=" + KEY + "&info=" + input
Dim encoding__1 As Encoding = Encoding.GetEncoding("utf-8")
Dim data As [String] = HttpGet(url, encoding__1)
Dim reader As JsonReader = New JsonTextReader(New StringReader(data))
While reader.Read()
If reader.TokenType = JsonToken.PropertyName AndAlso reader.ValueType = Type.[GetType]("System.String") AndAlso Convert.ToString(reader.Value) = "code" Then
reader.Read()
Select Case Convert.ToInt32(reader.Value)
Case 100000
' 返回码为文本类数据
reader.Read()
reader.Read()
Return reader.Value
Exit Select
Case Else
Exit Select
End Select
End If
End While
Return ""
End Function
Private Shared Function HttpGet(url As String, encoding As Encoding) As String
Dim data As String = ""
Try
Dim request As WebRequest
'使用url发出请求的类
request = WebRequest.Create(url)
request.Credentials = CredentialCache.DefaultCredentials
'使用默认的身份验证
request.Timeout = 10000
'设定超时
Dim response As WebResponse
'提供响应的类
response = request.GetResponse()
'获取数据
data = New StreamReader(response.GetResponseStream(), encoding).ReadToEnd()
Catch e As System.Exception
Console.WriteLine(e.Message)
End Try
Return data
End Function
End Class