标题：[求助] HttpClient

1楼

zcgmxf 发表于：2024/12/26 8:48:00

老师，我这个是发送联通短信的，没有发送成功但是又没有错误提示。请帮我看看，是哪里的问题？谢谢！

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

2楼

有点蓝 发表于：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)

3楼

zcgmxf 发表于：2024/12/26 11:42:00

谢谢！

共3 条记录, 每页显示 10 条, 页签: [1]