Автозаполнение форм

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 02.04.2006 (Вс) 21:35

Kovu
Вот ссылка:
http://www.wm-loto.net/

Там где тебе предлогают ввести WMID и WMR, ниже есть кнопка. Вот мне её и не нажать

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 02.04.2006 (Вс) 22:39

1 - а с чего ты решил, что тебе нужна именно первая форма? Не думал, что их может быть несколько на странице? ;)
2 - уверен, что форма на основном документе, а не в iframe, например?
3 - на крайняк неужели так сложно определить порядковый номер кнопки, коль уж у нее нет имени и id? ;)

Ну это так, лирика. Так конкретно, что на этой странице тебе нужно нажать? :)
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 02.04.2006 (Вс) 23:41

Odrick
Там где тебе предлогают ввести WMID и WMR, ниже есть кнопка. Вот мне её и не нажать.

Почти в самом низу страницы!

Насчёт порядкого номера! Пробовал не помогает!

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 03.04.2006 (Пн) 0:21

Да? :) Интересно, а как искал номер-то? Вот, прекрасно работает:

IE.Document.All(1005).Click

Номер получен за 5 секунд с помощью моей-же тулзовины HTMLSpy :)
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 03.04.2006 (Пн) 0:24

Не работает!!!

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 03.04.2006 (Пн) 1:08

И вот ещё, ковырял код, ковырял, что-то не работает.

Захожу на эту страницу : http://medicinform.ru/

жду полной загрузки и выполняеться код:
Код: Выделить всё
Ie.Document.All("rbonus_form").Click


Вот наткнулся на этот код(откуда собствено и взял rbonus_form):

<FORM style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px" name=rbonus_form action=http://www.freewm.ru/bonus.php method=post target=bonus><IMG style="CURSOR: hand" onclick="javascript:window.open('','bonus','width=250,height=200,toolbar=no,location=no, directories=no,status=no,menubar=no,scrollbars=no');rbonus_form.submit();" height=31 alt="Бонус здесь!" src="http://www.freewm.ru/images/buttons/bonus3.gif" width=88 border=0><INPUT type=hidden name=ss><INPUT type=hidden name=s></FORM>

Вот, жму его и ничего.

Мне нужно нажать на кнопку(или рисунок) : Бонус внизу страницы

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 03.04.2006 (Пн) 1:35

Ну и на что ты кликаеш? На форму? :shock: Конечно ничего не будет происходить. Кликать на имедже нужно. В общем подозреваю, что у иебя рога в коде. Так как предыдущий пример работает железно - сам не поленился и проверл ;) В общем полный код работы с IE в студию.
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 08.04.2006 (Сб) 16:25

ТАк погоди, киданика твой последний HTMLSPY (или HTMLFILTER как там его?).

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 08.04.2006 (Сб) 23:42

Куда его кидать? :) Вот тут он: http://bbs.vbstreets.ru/viewtopic.php?t=20244&start=60
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 09.04.2006 (Вс) 10:30

Страно на wm-loto.net, у меня на кнопку вот что выдаёт!
Вложения
Не работает.zip
Скрин
(91.84 Кб) Скачиваний: 136

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 09.04.2006 (Вс) 13:04

И что тебя смутило? Все правильно выдает - тип, innerHTML :) Да, у нее нет ни имени, ни ID. Зато у нее есть порядковый номер - 929. И по этому номеру с нем можно работать:

document.all(929).click()

То, о чем я и говорил выше ;)
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 09.04.2006 (Вс) 20:53

Видимо у меня была ошибка, потому что я не ставил скобки после document.all(929).click ?

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 09.04.2006 (Вс) 21:08

Корче, чё-то у меня получаеться, вот код.

Код: Выделить всё
On Error GoTo gt:
    Dim Ie As Object
    Set Ie = CreateObject("InternetExplorer.Application")
    Ie.Navigate "http://www.wm-loto.net/"
    Ie.MenuBar = 1
    Ie.ToolBar = 1
    Ie.StatusBar = 1
    Ie.AddressBar = 1
    Ie.Visible = 1
gt:
    Do While Ie.Busy
        DoEvents
    Loop
    Ie.Document.All("wmid").Value = "******"
    Ie.Document.All("wmz").Value = "******"
    'Ie.Document.Forms(0).Submit
   
    Ie.Document.All("929").Click
    If Err.Number = "91" Then
        GoTo gt:
    End If


Васик ссылаеться на click

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 09.04.2006 (Вс) 23:04

