Dim url As String = "http://192.168.3.10:8088/api/services/Org/UserLogin"
Dim hc As New HttpClient(url)
hc.ContentType = "application/json"
Dim jo As New JObject
jo("UserName") = "000001"
jo("Password") = "12345"
jo("DomainIp") = ""
jo("DeviceId") = ""
jo("WeChatName") = ""
jo("IsWechatType") = ""
jo("ClientType") = ""
jo("UserHostAddress") = ""
jo("ValidateCodeSms") = ""
Output.Show(jo.tostring)
hc.Content = jo.tostring
Dim ret As String = hc.GetData
Output.Show(ret)
[此贴子已经被作者于2021/12/13 16:23:52编辑过]
加好友 
发短信
Post By：2021/12/13 16:23:00 [显示全部帖子]
