Foxtable(狐表)用户栏目专家坐堂 → [求助] HttpClient


  共有42人关注过本帖树形打印复制链接

主题:[求助] HttpClient

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] HttpClient  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2024/12/26 11:42:00 [只看该作者]

谢谢!

 回到顶部