关于WebBorwser控件的使用---如何获取网页对象

main.html<html><head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head><frameset rows="*,*">
  <frame name="top" src="top.htm" scrolling="auto">
  <frame name="bottom" src="bottom.htm" scrolling="auto">
  <noframes>
  <body>  <p>此网页使用了框架，但您的浏览器不支持框架。</p>  </body>
  </noframes>
</frameset></html>top.html<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>aa</title>
</head><body><form method="POST" name="form1" action="_derived/nortbots.htm" webbot-action="--WEBBOT-SELF--" onSubmit="location.href='_derived/nortbots.htm';return false;" WEBBOT-onSubmit>
  <!--webbot bot="SaveResults" U-File="_private/form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan i-checksum="43374" -->
  <p>aa:<input type="text" name="T1" size="20"></p>
  <p>bb:<input type="text" name="T2" size="20"></p>
  <p>　</p>
</form></body></html>
Bottom.html<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>cc</title>
</head><body><form method="POST" name="form2" action="_derived/nortbots.htm" webbot-action="--WEBBOT-SELF--" onSubmit="location.href='_derived/nortbots.htm';return false;" WEBBOT-onSubmit>
  <!--webbot bot="SaveResults" U-File="_private/form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan i-checksum="43374" -->
  <p>cc:<input type="text" name="T1" size="20"></p>
  <p>dd:<input type="text" name="T2" size="20"></p>
</form></body></html>
VB 引用Library MSHTML   C:\WINNT\System32\MSHTML.TLB
Private Sub Command1_Click()
    Me.CommonDialog1.ShowOpen
    Me.WebBrowser1.navigate Me.CommonDialog1.FileName
End SubPrivate Sub Command2_Click()
    Dim IHTMLDoc2m As MSHTML.IHTMLDocument2
    Dim IHTMLDoc2t As MSHTML.IHTMLDocument2
    Dim IHTMLDoc2b As MSHTML.IHTMLDocument2
    
    Dim IHTMLWin2 As MSHTML.IHTMLWindow2
    Dim IHTMLInputElementX As MSHTML.IHTMLInputElement
    
    Set IHTMLDoc2m = Me.WebBrowser1.document
    Set IHTMLWin2 = IHTMLDoc2m.frames(0)
    Set IHTMLDoc2t = IHTMLWin2.document
    Set IHTMLInputElementX = IHTMLDoc2t.Forms("form1").Item("T1")
    Me.Text1.Text = IHTMLInputElementX.Value
    Set IHTMLInputElementX = IHTMLDoc2t.Forms("form1").Item("T2")
    Me.Text2.Text = IHTMLInputElementX.Value
    
    Set IHTMLWin2 = IHTMLDoc2m.frames(1)
    Set IHTMLDoc2b = IHTMLWin2.document
    Set IHTMLInputElementX = IHTMLDoc2b.Forms("form2").Item("T1")
    Me.Text3.Text = IHTMLInputElementX.Value
    Set IHTMLInputElementX = IHTMLDoc2b.Forms("form2").Item("T2")
    Me.Text4.Text = IHTMLInputElementX.Value
    
End Sub