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

 

请求结果：