大家来看我的传神自动登陆器但有点小问题大家帮帮我(delphi)我在线等(非常急!)我只有11分了(11分)

当最后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.

我是个初学者,想编点小东西,大家帮帮我

难道没人可以帮我吗[]

555555555[]没人帮我

[]

没人回答,斑竹帮帮忙嘛

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

还是没人回答,我先吃饭了.斑竹不要删我的帖,我要一直等到有人帮忙为止,今天没得明天再等.........

v1.0是传神199C完美版.exe的标题

........

vTmp:Variant;
ChaobData :array[0..5000] of byte; //接收字节数组

vTmp:=VarArrayCreate([0,RXDlen],varByte);
vtmp := DataBuf.buf;
s :=''
For i:= 0 To DATA_BUFSIZE - 1 do begin
ChaobData:=vtmp;
s := MsgStr + chr(ChaobData);
end;

我想当H=0时让程序重新启动然后自动挂机到底怎么实现啊,我的程序错在哪里我就是想不通

难道没人知道吗

......