主题：JAVA代码转VB代码

        static void Main(string[] args)

        {

            Dictionary<string, string> dict = new Dictionary<string, string>();

            string result = Send("SCM_IHS_TransportOrderService", "1.0.0", dict);

            Console.WriteLine("\n\n处理结果:\n{0}", result);

            Console.ReadKey();

        }

        /// <param name="apiName">服务名称</param>

        /// <param name="apiVersion">服务版本号</param>

        /// <param name="dict">传送数据键值对</param>

        static String Send(String apiName, String apiVersion, Dictionary<String, String> dict)

        {

            HttpWebRequest request = WebRequest.Create(URL) as HttpWebRequest;

            request.Method = "POST";

            request.ContentType = "application/json";

            // 设置请求参数

      string timestamp = (DateTime.Now.ToUniversalTime().Ticks - 621355968000000000) + "";

            dict.Add("_api_access_key", AK);

            dict.Add("_api_name", apiName);

            dict.Add("_api_version", apiVersion);

            dict.Add("_api_timestamp", timestamp);