как программно

как программно

14.03.2010, 23:33

A_n_d_r_e_i

Участник форума

Регистрация: 02.09.2009

Сообщений: 286

С нами: 8784803

Репутация: 257

как программно

заполнить нужное поле на сайте через элемент управления WebBrowser на визуал бейсик?
нашел

Подключаем библиотеку "Microsoft HTML Object Library".
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
WebBrowser1.Navigate "www.ya.ru"

Do While WebBrowser1.Busy
DoEvents
Loop

Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
Dim objForm As MSHTML.HTMLFormElement

' web - название формы.
Set objForm = objDoc.Forms.web
' text - название поля.
' Заполняем текстовое поле.
objForm.Text.Value = "sql.ru"
' Извлекаем данные из текстового поля.
MsgBox objForm.Text.Value
' Нажимаем кнопку "Найти".
objForm.submit
End Sub

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось A_n_d_r_e_i; 22.03.2010 в 19:49..

15.03.2010, 02:21

maestro-ant

Новичок

Регистрация: 08.01.2007

Сообщений: 25

С нами: 10179005

Репутация: 5

вопрос не понятен.
мож пойди все таки выспись? )

15.03.2010, 02:25

.ATK

Участник форума

Регистрация: 20.02.2009

Сообщений: 224

С нами: 9063321

Репутация: 274

Цитата:

void _WebBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
try
{
string str = webBrowser1.DocumentText;

submit = null;
foreach (HtmlElement he in webBrowser1.Document.GetElementsByTagName("input") )
{
string type = he.GetAttribute("type");
string name = he.GetAttribute("name");

if ((type == "text") && (name == "firstname"))
{
he.SetAttribute("value", ename);
}

if ((type == "text") && (name == "lastname"))
{
he.SetAttribute("value", famil);
}

Думаю то, что тебе нужно...
зы. шарп

Последний раз редактировалось .ATK; 15.03.2010 в 02:29..

22.03.2010, 19:18

A_n_d_r_e_i

Участник форума

Регистрация: 02.09.2009

Сообщений: 286

С нами: 8784803

Репутация: 257

ага, нашел, выложу тут, мб кому-нить тоже пригодится.
напомню, visual basic 6

Так мы можем получить имя формы по её номеру(если захотим)
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). Name

Так мы получим тип элемента формы
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Type

Так мы получим количество элементов в форме
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). length

А вот так - его индекс (порядковый номер)
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).sourceindex

А так вот - имя элемента
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Name

Так - тип элемента
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Type

А так - его Value
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Value

Создать сделку

Мои сделки

Сделка

ESCROW ADMIN PANEL