急~~~如何用WebBrowser来连续多层页面自动进行模拟点击

本帖最后由 yesboysong 于 2010-11-24 13:43:33 编辑

有需要的话可以帮你做整个程序qq:1085992075 请问楼主后来是如何解决的，求教！ Dim doc As IHTMLDocument2
Dim sElement As IHTMLSelectElement
Dim btnElement As IHTMLElement

Private Sub Form_Load()

    WebBrowser1.navigate "http://www.pxdisk.com/u/a.htm"

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    If URL = "http://www.pxdisk.com/u/a.htm" Then
        Set doc = pDisp.document
        Set sElement = doc.All.tags("select")(0)
        sElement.selectedIndex = 2
        Set btnElement = doc.All.tags("A")(0)
        btnElement.Click
    End If

    If URL = "http://www.pxdisk.com/u/b.asp" Then
        Set doc = pDisp.document

        Set btnElement = doc.All.tags("A")(2)
        btnElement.Click
    End If

End Sub

引用MSHTML对象。

引用 4 楼 liquoryellow 的回复:

Dim doc As IHTMLDocument2
Dim sElement As IHTMLSelectElement
Dim btnElement As IHTMLElement

Private Sub Form_Load()

WebBrowser1.navigate "http://www.pxdisk.com/u/a.htm"

End Sub

Private……

请问下
1： IHTMLDocument2 和 IHTMLDocument 和 HTMLDocument 这3个有啥区别啊，为什么有的前面加i有的不加啊，还有最后那个2

2：你定义这些还要引用MSHTML,可是把这些都去掉不引用一样可以运行啊，为什么要多这些呢？

3：MSHTML方面的资料那里能看到？ 1,带I XXX的是指针，其他是对象。带2的，是扩展的对象或指针。
2，可以，不过写的时候打点不带方法。
3，那些资料啊，我当初有个SDK，现在没了。不过还有什么不知道的，自己看看里面的就知道了。
要不再多给点分，哈哈，我一点点告诉你。HOHO 我们公司的工具就是干这事儿的.

引用 6 楼 liquoryellow 的回复:

1,带I XXX的是指针，其他是对象。带2的，是扩展的对象或指针。
2，可以，不过写的时候打点不带方法。
3，那些资料啊，我当初有个SDK，现在没了。不过还有什么不知道的，自己看看里面的就知道了。
要不再多给点分，哈哈，我一点点告诉你。HOHO

谢谢，可是这贴不是我发的啊，我没法给分哦 FUCK,白回答一个问题，你再开个帖吧，给我送分。HOHO

补充：VB ,  网络编程