Открыть браузер по-умолчанию + Post запрос

[NightStorm]

Поиском ничего не нашёл. Может плохо искал...

Подскажите, как открыть браузер по умолчанию и при этом послать в него Post запрос? Нужно это, чтобы при нажатии на кнопку в проге открывался дефолтный браузер и в нём на определенном сайте открывалась сраничка с Личными сообщениями, для чего необходимо автоматически авторизироваться на сайте, а для этого необходимо отправить Post запрос на сайт.

[iGrok]

Никак.

[MIT]

Можно самому синтезировать куки, подсовывать их браузеру и запускать его по прямому линку.

[Williams]

Можно создать HTML файл с пост формой и запускать его

[Хакер]

Почему это никак?
(Хотя нет, никак, толкьо с IE прокатит)

[Snussi]

Открыть специально подготовленный html с javascript'ом, который запостит данные куда надо - может так?

[Williams]

Открыть специально подготовленный html с javascript'ом, который запостит данные куда надо - может так?

Да, яваскрипт, наверное, понадобится

[Хакер]

Надо полагать в файле будет что-то вроде этого?

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

postform.user.value = 'Foo';
postform.password.value = 'Bar';
postform.submit();

[Snussi]

Надо полагать в файле будет что-то вроде этого?

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

postform.user.value = 'Foo';
postform.password.value = 'Bar';
postform.submit();

Трудно сказать - все зависит от реализации формы (вдруг она аяксная, например).

[Хакер]

Да не важно какая, там будет лежать открытый логин и пароль?

[Snussi]

Я бы сделал динамическую генерацию данного HTML.
Хотя не уверен в абсолютной правильности данного решения.

[awl100Alex]

Подскажите, как открыть браузер по умолчанию и при этом послать в него Post запрос? Нужно это, чтобы при нажатии на кнопку в проге открывался дефолтный браузер и в нём на определенном сайте открывалась сраничка с Личными сообщениями, для чего необходимо автоматически авторизироваться на сайте, а для этого необходимо отправить Post запрос на сайт.

Не совсем понятно, что ты имел виду под словами "дефолтный браузер"? Дефолтные браузеры бывают разными - это какой сам установишь, но если через стандартный IE, то делается все это довольно просто.
Вот тебе
пример кода для доступа на почтовый сервер mail.ru с автоматической авторизацией.
Переделай его под свои конкретные нужды. Ведь ты понимаешь, что для твоей сранички с личными данными значения .elements будут другими! Это нужно смотреть через вскрытие исходного кода HTTP страницы входа.

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

Private Sub Command1_Click()
'Создаем объект InternetExplorer...
Status.Caption = "Создаем объект InternetExplorer..."
Set WebIE = CreateObject("InternetExplorer.Application")
If WebIE Is Nothing Then
  MsgBox "Объект InternetExplorer не создан!", vbCritical: End
End If
With WebIE
  .Navigate "http://mail.ru/" 'Адрес сервера...
  Status.Caption = "Загрузка сервера mail.ru, ожидайте..."
  Do While .Busy: DoEvents: Loop
  Set WebForm = .Document.Forms("Auth")
   If WebForm Is Nothing Then
    MsgBox "Не могу получить доступ к HTTP-страницы! Иногда такое бывает. :(", vbCritical
    Set WebIE = Nothing: End
   End If
   With WebForm
    .elements("Login").Value = "Твой Логин"
    .elements("Domain").Value = "mail.ru" 'или inbox.ru... bk.ru... list.ru...
    .elements("Password").Value = "Твой Пароль"
    .elements("level").Value = "1" 'Вот это еще должно работать, но... :(
    .submit 'Оправляем...
   End With
  Status.Caption = "Загрузка авторизованного входа, ожидайте..."
  Do While .Busy: DoEvents: Loop
  Status.Caption = "Выполнено! Добро пожаловать! :)"
  .Visible = True
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set WebForm = Nothing
Set WebIE = Nothing
End Sub

