VB.NET中网络编程所需组件WinHTTP的添加

VB.NET中网络编程所需组件：

WinHTTP组件：项目-->添加引用-->COM选项卡-->Microsoft WinHTTP Services，version 5.1-->确定

以下是做一个网络请求实例：

baseurl地址：

base_url:http://dachengxj.com
返回格式：json
请求格式：application/html | application/json| application/txt
请求方法： GET => 针对是所有的读操作（查询） POST => 针对所有的写操作（新增、修改、删除）
接口格式:
成功:

{
"errcode": 0,
"errmsg": "",
"data": []
}

失败：

{
"errcode": 42122,
"errmsg": "输入手机格式错误"
}

返回备注: 成功则errcode为零，直接在data中去取数据 失败的话errcode不为零，失败细节详见errmsg

校验手机号的api：

参数说明

url : /api/user/mobile_valid
方式 ： get
参数 :
字段        类型        是否为空     备注
mobile     string     not null     手机号

返回：
失败 ：

{
"errcode": 42122,
"errmsg": "输入手机格式错误"
}

成功 :

{
"errcode": 0,
"errmsg": "",
"data": []
}

VB编写的网络请求（GET请求）代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'定义一个WinHttpRequest类的实体变量
Dim http = New WinHttp.WinHttpRequest

'调用Open函数，传入参数为请求方法，URL
'如果是get方法,URL由baseurl+？+字段名+&+字段值构成
http.Open("GET", "http://dachengxj.com/api/user/mobile_valid?mobile&1111", False)

'发送请求
http.Send()

'请求结果为http.ResponseText
Label1.Text = http.ResponseText

End Sub

End Class

请求结果：

转载于:https://www.cnblogs.com/jiwangbujiu/p/5562859.html

• 点赞
• 收藏
• 分享
• 文章举报