WebBrowser操作问题Seclect，找了几天也没有找到解决方法，所以来此求助！

Question

网页源码如下：
<td class="tr"><input name="post[areaid]" id="areaid_1" type="hidden" value="5"/><span id="load_area_1"><select onchange="load_area(this.value, 1);" ><option value="0">请选择</option><option value="1">北京</option><option value="2">上海</option><option value="3">天津</option><option value="4">重庆</option><option value="5" selected>河北</option><option value="6">山西</option><option value="7">内蒙古</option><option value="8">辽宁</option><option value="9">吉林</option><option value="10">黑龙江</option><option value="11">江苏</option><option value="12">浙江</option><option value="13">安徽</option><option value="14">福建</option><option value="15">江西</option><option value="16">山东</option><option value="17">河南</option><option value="18">湖北</option><option value="19">湖南</option><option value="20">广东</option><option value="21">广西</option><option value="22">海南</option><option value="23">四川</option><option value="24">贵州</option><option value="25">云南</option><option value="26">西藏</option><option value="27">陕西</option><option value="28">甘肃</option><option value="29">青海</option><option value="30">宁夏</option><option value="31">新疆</option><option value="32">台湾</option><option value="33">香港</option><option value="34">澳门</option></select> <select onchange="load_area(this.value, 1);" ><option value="0">请选择</option><option value="35">石家庄市</option><option value="36">唐山市</option><option value="37">秦皇岛市</option><option value="38">邯郸市</option><option value="39">邢台市</option><option value="40">保定市</option><option value="41">张家口市</option><option value="42">承德市</option><option value="43">沧州市</option><option value="44">廊坊市</option><option value="45">衡水市</option></select> </span><script type="text/javascript">var area_title = new Array;area_title[1]='请选择';var area_extend = new Array;area_extend[1]='';var area_areaid = new Array;area_areaid[1]='5';var area_deep = new Array;area_deep[1]='0';</script><script type="text/javascript" src="http://968.netbs.cn/file/script/area.js"></script>&nbsp;<span id="dareaid" class="f_red"></span></td>我操作的代码如下：var
 I:integer;
 LoginOlev:oleVariant;
begin
  LoginOlev := ComFarme.WebBrowser1.Document;
 for i := 0 to LoginOlev.all.length - 1 do
  begin
 if LoginOlev.all.item(i).TagName = 'SELECT' then
  begin
   DebugMemo.Lines.Add(IntToStr(i) + '  检测SELECT框架成功');
   LoginOlev.all.item(i).SelectedIndex := 20;
  end;
  end;
  end;这样操作后，所有的SELECT都会改变，要怎么样做才能使他只改变这一个呢？ 求解啊，我很菜，希望在哥们不要嫌弃好学的小菜鸟

Answer 1

if 里头最后加一句Break不就行了？

Answer 2

IF里面加一句Break 怎么加，为什么要加这一句，有些不解....

Answer 3

这样操作后，所有的SELECT都会改变，要怎么样做才能使他只改变这一个呢？ 
我的问题是这个，加Break将循环打断了，那不是没有办法直到这一项了么，那只能填写页面中SELECT类的第一项，其它的都无法被找到和操作了。我是要操作SELECT的方法，而是将他打断呀！

Answer 4

WebBrowser1.OleObject.document.getElementsByTagName('select').item(0).SelectedIndex := 20;
item(0)表示第一个select
item(1)表示第2个select
以此类推

Answer 5

这个我知道，但是只有一个网站的框架是Item(xx)，如果我换成其它网站了，也还是不能填了，我就是想让他不管在哪个网站，都可以填写！ 还有一种方法可以
var
  HTMLdoc: IHTMLDocument2;
  WebObj: OleVariant;
begin
  HTMLdoc := WebBrowser1.Document as IHTMLDocument2;
  if HTMLdoc = nil then Exit;
   WebObj := HTMLdoc.all.item('areaid_1', 0) as IHTMLSelectElement;
   WebObj.SelectedIndex := 20;
end;这样写的话会提示拒绝访问..不知道是我写错了还是不能用这个方法来写