[Хакер]

awl100Alex уже второй раз показывает своё неумнение/нежелание читать.

Автор просил универсальное решение для любого броузера, установленного в системе в качестве броузера по умолчанию, а не ждя IE.

[awl100Alex]

Автор просил универсальное решение для любого броузера, установленного в системе в качестве броузера по умолчанию, а не

Повторяю специально для тебя...

Не совсем понятно, что ты имел виду под словами "дефолтный браузер"? Дефолтные браузеры бывают разными - это какой сам установишь...

[Хакер]

Не надо повторять. Всем, за исключением тебя, понятно, что имелось в виду под "дефолтным броузером".

Пуск->Панель управления->Выбор программ по умолчанию->"Выберите используемый по умолчанию обозреватель Интернета".

[awl100Alex]

А если в системе нет вообще никаких браузеров от сторонних производителей (по статистике 60-70% используют именно IE), то каким будет дефолтный браузер???
Хади сюдой...
http://www.artlebedev.ru/tools/browsers/
http://bbrowser.ru/statistika-ispolzova ... rt-2008-g/

Ну нет универсальных решений, что ж тут поделаешь! А если кто знает, то милости прошу – код в студию!

[Хакер]

А если в системе нет вообще никаких браузеров от сторонних производителей (по статистике 60-70% используют именно IE), то каким будет дефолтный браузер???

То IE и будет дефолтным броузером.

Хади сюдой...

Не пойду. Я прекрасно знаю статистику.

Ну нет универсальных решений, что ж тут поделаешь!

То, что универсальных решений нет, не значит, что нужно выкладывать сюда неуниверсальное и к тому же очевидное для всех рещение. Особенно, учитывая, что выше было предложено решение, которое всё-таки претендует на звание универсального.

[awl100Alex]

То IE и будет дефолтным броузером.

Ты правильно понял... Мой вопрос и был намеком на твое утверждение.

То, что универсальных решений нет, не значит, что нужно выкладывать сюда неуниверсальное и к тому же очевидное для всех рещение. Особенно, учитывая, что выше было предложено решение, которое всё-таки претендует на звание универсального.

Нравится мне это слово “претендует” – оно звучит как-то... с надеждой!

[Хакер]

Мой вопрос и был намеком на твое утверждение.

То, что IE у большинства, не делает способ, предназначенный исключительно для IE, универсальным.

Автор просил универсальный способ. Ты выложил неуниверсальный, очевидный всем. Зачем писать в тему то, что всем очевидно, если это кроме того нафиг никому не нужно?

[awl100Alex]

Ок! Эту тему закрыли!

[SSecurity]

Я так понимаю если мы в систему передадим "пойди по адресу", например через ShellExecute ... то и получим дефолтовый браузер. ну и как говорилось ранее рисуем там форму, JS и наслождаемся.

вот к примеру, у меня открылась опера ну что поделать у меня такой браузер по умолчанию

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
  ShellExecute hwnd, "open", "http://localhost/", "", "", 1
End Sub


Хотя на мой чисто непроф. взгляд, лучше было запостить форму через тотже WinHTTPRequest и без следов практически ... если конечно дело под виндой происходит ... можно в принципе и через Сокет послать ... но это рисовать дольше + пара функций преобразования кодировки и самих данных чтобы на форму похожи были

[awl100Alex]

SSecurity
Сейчас тебя Хакер "раздавит" за этот пост. Так что удаляй, пока не поздно!

[SSecurity]

SSecurity
Сейчас тебя Хакер "раздавит" за этот пост. Так что удаляй, пока не поздно!

в моем случае - решение универсальное ... хотябы потому что Windows запустит тот самый браузер по-умолчанию. Это если автору интересно сделать именно это. Другой вопрос юрл на который ссылается у меня задан юрулом:) потому что у меня есть http-сервер на машине ... а нужно просто указать на htm файл на диске ... в данном случае откроется то что его открывает (если конечно в системе не предусмотрено например htm открывать зендер клиентом:) ) тогда случай действительно тяжелый

