Как вставить тест в интерент старничку

[neic]

Вот есть одна страница в ней текстовое поле, как мне ввести в это тектсовое поле что-нибудь(Программно)?

[ALX_2002]

Смотря откуда вводить

Если из VBSCRIPT-а, то это одно, если из ACTIVEX, то другое.

[neic]

Ну допусти и в то и в другое и ещё желательно в html

[ALX_2002]

Ну если к объекту из VBSCRIPT, то вариантов обращений полно

Основной вариант по ID

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

<INPUT id="INP" value="">
<SCRIPT language="vbscript">
INP.value="text"
</SCRIPT>

А если из ACTIVEX, то там уже сложнее

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

UserControl.Parent.GetElementById("INP").value="text"


А если в HTML тебе писать надо, то

VBSCRIPT

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

<INPUT id="INP" value="">
<SCRIPT language="vbscript">
Document.Body.innerhtml="text"
</SCRIPT>

ACTIVEX

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

UserControl.Parent.Body="Text"

Надеюсь в синтаксисе не напутал.

Уточни задачку - я попробую помочь.

[neic]

Ну вот пример

http://www.ultrex.ru/?page=halyava

Сразу же хочу сказать что это не мой сайт! Вот как сделать:
а) вставить тектс
б( нажать кнопку
?

[ALX_2002]

Сейчас попробую наваять.

[neic]

НУ ты поянл о чём это я =)

[ALX_2002]

Вот. Нашёл альтернативное решение для тебя.

На сайте
http://www.superq.ru/comments.php?id=M1031_0_1_0_C

Програмулина
http://www.hiddensoft.com/cgi-bin/count ... AutoIt.zip

Почитаешь - поймёшь чего и куда

[neic]

Ну млин! Мне нужны коды

[ALX_2002]

Зачем ? Накрути счётчик и живи спокойно.

Я попробую пример наваять, но точно уже не сегодня.

Силов нету сАФсем.

[neic]

НУ мне хоть и через 2 недели!

[Крост]

Хе....тут поможет библа MSHTML Object Library..

[Крост]

Подключаем MSHTML к проекту.
Подключаем контрол WV к проекту.
Кидаем его на форму. В нём открываем страницу нужную.
Кнопку ещё наверное кинуть придёться.
Ещё надо будет просмотреть в исходнике страницы, как нызвается текстовое поле, и форма в которой поле.
Далее:

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

Dim HTMLDocument as HTMLDocument

Private Sub Form_Load()
  WB.Navigate "about:blank" 'Тут нужную страницу открываешь.
End Sub

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Set HTMLDocument = WB.Document
End Sub

Private Sub Command1_Click()
  HTMLDocument.All("FORM_NAME").TEXT_NAME.value="Значение" 'Устанавливаем значение для поля. FORM_NAME - Имя формы; TEXT_NAME - Имя поля
  HTMLDocument.All("FORM_NAME").submit 'Посылаем данные
End Sub

В принципе это всё...понять вроде можно... =)

[neic]

А вот с этой сылкой как поступить?

Ну где там:
FORM_NAME - Имя формы; TEXT_NAME - Имя поля ?

http://www.ultrex.ru/?page=halyava

[ALX_2002]

Извините, что не совсем в тему.

2 Крост: Решил создавать отдельную тему для вот этого вопроса.

Можно ли через тот же MSHTML отправить завпрос методом POST на

опрделённую страницу ? Типа

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

"1.asp?a=sss"

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

Dim HTTP As New XMLHTTP
Private Sub Form_Load()
HTTP.open "POST", "http://www.mail.ru", False
HTTP.Send "A"
Debug.Print HTTP.responseText
End Sub


Нашёл вот такой код, но к сожалению мне нужно, чтобы страница открывалась и показывалсь клиенту.

[neic]

Крост подкинь ещё класс

я имею в виду HTMLDocument

[Eduard]

2neic ты чего это на халявку рештл заработать денешек себе с http://www.ultrex.ru/?page=halyava ... в цикол засунуть это... чтоб кнопка без конца нашималась на твой R-кошелёк... МоЛоТок

[tyomitch]

Если я правильно понял суть вопроса, то здесь вообще низачем "окошко браузера" не нужно, MsInet достаточно.

[neic]

2neic ты чего это на халявку рештл заработать денешек себе с http://www.ultrex.ru/?page=halyava ... в цикол засунуть это... чтоб кнопка без конца нашималась на твой R-кошелёк... МоЛоТок

Как сделать хоть эта кнопка нажималась?

[Крост]

ALX_2002
Такс... вид запроса: "1.asp?a=sss" называется GET а не POST. =)
POST - когда все параметры внутри скрипта, и в адресной строке ничего нет кроме имя скрипта.

Отправить запрос типа POST можно, можно через MSINET, если скрипт понимает переменные из адресной строки, а не берёт их только с формы. Чтобы открыть страницу можно так:

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

Private Sub Command1_Click()
  WB.Navigate "script.php?param=value", ,"_blank"
End Sub

[ALX_2002]

2 Крост: Дык в том то и проблема, что мне то нужно как то в UserControl-е перехватить в событии отправляюющейся формы ONSUBMIT строку с этими переменными при отправке с методом POST

Или же

Самому сгенерить такое же действие как WebBrowser.Navigate

с таким же методом POST, но чтобы при этом открылась новая страничка.

Получить саму форму и отловить событие отправки оказалось не проблемой, но вот получить ту строку с параметрами - никак не могу.

[v-adix]

а что нельзя просто соедениться с сервером и отправить ему содержимое формы ? надо просто покопаться как данные формы передаются методом post и все !

[neic]

Эй народ мож мне поможите?

[ALX_2002]

2 neic: Извиняй. Молчу.

Дык отправить то могу, но чтоб открылось новое окно не могу.

[neic]

Отправляй то что есть!

[Крост]

2 Крост: Дык в том то и проблема, что мне то нужно как то в UserControl-е перехватить в событии отправляюющейся формы ONSUBMIT строку с этими переменными при отправке с методом POST

Или же

Самому сгенерить такое же действие как WebBrowser.Navigate

с таким же методом POST, но чтобы при этом открылась новая страничка.

Получить саму форму и отловить событие отправки оказалось не проблемой, но вот получить ту строку с параметрами - никак не могу.

Честно говоря не особо понял, что ты хочешь.... Отправь ЛСкой поподробнее...Отвечу как получу...

[neic]

Ну чё? Слышно что-нить там? Если что я могу заплатить!