Dim ul As String = "wjjd"
Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes(ul)
Dim base641 = Convert.ToBase64String(b)
Dim base64 As String = base641
Dim b64 As String = UrlEncode(base641)
Output.Show(base64)
ul = "wjjd123.0"
b = System.Text.Encoding.UTF8.GetBytes(ul)
base64 = Convert.ToBase64String(b)
Dim b65 As String = UrlEncode(base64)
Output.Show(b65)
Dim hc As New HttpClient("http://192.168.1.1:8888/?portalindex=0&res=1")
hc.C
hc.Headers.Add("Connection","keep-alive")
hc.Headers.Add("User-Agent","PostmanRuntime/7.26.8")
hc.Headers.Add("Accept","*/*")
hc.Headers.Add("Accept-Encoding","gzip, deflate, br")
hc.Headers.Add("Cache-Control","no-cache")
hc.Headers.Add("Content-Length","<calculated when request is sent>")
hc.Headers.Add("Host","<calculated when request is sent>")
hc.Headers.Add("Postman-Token","<calculated when request is sent>")

hc.FormData.Add("actionType","umlogin")
hc.FormData.Add("language",1)
hc.FormData.Add("username",base64)
hc.FormData.Add("password",b65)
hc.FormData.Add("username1","")
hc.FormData.Add("password1","")
hc.FormData.Add("userIpMac","")
\'Dim jo As New JObject
\'jo("actionType") = "umlogin"
\'jo("language") = 1
\'jo("username") = base64
\'jo("password") = b65
\'jo("username1") = ""
\'jo("password1") = ""
\'jo("userIpMac") = ""
\'Output.Show(jo.ToString)
\'hc.Content = CompressJson(jo)
\'hc.Method = "POST"
Dim ret As String = hc.getData()
Output.Show(ret)