74 lines
2.0 KiB
VB.net
74 lines
2.0 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Text
|
|
|
|
Public Class AutsSqlApi
|
|
|
|
|
|
Private pow As String ="$%@132"
|
|
Private DBName As String = "uts_zongqing"
|
|
Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
|
|
|
|
ServicePointManager.Expect100Continue = False
|
|
Dim request As HttpWebRequest = WebRequest.Create(url)
|
|
'//Post请求方式
|
|
request.Method = "POST"
|
|
|
|
'内容类型
|
|
request.ContentType = "application/x-www-form-urlencoded"
|
|
'将URL编码后的字符串转化为字节
|
|
Dim encoding As New UTF8Encoding()
|
|
Dim bys As Byte() = encoding.GetBytes(data)
|
|
'设置请求的 ContentLength
|
|
request.ContentLength = bys.Length
|
|
'获得请 求流
|
|
Dim newStream As Stream = request.GetRequestStream()
|
|
newStream.Write(bys, 0, bys.Length)
|
|
newStream.Close()
|
|
'获得响应流
|
|
Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
|
|
Return sr.ReadToEnd
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' 机身码与彩盒码绑定
|
|
''' {"Mars_ColorBox_BarCode":"CTHM08711382252033277"
|
|
'''"Message":"成功"
|
|
'''"Barcode":"1234"} =
|
|
''' </summary>
|
|
''' <param name="Uart">网络地址</param>
|
|
''' <param name="Barcode">机身码</param>
|
|
''' <param name="DBName">数据库名</param>
|
|
|
|
Public Function BindColorBoxCode(Uart As String ,Barcode As String ,DBName As String )as BindColorBoxCodeClass
|
|
|
|
Dim jsonString As String = String.Empty
|
|
Try
|
|
jsonString = PostData(Uart, $"Pwd={pow}&Barcode={Barcode}&DBName={DBName}")
|
|
|
|
Catch ex As Exception
|
|
MsgBox($"{ex.Message}！请联系管理员")
|
|
End Try
|
|
Console.WriteLine(jsonString)
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Public sub ModifyingBindingInfo
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
|
|
Public Class BindColorBoxCodeClass
|
|
|
|
Public Mars_ColorBox_BarCode As String
|
|
Public Message As String
|
|
Public Barcode As String
|
|
|
|
End Class
|