报名机器人

表格 3

procedure TfrmMain.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

var

kk:hwnd;

obj:OleVariant;

doc: ihtmldocument2;

begin

if (stage = 0) then //第一步

begin

FillForm1; //填表单1

stage := stage 1;

doc:=(WebBrowser1.Document as IHTMLDocument2);

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

obj.click; //点“下一步”按钮

statusBar1.Panels[0].Text := ''''正在打开报名协议页面。。。'''';

end

else if (stage = 1) then //第二步