Foxtable(狐表) → 用户栏目 → 专家坐堂 → c# 转foxtable


  共有3032人关注过本帖树形打印复制链接

主题：c# 转foxtable
帅哥哟，离线，有人找我吗？
lshshlxsh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7803 威望：0 精华：0 注册：2013/12/11 17:49:00 		c# 转foxtable  发帖心情 Post By：2022/2/16 13:32:00 [只看该作者]

请问老师下面c#转出foxtable 要怎么写？

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Net;
using System.Net.Http;
using System.Net.Http.Headers;
using System.Security.Cryptography;
using System.Text;

namespace MyDemo
{
    class Program
    {
        public static string HttpGet(string url, string contentType)
        {
            if (url.StartsWith("https"))
            {
                System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls;
            }

            HttpClient httpClient = new HttpClient();
            if (!string.IsNullOrWhiteSpace(contentType))
            {
                httpClient.DefaultRequestHeaders.Accept.Add(
                  new MediaTypeWithQualityHeaderValue(contentType));
            }
            HttpResponseMessage response = httpClient.GetAsync(url).Result;
            string result = response.Content.ReadAsStringAsync().Result;

            if (response.IsSuccessStatusCode)
            {
                return result;
            }
            else
            {
                throw new Exception(result);
            }
        }

        public static string HttpPost(String url, string body, string contentType)
        {
            HttpWebResponse httpWebResponse = null;
            try
            {
                HttpWebRequest httpWebRequest = (HttpWebRequest)WebRequest.Create(url);
                httpWebRequest.Method = "POST";
                httpWebRequest.ContentType = contentType;
                httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36";
                httpWebRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8";
                httpWebRequest.CookieContainer = new CookieContainer();
                byte[] btBodys = Encoding.UTF8.GetBytes(body);
                httpWebRequest.ContentLength = btBodys.Length;
                httpWebRequest.GetRequestStream().Write(btBodys, 0, btBodys.Length);
                httpWebResponse = (HttpWebResponse)httpWebRequest.GetResponse();
                StreamReader streamReader = new StreamReader(httpWebResponse.GetResponseStream());
                string responseContent = streamReader.ReadToEnd();
                httpWebResponse.Close();
                streamReader.Close();
                httpWebResponse.Close();
                httpWebRequest.Abort();
                return responseContent;
            }
            catch (Exception ex)
            {
                throw ex;
            }
            finally
            {
                if (httpWebResponse != null)
                {
                    httpWebResponse.Close();
                }
            }
        }

        public static string Md5(string strInput)
        {
            byte[] result = Encoding.Default.GetBytes(strInput.Trim());
            //tbPass为输入密码的文本框
            MD5 md5 = new MD5CryptoServiceProvider();
            byte[] output = md5.ComputeHash(result);
            return BitConverter.ToString(output).Replace("-", "");
        }

        /// <summary>
        /// 构造访问的url
        /// </summary>
        /// <param name="paramsMap">参数列表</param>
        /// <param name="isSign">是否构造签名串</param>
        /// <returns></returns>
        private static string GetRequestQueryString(Dictionary<string, string> paramsMap, bool isSign)
        {
            StringBuilder sb = new StringBuilder();
            List<string> list = paramsMap.Keys.ToList();

            if (isSign)
            {
                list.Sort();                            //排序参数
            }

            foreach (string key1 in list)
            {
                sb.Append("&");
                sb.Append(key1);
                sb.Append("=");
                if (isSign)
                {
                    sb.Append(paramsMap[key1]);
                }
                else
                {
                    sb.Append(Uri.EscapeDataString(paramsMap[key1]));
                }
            }
            return sb.ToString().Substring(1);

        }

