ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу как программно
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

как программно
  #1  
Старый 14.03.2010, 23:33
A_n_d_r_e_i
Участник форума
Регистрация: 02.09.2009
Сообщений: 286
Провел на форуме:
3426765

Репутация: 257
Отправить сообщение для A_n_d_r_e_i с помощью ICQ
Unhappy как программно
заполнить нужное поле на сайте через элемент управления 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
Последний раз редактировалось A_n_d_r_e_i; 22.03.2010 в 19:49..
 
Ответить с цитированием

  #2  
Старый 15.03.2010, 02:21
maestro-ant
Новичок
Регистрация: 08.01.2007
Сообщений: 25
Провел на форуме:
25858

Репутация: 5
По умолчанию
вопрос не понятен.
мож пойди все таки выспись? )
 
Ответить с цитированием

  #3  
Старый 15.03.2010, 02:25
.ATK
Участник форума
Регистрация: 20.02.2009
Сообщений: 224
Провел на форуме:
5075819

Репутация: 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..
 
Ответить с цитированием

  #4  
Старый 22.03.2010, 19:18
A_n_d_r_e_i
Участник форума
Регистрация: 02.09.2009
Сообщений: 286
Провел на форуме:
3426765

Репутация: 257
Отправить сообщение для A_n_d_r_e_i с помощью ICQ
По умолчанию
ага, нашел, выложу тут, мб кому-нить тоже пригодится.
напомню, 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
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi]/[Pascal] Задай вопрос, получи ответ Isis С/С++, C#, Delphi, .NET, Asm 6762 17.06.2010 21:23
Как определить, что Ваш ребенок растет хакером? PHOEN_i_X Болталка 148 13.06.2010 18:02
[FAQ] BIOS Cthulchu Аппаратное обеспечение 9 17.11.2009 12:17
Доим Слоты или как заработать на казино SKIN-BRAIN Болталка 8 09.04.2009 11:17
Мой ржачный разговор в аське с кем-то вроде как с античата, как я подумал Дрэгги Болталка 21 22.07.2007 12:33



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