当前位置：首页 >> 技术文章

阅读文章

自动投票源代码

栏目:技术文章　　作者:东方标准　　时间:2009-12-27 04:19:55


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw,Tlhelp32;

type
TForm1 = [标记错误:class]
    Button1: TButton;
    username: TEdit;
    password: TEdit;
    linkname: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    Button2: TButton;
    WebBrowser1: TWebBrowser;
    CheckBox1: TCheckBox;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer0: TTimer;
    procedure FormC[标记错误:reate];
    procedure Button1C[标记错误:lick];
    procedure Button2C[标记错误:lick];
    procedure Timer1T[标记错误:imer];
    procedure EndProcess;
    procedure Timer2T[标记错误:imer];
    procedure Timer3T[标记错误:imer];
    procedure Timer0T[标记错误:imer];
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormC[标记错误:reate];
begin
    //[标记错误:winexec];
    webbrowser1.N[标记错误:avigate];
end;

procedure TForm1.Button1C[标记错误:lick];
begin
     {if CheckBox1.Checked then
      begin
          Timer1.Interval:=8000;
      end
      else
      begin
         Timer1.Interval:=2000;
      end; }
    Timer0.Enabled:=true;
    Button1.Enabled:=false;
end;

procedure TForm1.Button2C[标记错误:lick];
var
uname:string;
upass:string;
adsllink:string;
com:pAnsiChar;
comend:pAnsiChar;
begin
if CheckBox1.Checked=true then
begin
      uname:=username.Text;
      upass:=password.Text;
      adsllink:=linkname.Text;
      com:=PAnsiC[标记错误:har];
      comend:=PAnsiC[标记错误:har];
      //[标记错误:showmessage];
      [标记错误:winexec];
      [标记错误:sleep];
      //[标记错误:showmessage];
      [标记错误:winexec];
      [标记错误:sleep];
end;
      Timer0.Enabled:=false;
      Timer1.Enabled:=false;
      Timer2.Enabled:=false;
      Timer3.Enabled:=false;
      button1.Enabled:=true;
end;
procedure TForm1.Timer0T[标记错误:imer];
begin
if CheckBox1.Checked=true then
begin
     Timer1.Enabled:=True;
end
else
begin
     Timer2.Enabled:=True;
end;
     Timer0.Enabled:=False;
end;

procedure TForm1.Timer1T[标记错误:imer];
var
uname:string;
upass:string;
adsllink:string;
com:pAnsiChar;
comend:pAnsiChar;
begin
    uname:=username.Text;
    upass:=password.Text;
    adsllink:=linkname.Text;
    com:=PAnsiC[标记错误:har];
    comend:=PAnsiC[标记错误:har];
    //[标记错误:showmessage];
    [标记错误:winexec];
    [标记错误:sleep];
    //[标记错误:showmessage];
    [标记错误:winexec];
    [标记错误:sleep];
Timer2.Enabled:=true;
Timer1.Enabled:=false;
end;
procedure TForm1.Timer2T[标记错误:imer];
begin
[标记错误:mouse_event];// click down
S[标记错误:leep];
[标记错误:mouse_event]; //
S[标记错误:leep];
Timer2.Enabled:=false;
Timer3.Enabled:=true;
end;

procedure TForm1.Timer3T[标记错误:imer];
begin
    EndProcess;
    Timer3.Enabled:=false;
    Timer0.Enabled:=true;
end;

procedure TForm1.EndProcess;
const
PROCESS_TERMINATE=$0001;
var
ExeFileName: String;
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
ExeFileName := 'IEXPLORE.EXE';
FSnapshotHandle := CreateToolhelp32S[标记错误:napshot];
FProcessEntry32.dwSize := S[标记错误:izeof];
ContinueLoop := Process32F[标记错误:irst];
while [标记错误:integer] <> 0 do
    begin
      if ((UpperC[标记错误:ase] =
           UpperC[标记错误:ase])
       or (UpperC[标记错误:ase] =
           UpperC[标记错误:ase])) then
        TerminateProcess(OpenP[标记错误:rocess],
                          FProcessEntry32.th32ProcessID), 0);
      ContinueLoop := Process32N[标记错误:ext];
    end;
end;
end.