        private static string InvokeOpenApi(HttpMethod httpMethod,
                                 string openUrl,
                                 string userId,
                                 string key,
                                 string method,
                                 string format,
                                 string version,
                                 Dictionary<string, string> param)
        {

            Dictionary<string, string> paramsMap = new Dictionary<string, string>();
            String timestamp = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss");
            paramsMap.Add("user_id", userId);
            paramsMap.Add("format", format);
            paramsMap.Add("timestamp", timestamp);
            paramsMap.Add("method", method);

            if (version.Equals("2.0"))
            {
                paramsMap.Add("version", version);                       //2.0版本增加version参数
            }

            foreach (string paramkey in param.Keys)
            {
                paramsMap.Add(paramkey, param[paramkey]);   //将外部参数也加入到列表中
            }

            if (version.Equals("2.0"))
            {
                string urlString = GetRequestQueryString(paramsMap, true);
                urlString = urlString + "&key=" + key;
                string sign = Md5(urlString).ToUpper();
                paramsMap.Add("sign", sign);
            }
            else if (version.Equals("1.0"))
            {
                string sign = Md5(userId + key + timestamp).ToUpper();
                paramsMap.Add("sign", sign);
            }

            string result = "";
            string invokeUrl = GetRequestQueryString(paramsMap, false);

            if (httpMethod == HttpMethod.Get)
            {
                result = HttpGet(openUrl + "?" + invokeUrl, "application/json");
            }
            else if (httpMethod == HttpMethod.Post)
            {
                result = HttpPost(openUrl, invokeUrl, "application/x-www-form-urlencoded");
            }
            else
            {
                throw new Exception("invokeOpenApi 2.0 not support httpmethod" + httpMethod.ToString());
            }

            return result;
        }

        static void Main(string[] args)
        {
            string releaseApiUrl = "http://api.nbeport.com/router/rest";
            string debugApiUrl = "http://api.trainer.nbeport.com/router/rest";
            string userId = "xxxxx";
            string key = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";

            Dictionary<String, String> fun1Map = new Dictionary<string, string>();
            fun1Map.Add("userid", "test");
            string response1 = InvokeOpenApi(HttpMethod.Get, releaseApiUrl, userId, key, "nbeport.cas.user.get", "json", "1.0", fun1Map);
            Console.Write(response1);

            Console.WriteLine();

            Dictionary<String, String> fun2Map = new Dictionary<string, string>();
            fun2Map.Add("number", "ONEYNB9BHC295400");
            string response2 = InvokeOpenApi(HttpMethod.Get, releaseApiUrl, userId, key, "eportyun.logistics.subscribe.get", "json", "2.0", fun2Map);
            Console.Write(response2);

            Console.ReadLine();
        }
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/16 13:38:00 [只看该作者]

c#转换vb参考：https://converter.telerik.com/

不过这些代码使用了高版本.net的语法，foxtable是用不了的
 回到顶部
帅哥哟，离线，有人找我吗？
lshshlxsh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7803 威望：0 精华：0 注册：2013/12/11 17:49:00 		  发帖心情 Post By：2022/2/16 13:56:00 [只看该作者]

谢谢老师  这个转出来是 vb.net , 这个要怎么转换成狐表？

Imports System
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Net.Http
Imports System.Net.Http.Headers
Imports System.Security.Cryptography
Imports System.Text

Namespace MyDemo
    Class Program
        Public Shared Function HttpGet(ByVal url As String, ByVal contentType As String) As String
            If url.StartsWith("https") Then
                System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
            End If

            Dim httpClient As HttpClient = New HttpClient()

            If Not String.IsNullOrWhiteSpace(contentType) Then
                httpClient.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue(contentType))
            End If

            Dim response As HttpResponseMessage = httpClient.GetAsync(url).Result
            Dim result As String = response.Content.ReadAsStringAsync().Result

            If response.IsSuccessStatusCode Then
                Return result
            Else
                Throw New Exception(result)
            End If
        End Function

        Public Shared Function HttpPost(ByVal url As String, ByVal body As String, ByVal contentType As String) As String
            Dim httpWebResponse As HttpWebResponse = Nothing

            Try
                Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
                httpWebRequest.Method = "POST"
                httpWebRequest.ContentType = contentType
                httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36"
                httpWebRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
                httpWebRequest.CookieContainer = New CookieContainer()
                Dim btBodys As Byte() = Encoding.UTF8.GetBytes(body)
                httpWebRequest.ContentLength = btBodys.Length
                httpWebRequest.GetRequestStream().Write(btBodys, 0, btBodys.Length)
                httpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
                Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
                Dim responseContent As String = streamReader.ReadToEnd()
                httpWebResponse.Close()
                streamReader.Close()
                httpWebResponse.Close()
                httpWebRequest.Abort()
                Return responseContent
            Catch ex As Exception
                Throw ex
            Finally

                If httpWebResponse IsNot Nothing Then
                    httpWebResponse.Close()
                End If
            End Try
        End Function

