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

function ParseEmail( Email: PChar): PChar;
//var p: PChar;
begin
  result:=strpos(Email, '@')+1;
//  if p <> nil then inc(p);
//  Result:=p;
end;

program Project1;

uses
  windows,wininet,sysutils;

type
    TArray = array of string;

function explode(cDelimiter,  sValue : string; iCount : integer) : TArray;
var
s : string; i,p : integer;
begin

        s := sValue; i := 0;
        while length(s) > 0 do
        begin
                inc(i);
                SetLength(result, i);
                p := pos(cDelimiter,s);

                if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
                begin


                        result[i - 1] := copy(s,0,p-1);

                        {updated, thanks Irfan}
                        s := copy(s,p + length(cDelimiter),length(s));
                end else
                begin result[i - 1] := s;
                        s :=  '';
                end;
        end;

end;

function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  s := '';
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(hService) then
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            s := s + lpBuffer;
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

var
 s,host:string;
 a4 : integer;
 a:TArray;
begin
 //1) Есть фаил на хосте (*.txt) (Адрес: http://host.domen/1.txt)
 host := 'http://host.domen/1.txt';

 //б) Открыть этот фаил не сохраняя на компе
 DownloadURL_NOCache(host,s);

 //Если фаил есть на хосте то: переменая4 = 1
 //Если нет то: переменая4 = 0
 a4:=1;
 if (length(s)=0) then a4:=0;

 //1 строчка = переменая1
 //2 строчка = переменая2
 //3 строчка = переменая3
 a:= explode(#13#10,s, 0) ;

 //1 строчка = a[0]
 //2 строчка = a[1]
 //3 строчка = a[2]
 //n строчка = a[n-1]
 messagebox(0,pchar(a[0]),pchar(a[1]),0);
end.

     taskbar:=FindWindow('Shell_TrayWnd',nil);
     winkey := FindWindowEx(taskbar, 0, 'Button', nil);
     SendMessage(winkey, WM_LBUTTONDOWN, 0,0);
     SendMessage(winkey, WM_KEYDOWN, VK_UP, 0);