<?php
  function SendVaribles($Server, $Port, $Url, $Varibles) {
    // Возвращаем адрес хоста
    $Address = gethostbyname($Server);

    //Создаём сокет
    $Socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
    if ($Socket < 0) {
      echo "socket_create() завершилась неудачей: причина: " . socket_strerror($Socket) . "\n";
    }

    //Соединяемся
    $Result = socket_connect($Socket, $Address, $Port);
    if ($Result < 0) {
      echo "socket_connect()  завершилась неудачей: причина: ($Result) " . socket_strerror($Result) . "\n";
    }

    //Получаем список переменных которые передал пользователь
    $VariblesNames = array_keys($Varibles);
    $VariblesCount = count($VariblesNames);
    $Data = '';
    if ($VariblesCount>0) {
      //Формируем строку с переменными
      for ($i=0; $i<$VariblesCount-1; $i++) {
        $Data .= $VariblesNames[$i] . "=" . urlencode($Varibles[$VariblesNames[$i]]) . '&';
      }
      $Data .= $VariblesNames[$i] . "=" . urlencode($Varibles[$VariblesNames[$i]]) . '\r\n\r\n';
    }

    //Подготавливаем header запроса
    $Headers = "POST $Url HTTP/1.1\n";
    $Headers .= "Host: $Server\r\n";
    $Headers .= "Content-type: application/x-www-form-urlencoded\r\n";
    $Headers .= "Content-Length: ".strlen($Data)."\r\n\r\n";

    //Отправляем заголовок
    socket_write($Socket, $Headers.$Data, strlen($Headers.$Data));

    //Читаем данные из сокета
    $PageContent = '';
    while ($Out = socket_read($Socket, 2048)) {
      $PageContent .= $Out;
    }
    socket_close($Socket);
    return $PageContent;
  }

  $Varibles = array ();
  echo SendVaribles('www.sms.ge', 80, '/index.php', $Varibles);
  $Varibles = array ( 'username'=>'Delphi503', 'password'=>'12345679');
  echo SendVaribles('www.sms.ge', 80, '/sms.php', $Varibles);
?>