|
nbsp;
else if (stage >= 3) then
begin
if (isRun) then
begin
TryAgain;
stage := stage +1;
end;
end
end;
第一步后，会弹出一个对话框，确定后才进入第二步，因为只有一次，这里没有处理，由手工点击确定。
第二步比较简单，一个协议条款，直接模拟点击“同意”按钮，进入第三步。
第三步是关键步骤，因为报名信息都在这里填，并提交。首先用读入的XML中的数据填第二个表单，然后提交表单。并启动一个定时器，定时提交表单重复尝试报名。
表格 4
定时器重复报名：
procedure TfrmMain.Timer1Timer(Sender: TObject);
var
doc: ihtmldocument2;
placeSelect:IHTMLSelectElement;
pwd1Input:IHTMLInputElement;
begin
TryAgain;
Application.ProcessMessages;
end;
每次报名希望重试不同的考点，以扩大选择的范围，因此重复时轮流用选择的几个考点报名：
表格 5
procedure TfrmMain.TryAgain;
var
doc: ihtmldocument2;
placeSelect:IHTMLSelectElement;
pwd1Input:IHTMLInputElement;
kk:hwnd;
begin
if (webbrowser1.LocationURL = url3) then
begin
doc:=(WebBrowser1.Document as IHTMLDocument2);
placeSelect := (doc.all.item(''''tp_cname'''',0) as IHTMLSelectElement) ;
placeSelect.selectedIndex := placesID[(times mod placeNum) + 1]; //轮流换考点
pwd1Input := (doc.all.item(''''pwd1'''',0) as IHTMLInputElement) ;
pwd1Input.value := pwd;
submitForm;
times := times + 1;
statusBar1.Panels[0].Text := ''''正在第'''' + inttostr(times) + ''''次报名。。。'''';
Application.ProcessMessages;
end
else //报名成功，报名成功，我也不知道成功是什么样子，只好根据页面地址判断
begin
timer1.Enabled := false;
btnReg.Caption := ''''开始'''';
isRun := false;
statusBar1.Panels[0].Text := ''''报名已成功。。。'''';
showmessage(''''报名成功！！！！！！！！！！！！'''');
end;
end;
在重复报名中遇到一个问题：报名不成功会弹出一个对话框，然后页面阻塞在那里，无法进行下去。没有办法，只有再起一个进程，找到IE弹出的对话框，强行关掉。（其实关掉并不是最好的办法，如果能发送一个消息点击确定按钮最好，可惜没找到相关资料）。
表格 6
procedure TfrmMain.NewThread;
var
hThread:Thandle;//定义一个句柄
ThreadID:DWord;
上一页 [1] [2] [3] [4] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