кстати говоря у юзера может быть отключен JS и тогда будет Ж:)

[Хакер]

SSecurity
Сейчас тебя Хакер "раздавит" за этот пост. Так что удаляй, пока не поздно!

Не раздавит.

А вот тебя за оффтопик вполне может, выдав замечание.

[iGrok]

Я так понимаю если мы в систему передадим "пойди по адресу", например через ShellExecute ...

А вот это по-моему очень даже реальная мысль.
Причём даже рисовать ничего особо не надо. Я так понимаю, программа ЗНАЕТ и логин, и пароль, и имя сайта, и поля под логин и пароль..

Тогда действительно можно поднять "внутренний" сервер на localhost на каком-нить радномном порту (не 80, мало ли у человека уже веб-сервер стоит)
Дать браузеру через ShellExecute "http://localhost:<port>", после чего отдать ему страницу с заполненной формой и скриптом отправки с таймаутом скрипта в пару секунд на нужный сайт.. Пробема будет только в том случае, если сайт для логина требует корректного реферера..

З.Ы.
Создание простого веб-сервера на VB было, ЕМНИП, в одной из статей на vbstreets.ru.

З.З.Ы.
.htm файл на диске мне лично не нравится по той причине, что его действительно может открывать на браузер, а какая-нить левая софтина. У меня, к примеру, их открывает по умолчанию PHP Expert Editor..
Ну и плюс, пароль и логин в открытом виде лежат на винте.. Плохо это.

[Хакер]

Не всегда получится поднять локальный сервер.

[SSecurity]

Так ведь никто не мешает в своей программе сделать этот веб-сервер .... только зачем? Если нужно открыть локальный файл, то явно в нем нет авторизации зато есть логин и пароль ... не проще ли собрать заголовок аналогичный отправляемому браузером с уже заполненными полями формы и отправить?

И мароки меньше и юзер удивляться не будет что это тут браузер у него открывается

[iGrok]

Так ведь никто не мешает в своей программе сделать этот веб-сервер .... только зачем? Если нужно открыть локальный файл, то явно в нем нет авторизации зато есть логин и пароль ... не проще ли собрать заголовок аналогичный отправляемому браузером с уже заполненными полями формы и отправить?

И мароки меньше и юзер удивляться не будет что это тут браузер у него открывается

Нужно это, чтобы при нажатии на кнопку в проге открывался дефолтный браузер и в нём на определенном сайте открывалась сраничка с Личными сообщениями...

Конечно проще. Только потом как ты ответ сервера отдашь дефолтному браузеру? Причём, чтобы у него ещё и авторизация сохранилась?

Не всегда получится поднять локальный сервер.

Ну тогда самым универсальным остаётся генерация .htm-файла, и отправка его браузеру через
Shellexecute ... "file:///path_to/file.htm"

Но почему он мне не нравится я уже писал..

З.Ы.
А почему может обломаться поднятие ЛОКАЛЬНОГО сервера? На localhost, недоступного извне.. Фаерволлы же обычно активность на localhost не блокируют.

З.З.Ы. "Под поднятием" я не имею в виду, что нужно поднимать апач =). Я имею в виду, что мы открываем порт, и обрабатываем приходящие на него HTTP запросы. Сами. Ну или отдельным модулем. Но тоже своим. Суть не особо меняется.

[Хакер]

Я тоже имел в виду не апач.
Проблемы могут быть как с самим сервером, так и с броузером (например, броузер может работать через прокси, не обращая внимания на локальность ресурсов).

[iGrok]

Я тоже имел в виду не апач.
Проблемы могут быть как с самим сервером, так и с броузером (например, броузер может работать через прокси, не обращая внимания на локальность ресурсов).

Кхмда. О прокси действительно не подумал.
Ну тогда только "file:///..."