        Public Shared Function Md5(ByVal strInput As String) As String
            Dim result As Byte() = Encoding.[Default].GetBytes(strInput.Trim())
            Dim md5 As MD5 = New MD5CryptoServiceProvider()
            Dim output As Byte() = md5.ComputeHash(result)
            Return BitConverter.ToString(output).Replace("-", "")
        End Function

        Private Shared Function GetRequestQueryString(ByVal paramsMap As Dictionary(Of String, String), ByVal isSign As Boolean) As String
            Dim sb As StringBuilder = New StringBuilder()
            Dim list As List(Of String) = paramsMap.Keys.ToList()

            If isSign Then
                list.Sort()
            End If

            For Each key1 As String In list
                sb.Append("&")
                sb.Append(key1)
                sb.Append("=")

                If isSign Then
                    sb.Append(paramsMap(key1))
                Else
                    sb.Append(Uri.EscapeDataString(paramsMap(key1)))
                End If
            Next

            Return sb.ToString().Substring(1)
        End Function

        Private Shared Function InvokeOpenApi(ByVal httpMethod As HttpMethod, ByVal openUrl As String, ByVal userId As String, ByVal key As String, ByVal method As String, ByVal format As String, ByVal version As String, ByVal param As Dictionary(Of String, String)) As String
            Dim paramsMap As Dictionary(Of String, String) = New Dictionary(Of String, String)()
            Dim timestamp As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
            paramsMap.Add("user_id", userId)
            paramsMap.Add("format", format)
            paramsMap.Add("timestamp", timestamp)
            paramsMap.Add("method", method)

            If version.Equals("2.0") Then
                paramsMap.Add("version", version)
            End If

            For Each paramkey As String In param.Keys
                paramsMap.Add(paramkey, param(paramkey))
            Next

            If version.Equals("2.0") Then
                Dim urlString As String = GetRequestQueryString(paramsMap, True)
                urlString = urlString & "&key=" & key
                Dim sign As String = Md5(urlString).ToUpper()
                paramsMap.Add("sign", sign)
            ElseIf version.Equals("1.0") Then
                Dim sign As String = Md5(userId & key & timestamp).ToUpper()
                paramsMap.Add("sign", sign)
            End If

            Dim result As String = ""
            Dim invokeUrl As String = GetRequestQueryString(paramsMap, False)

            If httpMethod = HttpMethod.[Get] Then
                result = HttpGet(openUrl & "?" & invokeUrl, "application/json")
            ElseIf httpMethod = HttpMethod.Post Then
                result = HttpPost(openUrl, invokeUrl, "application/x-www-form-urlencoded")
            Else
                Throw New Exception("invokeOpenApi 2.0 not support httpmethod" & httpMethod.ToString())
            End If

            Return result
        End Function

        Private Shared Sub Main(ByVal args As String())
            Dim releaseApiUrl As String = "http://api.nbeport.com/router/rest"
            Dim debugApiUrl As String = "http://api.trainer.nbeport.com/router/rest"
            Dim userId As String = "xxxxx"
            Dim key As String = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
            Dim fun1Map As Dictionary(Of String, String) = New Dictionary(Of String, String)()
            fun1Map.Add("userid", "test")
            Dim response1 As String = InvokeOpenApi(HttpMethod.[Get], releaseApiUrl, userId, key, "nbeport.cas.user.get", "json", "1.0", fun1Map)
            Console.Write(response1)
            Console.WriteLine()
            Dim fun2Map As Dictionary(Of String, String) = New Dictionary(Of String, String)()
            fun2Map.Add("number", "ONEYNB9BHC295400")
            Dim response2 As String = InvokeOpenApi(HttpMethod.[Get], releaseApiUrl, userId, key, "eportyun.logistics.subscribe.get", "json", "2.0", fun2Map)
            Console.Write(response2)
            Console.ReadLine()
        End Sub
    End Class
End Namespace

[此贴子已经被作者于2022/2/16 14:12:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/16 14:13:00 [只看该作者]

foxtable使用的就是vb.net。正常把Class Program以及里面的内容放到全局代码，然后补齐命名空间即可。

不过这些代码使用了高版本.net的语法，foxtable是用不了的
 回到顶部
帅哥哟，离线，有人找我吗？
lshshlxsh
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7803 威望：0 精华：0 注册：2013/12/11 17:49:00 		  发帖心情 Post By：2022/2/16 14:27:00 [只看该作者]

谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询