Ie.Document.All("929").Click - ошибка. Если аргумент в скобках, подразумевается, что это имя или ID. Нужно: Ie.Document.All(929).Click. Кроме того, 929 - это элемент <BR>. Кнопка - 930.
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 11.04.2006 (Вт) 20:55

Odrick
ОК. Пасибо всё работает! А как насчёте этого случая?


И вот ещё, ковырял код, ковырял, что-то не работает.

Захожу на эту страницу : http://medicinform.ru/

жду полной загрузки и выполняеться код:
Код:

Ie.Document.All("rbonus_form").Click


Вот наткнулся на этот код(откуда собствено и взял rbonus_form):

<FORM style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px" name=rbonus_form action=http://www.freewm.ru/bonus.php method=post target=bonus><IMG style="CURSOR: hand" onclick="javascript:window.open('','bonus','width=250,height=200,toolbar=no,location=no, directories=no,status=no,menubar=no,scrollbars=no');rbonus_form.submit();" height=31 alt="Бонус здесь!" src="http://www.freewm.ru/images/buttons/bonus3.gif" width=88 border=0><INPUT type=hidden name=ss><INPUT type=hidden name=s></FORM>

Вот, жму его и ничего.

Мне нужно нажать на кнопку(или рисунок) : Бонус внизу страницы

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 11.04.2006 (Вт) 22:34

Так... Прямая тебе дорога в изучение спецификации HTML и Java Script. Я не буду тебе рассказывать каждый раз как сымитировать то или иное событие - почитай и пойми что к чему. В первую очередь - в чем разница между формой, кнопкой, ссылкой и т.д. Вот объясни, чего ты хочешь добиться, имитируя клик по форме, если по спецификации W3C форма даже не имеет такого события??? Тебе нужно всего-лишь сымитировать отправку данных формой: Ie.Document.All("rbonus_form").submit . В общем давай на этом и закончим - пока не разберешься со стандартами, продолжать нету смысла.
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 11.04.2006 (Вт) 23:01

Лан, посмотрю что делать с этим.

Но у меня опять вопрос!

Захожу на этот сайт:
http://www.wmbingo.com/

Запускаю твою прогу. Жму по кнопке внизу. Прога выдаёт? что Ordinal у этой кнопки 1319. Основываясь на этих результатах пишу строку:

Код: Выделить всё
Ie.Document.All("1319").Click


О мне прога пишет : "Ой, вы ошиблись! Error 91"

П.с. пробывал 1320 тотже результат!

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 12.04.2006 (Ср) 0:19

Мля... Читать выше про разницу между id, name и порядковым номером объекта в коллекции all в html-документе :evil: :twisted: :evil: Ты до сих пор так ничего и не понял. Такое впечатление, что ты не стремишься научиться, а делаешь все методом тыка :?
То, что для одних константа, для других только переменная...

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 12.04.2006 (Ср) 18:07

Всё разобрался. А как вписать занчения в активное окно IE?

FaKk2
El rebelde gur&#250;
El rebelde gur&#250;
Аватара пользователя
 
Сообщения: 2031
Зарегистрирован: 09.03.2003 (Вс) 22:10
Откуда: Los Angeles

Сообщение FaKk2 » 12.04.2006 (Ср) 18:09

neic
Любой элемент на странице это обьект. А у любого обьекта есть свойства. Смотри справочник и ищи подходящее свойство.
Для получения ответа надо продемонстрировать качества, позволяющие стать компетентным — внимательность, вдумчивость, наблюдательность, желание активно участвовать в выработке решения.

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 12.04.2006 (Ср) 22:36

FAKK2 писал(а):neic
Любой элемент на странице это обьект. А у любого обьекта есть свойства. Смотри справочник и ищи подходящее свойство.

Да не всё! С элементами я разобрался. Всё понял!
Огромное пасибо Odrick
Последний раз редактировалось neic 12.04.2006 (Ср) 22:42, всего редактировалось 1 раз.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.04.2006 (Ср) 22:40

neic, или ты убираешь из своей подписи реферал, или мы убираем тебя на неделю.
Lasciate ogni speranza, voi ch'entrate.

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 12.04.2006 (Ср) 22:43

alibek писал(а):neic, или ты убираешь из своей подписи реферал, или мы убираем тебя на неделю.

