谁能帮我解决这个问题！！ 在线等待，

Question

谁能帮我解决这个问题！！ 在线等待，
一个网页包含一个iframe 比如这个页面http://www.bloven.com/1.htm
里面包含一个iframe
问题：请问怎么找到iframe的文本恐件然后赋一值 然后表单提交在线求助高手！！！

Answer 1

搜索tmran的帖子，我懒得找了，都发了不知多少遍。

Answer 2

用Webbrowser控件实现的，不要骂哦！
Option Explicit
Private RealFormUrl As String
Private Const HomePage = "http://www.bloven.com/1.htm"Private Sub Form_Load()
    WebBrowser1.Navigate HomePage
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Select Case URL
    Case HomePage
        RealFormUrl = WebBrowser1.Document.All("baiduframe").src
        WebBrowser1.Navigate RealFormUrl
        
    Case RealFormUrl
        WebBrowser1.Document.search_form.word.Value = "ÎÒ°®±±¾©"
        Dim i As Long
        For i = 0 To 100
            DoEvents
        Next i
        WebBrowser1.Document.All("_si").Click
    End Select
End Sub

Answer 3

上边有乱码，重发一次！
Option Explicit
Private RealFormUrl As String
Private Const HomePage = "http://www.bloven.com/1.htm"Private Sub Form_Load()
    WebBrowser1.Navigate HomePage
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Select Case URL
    Case HomePage
        RealFormUrl = WebBrowser1.Document.All("baiduframe").src
        WebBrowser1.Navigate RealFormUrl
        
    Case RealFormUrl
        WebBrowser1.Document.search_form.word.Value = "autoexec.bat"
        Dim i As Long
        For i = 0 To 100
            DoEvents
        Next i
        WebBrowser1.Document.All("_si").Click
    End Select
End Sub

Answer 4

我不想 WebBrowser1.Navigate RealFormUrl 这样 是否可以直接找到iframe的控件

Answer 5

看样子不能用这种方法了，因为我的iframe 是跨域的 没有权限