报名机器人

begin

//showmessage(inttostr(stage) '''' WebBrowser1DocumentComplete'''');

doc:=(WebBrowser1.Document as IHTMLDocument2);

obj:=doc.all.item(''''Agree'''',0);

obj.click;

stage := stage 1;

end

else if (stage = 2) then //第三步

begin

FillForm2; //填表单2

TryAgain; //报名一次

timer1.Enabled := true;

timer1.Interval := strtoint(edtInterval.Text) * 1000;

stage := stage 1;

statusBar1.Panels[0].Text := ''''正在报名。。。'''';

end