webbrowser中如何让程序等待页面完成

Question

有这么一段程序 ：
var donext:boolean;donext:=false;
模拟点击一个连接；//查询页面
while not donext do ;  //空语句，然后在webbrowser的downloadcomplete事件里 ：donext:=true;
模拟输入几个关键字；
模拟提交查询；//不加donext变量时，程序不等查询页面打开，就已经执行到输入关键字的代码，出错！//加了 donext变量控制后，while not donext do ;陷入死循环，根本不会触发downloadcomplete各位有什么办法解决？？

Answer 1

while webbrowser.readystate <> readystate_complete do
  application.processmessage;

Answer 2

既然都有downloadcomplete事件了，怎么不把后面的放到事件里？

Answer 3

加这不起作用，我这模拟查询是放在另一个大循环里实现批量查询效果。如果放到downloadcomplete事件，怎么区别是查询页面完成还是查询结果页面完成

Answer 4

既然是不同页面，那就不同URL了吧。
就算相同页面，不同frame也行。
都相同？那我没辙了

Answer 5

在downloadcomplete根据url进行判断，在这个里面触发下一个的命令。不过我做过的地方发现网速不太好的时候，经常不能继续下一个查询，需要手工刷新，网络好没出现这种情况，感觉直接用idhttp控件的get之类好一点，就不会有这种问题