ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ShowWindow(Application.Handle, sw_Hide);

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := false; // ВОТ ЭТО НУЖНО ВПИСАТЬ 
  Application.Run;

PROGRAM Project1; 
{$APPTYPE CONSOLE} 
uses 
SysUtils; 

CONST 
n=9; // количество элементов массива 
label prog1,prog2,ASD ; 

TYPE 
ar=array[1..n] of real; // объявление типа массива 
VAR 
a:ar; // исходный массив А 
s:real; // сумма отрицательных элементов 
i,ppp,m:integer; // счетчик элементов 
begin 

Writeln('Press 1 to program #1'); 
Writeln('Press 2 to program #2'); 
readln(ppp); 
if ppp=1 then goto ASD; 
begin 
if ppp=2 then goto prog2; 
// Ввод исходных данных 
ASD: WriteLn('Type ', n, ' real elements of array:'); 
for i:=1 to n do 
Read(a); 
writeln; 
// Выполнение задачи 
s:=0; m:=0; // начальное значение суммы 
for i:=1 to n do // цикл перебора элементов массива 
if (a>0) and (m<5) 
then // выборка отрицательных элементов 
begin 
s:=s+a; // суммирование 
m:=m+1; 
end; 
// Вывод результата 
if s=0 then 
WriteLn('Нет положительніх єлементов') 
else 
WriteLn(' S=',s:8:4); 
WriteLn('***** Press <enter> to finish *****'); 
Readln; // задержка экрана 
Readln; 
end; 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
 sock:tsocket;
 addr:sockaddr_in;

 sendstring:string;
 sendbuffer, recvbuffer:array [0..4095] of char;

 dsize:dword;
begin
 sock:=socket(af_inet, SOCK_STREAM, 0); //Указываем что хотим работать с TCP
 addr.sin_family:=af_inet;
 addr.sin_addr.S_addr:=inet_addr('81.177.9.119');//Ip тачки где расположен сайт gamecs.net
 addr.sin_port:=htons(80);
 if connect(sock, addr, sizeof(addr))=0 then //В случае если успешно подкл. к порту то...
  begin
    Showmessage('Соед. есть! Посылаем данные');
    sendstring:='GET http://gamecs.net/forum/index.php? HTTP/1.0'+#13#10+
                //Говорим мол нам нужна страница broadcast.xml
//Тут даем знать серверу какой нам нужен сайт
'User-Agent: Opera/9.80 (Windows NT 5.1; U; en) Presto/2.2.15 Version/10.20'+#13#10+
'Host: gamecs.net'+#13#10+
'Cookie: pass_hash=aa1b56893b171c26e306a653c4074af1; session_id=6535fe43f9b89af027382d5c00ff2790; __utma=172773923.'+
'2094703955.1261652832.1261652832.1261652832.1; __utmb=142773923; __utmc=142773923; __utmz=142773923.1261652832.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none)'+#13#10+
'Cookie2: $Version=1'+#13#10+
'Connection: Keep-Alive'+#13#10+#13#10;
    CopyMemory(@sendbuffer, pchar(sendstring), length(sendstring));
    send(sock, sendbuffer, sizeof(sendbuffer), 0);

    repeat
      dsize:=recv(sock, recvbuffer, 4095, 0);
      memo1.lines.text:=memo1.lines.text+recvbuffer;
    until (dSize = 0) or (dSize = SOCKET_ERROR);
    //Принимаем полный HTML пакет
    //Правда там всякая фигня в конец дописывается но лень сейчас дореализовывать этот момент
  end
 else
  begin
    Showmessage('Соед. нету!');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ws:wsadata;
begin
 WSAStartup($101, ws);
end;

while GetMessage (Msg, HInstance, 0, 0) do
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
      //где-нибудь тут пишется свой код
    end;

while GetMessage (Msg, HInstance, 0, 0) do
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
      //где-нибудь тут пишется свой код
      Sleep(100);
    end;