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