frame(1)为菜单,在ie中可以点其中的链接,比如1.htm,这样可通过frame(2).Document.body.innertext的到内容。但是frame(2)的默认页面为0.htm。而通过ie直接访问1.htm会被自动定向到起始页,frame(2)还是0.htm能不能不通过模拟点击呢?

解决方案 »

  1.   

    '模拟点超连接 
    Private   Sub   CommandAuto_Click() 
    Dim   Doc   As   IHTMLDocument2 
    Set   Doc   =   WebBrowser1.Document Dim   a   As   IHTMLElementCollection 
    Set   a   =   Doc.All.tags( "a ") '获得第   14   个表的第二个项目(基于   0) 
    Dim   Quote   As   IHTMLElement 
    Set   Quote   =   a.Item(16,   16) '显示开始标记和结束标记之间的文本 
    'MsgBox   Quote.innerText Quote.Click End   Sub 
      

  2.   

    能不能用Call Shell("explorer.exe  <a href="1.htm" target="mainFrame" ........
    WebBrowser1.Navigate  <a href
      

  3.   

    a.Item(16, 16) 这个是什么写法啊