using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Web;
using System.Net;
using System.IO;
 
namespace KdGoldAPI
{
    public class KdApiSearchDemo
    {
        //电商ID
        private string EBusinessID = "1237100";
        //电商加密私钥，快递鸟提供，注意保管，不要泄漏
        private string AppKey = "518a73d8-1f7f-441a-b644-33e77b49d846";
        //请求url
        private string ReqURL = "http://api.kdniao.com/Ebusiness/EbusinessOrderHandle.aspx";

        /// <summary>
        /// Json方式 查询订单物流轨迹
        /// </summary>
        /// <returns></returns>
        public string getOrderTracesByJson()
        {
            string requestData = "{\'OrderCode\':\'\',\'ShipperCode\':\'SF\',\'LogisticCode\':\'589707398027\'}";

            Dictionary<string, string> param = new Dictionary<string, string>();
            param.Add("RequestData", HttpUtility.UrlEncode(requestData, Encoding.UTF8));
            param.Add("EBusinessID", EBusinessID);
            param.Add("RequestType", "1002");
            string dataSign = encrypt(requestData, AppKey, "UTF-8");
            param.Add("DataSign", HttpUtility.UrlEncode(dataSign, Encoding.UTF8));
            param.Add("DataType", "2");

            string result = sendPost(ReqURL, param);

            //根据公司业务处理返回的信息......

            return result;
        }

        /// <summary>
        /// Post方式提交数据，返回网页的源代码
        /// </summary>
        /// <param name="url">发送请求的 URL</param>
        /// <param name="param">请求的参数集合</param>
        /// <returns>远程资源的响应结果</returns>
        private string sendPost(string url, Dictionary<string, string> param)
        {
            string result = "";
            StringBuilder postData = new StringBuilder();
            if (param != null && param.Count > 0)
            {
                foreach (var p in param)
                {
                    if (postData.Length > 0)
                    {
                        postData.Append("&");
                    }
                    postData.Append(p.Key);
                    postData.Append("=");
                    postData.Append(p.Value);
                }
            }
            byte[] byteData = Encoding.GetEncoding("UTF-8").GetBytes(postData.ToString());
            try
            {

                HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url);
                request.C;
                request.Referer = url;
                request.Accept = "*/*";
                request.Timeout = 30 * 1000;
                request.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)";
                request.Method = "POST";
                request.ContentLength = byteData.Length;
                Stream stream = request.GetRequestStream();
                stream.Write(byteData, 0, byteData.Length);
                stream.Flush();
                stream.Close();
                HttpWebResponse response = (HttpWebResponse)request.GetResponse();
                Stream backStream = response.GetResponseStream();
                StreamReader sr = new StreamReader(backStream, Encoding.GetEncoding("UTF-8"));
                result = sr.ReadToEnd();
                sr.Close();
                backStream.Close();
                response.Close();
                request.Abort();
            }
            catch (Exception ex)
            {
                result = ex.Message;
            }
            return result;
        }

        ///<summary>
        ///电商Sign签名
        ///</summary>
        ///<param name="content">内容</param>
        ///<param name="keyValue">Appkey</param>
        ///<param name="charset">URL编码 </param>
        ///<returns>DataSign签名</returns>
        private string encrypt(String content, String keyValue, String charset)
        {
            if (keyValue != null)
            {
                return base64(MD5(content + keyValue, charset), charset);
            }
            return base64(MD5(content, charset), charset);
        }

        ///<summary>
        /// 字符串MD5加密
        ///</summary>
        ///<param name="str">要加密的字符串</param>
        ///<param name="charset">编码方式</param>
        ///<returns>密文</returns>
        private string MD5(string str, string charset)
        {
            byte[] buffer = System.Text.Encoding.GetEncoding(charset).GetBytes(str);
            try
            {
                System.Security.Cryptography.MD5CryptoServiceProvider check;
                check = new System.Security.Cryptography.MD5CryptoServiceProvider();
                byte[] somme = check.ComputeHash(buffer);
                string ret = "";
                foreach (byte a in somme)
                {
                    if (a < 16)
                        ret += "0" + a.ToString("X");
                    else
                        ret += a.ToString("X");
                }
                return ret.ToLower();
            }
            catch
            {
                throw;
            }
        }

        /// <summary>
        /// base64编码
        /// </summary>
        /// <param name="str">内容</param>
        /// <param name="charset">编码方式</param>
        /// <returns></returns>
        private string base64(String str, String charset)
        {
            return Convert.ToBase64String(System.Text.Encoding.GetEncoding(charset).GetBytes(str));
        }
    }
}

以上的快递给出来的代码，不知在FT里应该怎么应用

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106305&skin=0

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93954&skin=0

此主题相关图片如下：1111.jpg

按照老师的方法已经查到我想要的信息了，但是需要在全局代码里面修改，在窗体中怎么是这些代码！

 Public Function getOrderTracesByJson() As String
  Dim requestData As String = "{\'OrderCode\':\'\',\'ShipperCode\':\'YTO\',\'LogisticCode\':\'806954566449701663\'}"

  Dim param As New System.Collections.Generic.Dictionary(Of String, String)()
  param.Add("RequestData", System.Web.HttpUtility.UrlEncode(requestData, System.Text.Encoding.UTF8))
  param.Add("EBusinessID", EBusinessID)
  param.Add("RequestType", "1002")
  Dim dataSign As String = encrypt(requestData, AppKey, "UTF-8")
  param.Add("DataSign", System.Web.HttpUtility.UrlEncode(dataSign, System.Text.Encoding.UTF8))
  param.Add("DataType", "2")

  Dim result As String = sendPost(ReqURL, param)

老师，不好意思，是我没有说清楚

现在运单号及快递公司需要在全局代码里修改，我想问的是，如果在窗体命令中就可以修改到运单号

老师，这样会出现未声明getOrderTracesByJson 的错误

错误代码dim json as string = getOrderTracesByJson(requestData )

全局代码按3楼实例下载的调试

点击浏览该文件:菜鸟快递测试.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:菜鸟快递测试.table