Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: WebBrowser Добавлено: 25.07.09 14:37  

Автор вопроса:  Vladimir | ICQ: 423156001 
Как программно эмулировать вставку текста\картинки в поля формы в Webbrowser и нажатие кнопки Submit?

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Stars



Вопросов: 41
Ответов: 239
  Профиль | | #1 Добавлено: 26.07.09 09:57
Плагин писать наверно нуна будет если в любой браузер

Ответить

Номер ответа: 2
Автор ответа:
 Starkiller



ICQ: 123123 

Вопросов: 3
Ответов: 14
  Web-сайт: google.ru/
 Профиль | | #2 		Добавлено: 26.07.09 17:14
  1. Webbrowser1.Document.All("text").InnerText = "text"
  2. Webbrowser1.Document.GetElementById("send").InvokeMember("click")

Ответить

Номер ответа: 3
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #3 Добавлено: 26.07.09 19:33
Разместить на форме элемент управления WebBrowser, заставить его открыть нужную страницу, через DOM заполнить поля и через него же выполнить Submit формы

Ответить

Номер ответа: 4
Автор ответа:
 Vladimir



ICQ: 423156001 

Вопросов: 1
Ответов: 3
  Профиль | | #4 Добавлено: 26.07.09 19:37
Что такое DOM?

Ответить

Номер ответа: 5
Автор ответа:
 Vladimir



ICQ: 423156001 

Вопросов: 1
Ответов: 3
  Профиль | | #5 Добавлено: 26.07.09 19:41
а как вставить рисунок?

Ответить

Номер ответа: 6
Автор ответа:
 Вадим



Вопросов: 9
Ответов: 8
  Профиль | | #6 Добавлено: 19.08.09 12:25
Можно ли заполнить поле,если у него нет названия,надписи к нему.Что тогда?

Ответить

Номер ответа: 7
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #7 Добавлено: 22.08.09 05:50
Я когда что-то писал там для WebBrowser, но это было года 3 назад, а может и больше... так что уж извините :)


  1. Option Explicit
  2.  
  3. Public Type PostVar
  4.     sPole As String
  5.     sVal  As String
  6. End Type
  7.  
  8. Public LastErrorDescription As String
  9. Public LastErrorNumber As Long
  10.  
  11. '========================================================================
  12. ' * Заполнение любых TextBox'ов, в любой форме, на любом фрейме :)
  13. '   (Работа с элементами)
  14.  
  15. ' WB - Объект WebBrowser
  16. ' sFrame - Имя (или индекс) фрейма в котором заполняем поля (vbNullString если нет фрейма)
  17. ' sFormName - Имя (или индекс) формы в которой заполняем поля
  18. ' pv - Массив структур полей и их значений
  19. ' Submit - отправлять ли форму полсе заполнения (По умолчанию False)
  20.  
  21. Public Sub SubmitForm(wb As WebBrowser, sFrame As String, sFormName, pv() As PostVar, Optional Submit As Boolean = False)
  22.     On Error GoTo e
  23.     Dim I As Byte
  24.     Dim From, obj, o
  25.     
  26.     Call Sleep(200&)
  27.     
  28.     ClearError
  29.     If Trim$(sFormName) = "" Then sFormName = "#1"
  30.     
  31.     DoEvents: DoEvents
  32.     Call Sleep(200&)
  33.     
  34.     'Устанавливаем Document у страницы
  35.     
  36.     If Trim$(sFrame) = "" Then 'Если фрейма нет, Document наследуется от WB
  37.         Set o = wb.Document
  38.     Else                       'Если есть...
  39.         'Проверяем имя или индекс указан в качестве фрейма
  40.         If InStr(1, sFrame, "#", 1) > 0 Then    'Если индекс
  41.             Set o = wb.Document.frames(Val(Replace(sFrame, "#", ""))).Document 'Наследуем Document по индексу фрейма
  42.         Else    'Если имя
  43.             Set o = wb.Document.frames.Item(CStr(sFrame)).Document    'Наследуем Document по имени фрейма
  44.         End If
  45.     End If
  46.     
  47.     'Dcoument фрейма (или без него) на этом этапе определён
  48.     'Определяем форму, наследуя объекст o (Он является Document)
  49.  
  50.     If InStr(1, sFormName, "#", 1) > 0 Then
  51.         Set From = o.Forms(Val(Replace(sFormName, "#", "")))
  52.     Else
  53.         Set From = o.Forms.Item(CStr(sFormName))
  54.     End If
  55.     
  56.     'Заполняем элементы в определённом фрейме и форме
  57.     
  58.     For I = LBound(pv) To UBound(pv)
  59.         If Trim$(pv(I).sPole) <> "" Then
  60.             Set obj = From.elements.Item(CStr(pv(I).sPole))
  61.             obj.Value = pv(I).sVal
  62.         End If
  63.     Next I
  64.     
  65.     Call Sleep(100&)
  66.     If Submit Then From.Submit  'Сабмитим форму
  67.     Call Sleep(100&)
  68.     
  69.     Exit Sub
  70. e:
  71.     LastErrorDescription = err.Description
  72.     LastErrorNumber = err.Number
  73. End Sub
  74. '========================================================================

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам