Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

Обращение к сайту   Найти похожие ветки 

 
Ezorcist   (2006-05-08 19:17) [0]

Првиведите, пожалуйста пример кода, что бы программа обращалась к сайту (просто отметилась) - типа накрутчика. (консоль)


 
Джо ©   (2006-05-09 01:08) [1]

Ну вот, примерно так, если по-быстрому.
program Project1;

{$APPTYPE CONSOLE}

uses
 Windows,
 WinInet,
 SysUtils;

var
 InetHandle,
 UrlHandle: HINTERNET;

function Read(UrlHandle: HINTERNET): string;
const
 READ_BUF_SIZE = 4096;
var
 FBuffer: array [0..READ_BUF_SIZE] of Char;
 BytesRead: Cardinal;

 function ReadBuffer: BOOL;
 begin
   Result := InternetReadFile(UrlHandle,@FBuffer,Length(FBuffer),BytesRead);
 end;

 procedure AppendResult;
 var
   I: Integer;
 begin
   for I := 0 to BytesRead-1 do
     Result := Result + FBuffer[I]
 end;

begin
 while ReadBuffer and (BytesRead <> 0) do
   AppendResult
end;

begin
 InetHandle := InternetOpen(
   "Exorcist",
   INTERNET_OPEN_TYPE_PRECONFIG,
   nil,
   nil,
   0);
 if InetHandle = nil then
   RaiseLastOSError;

 try
   UrlHandle := InternetOpenUrl(
     InetHandle,
     "http://ya.ru",
     nil,
     0,
     INTERNET_FLAG_RELOAD,
     0);
     if UrlHandle = nil then
       RaiseLastOSError;
     try
       WriteLn (Read(UrlHandle));

     finally
       InternetCloseHandle(UrlHandle)
     end;
 finally
   InternetCloseHandle(InetHandle)
 end;

 ReadLn;

end.


Только не выйдет у тебя никакого "накрутчика" :)



Страницы: 1 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1147474989
Призрак
2006-05-13 03:03
2006.05.28
Synchronize


2-1147446716
Silica
2006-05-12 19:11
2006.05.28
Числа


2-1147193334
BAngel
2006-05-09 20:48
2006.05.28
свой указатель мышки


15-1146570229
DVM
2006-05-02 15:43
2006.05.28
Программно передать координаты в Ozi Explorer. Как?


15-1146811361
Rulikkk
2006-05-05 10:42
2006.05.28
Ищу openSource компонент, для отображения блок схем.