OleObject loo_xmlhttp
string ls_post_url, ls_post = '', ls_status_text, ls_response_text
long	ll_status_code

//ls_post_url = sle_1.Text
ls_post_url = 'https://secure5.tranzila.com/cgi-bin/tranzila71u.cgi?supplier=testd621&tranmode=A&ccno=12312312&expdate=0917&sum=3¤cy=1&cred_type=1&myid=123456789&mycvv=123'
loo_xmlhttp = CREATE oleobject
loo_xmlhttp.ConnectToNewObject("Msxml2.XMLHTTP.6.0")

loo_xmlhttp.Open ("POST",ls_post_url, FALSE)
loo_xmlhttp.Send(ls_post)
ls_status_text = loo_xmlhttp.StatusText
ll_status_code =  loo_xmlhttp.Status
ls_response_text = loo_xmlhttp.ResponseText
//loo_xmlhttp.DisconnectObject(loo_xmlhttp)
MessageBox(ls_status_text, ls_response_text)

loo_xmlhttp.SetRequestHeader('Content-type', 'application/x-www-form-urlencoded')

ls_post_url = 'https://secure5.tranzila.com/cgi-bin/tranzila71u.cgi'
ls_post = 'supplier=testd621&tranmode=A&ccno=12312312&expdate=0917&sum=3&currency=1&cred_type=1&myid=123456789&mycvv=123'

using System;
using System.Net;
using System.IO;
using System.Text;
using System.Web;
using System.Collections.Generic;

namespace TranzilaSocketTest
{
	class Program
	{
		static void Main(string[] args)
		{
			string tranzila_api_url = "https://secure5.tranzila.com/cgi-bin/tranzila71u.cgi";
			//Preparing proper encoding object
			Encoding enc = Encoding.GetEncoding("utf-8");
			//Creating the data string while converting data into proper format
			//Initialization
			string post_data = "supplier=" + "terminal_name";
			// 'terminal_name' should be replaced by actual terminal name
			post_data += ("&currency=1"); // ILS
			post_data += ("&ccno=" + "12312312"); // Test card number
			post_data += ("&expdate=" + "0820"); // Card expiry date: mmyy
			post_data += ("&sum=" + "10");
			// All the textual parameters should go through encoding conversion
			post_data += ("&first_name=" + HttpUtility.UrlEncode("ישראל", enc));
			post_data += ("&last_name=" + HttpUtility.UrlEncode("ישראל'", enc));
			post_data += ("&company=" + HttpUtility.UrlEncode("יוסי סלטים", enc));
			//Translating final data string into byte array format
			byte[] data = Encoding.ASCII.GetBytes(post_data);
			// Preparing web request
			HttpWebRequest http_request =
				(HttpWebRequest)WebRequest.Create(tranzila_api_url);
			http_request.Method = "POST";
			http_request.ContentType = "application/x-www-form-urlencoded";
			http_request.ContentLength = data.Length;
			Stream new_stream = http_request.GetRequestStream();
			// Sending the data 
			new_stream.Write(data, 0, data.Length);
			//Reading of responce and taking care of the result should be placed here.
			HttpWebResponse http_response = (HttpWebResponse)http_request.GetResponse();
			StreamReader response_stream = new StreamReader(http_response.GetResponseStream(), enc);

			string result = response_stream.ReadToEnd();

			response_stream.Close();
			http_response.Close();
			//Finalizing the sending process
			new_stream.Close();
			// Prepare list with response data
			string[] response_array = result.Split('&');
			Dictionary<string, string> response_dict = new Dictionary<string, string> ();
			if (response_array.Length > 1) {
				for (int i = 0; i < response_array.Length; ++i) {
					string[] tmp = response_array [i].Split ('=');
					if (tmp.Length > 1) {
						response_dict [tmp [0]] = tmp [1];
					}
				}
			}
			//Analyze the result string
			if (!response_dict.ContainsKey ("Response")) {
				Console.WriteLine (result);
				/**
				 * When there is no 'Response' parameter it either means
				 * that some pre-transaction error happened (like authentication
				 * problems), in which case the result string will be in HTML format,
				 * explaining the error, or the request was made for generate token only
				 * (in this case the response string will contain only 'TranzilaTK'
				 * parameter)
				 */
			} else if (response_dict["Response"] != "000") {
				Console.WriteLine (response_dict ["Response"]);
				// Any other than '000' code means transaction failure
				// (bad card, expiry, etc..)
			} else {
				Console.WriteLine ("Success");
			}
		}
	}
}