短信通106短信接口验证码接口群发平台_国际短信接口验证码接口群发平台-速度网络有限公司

點擊這里給我發消息
幫助中心

工作時間:8:30 - 17:30

VB

01Imports System.Net
02Imports System.io
03 
04Public Class HttpSend
05    ''' <summary>
06    ''' post方法
07    ''' </summary>
08    ''' <param name="url">服務器地址</param>
09    ''' <param name="param">參數</param>
10    ''' <returns></returns>
11    ''' <remarks></remarks>
12    Public Shared Function postSend(ByVal url As String, ByVal param As String) As String
13 
14        Dim myEncode As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
15 
16        Dim postBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(param)
17 
18        Dim req As HttpWebRequest = HttpWebRequest.Create(url)
19        req.Method = "POST"
20        req.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
21        req.ContentLength = postBytes.Length
22 
23        Try
24            Using reqStream As Stream = req.GetRequestStream()
25                reqStream.Write(postBytes, 0, postBytes.Length)
26            End Using
27 
28            Using res As WebResponse = req.GetResponse()
29                Using sr As StreamReader = New StreamReader(res.GetResponseStream(), myEncode)
30                    Dim strResult As String = sr.ReadToEnd()
31                    Return strResult
32                End Using
33            End Using
34 
35        Catch ex As WebException
36            Return "無法連接到服務器" & Chr(13) & Chr(10) & "錯誤信息:" & ex.Message
37        End Try
38 
39 
40    End Function
41    ''' <summary>
42    ''' get方法
43    ''' </summary>
44    ''' <param name="url">地址</param>
45    ''' <param name="param">參數</param>
46    ''' <returns></returns>
47    ''' <remarks></remarks>
48    Public Shared Function getSend(ByVal url As String, ByVal param As String) As String
49        Dim address As String = url & "?" & param
50        Dim uri As Uri = New Uri(address)
51        Dim webReq As WebRequest = WebRequest.Create(uri)
52 
53        Try
54            Using webResp As HttpWebResponse = DirectCast(webReq.GetResponse(), HttpWebResponse)
55                Using respStream As Stream = webResp.GetResponseStream()
56                    Using objReader As StreamReader = New StreamReader(respStream, System.Text.Encoding.GetEncoding("UTF-8"))
57                        Dim strRes As String = objReader.ReadToEnd()
58                        Return strRes
59                    End Using
60                End Using
61            End Using
62 
63        Catch ex As WebException
64            Return "無法連接到服務器" & Chr(13) & Chr(10) & "錯誤信息:" & ex.Message
65        End Try
66 
67 
68    End Function
69 
70End Class

客服电话

18058309210

服务热线:0577-61586612

邮件咨询:dxton@qq.com

上班时间:工作日9:00-17:00

微信客服

主站蜘蛛池模板: 合肥钣金加工-安徽激光切割加工-机箱机柜加工厂家-合肥通快 | 泥浆在线密度计厂家-防爆数字压力表-膜盒-远传压力表厂家-江苏大亚自控设备有限公司 | 电缆桥架生产厂家_槽式/梯式_热镀锌线槽_广东东莞雷正电气 | 众品地板网-地板品牌招商_地板装修设计_地板门户的首选网络媒体。 | 手术室净化厂家_成都实验室装修公司_无尘车间施工单位_洁净室工程建设团队-四川华锐16年行业经验 | 石家庄救护车出租_重症转院_跨省跨境医疗转送_活动赛事医疗保障_康复出院_放弃治疗_腾康26年医疗护送转诊团队 | 建筑资质代办_工程施工资质办理_资质代办公司_北京众聚企服 | 沈阳网站建设_沈阳网站制作_沈阳网页设计-做网站就找示剑新零售 沈阳缠绕膜价格_沈阳拉伸膜厂家_沈阳缠绕膜厂家直销 | 深圳APP开发公司_软件APP定制开发/外包制作-红匣子科技 | 铁盒_铁罐_马口铁盒_马口铁罐_铁盒生产厂家-广州博新制罐 | 细石混凝土泵_厂家_价格-烟台九达机械有限公司 | 青岛球场围网,青岛车间隔离网,青岛机器人围栏,青岛水源地围网,青岛围网,青岛隔离栅-青岛晟腾金属制品有限公司 | 无线讲解器-导游讲解器-自助讲解器-分区讲解系统 品牌生产厂家[鹰米讲解-合肥市徽马信息科技有限公司] | 双段式高压鼓风机-雕刻机用真空泵-绍兴天晨机械有限公司 | 郑州爱婴幼师学校_专业幼师培训_托育师培训_幼儿教育培训学校 | 中开泵,中开泵厂家,双吸中开泵-山东博二泵业有限公司 | 大鼠骨髓内皮祖细胞-小鼠神经元-无锡欣润生物科技有限公司 | 贵阳用友软件,贵州财务软件,贵阳ERP软件_贵州优智信息技术有限公司 | 垃圾处理设备_餐厨垃圾处理设备_厨余垃圾处理设备_果蔬垃圾处理设备-深圳市三盛环保科技有限公司 | 福州时代广告制作装饰有限公司-福州广告公司广告牌制作,福州展厅文化墙广告设计, | 媒介云-全网整合营销_成都新闻媒体发稿_软文发布平台 | 海峰资讯 - 专注装饰公司营销型网站建设和网络营销培训 | 萃取箱-萃取槽-PVC萃取箱厂家-混合澄清槽- 杭州南方化工设备 | 汽液过滤网厂家_安平县银锐丝网有限公司| 中矗模型-深圳中矗模型设计有限公司 | RTO换向阀_VOC高温阀门_加热炉切断阀_双偏心软密封蝶阀_煤气蝶阀_提升阀-湖北霍科德阀门有限公司 | 龙门加工中心-数控龙门加工中心厂家价格-山东海特数控机床有限公司_龙门加工中心-数控龙门加工中心厂家价格-山东海特数控机床有限公司 | 品牌设计_VI设计_电影海报设计_包装设计_LOGO设计-Bacross新越品牌顾问 | 德国进口电锅炉_商用电热水器_壁挂炉_电采暖器_电热锅炉[德国宝] | 恒温恒湿试验箱_高低温试验箱_恒温恒湿箱-东莞市高天试验设备有限公司 | 施工围挡-施工PVC围挡-工程围挡-深圳市旭东钢构技术开发有限公司 | 聚合甘油__盐城市飞龙油脂有限公司| 全自动包装机_灌装机生产厂家-迈驰包装设备有限公司 | 纯化水设备-纯水设备-超纯水设备-[大鹏水处理]纯水设备一站式服务商-东莞市大鹏水处理科技有限公司 | 全自动包装秤_全自动上袋机_全自动套袋机_高位码垛机_全自动包装码垛系统生产线-三维汉界机器(山东)股份有限公司 | 质检报告_CE认证_FCC认证_SRRC认证_PSE认证_第三方检测机构-深圳市环测威检测技术有限公司 | 菏泽商标注册_菏泽版权登记_商标申请代理_菏泽商标注册去哪里 | 联系我们-腾龙公司上分客服微信19116098882 | 国产离子色谱仪,红外分光测油仪,自动烟尘烟气测试仪-青岛埃仑通用科技有限公司 | 台湾阳明固态继电器-奥托尼克斯光电传感器-接近开关-温控器-光纤传感器-编码器一级代理商江苏用之宜电气 | 滁州高低温冲击试验箱厂家_安徽高低温试验箱价格|安徽希尔伯特 |