D
dfwczy20
Unregistered / Unconfirmed
GUEST, unregistred user!
当最后h=0也就是传神被人关闭后为什么只执行了TIMER1,也就是被关闭后只是自动又打开了程序,但是不自动点击登陆和挂机了(TIMER2和后面的命令都不执行)大家帮帮我还差这点就完成了~~
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls, Wininet, shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer5: TTimer;
Timer6: TTimer;
Timer7: TTimer;
Timer4: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
procedure Timer6Timer(Sender: TObject);
procedure Timer7Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
rect:TRect;
implementation
{$R *.dfm}
function isonline:boolean;
var
dwflagsWORD;
begin
dwflags:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
result:=internetgetconnectedstate(@dwflags,0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
ofile:string;
begin
if isonline then
begin
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
ofile:='C:/Program Files/传神1.99C完美版/传神199C完美版.exe';
shellexecute(handle,'open',pchar(ofile),nil,pchar(extractfilepath(ofile)),sw_shownormal);
Timer1.Enabled:=false;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Timer1.Enabled=false then
begin
Timer3.Enabled:=true;
Timer2.Enabled:=false;
end;
end;
var
i:shortint;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
inc(i);
if i=3 then
begin
windows.ClipCursor(0);
SetCursorPos(571,357);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
Timer3.Enabled:=false;
end;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
if Timer3.Enabled=false then
begin
Timer5.enabled:=true;
Timer4.Enabled:=false;
end;
end;
var
i1:shortint;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
inc(i1);
if i1=60 then
begin
windows.ClipCursor(0);
SetCursorPos(29,326);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
end;
if i1=65 then
begin
windows.ClipCursor(0);
SetCursorPos( 953,12);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); //按下
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //抬起
Timer5.Enabled:=false;
end;
end;
var
i2:shortint;
procedure TForm1.Timer6Timer(Sender: TObject);
begin
inc(i2);
if i2=10 then
begin
Timer7.Enabled:=true;
Timer6.Enabled:=false
end;
end;
procedure TForm1.Timer7Timer(Sender: TObject);
var h:HWND;
begin
h:=FindWindow(nil, 'v 1.0');
if h=0 then
begin
Timer1.Enabled:=true;
Timer2.Enabled:=true;
Timer4.Enabled:=true;
Timer7.Enabled:=false;
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls, Wininet, shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer5: TTimer;
Timer6: TTimer;
Timer7: TTimer;
Timer4: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
procedure Timer6Timer(Sender: TObject);
procedure Timer7Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
rect:TRect;
implementation
{$R *.dfm}
function isonline:boolean;
var
dwflagsWORD;
begin
dwflags:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
result:=internetgetconnectedstate(@dwflags,0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
ofile:string;
begin
if isonline then
begin
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
ofile:='C:/Program Files/传神1.99C完美版/传神199C完美版.exe';
shellexecute(handle,'open',pchar(ofile),nil,pchar(extractfilepath(ofile)),sw_shownormal);
Timer1.Enabled:=false;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Timer1.Enabled=false then
begin
Timer3.Enabled:=true;
Timer2.Enabled:=false;
end;
end;
var
i:shortint;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
inc(i);
if i=3 then
begin
windows.ClipCursor(0);
SetCursorPos(571,357);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
Timer3.Enabled:=false;
end;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
if Timer3.Enabled=false then
begin
Timer5.enabled:=true;
Timer4.Enabled:=false;
end;
end;
var
i1:shortint;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
inc(i1);
if i1=60 then
begin
windows.ClipCursor(0);
SetCursorPos(29,326);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
end;
if i1=65 then
begin
windows.ClipCursor(0);
SetCursorPos( 953,12);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); //按下
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //抬起
Timer5.Enabled:=false;
end;
end;
var
i2:shortint;
procedure TForm1.Timer6Timer(Sender: TObject);
begin
inc(i2);
if i2=10 then
begin
Timer7.Enabled:=true;
Timer6.Enabled:=false
end;
end;
procedure TForm1.Timer7Timer(Sender: TObject);
var h:HWND;
begin
h:=FindWindow(nil, 'v 1.0');
if h=0 then
begin
Timer1.Enabled:=true;
Timer2.Enabled:=true;
Timer4.Enabled:=true;
Timer7.Enabled:=false;
end;
end;
end.