其实就是想把VB界面网页化,点击网页内容和点击VB窗体按钮一样,然后触发事件。
不知如何实现

解决方案 »

  1.   

    VB窗体中放WEBBrowser控件,能实现点击链接时让VB程序触发事件,执行动作。
    就在webbrowser.beforenavigate事件中,根据URL及其它参数判断用户点的是什么,从而派发执行VB的代码
      

  2.   

    程序响应网页元素的事件:
    http://www.csdn.net/develop/read_article.asp?id=16506
      

  3.   

    VB窗体中放WEBBrowser控件,能实现点击链接时让VB程序触发事件,执行动作。
    就在webbrowser.beforenavigate事件中,根据URL及其它参数判断用户点的是什么,从而派发执行VB的代码
      

  4.   

    http://www.csdn.net/develop/read_article.asp?id=16506technofantasy 介绍这个我刚看了,不错啊!
      

  5.   

    首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
    假设你的HTML页面表单代码如下:
    <form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
      <p>请填写下面表单注册(*项为必添项)</p>
      <p>*姓名<input type="text" name="Name" size="20"></p>
      <p>*昵称<input type="text" name="NickName" size="20"></p>
      <p>电子邮件<input type="text" name="EMail" size="20"></p>
      <p>*密码<input type="text" name="Password" size="20"></p>
      <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
    </form>
    注意其中元素的type、Name、value属性。然后VB中的代码如下:
    Private Sub Command1_Click()
        WebBrowser1.Navigate "http://chen/chat/newuser.htm"
    End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        Dim vDoc, vTag
        Dim i As Integer
          
        Set vDoc = WebBrowser1.Document
        List1.Clear
        For i = 0 To vDoc.All.length - 1
            If UCase(vDoc.All(i).tagName) = "INPUT" Then
                Set vTag = vDoc.All(i)
                If vTag.Type = "text" Or vTag.Type = "password" Then
                    List1.AddItem vTag.Name
                    Select Case vTag.Name
                        Case "Name"
                            vTag.Value = "IMGod"
                        Case "NickName"
                            vTag.Value = "IMGod"
                        Case "Password"
                            vTag.Value = "IMGodpass"
                        Case "EMail"
                            vTag.Value = "[email protected]"
                    End Select
                ElseIf vTag.Type = "submit" Then
                    vTag.Click
                End If
            End If
        Next i
    End Sub
    点击Command1就可以自动填表并提交了。
    我也发过这样类似的问题,上文转自 hhjjhjhj(大头) 朋友的帖子,我现在还没时间去测试下。
      

  6.   

    我也做过这样的程序可以用 title 属性 和 事件
      

  7.   

    TO  xiyou(溪游) 您可以把以前做过的源码送我一份吗[email protected]