Заполнение WEB форм программно

[lostos]

Господа, прошу прощения за OFFTOP. Не в моих правилах осуждать участников форума, просящих о помощи, т.к сам был и до сих пор бываю в такой же ситуации, и возможно я не прав в своём предположении, но помоему автор не понимает и не хочет понимать, что ему говорят.
1) До сих пор нет ни единой даже кратенькой "портянки" кода, которую автор выложил и написал бы, что вызывает трудности.
2) По ходу автор ждёт готового решения и попусту забивает бесполезными вопросами пост.

К вышесказанному хочется добавить: Уважаемый lostos, может всё таки прислушаетесь и приглядитесь к тому что вам говорят, желающие помочь, люди. Ваша задача не является из ряда вон выходящей и уже много раз рассматривалась с разных сторон в этом и многих других форумах. И всегда упиралась в сложность обхода "теста Тьюринга", а именно - распознавание символьной последовательности на изображении. Задумайтесь - Она (защита) сделана не зря и желающих её обойти очень много. Программных средств для распознавания изображений на софт рынке сейчас предостаточно, но распознавание кода на картинке с мусором до сих пор сложная задача и для того чтобы её решить нужен довольно богатый багаж знаний. Прошу прощения, но судя по вопросам, которые вы задаёте, Вам ещё долго придётся продвигаться в направлении изучения этого вопроса.

Итого: Может забить на это дело к едрени фени и не тратить место в базе форума на бесполезные, по моему мнению посты ?

P.S Если я не правильно понял задачу, прошу извинить и растолковать более подробно - ЧТО НУЖНО СДЕЛАТЬ ? По шагам. От начала и до конца.

Мне не нужно распознавать её автоматически.

[RayShade]

ALX_2002

Ух, я поражаюсь твоей выдержке Я бы не смог сейчас написать такой длинный пост, и не употребить ни одного бранного слова

[ALX_2002]

1) Повторяюсь

Если я не правильно понял задачу, прошу извинить и растолковать более подробно - ЧТО НУЖНО СДЕЛАТЬ ? По шагам. От начала и до конца.

2) Можно хотя бы узнать с каким сайтом работаем ? Чтоб пощупать как говорится. А то разговор о туманности Альфы с центаврой слишком пространен. Хочется конкретики.

[ALX_2002]

ALX_2002
Ух, я поражаюсь твоей выдержке Я бы не смог сейчас написать такой длинный пост, и не употребить ни одного бранного слова

Однако ж тренировка. Пару месяцев в службе поддержки системы ОНЛАЙН БАНК-КЛИЕНТ научат и не такой выдержке. С опытом начинаешь понимать, что "бестолковость" клиента это лишь твоя недоработка "интуитивно понятного интерфейса".

[lostos]

Не получается, как переделать этот код под webbrowser

[ALX_2002]

Не получается, как переделать этот код под webbrowser

Боюсь внести смуту и перевернуть всё в понимании вопроса, НО - А стоит ли так упрямо упираться с компонентом IE и WEBbrowser ?

Я же привёл пример того как обратиться на WEB страницу, получить с неё картинку. Мне кажется - Дальше собрать форму и отправить её на сервер не представляет никакой сложности.

P.S Мы по прежнему работаем с UNKNOWN URL ? Адрес настолько засекречен, что выдать его нам никак нельзя ?

[lostos]

http://id.cod.ru/registration

[dr.MIG]

Рэй, не выйдет
Не невидимый, а размером 1х1 рх. Для невидимого никогда не будет ReadyState = READYSTATE_COMPLETE.

[ALX_2002]

http://id.cod.ru/registration

Отлично. Дружно ждём прейскуранта последовательности действий

[lostos]

чем он поможет?

[ALX_2002]

чем он поможет?

Ну на сколько я знаю - Т.З (тех задание) помогает при выборе решения поставленной задачи и написании программного кода. Или задача не сформулирована ? Тогда что мы пытаемся решить ?

[lostos]

Открыть страницу - заполнить поля - ввести код вот что мы пытаемся "решить" некак нельзя сделать что бы при открытии страницы картинка сохранялась? не ссылка на картинку а сохранялось как сохроняет её браузер через сохронить как?

[Хакер]

lostos
Я склоняюсь к мнению, что для тебя лучшим вариантом будет заплатить кому нибудь, чем тратить своё время и нервы других.

[lostos]

я от вас добиваюсь одного, сохранить картинку с открытой страницы в IE или в компоненте webbrowser, да всё ровно где.. так что это нельзя сделать?

[RayShade]

Открой страницу целиком у себя на форме в компоненте webbrowser.

Потому что городить какую то непонятную кривую обертку вокруг захода на какой то странный сайт - пустая трата времени.



И да, тебе уже тут три раза объяснили как сохранить эту [вырезано цензурой] картинку. Включи голову.

[lostos]

Включи голову ты, в тех примерах что мне давали нужна конкретная ссылка на картинку а сдесь картинка меняется при каждой загрзке страницы, сколько можно говорить, ну загружу я картинку ну и что!?

[ALX_2002]

Включи голову ты, в тех примерах что мне давали нужна конкретная ссылка на картинку а сдесь картинка меняется при каждой загрзке страницы, сколько можно говорить, ну загружу я картинку ну и что!?

Забавно диалог развивается )

И так - как я и думал.

