请求地址:/v5/Contracts/positionSign.json
请求方式:POST
接口版本: 5.2.3
接口描述:
Imports System.Text Imports System.IO Imports System.Net Imports System.Web Class APIStore 'HTTP的Post请求方式(推荐) 'strUrl 请求地址 'param 请求数据 Public Function APIStorePost(strUrl As String, param As String) As String Dim httpWebRequest As HttpWebRequest = TryCast(WebRequest.Create(strUrl), HttpWebRequest) httpWebRequest.Method = "POST" '指定允许数据发送的请求的一个协议方法 httpWebRequest.ContentType = "application/x-www-form-urlencoded" '设置 ContentType 属性设置为适当的值 Dim data As Byte() = Encoding.UTF8.GetBytes(param) Using stream As Stream = httpWebRequest.GetRequestStream() '写入数据 stream.Write(data, 0, data.Length) End Using Dim webResponse As WebResponse = TryCast(httpWebRequest.GetResponse(), HttpWebResponse) '发起请求,得到返回对象 Dim dataStream As Stream = webResponse.GetResponseStream() Dim reader As New StreamReader(dataStream, Encoding.UTF8) Dim returnStr As String = reader.ReadToEnd() ' Clean up the streams and the response. reader.Close() webResponse.Close() Return returnStr End Function 'HTTP的Get请求方式 'strUrl 请求地址 'param 请求数据 Public Function APIStoreGet(strUrl As String, param As String) As String Dim httpWebRequest As HttpWebRequest = TryCast(WebRequest.Create(Convert.ToString(strUrl & Convert.ToString("?")) & param), HttpWebRequest) httpWebRequest.Method = "GET" '指定允许数据发送的请求的一个协议方法 httpWebRequest.ContentType = "application/x-www-form-urlencoded" '设置 ContentType 属性设置为适当的值 Dim webResponse As WebResponse = TryCast(httpWebRequest.GetResponse(), HttpWebResponse) '发起请求,得到返回对象 Dim dataStream As Stream = webResponse.GetResponseStream() Dim reader As New StreamReader(dataStream, Encoding.UTF8) Dim returnStr As String = reader.ReadToEnd() ' Clean up the streams and the response. reader.Close() webResponse.Close() Return returnStr End Function '获取内容 '@param type 请求方式,POST,GET,推荐POST Public Sub getBalance(type As String) Dim url As String="https://api-v2.1dq.com/v5/Contracts/positionSign.json" Dim params As String="easy_id=175592531139104768&position=[ { "x": "200", "y": "200", "page": "第几页", "seal_type": "1、普通印章,2、骑缝章", "user_type": "类型,1为个人,2为企业", "seal_width": "无特殊要求,不用传递,为空默认即可。签署区域宽度", "seal_height": "无特殊要求,不用传递,为空默认即可。签署区域高度", "area_title": "无特殊要求,不用传递,为空默认即可。签署提示", "page_width": "无特殊要求,不用传递,为空默认即可。指定页面宽度", "sign_id": "无特殊要求,不用传递,为空默认即可。签署人或填写人id" } ]&words_id=&number=test@1dq.com" Dim returnStr As String = Nothing If type.Equals("GET") Then returnStr = Convert.ToString("get result:") & Me.APIStoreGet(url, param) Else returnStr = Convert.ToString("post result:") & Me.APIStorePost(url, param) End If Console.WriteLine(returnStr) End Sub End Class