- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] HttpClient (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194599)
-- 发布时间：2024/12/26 8:48:00
-- [求助] HttpClient
老师，我这个是发送联通短信的，没有发送成功但是又没有错误提示。请帮我看看，是哪里的问题？谢谢！
Dim a As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim b As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim c As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim d As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim hc As New HttpClient(CStr(a.Value))
Dim jo As New JObject
jo("mobiles") = CStr(b.Value)
jo("message") = CStr(c.Value)
jo("sysid") = CStr(d.Value)
Dim str As String = "?mobiles=" & jo("mobiles").ToString() & "&message=" & jo("message").ToString() & "&sysid=" & jo("sysid").ToString()
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:公共通讯服务_短信接口文档20240313.txt |
-- 发布时间：2024/12/26 9:54:00
--
dim url as string = "http://10.10.1.181/sms/home/sms/sendMessage?mobiles=手机号&message=短信内容&sysid=系统短信服务ID"
Dim hc As New HttpClient(url )
Dim ret As String = hc.GetData()
MessageBox.Show(ret, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
-- 发布时间：2024/12/26 11:42:00
--
谢谢！