1) Морочиться с IE / WEBBrowser чтобы загрузить картинку - особого смысла не вижу
2) Как Вы и сами убедились, IE уже успевает "дёрнуть картинку" и отобразить её на экране. Поэтому если её заного грузить, то естесственно код с картинки будет уже не тот, что нужен.
------------

Моё предложение следующее:

1) Сформировать форму для отправки самому.
2) Самому программно загрузить картинку.
3) просабмитить созданную форму.

Для всех этих целей предлагаю использовать приведённый мною выше код.

[Хакер]

lostos
Загрузки новую картинку в контексте той же сессии, распознай её и помести код новой картинки в нужный input. 90%, что сработает.

[lostos]

Сформировать форму для отправки самому.

интересно, как это сделать...

Загрузки новую картинку в контексте той же сессии, распознай её и помести код новой картинки в нужный input. 90%, что сработает.

как это сделать в контексте той же сесии?

[ALX_2002]

Финт номер раз .

Принцип работы.
1) Через компонент XMLHTTP грузим картинку с

http://id.cod.ru/regpicture/ и сохраняем её на диск C:\regpicture.png

2) Через тот же компонент грузим HTML текст страницы с URL http://id.cod.ru/registration.

3) В тексте странице подменяем адрес загружаемной картинки на адрес картинки лежащей на диске C:\

4) Заменяем содержимое документа WebBrowser на текст нашей страницы

5) Заполняем часть полей формы.

Для запуска примера: Создайте на форме объект WebBrowser с именем WebBrowser и запускайте на исполнение.

По концу загрузки документа смотрим свойства картинки цифрового кода. Наблюдаем file:///C:/regpicture.png

ВУАЛЯ И никакого мошеньства.

Код: Выделить всё


Dim XMLHTTP
Private Sub Form_Activate()
    WebBrowser.Navigate "about:blank"
End Sub

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   
    '/// Создаём объект для загрузки данных
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    '/// Загружаем нужную нам картинку
    XMLHTTP.open "GET", "http://id.cod.ru/regpicture/?" & CLng(Rnd), False
    XMLHTTP.send
   
    '/// Сохраняем картинку на диск C:\
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Type = 1
    Stream.open
    Stream.Write XMLHTTP.responsebody
    Stream.SaveToFile "C:\regpicture.png", 2
   
    '/// Грузим данные самой страницы
    XMLHTTP.open "GET", "http://id.cod.ru/registration", False
    XMLHTTP.send
   
   
    '/// В теле страницы заменяем
    Dim responsetext
    responsetext = XMLHTTP.responsetext
    responsetext = Replace(XMLHTTP.responsetext, "src=""/regpicture/""", "src=""C:\regpicture.png""")
    WebBrowser.Document.open
    WebBrowser.Document.Write "<BASE href='http://id.cod.ru/registration'>"
    WebBrowser.Document.Write responsetext
    WebBrowser.Document.Close

    '/// заполняем поля
    pDisp.Document.All("email").Value = "наш е-mail"
    pDisp.Document.All("emailCheck").Value = "повторение нашего е-mail"
    pDisp.Document.All("nickname").Value = "наш nickname"

End Sub

Private Sub Form_Resize()
    WebBrowser.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


[lostos]

Спасибо конечно, но вы сами пробывали отправить эту страницу на сервер?

[ALX_2002]

"Сами" не пробывали. Потому что в т.з. этого пункта нет .

1) Картинку сохранили ?

2) Форму заполнили ?

Что не так ?

[ALX_2002]

Ну если уж так нужно с отправкой - вот и с отправкой Пришлось чуток переделать.

Код: Выделить всё


Dim XMLHTTP
Private Sub Form_Activate()
    WebBrowser.Navigate "http://id.cod.ru/registration"
End Sub

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   
    If URL <> "http://id.cod.ru/registration" Then Exit Sub
   
    '/// Создаём объект для загрузки данных
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    '/// Загружаем нужную нам картинку
    XMLHTTP.open "GET", "http://id.cod.ru/regpicture/?" & CLng(Rnd), False
    XMLHTTP.send
   
    '/// Сохраняем картинку на диск C:\
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Type = 1
    Stream.open
    Stream.Write XMLHTTP.responsebody
    Stream.SaveToFile "C:\regpicture.png", 2
   
    For Each IMG In pDisp.Document.images
        If InStr(1, IMG.src, "/regpicture/") > 0 Then
            IMG.src = "C:\regpicture.png"
            Exit For
        End If
    Next
   
    '/// заполняем поля
    pDisp.Document.All("email").Value = "email@mail.ru"
    pDisp.Document.All("emailCheck").Value = "email@mail.ru"
    pDisp.Document.All("nickname").Value = "RegBot"

End Sub

Private Sub Form_Resize()
    WebBrowser.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


[lostos]

О да, спасибо ALX_2002 за примеры и за терпимость , не то что другие которые в упор не видят что я пишу про туже картинку

[ALX_2002]

О да, спасибо ALX_2002 за примеры и за терпимость , не то что другие которые в упор не видят что я пишу про туже картинку

Рад помочь конечно, но вот ради чего такая городьба до сих пор не понял.

[lostos]

Код: Выделить всё

Рад помочь конечно, но вот ради чего такая городьба до сих пор не понял. Shocked

Поверь, это того стоило..

[quit]

я думаю просто твой код будет не для этого id.cod.ru сайта.. а переделан под другой ...

[Хакер]

А я думаю, что некрофилия, quit, -- это не хорошо.

Тему закрываю.