Вызов события DOM onmousedown в веб-браузере из Visual Basic 6 - PullRequest
Новая
       43

Вызов события DOM onmousedown в веб-браузере из Visual Basic 6

3 голосов
/ 05 февраля 2012

Я загружаю документ HTML в элемент управления WebBrowser в Visual Basic 6.

Есть ссылка что-то 

<a href="something" onmousedown="return abc(this,'asd', 'AO',null,event)">

Я хочу вызвать событие onmousedown программно из VB

Я пробовал много вещей, включая 

doc.getElementsByTagName("a")(i).InvokeMember("MouseDown")
doc.getElementsByTagName("a")(i).RaiseEvent("OnMouseDown")
doc.getElementsByTagName("a")(i).MouseDown

но, похоже, ничего не работает.

1 Ответ

0 голосов
/ 05 февраля 2012

Я не пытался сделать это сам, но в этом посте vbcity есть описание и пример кода для этого.Прокрутите вниз до последнего сообщения на первой странице цепочки.

http://vbcity.com/forums/t/37407.aspx

Чтобы свести вышеописанное сообщение к основам, члены коллекции форм могут быть повторены, чтобы найтикнопка, которую затем нажимают. 

With Me.WebBrowser1
    For n = 0 To .Document.Forms("formname").Length - 1
        If .Document.Forms("formname").Item(n).Value = "buttonvalue" Then
            .Document.Forms("formname").Item(n).Click
            Exit For
        End If
    Next n
End With

Замените 'formname' и 'buttonvalue' соответствующими значениями

...