JavaScript и VB

[Doom]

Люди помогите!!!
У меня есть страничка со скриптами на java. Переделывать код на VB долго, да и муторно. Как мне запустить скрипт или страницу из VB и получить ответ ?

[GSerg]

Так скрипт выполняешь не ты, а тот, кто его обычно выполняет А потому пофигу, на каком он языке. Через shell, нет?

[Ruslan Demidow]

Люди помогите!!!
У меня есть страничка со скриптами на java. Переделывать код на VB долго, да и муторно. Как мне запустить скрипт или страницу из VB и получить ответ ?

У vbscript есть коды возврата.
Используются так: в скрипте при выходе, в зависимости от обстоятельств указываешь код возврата:

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

Wscript.Quit(Код возврата)


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

[Doom]

Если бы я еще знал как это делается!
А не получится как нибуть автоматом заполнить форму на странице со скриптом и нажать там кнопу выполнить?
Если можно, то с конкретный пример. Форма во вложении.

З.Ы. опыта взаимодействия с web у меня нет. Поэтому вероятно мой вопрос ламерски прозвучал. И еще желательно чтобы этот код работал под Access.

[Amed]

Здесь была тема про выполнение скриптов в web. Смотри эту конференцию, или VB для новичков. Страницы 2-3, не более... Сейчас ещё найду...

[Amed]

Вот:
http://bbs.vbstreets.ru/viewtopic.php?t=10631

[Doom]

Это не то!

[Amed]

Ага, ясно. Скрипт надо запустить на локальной странице. А ответ - в TextBox на ней. Можно попробовать с WebBrowser...

[Doom]

Пробую через webbrowser:

WebBrowser3.navigate "file://C:/SMS.htm"
WebBrowser3.Document.pduToStringForm.smsText.Value = "07911356131313F311000A9260214365870000AA0FC8F71D14969741F977FD1793CD00"

При запуске выдает ошибку 438
Object doesn't support property or method
на строке WebBrowser3.Document.pduToStringForm.smsText.Value ....

выбираю Debug
Нажимаю Продолжить
В итоге результат принят в форму.
Нифига не пойму почему выдает ошибку если строка выполняется ?
В чем я не прав ?

[Amed]

Там несколько не такой синтаксис, кажется... Сейчас вспоминать будем...

[natcap]

А кто дожидаться загрузки докумета будет ???? Пушкин?

А вообще вот тебе кусочек кода


Public WithEvents doc As HTMLDocument

Private Sub Form_Resize()
WebBrowser1.navigate "file://C:/SMS.htm"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
doc.Forms("pduToStringForm").smsText.Value = "07911356131313F311000A9260214365870000AA0FC8F71D14969741F977FD1793CD00"
End Sub

Private Sub WebBrowser1_DownloadComplete()
Set doc = WebBrowser1.document
End Sub