100关于浏览器控件的技术问题。关于MSHTML.HD的问题！HELP ME!HELP ME!

Question

楼主痛苦的呻吟：“HELP ME ……”

Answer 1

用webbrowser控件来做吧，以上很多问题都可以解决5怎么实现浏览器中字符串的查找？6怎么找到框架网页中FORM内的INPUT框？
    If Yn1 = False Then Exit Sub
    On Error GoTo ErrLink:
        Dim htmltext As String
        Dim t, vdoc, vtag, vtag2, m As Long, selclick As Long
        Set vdoc = Web1.Document
        For m = 0 To vdoc.All.length - 1
            Set vtag = vdoc.All(m)
            If UCase(vtag.tagname) = "BODY" Then
                htmltext = htmltext & vtag.innertext
                If InStr(1, htmltext, "服务器忙") = 0 Then
                    Dim t1, vdoc1, vtag1, vtag12, m1 As Long, selclick1 As Long
                    Set vdoc1 = Web1.Document
                    For m1 = 0 To vdoc1.All.length - 1
                    Set vtag1 = vdoc1.All(m1)
                    Set vtag12 = vdoc1.All(m1 + 1)
                    If UCase(vtag1.tagname) = "INPUT" Then
                        If UCase(vtag1.Type) = "SUBMIT" Then selclick1 = m1
                    End If
                    If UCase(vtag1.tagname) = "INPUT" Then
                        If UCase(vtag1.Name) = "MEMBERNAME" Then vtag1.Value = Text2.Text
                    End If
                    If UCase(vtag1.tagname) = "INPUT" Then
                        If UCase(vtag1.Name) = "PASSWORD" Then vtag1.Value = Text3.Text
                    End If
                    If UCase(vtag1.tagname) = "INPUT" Then
                        If UCase(vtag1.Name) = "INTOPICTITLE" Then
                            i = i + 1
                            vtag1.Value = Text21.Text & i
                        End If
                    End If
                    If vtag1.tagname = "TEXTAREA" Then vtag1.Value = i & GJ
                    Next
                Else
                    Yn1 = True
                    Web1.SetFocus
                    Web1.Navigate Enter1
                End If
            End If
        Next    t1 = Timer
    Do
    DoEvents
    If t1 < Timer - 2 Then Exit Do
    Loop
    vdoc1.All(selclick1).Click
    End If
    Exit Sub
ErrLink:
                    Yn1 = True
                    Web1.Navigate Enter1
以上代码是我在原来写的程序中复制过来的，5、6两个问题的答案都在里面，自己看看吧

Answer 2

TO lskynet() 
看到你的代码，我没有细看，先写个感谢信，谢谢你的帮助。但我的问题有不少，结贴后给你分。我的问题是，我把VC的MFC类CHTML和浏览器类修改到BC中，在一个FORM类中写函数，但原本属于CHTML和浏览器控件本身的类我写在了FORM类里，做为FORM的成员函数，所以有些代码我写了，但就没有效果，迷茫啊特别是HTML文档类
C++BUILDER里有INTERFACE接口，但不是类的形式，所以要重新写个类，真实要累死我。

Answer 3

TO lskynet() 你提供的代码好象不能处理框架网页吧，框架网页的处理方式很复杂，但我屡试不爽，那个高手帮帮我的忙
谢谢