Что ж убираю =(

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.04.2006 (Ср) 22:47

Я не имел ввиду ссылку.
Я имел ввиду ?secret=12345
Lasciate ogni speranza, voi ch'entrate.

novichok_07
Новичок
Новичок
 
Сообщения: 38
Зарегистрирован: 14.03.2007 (Ср) 6:53

Сообщение novichok_07 » 09.01.2008 (Ср) 18:24

многое почерпнул из данного топика.

но вот загвоздочка возникла небольшая :( , подскажите как отправить данные в такой форме:

Код: Выделить всё
<FORM onsubmit="SetCookie('loginc',document.getElementById('login').value, '+2y', '/');" action=http://ххххххх.хх/login.php method=post><INPUT type=hidden value=admin name=admin> <INPUT type=hidden name=sid>
<TBODY>
<TR>
<TD vAlign=top width=94></TD>
<TD style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 57px" vAlign=top width=111><INPUT id=login style="BORDER-RIGHT: #ffbbbb 1px solid; BORDER-TOP: #ffbbbb 1px solid; FONT-WEIGHT: bold; FONT-SIZE: 10px; BACKGROUND: #900000; BORDER-LEFT: #ffbbbb 1px solid; WIDTH: 100px; COLOR: #ffbbbb; BORDER-BOTTOM: #ffbbbb 1px solid; HEIGHT: 16px" name=login></TD>
<TD style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 57px" vAlign=top width=120><INPUT id=terpass style="BORDER-RIGHT: #ffbbbb 1px solid; BORDER-TOP: #ffbbbb 1px solid; FONT-WEIGHT: bold; FONT-SIZE: 10px; BACKGROUND: #900000; BORDER-LEFT: #ffbbbb 1px solid; WIDTH: 100px; COLOR: #ffbbbb; BORDER-BOTTOM: #ffbbbb 1px solid; HEIGHT: 16px" type=password value="" name=pwd></TD>
<TD style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 56px" vAlign=top width=56><INPUT onfocus=this.blur() type=image height=20 alt="" width=37 src="images/ok.gif" border=0> <BR></TD></TR></FORM>


логин и пасс ввожу таким кодом:
Код: Выделить всё
WebBrowser1.Document.All("login").Value = Labellog.Caption
WebBrowser1.Document.All("pwd").Value = Textpass.Text


а вот Click или Submit не могу найти ......
ну короче, не могу отправить эти данные, подскажите как правильно отправить данные из этой формы

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16473
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 09.01.2008 (Ср) 19:20

forms[0].submit() ?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

novichok_07
Новичок
Новичок
 
Сообщения: 38
Зарегистрирован: 14.03.2007 (Ср) 6:53

Сообщение novichok_07 » 09.01.2008 (Ср) 20:40

при WebBrowser1.Document.forms[0].submit() - выдаёт "External name not defined"
:(

BION
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 259
Зарегистрирован: 24.01.2005 (Пн) 21:05

Сообщение BION » 09.01.2008 (Ср) 21:28

novichok_07 писал(а):при WebBrowser1.Document.forms[0].submit() - выдаёт "External name not defined"
:(

а так WebBrowser1.document.Forms(0).submit :)

novichok_07
Новичок
Новичок
 
Сообщения: 38
Зарегистрирован: 14.03.2007 (Ср) 6:53

Сообщение novichok_07 » 09.01.2008 (Ср) 21:36

Хакер , BION спасибо ! извините если отнял у вас время.

novichok_07
Новичок
Новичок
 
Сообщения: 38
Зарегистрирован: 14.03.2007 (Ср) 6:53

Сообщение novichok_07 » 11.01.2008 (Пт) 2:40

если есть время или желание может кто подскажет и ещё парочку решений на подобную тему . Сам не смог разобраться , да и доступную для моего понимания информацию в поиске не смог найти ...

в WebBrowser загружаю страничку , там куча фреймов, все фреймы с одного хоста , далее:
1.
Код: Выделить всё
RichTextBox2 = WebBrowser1.Document.documentElement.outerHTML
в коде вижу такую структуру (JavaScript):
Код: Выделить всё
var menu = 0;
могу я как то получить это значение в переменную не прибегая к Function GetText , а как нибудь быстрее ,что-нибудь вроде strmenu=WebBrowser1.Document.All("menu") ? или изменить это значение ?

2. (JavaScript):
Код: Выделить всё
top.frames['main_area'].frames['main'].location.href = url;

как можно допустим нажать кнопочку во фрейме main ?
WebBrowser1.Document.top.frames("main_area").frames("main").All("id_кнопочки").Click не получается :(

Пред.След.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Mail.ru [бот] и гости: 6

    TopList  
cron