unit1.~pas

一个自动点击广告的代码,不错的用简单方法点击代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,shellapi;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ie:thandle;
begin
shellexecute(0,'open',pchar('C:\Program Files\Internet Explorer\IEXPLORE.EXE'),pchar('http://www.baidu.com/'),0,sw_show);
sleep(8000);
setcursorpos(616,378);
mouse_event(mouseeventf_leftdown,0,0,0,0) ;
mouse_event(mouseeventf_leftup,0,0,0,0) ;
ie:=findwindow(0,'百度一下，你就知道 - Windows Internet Explorer');
SendMessage(ie,WM_SYSCOMMAND,sw_hide,0);
end;

end.