Get запрос через WinSock - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 18.03.2011, 11:36   #1 (permalink)
HTTP
 
Регистрация: 29.09.2010
Сообщений: 1
Member ID: 9504

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
Топикстартер (автор темы) По умолчанию Get запрос через WinSock

Можете показать пример вывода в переменную исходный код страницы через winsock
Glot вне форума   Ответить с цитированием
Старый 18.03.2011, 12:34   #2 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Get запрос через WinSock

Код:
function SendHTTP(host, action, method, otherHeaders,
  request_data: string): string;
var
  WSAData: TWSAData;
  ErrorCode: Integer;
  FSocket: TSocket;
  HostEnt: PHostEnt;
  InAddr: TInAddr;
  FAddr: TSockAddrIn;
  ServResp: string;
  request: String;
  savetickcount: Cardinal;
  c: Char;
  d: Integer;
  response: String;
begin
  { Initialize }
  ErrorCode := WSAStartup($0101, WSAData);
  if ErrorCode <> 0 then
    Writeln('WSAStartup Error #' + IntToStr(WSAGetLastError))
  else
    { Socket Operation }
    try
      FSocket := socket(PF_INET, SOCK_STREAM, 0);
      if FSocket = INVALID_SOCKET then
        Writeln('SocketError #' + IntToStr(WSAGetLastError));
      HostEnt := gethostbyname(PAnsiChar(host));
      FillChar(InAddr, SizeOf(InAddr), 0);
      if HostEnt <> nil then
      begin
        InAddr.S_un_b.s_b1 := HostEnt^.h_addr^[0];
        InAddr.S_un_b.s_b2 := HostEnt^.h_addr^[1];
        InAddr.S_un_b.s_b3 := HostEnt^.h_addr^[2];
        InAddr.S_un_b.s_b4 := HostEnt^.h_addr^[3];
      end
      else
        Writeln('Error Getting Host by name');
      FAddr.sin_family := PF_INET;
      FAddr.sin_addr := InAddr;
      FAddr.sin_port := htons(80);

      ErrorCode := connect(FSocket, @FAddr, SizeOf(FAddr));
      if ErrorCode <> 0 then
        Writeln('Connection error #' + IntToStr(WSAGetLastError));
      request := '';
      request := request + method + ' ' + action + ' HTTP/1.1' + #13#10;
      request := request + 'Host: ' + host + #13#10;
      request := request + 'Connection: close' + #13#10;
      request := request + 'User-Agent: Mozilla/4.0' + #13#10;
      request := request +'Content-Type: application/x-www-form-urlencoded' + #13#10;
      request := request + 'Content-Length: ' + IntToStr(Length(request_data)) + #13#10;
      if Trim(otherHeaders) <> '' then
        request := request + otherHeaders + #13#10;
      request := request + #13#10;

      if send(FSocket, Pointer(request + request_data)^,
        Length(request + request_data), 0) = SOCKET_ERROR then
      begin
        Writeln('Socket error #', WSAGetLastError);
      end; { отправка заголовков }

      repeat
        FillChar(c, SizeOf(c), 0);
        d := recv(FSocket, c, SizeOf(c), 0);
        response := response + c;
      until d <= 0;

      result := response;
      ServResp := Copy(response, Pos(' ', response) + 1, 1);
    finally
      { End of working }
      ErrorCode := WSACleanup;
      if ErrorCode <> 0 then
        Writeln('WSACleanup Error #' + IntToStr(WSAGetLastError));
    end;
end;
вот... нашел самописную функцию в старых сорцах))) пример использования:
Код:
SendGet('2ip.ru','/speedhp/speedhp.php','GET','','');
а вообще ты главное пойми как winsock работает =) а потом уже прочитай wiki://HTTP
__________________
NekitoSP вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
приложения через прокси xtkj Proxy FAQ | Что такое прокси и как ими пользоваться 1 31.08.2010 03:22
Как через telnet включить RDP? Снипер Флейм 1 08.07.2010 16:55
Перестала работать служба WinSock ImPuls Сети LAN, Internet 4 29.05.2010 13:54
Игры через интернет NTR Флейм 10 24.03.2010 16:23
Шеллы через гугл 2FED Системы и сети, взлом и защита, анонимность в сети 0 28.07.2009 19:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.