90 lines
3.0 KiB
VB.net
90 lines
3.0 KiB
VB.net
Imports System.IO
|
||
Imports System.Net
|
||
Imports System.Text
|
||
Imports Newtonsoft.Json
|
||
|
||
Public Class RoomControlSystemAPI
|
||
|
||
Public Shared Function API_AllocationBarCode(roomNumber As String, hotelID As String) As APIRoomNode
|
||
Dim jsonString As String = String.Empty
|
||
Dim dic As New Dictionary(Of String， String）
|
||
dic.Add("roomNumber", roomNumber)
|
||
dic.Add("key", "blw_ws@2015")
|
||
dic.Add("hotelID", hotelID)
|
||
Try
|
||
jsonString = PostData("https://www.boonlive-rcu.com/api/GetHostByRoomNumber", $"jsonData={JsonConvert.SerializeObject(dic)}")
|
||
Catch ex As Exception
|
||
MsgBox($"网络API调用错误，请联系管理员。")
|
||
Return Nothing
|
||
End Try
|
||
'Console.WriteLine(jsonString)
|
||
|
||
If jsonString = Nothing Then
|
||
Return Nothing
|
||
End If
|
||
|
||
Dim login As APIRoomNode = Nothing
|
||
Try
|
||
login = JsonConvert.DeserializeObject(Of APIRoomNode)(jsonString)
|
||
If login.IsSuccess.ToLower.Equals("true") Then
|
||
Return login
|
||
Else
|
||
Return Nothing
|
||
End If
|
||
Catch ex As Exception
|
||
'MsgBox($"Json数据转换错误，请联系管理员。详情 ：Json data to AllocationAPI error")
|
||
Return Nothing
|
||
End Try
|
||
|
||
End Function
|
||
Public Shared Function URLEncode(strInput As String) As String
|
||
Dim strOutput As String
|
||
Dim intAscii As Integer
|
||
Dim i As Integer
|
||
|
||
|
||
For i = 1 To Len(strInput)
|
||
intAscii = Asc(Mid(strInput, i, 1))
|
||
If ((intAscii < 58) And (intAscii > 47)) Or
|
||
((intAscii < 91) And (intAscii > 64)) Or
|
||
((intAscii < 123) And (intAscii > 96)) Then
|
||
strOutput = strOutput & Chr(intAscii)
|
||
Else
|
||
strOutput = strOutput &
|
||
IIf(intAscii < 16, "%0", "%") &
|
||
Trim$(Hex$(intAscii))
|
||
End If
|
||
Next
|
||
URLEncode = strOutput
|
||
End Function
|
||
|
||
|
||
Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
|
||
|
||
ServicePointManager.Expect100Continue = False
|
||
Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
|
||
'//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
|
||
End Class
|
||
Public Class APIRoomNode
|
||
Public IsSuccess As String
|
||
Public Result As List(Of Dictionary(Of String, String))
|
||
End Class
|