★ 好难！WebBrowse好手帮忙，请问如何在有Frame的网页中操作输入框及按钮？找了好多资料都一样，不适用于带有Frame的页面！【200】★

Question

我是菜鸟！没用过WebBrowse控件。
我查了一些资料，都是通过
var
  o : Olevariant;
begin
  o := WebBrowser1.OleObject.document.all.item('tmsg',0);
  o.value := 'username';
  ...
或者
  FDoc:=Webbrowser1.Document as IHTMLDocument2;
  for i:=0 to FDoc.all.length -1 do
    begin
      FItem:=FDoc.all.item(i,i)as IHTMLElement;
      if LowerCase(FItem.tagName)='input' then
      begin
        FInput:= FItem as IHTMLInputElement;
        Memo1.Lines.Add(FInput.type_);
        if (FInput.type_='text')or (FInput.type_='password')then
        begin
          if FInput.name = 'tmsg'then
            FInput.value := 'technofantasy'
等方法操作页面中的控件，但是问题是这些方法都不适用于带有 Frame的页面！
哪位朋友知道如何控制页面带有Frame的，望不吝赐教！
最好在 【http://202.96.140.111:1995/site.htm?r=220】 这个页面试验一下！
谢谢，分都给你啦！

Answer 1

呵呵，jpyc(九品御厨) ，谢谢赏光，不能白来！
我的马甲和你一起享用！
本不想的，没人回答我结不了贴，所以用马甲答了一句，呵呵。

Answer 2

FDoc:=Webbrowser1.Document as IHTMLDocument2;
  for i:=0 to FDoc.all.length -1 do
    begin
      frame_doc := (IDispatch(FDoc.frames.item(framename)) as IHtmlWindow2).document as IHtmlDocument2;
      FItem:= frame_doc.all.item(i,i)as IHTMLElement;
      if LowerCase(FItem.tagName)='input' then
      begin
        FInput:= FItem as IHTMLInputElement;
        Memo1.Lines.Add(FInput.type_);
        if (FInput.type_='text')or (FInput.type_='password')then
        begin
          if FInput.name = 'tmsg'then
            FInput.value := 'technofantasy'