Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск браузера по умолчанию в Vista 
:(
    Опции темы
abalich
Дата 3.12.2009, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет
Всем здравствуйте.
Код

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

Public Const SW_SHOWNORMAL As Long = 1
Public Const SW_SHOWMAXIMIZED As Long = 3
Public Const SW_SHOWDEFAULT As Long = 10

Public Sub RunBrowser(strURL As String, iWindowStyle As Integer)
  Dim lSuccess As Long

  '— Shell to default browser
  lSuccess = ShellExecute(Me.hwnd, "Open", _
          strURL, 0&, 0&, iWindowStyle)
End Sub



я использую такой код, что бы запустить какой-нибудь URL В браузере по умолчанию, но в Vista это не работает. Кто нибудь знает как это в висте сделать ?



--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
586
Дата 5.12.2009, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: нет
Всего: 146
А если так написать:
Код
Public Sub RunBrowser(strURL As String, iWindowStyle As Integer)
  Dim lSuccess As Long
  '— Shell to default browser
  lSuccess = ShellExecute(Me.hwnd, 0&, _
          strURL, 0&, 0&, iWindowStyle)
End Sub


Это сообщение отредактировал(а) 586 - 5.12.2009, 13:26
PM   Вверх
abalich
Дата 9.12.2009, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет
586, твой вариант и в XP не работает. Просто кнопка нажимается и все. Ошибки ни какой не выдает.


--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
ivashka1
Дата 10.12.2009, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 10.12.2009
Где: Псков

Репутация: нет
Всего: нет
Что то не понимаю, не получается с помощью этого кода ничего
PM MAIL WWW   Вверх
abalich
Дата 10.12.2009, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет
ivashka1, с помощью моего кода работает только в XP  а вот с помощью кода который мне дали тут в XP не работает. в Vista не пробовал.

Это сообщение отредактировал(а) abalich - 10.12.2009, 21:00


--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0612 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.