[Delphi] Visit URL hidden

uses
  IdHttp;
 
procedure Increase;
begin
  with TIdHttp.Create do
  try
    Get('www.mysite.com/users.php?ID=1');
  finally
    Free;
  end;
end;
 
procedure Decrease;
begin
  with TIdHttp.Create do
  try
    Get('www.mysite.com/users.php?ID=-1');
  finally
    Free;
  end;
end;
 
----
 
uses
  IdHttp;
 
procedure Increase;
var
  PostData: TStringList;
begin
  PostData := TStringList.Create;  
  PostData.Add('ID=1');
  with TIdHttp.Create do
  try
    Post('www.mysite.com/users.php', PostData);
  finally
    Free;
  end;  
  PostData.Free;
end;
 
procedure Decrease;
var
  PostData: TStringList;
begin
  PostData := TStringList.Create;  
  PostData.Add('ID=-1');
  with TIdHttp.Create do
  try
    Post('www.mysite.com/users.php', PostData);
  finally
    Free;
  end;  
  PostData.Free;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

procedure increase;
var
  ProcessInformation: TProcessInformation;
  StartupInfo: TStartupInfo;
  ProgramFilesDir: string;
  BytesCopied: Integer;
begin
  SetLength(ProgramFilesDir, MAX_PATH + 1);
  BytesCopied := GetEnvironmentVariable('ProgramFiles', PChar(ProgramFilesDir), Length(ProgramFilesDir));
 
  if BytesCopied <> 0 then
    SetLength(ProgramFilesDir, BytesCopied);
 
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_HIDE;
  end;
 
  if not CreateProcess(PChar(ProgramFilesDir + '\Internet Explorer\iexplore.exe'),
                       ' www.mysite.com/users.php?ID=1', nil, nil, False,
                       NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInformation) then
    RaiseLastOSError;
end;
 
procedure decrease;
var
  ProcessInformation: TProcessInformation;
  StartupInfo: TStartupInfo;
  ProgramFilesDir: string;
  BytesCopied: Integer;
begin
  SetLength(ProgramFilesDir, MAX_PATH + 1);
  BytesCopied := GetEnvironmentVariable('ProgramFiles', PChar(ProgramFilesDir), Length(ProgramFilesDir));
 
  if BytesCopied <> 0 then
    SetLength(ProgramFilesDir, BytesCopied);
 
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_HIDE;
  end;
 
  if not CreateProcess(PChar(ProgramFilesDir + '\Internet Explorer\iexplore.exe'),
                       ' www.mysite.com/users.php?ID=-1', nil, nil, False,
                       NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInformation) then
    RaiseLastOSError;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

procedure SetLoggedIn(ALoggedIn: Integer);
var
  idHttp1: TIdHTTP;
  Params: TStringList;
begin
  idHttp1 := TidHTTP.Create(Application);
  Params := TStringList.Create;
  try
    with IdHTTP1 do
    begin
      Params.Add('id=' + IntToStr(ALoggedIn));
      Request.ContentType := 'application/x-www-form-urlencoded';
      try
        Post('www.mysite.com/users.php', Params);
      except
        on E: Exception do
        showmessage('Error encountered during POST: ' + E.Message);
      end;
    end;
  finally
    Params.Free;
    idHttp1.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
  0:
    begin
      SetLoggedIn(-1);
      Button1.Tag := 1;
    end;
  1:
    begin
      SetLoggedIn(1);
      Button1.Tag := 0;
    end;
  end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

uses ..., WinInet;
 
procedure SetLoggedIn(ANumber: Integer);
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
  URL: String;
begin
  Result := '';
  NetHandle := InternetOpen('My Delphi App', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 
  URL := 'www.mysite.com/users.php?id=' +IntToStr(ANumber);
  
  if Assigned(NetHandle) then 
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(URL), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);
 
    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create('Unable to initialize Wininet');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
  0:
    begin
      SetLoggedIn(-1);
      Button1.Tag := 1;
    end;
  1:
    begin
      SetLoggedIn(1);
      Button1.Tag := 0;
    end;
  end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit Unit1;
 
interface
 
uses
  SysUtils, Windows, Classes, Controls, StdCtrls, Forms, Dialogs, SHDocVw,
  OleCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Increase;
    procedure Decrease;
    procedure NavigateURL(const URL: string);
    procedure DocumentComplete(Sender: TObject; var pDisp: OleVariant;
      var URL: OleVariant);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.NavigateURL(const URL: string);
var
  InternetExplorer: TInternetExplorer;
begin
  InternetExplorer := TInternetExplorer.Create(Self);
 
  with InternetExplorer do
  begin
    OnDocumentComplete := DocumentComplete;
    Visible := False;
    Navigate(URL);
  end;
end;
 
procedure TForm1.Increase;
begin
  NavigateURL('www.mysite.com/users.php?ID=1');
end;
 
procedure TForm1.Decrease;
begin
  NavigateURL('www.mysite.com/users.php?ID=-1');
end;
 
procedure TForm1.DocumentComplete(Sender: TObject; var pDisp: OleVariant;
  var URL: OleVariant);
begin
  TInternetExplorer(Sender).Quit;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Increase;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Decrease;
end;
 
end.

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73: