Запуск JavaScript в WebBrowser

[phantomstealth]

Возможен ли запуск уже готового скрипта в сайте и изменение переменных, или можно только свой скрипт запускарть?
скрипт выглядит так:

function rPress(rname,rval)
{
byid(rname).value=rval;
byid(rname+(1-rval)).src = 'img/ulist-0.gif';
byid(rname+(rval)).src = 'img/ulist-1.gif';
}

И если скрипт находится в фрейме, его нужно по особенному запускать?

[Хакер]

И при чём здесь VB6?

[phantomstealth]

Webbrowser - компонент VB6 (Microsoft internet controls), может я как-нибудь неправильно его назвал?
На форуме нашел что-то похожее

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

strJava = "rpress()"
'reval = WebBrowser1.Document.execscript(strJava, "JavaScript")

Но он открывает пустой лист и ничего не делает

[dr.MIG]

Лучше сформулируй какую задачу ты хочешь решить таким образом. Просто не понятно зачем запускать JavaScript, который что-то делает с содержимым страницы, если сделать тоже самое что-то с содержимым страницы можно, используя Microsoft HTML Object Library.

[phantomstealth]

Если это можно сделать Microsoft HTML Object Library тем лучше, просто я не знаю как использовать текущие переменные, я думал проще запустить готовый скрипт.
В общем нужно нажать на рисунок

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

<img id=first1 width=15 height=15 src='img/ulist-0.gif' onclick=rPress('first',1)>

при этом я так понимаю выполняется функция

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

function rPress(rname,rval)
{
byid(rname).value=rval;
byid(rname+(1-rval)).src = 'img/ulist-0.gif';
byid(rname+(rval)).src = 'img/ulist-1.gif';
}

Это можно сделать с помощью Microsoft HTML Object Library?

[dr.MIG]

WebBrowser1.Document.getElementById("first1").click()

[phantomstealth]

Спасибо, боже мой как просто...
P.S. Но пока не работает, там несколько фреймов, может из-за этого.
Говорит Run-time error '91': Object variable or With block variable not set.
... А почему подсказочный текст (не знаю как по другому назвать), не выскакивает как с других объектов.
Есть где-нибудь источник, где можно поподробнее почить об Microsoft HTML Object Library

Обязательно

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

WebBrowser1.Document.getElementById("fist1").Click()

скобочки в конце?

[dr.MIG]

Да, скобочки не надо, слишком я Java увлекся последнее время .
С фреймом тяжелее... Так просто не получится сделать что-то с содержимым фрейма (пусть поправят меня,сли я не прав).
Подключи бибилотеку в References и поизучай её в ObjectBrowser, если знаком с JS и HTML, то там все интуитивно понятно, плюс поищи по форуму по этому слову, загляни в мой блог, MSDN конечно же еще.

[phantomstealth]

Секундочку, а что такое References, у меня появятся подсказки? (не очень сведущ) И по какому слову искать?

[dr.MIG]

Да поиск по любому слову даст информацию. Хоть по WebBrowser, хоть по DOM, хоть по HTML Object Library. Но для начала зайди все-таки в мой блог (внизу, в списке форумов) и найди статью по WebBrowser.

Меню Project-->References-->Microsoft HTML Object Library.

Кстати, по элементам фрейма тоже можно кликнуть (код на примере странички с фреймом, только щелчок выполняется не по картинке, а по ссылке, так как не нашел странички с фреймами и картинками:) ):

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

Private Sub Command1_Click()
    Dim f As HTMLFrameElement
    Set f = WebBrowser1.Document.getElementsByTagName("frame")(0) 'нашли самый первый фрейм по имени тэга  — <frame>
    f.contentWindow.Document.links(1).Click 'выполнили щелчок по второй по счету ссылке на странице
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.yma.ac.ru/books/hist/en/et/ep00.htm" ' загружаем страничку с фреймами
    While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
End Sub


Add: здесь как раз домен один...

[arvitaly]

Так просто не получится сделать что-то с содержимым фрейма (пусть поправят меня,сли я не прав).

Прав, получится только если домен фрейма и домен основной странички одинаковые http://site.ru

[phantomstealth]

Большое спасибо, я бы еще огромные мегабайты трафика перелопатил бы пока нашел бы это
Правда

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

Dim f as HTMLFrameElement

не сработало говорит такого типа не объявлено ранее, пришлось объектом объявлять.

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

Dim f As Object
Set f = WebBrowser1.Document.getElementsByTagName("frame")(2)
f.contentWindow.Document.getElementById("first1").Click

.

[dr.MIG]

говорит такого типа не объявлено ранее, пришлось объектом объявлять

Добавь ссылку на библиотеку:

Меню Project-->References-->Microsoft HTML Object Library.

[phantomstealth]

Окей подсоединил все заработало.
Хотел еще один вопрос задать, это нормально, что нельзя, ни свойства, ни msbbox js, ну и т.д. запустить. Даже картинку не сохраняет popup меню исчезает куда-то

[dr.MIG]

Ничего не понял, если честно. Куда свойства запустить, кто картинку не сохраняет?

[phantomstealth]

В любом месте объекта Webbrowser если нажать правой кнопкой выскакивает popup и выбирая команду свойства, у меня ничего не происходит, тоже самое при попытке сохранения любого рисунка (сохранить как) и т.д. А в нормальном браузере при команде свойства выдаст информацию о сайте (ресурс и т.д.) и сохранит рисунок.

Хотя наверное у меня что-то в свойствах webbrowser не так стоит только я не пойму что

[Хакер]

Симптомы похожи на hBug Так что твоей вины здесь скорее всего нет.
А вот это:

Webbrowser - компонент VB6 (Microsoft internet controls)

бред.

[phantomstealth]

Симптомы похожи на hBug Так что твоей вины здесь скорее всего нет.А вот это:

Webbrowser - компонент VB6 (Microsoft internet controls)

бред.

Ну да неправильно выразился "объект", а не компонент.
А что такое Hbug и как с ним бороться?

[Хакер]

Ну да неправильно выразился объект.

Чё? Т.е. должно было быть «WebBrowser — объект VB6»? Всё равно бред. Он никак не относится к VB6.

А что такое Hbug и как с ним бороться?

Не знаю. Не знаю (перезагрузка).

[phantomstealth]

Не знаю. Не знаю (перезагрузка).

Т.е. такого ни у кого небыло, я так понимаю (Я думал это в свойствах Webbrowser устанавливается, например "Silent - Controls if any dialog boxes can be shown", толко он в True не становится, после запуска сразу False). Перезагрузка здесь точно не поможет.

[Хакер]

Перезагрузка здесь точно не поможет.

Если это hbug, и причиной того, что при выборе «Свойства» нужный диалог не показывается, потому что обламываюстя CreateWindowEx, VirtualAlloc или им подобные функции, которые что-то создают или выделяют, то перезагрузка поможет.

[phantomstealth]

Нет я не такой упертый, просто у меня эта проблема 4 дня, я соответственно компьютер перезагружал раз 10.
Хотя раз ты говоришь что не блокируется CreateWindowEx, я такое видел в компьютерных клубах, там не открывалось ни одно окно, но там работала программа которая делала это, а у меня... только что какой-нибудь троян сидит и делает гадости, но непонятно почему именно в VB.

[dr.MIG]

Я думал это в свойствах Webbrowser устанавливается, например "Silent - Controls if any dialog boxes can be shown", толко он в True не становится, после запуска сразу False

Это свойство отвечает исключительно за отображение/неотображение диалоговых окон и сообщений. И устанавливать его в True надо в коде, а не в окне свойств WebBrowser'а.

[Хакер]

Хотя раз ты говоришь что не блокируется CreateWindowEx, я такое видел в компьютерных клубах, там не открывалось ни одно окно, но там работала программа которая делала это, а у меня... только что какой-нибудь троян сидит и делает гадости, но непонятно почему именно в VB.

Причём здесь компьютерный клубы? Аналогия нисколько не уместная. Здесь функции не блокируется, не запрещаются, а тупо не работают. Это ошибка, косяк, баг, нарушение, отклонение от нормы, а не один из предусмотренных режимов. Разумеется, конечно, что речь идёт о hBug-е.

[phantomstealth]

Это ошибка, косяк, баг, нарушение, отклонение от нормы

Забавное сочетание синонимов...
Но действительно не запускается ни одно диалоговое окно. Даже MSGBOX который запускается javascript не отображается, ни перезагрузка, ни изменение параметра silent в true и false в режиме запуска не дает результата.
Может и hbug, только перезагрузка не помогает и все эти косяки именно в webbrowser в VB нигде в другом месте, может быть нужно переставить mshtml.tlb, может в ней все дело

[Хакер]

Очень просто объясняется, почему хбаг не устраняется перезагрузкой. Причиной этого может быть то, что хбаг создаётся твоей же программой.

[phantomstealth]

Вот это другое дело. Прямо в точку.
Пересоздал проект сделал все точно так же. Все работает. Все диалоговые окна появляются.
У меня в том проекте как ни странно не при запущенной программе, упрямо каждый раз грузился www.mail.ru, сейчас ничего не грузится. Как он туда влез не знаю.

[arvitaly]

У меня в том проекте как ни странно не при запущенной программе, упрямо каждый раз грузился http://www.mail.ru, сейчас ничего не грузится. Как он туда влез не знаю.

Может он просто в Internet Explorer - домашняя страница, нет?

[Debugger]

У меня тоже возникла такая мысль.
Но без ведома программиста ничего в WebBrowser (по идее) грузиться не должно.

[phantomstealth]

нет домашняя страница about
так mail.ru грузился не при запущенной программе, долен быть чистый объект.
P.S. Так эта зараза уже перелезла на мой новый проект, удаляю webbrowser, создаю новый некоторое время нормальное, потом раз и опять mail.ru, по-ходу троян, только его мои антивирусники не ловят почему-то