Серый форум — VBS:objForm

Re: VBS:objForm

null@example.com (bnp322) — Mon, 28 Jan 2013 04:36:33 +0000

Здравствуйте!

Подскажите как обратиться в веб форме к tabIndex + id , а не просто к id, как я делал выше, сам код строки :

Re: VBS:objForm

null@example.com (alexii) — Sun, 27 Jan 2013 07:14:15 +0000

Попробуйте. Упакуйте в архив. Выложите. Но без гарантий.

Re: VBS:objForm

null@example.com (bnp322) — Sun, 27 Jan 2013 06:12:57 +0000

Ну зачем Вам ссылка (которой не существует!) если есть исходный код страницы?
Выдать?

Re: VBS:objForm

null@example.com (alexii) — Sun, 27 Jan 2013 03:42:30 +0000

А с фреймами можно пример?

Мне не на чем проверять, а «на глаз» я не напишу.

Аналогичную задачу не получается решить …

Без ссылки вряд ли есть смысл приводить исходный код.

Re: VBS:objForm

null@example.com (bnp322) — Sat, 26 Jan 2013 16:14:56 +0000

Спасибо!
Блин! Я это видел, но криво проверил!!!
А с фреймами можно пример?

Аналогичную задачу не получается решить, фрагменты кода web страницы:




.....
Снова нет form name и ошибка соответственно такая же!
Предыдущий способ не прокатит (там нет "этого")
Для работы этой страницы необходим только IE+Java ! 
Доступа к странице дать не могу, но на ней нет ничего примечательного, вероятно.
В пост могу, если нужно целиком.


Re: VBS:objForm
null@example.com (alexii) — Sat, 26 Jan 2013 15:10:21 +0000
Потому что там FrameSet. Используйте адрес «http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*START_PAGE» или работайте с учётом фреймов.


VBS:objForm
null@example.com (bnp322) — Sat, 26 Jan 2013 12:12:46 +0000
Не могу модифицировать скрипт: в коде сайта на который идет скрипт нет параметра имени objForm! Получаю ошибку:
Строка:	10
Символ:	1
Ошибка:	Требуется объект: 'objForm'
Код:	800A01A8
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://webstat.irtel.ru"
While objIE.Busy
    WScript.Sleep 200
Wend

Set objForm = objIE.Document.forms(0)

objForm.elements("p_logname").value = "123"
objForm.elements("p_pwd").value = "123"
objIE.Visible = True
While objIE.Busy
    WScript.Sleep 200
Wend

objForm.submit()
Я понимаю этот сайт всем доступен!