VB.NET GET接口传送数据,获取返回值

先在引用里,右击添加引用。COM选项下找到Microsoft  WinHTTP  Service, version  5.1

Imports System.Web
Imports System.Text
Imports System.IO
Imports System.Net
Imports WinHttp
Imports System

''' <summary>
''' 微信接口帮助类 20160713
''' </summary>
''' <remarks></remarks>
Public Class WeChatHelper


#Region "微信推送接口"
    Public Shared Function ToPost(ByVal inputJson As inputJson) As String
Dim url As String = "http://cp.tunnel.qydev.com/rest/eip/eipNotice?inputJson="
        'Dim strparam As String = "inputJson :{"
        Dim strparam As String = "{"
        strparam += Chr(34) & "fromUser" & Chr(34) & ":" & Chr(34) & "eip" & Chr(34) & ","
        strparam += Chr(34) & "toUser" & Chr(34) & ":" & Chr(34) & "fcps" & Chr(34) & ","
        strparam += Chr(34) & "transactionFormat" & Chr(34) & ":" & Chr(34) & "json" & Chr(34) & ","
        strparam += Chr(34) & "transactionId" & Chr(34) & ":" & Chr(34) & "" & Guid.NewGuid().ToString() & "" & Chr(34) & ","
        strparam += Chr(34) & "transactionType" & Chr(34) & ":" & Chr(34) & "40" & Chr(34) & ","
        strparam += Chr(34) & "room_id" & Chr(34) & ":" & Chr(34) & "100800" & Chr(34) & ","
        strparam += Chr(34) & "room_name" & Chr(34) & ":" & Chr(34) & "软件园公务车" & Chr(34) & ","
        strparam += Chr(34) & "Starpoint" & Chr(34) & ":" & Chr(34) & "北京" & Chr(34) & ","
        strparam += Chr(34) & "Endpoint" & Chr(34) & ":" & Chr(34) & "上海" & Chr(34) & ","
        strparam += Chr(34) & "begin_date" & Chr(34) & ":" & Chr(34) & "2015/6/13 02:05:20" & Chr(34) & ","
        strparam += Chr(34) & "end_date" & Chr(34) & ":" & Chr(34) & "2015/6/13 10:40:15" & Chr(34) & ","
        strparam += Chr(34) & "purpose" & Chr(34) & ":" & Chr(34) & "测试GET接口" & Chr(34) & ","
        strparam += Chr(34) & "employ_name" & Chr(34) & ":" & Chr(34) & "程序三科 沈文锋" & Chr(34) & ","
        strparam += Chr(34) & "tel" & Chr(34) & ":" & Chr(34) & "13888888888" & Chr(34) & ","
        strparam += Chr(34) & "flag" & Chr(34) & ":" & Chr(34) & "已审核" & Chr(34) & ","
        strparam += Chr(34) & "employ_driver_no" & Chr(34) & ":" & Chr(34) & "0002439" & Chr(34) & ""
        strparam += "}"
        Dim aa As String = GetResponse(url & strparam)
        Return aa

    End Function
#End Region

#Region "GET请求1"
    Private Shared aHttpRequest As WinHttp.WinHttpRequest
    Public Shared Function GetResponse(ByVal url As String) As String
        Dim strResult As String = ""

        Try
            Dim wrq As System.Net.WebRequest = System.Net.WebRequest.Create(url)
            wrq.Method = "GET"
            ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
            Dim wrp As System.Net.WebResponse = wrq.GetResponse()
            Dim sr As New System.IO.StreamReader(wrp.GetResponseStream(), System.Text.Encoding.GetEncoding("UTF-8"))
            strResult = sr.ReadToEnd()
        Catch ex As Exception
            Return ex.Message
        End Try

        Return strResult
    End Function
#End Region


posted @ 2016-07-29 14:09  离。  阅读(173)  评论(0编辑  收藏  举报