Программное нажатие на кнопку формы в Webbrowser

[agat344]

Не работает программное нажатие на кнопку "Submit" на форме в Webbrowser в данном конкретном случае.

Загружаю в Webbrowser страницу http://giba.ru/add.php
Делаю автозаполнение и нажимаю кнопку отправки формы.

Код: Выделить всё

WebBrowser1.Document.Forms(0).All("nick").Value = "12345"
WebBrowser1.Document.Forms(0).All("city").Value = "12345"
WebBrowser1.Document.Forms(0).All("addr").Value = "12345"
WebBrowser1.Document.Forms(0).All("phone").Value = "12345"
WebBrowser1.Document.Forms(0).All("email").Value = "12345"
WebBrowser1.Document.Forms(0).All("subj").Value = "12345"
WebBrowser1.Document.Forms(0).All("msg").Value = "12345"
WebBrowser1.Document.Forms(0).All("secretcode").Value = "12345"
WebBrowser1.Document.Forms(0).submit

А она ругается в строке отправки ("Forms(0).submit") и пишет - "Object doesn't support this property or method".

Самое интересное, что большинство форм работает, а эта никак не хочет.
Как решить проблему?

[Хакер]

viewtopic.php?f=56&t=40300

[agat344]

Спасибо. Но мне нужно решение именно этой проблемы, так как раньше делал всё используя Winsocks, но со временем обрабатывать все цокеты и Java-скрипты стало труднее, а в WebBrowser это делает сам браузер.

[Qwertiy]

Не знаю, есть ли этот метод в VB6, но попытаться можно:

Код: Выделить всё

WebBrowser1.Document.Forms(0).InvokeMember("Submit")

[agat344]

Не знаю, есть ли этот метод в VB6, но попытаться можно:

Код: Выделить всё

WebBrowser1.Document.Forms(0).InvokeMember("Submit")

Нет, пишет тоже самое. Скорее всего дело не в методе, а в данных.

[Хакер]

Не знаю, есть ли этот метод в VB6, но попытаться можно:

Бред. Во-первых, в VB для этих целей есть As Object. Во-вторых, в VB для этих целей есть CallByName.

[Qwertiy]

Не знаю, есть ли этот метод в VB6, но попытаться можно:

Бред. Во-первых, в VB для этих целей есть As Object. Во-вторых, в VB для этих целей есть CallByName.

В-третьих, я же сказал, что не знаю. А в-четвёртых, это работающий код на VB.NET, правда, конкретно с этим сайтом не проверял.

[agat344]

Пока сообразил только так :

Код: Выделить всё

For i = 0 To WebBrowser1.Document.Forms(0).elements.length - 1
    If WebBrowser1.Document.Forms(0).elements(i).Type = "submit" Then
        WebBrowser1.Document.Forms(0).elements(i).Click
        Exit For
    End If
Next i