| Вопрос: Заполнение инет-форм | Добавлено: 05.11.04 21:09 |
Автор вопроса:  Neco | Web-сайт: neco.pisem.net | ICQ: 247906854 |
|
Привет, народ!
Не поверите - забыл пароль от инета. Купил новёхонькую карточку - зарегил её и вот столкнувшись с проблемой 137 переустановил ось не запомнив пароля. Мало того, толком и логина не помню. Помню только, что у меня далеко не с первого раза получилось ввести уникальный и я к своему обыному CNeco начал чего-то приписывать. То ли CNewNeco то ли CNeco777. Возможных паролей тоже не очень много, но вместе с логином может набежать неплохое количество проверок. Так вот вопрос: Как заполнять инет-формы?!! Скорость особо не нужна, мне главное принцип понять и чтоб работало. Наверняка кто-нить что-нить подобное делал (типа для ознакомительных целей), а стандартные проги (типа брутфорса) я пробовал - ни фига. Они втихую работают и сколько я их не настраивал, так и не понял, что им от меня надо, чтобы они определили правильно. Исходник нужен, чтоб разобраться... Помогите, а? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  DaSharm ICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #1 | Добавлено: 05.11.04 22:22 |
|
Вот кусок кода из какой-то моей проги, на ВБ (непомню уже какой именно):
Кидаешь на форму MS Web Browser и код: Private Function FillForm(FieldName As String, Value As Variant) Dim i As Integer, m As Integer Dim FormItem As Variant For i = 0 To WebBrowser1.Document.Forms.Length - 1 Set FormItem = WebBrowser1.Document.Forms.Item(i) For m = 0 To FormItem.Length - 1 If FormItem.Item(m).Name = FieldName Then FormItem.Item(m).Value = Value Next m Next i End Function Использование: FillForm ИМЯ_ФОРМЫ, ЗНАЧЕНИЕ Конечно, скорость фиговая, для увеличения скорости в 50-100 раз относительно этой - юзай НТТР без всяких там MS Web Browser. Как отсылать данные по НТТР есть в какой-то статье у меня на сайте. |
||
|
Номер ответа: 2 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #2 | Добавлено: 09.11.04 20:20 |
| у мя есть подходящий примерчик могу кинуть... | ||
|
Номер ответа: 3 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 09.11.04 20:21 |
| у мя есть подходящий примерчик могу кинуть... | ||
|
Номер ответа: 4 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #4 | Добавлено: 09.11.04 22:01 |
|
ПЖЛСТА!!! Кинь на neco777@rambler.ru
А то я никак не разберусь, как собственна кнопку нажимать... 8( |
||
Страница: 1 |