Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
29.12.2017, 08:29
|
|||
---|---|---|---|
|
|||
Открыть страницу сайта |
|||
#18+
С наступающим, уважаемые! В форме нужно сделать так, чтобы по нажатию кнопки выбранным браузером открывалась страница сайта, что-то по типу "Открыть с помощью.." В модуль добавил: Public 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 -------------------------------- В форму на нажатие кнопки: Dim RetVal As Long RetVal = ShellExecute(0, "open", " https://mySite", "", "", 1) ------------------------------- А как сделать, чтобы в поле со списком можно было выбрать один из браузеров и он открыл страницу, а если такого браузера нет,то появилось бы соответствующее сообщение? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
29.12.2017, 08:44
|
|||
---|---|---|---|
Открыть страницу сайта |
|||
#18+
Список установленных браузеров можно взять, например, из HKLM\SOFTWARE\Clients\StartMenuInternet (правда, там не найдёшь Edge...). В shell - получить строку запуска. Добавить полное имя файла/ссылки, и выполнить. А open без вопросов откроет ссыль в браузере по умолчанию. Там не выберешь... ... |
|||
:
Нравится:
Не нравится:
|
|||
|
29.12.2017, 09:12
|
|||
---|---|---|---|
|
|||
Открыть страницу сайта |
|||
#18+
Если анализировать слишком сложно, то как открыть, например, принудительно эту страницу експлорером, если по умолчанию установлен другой браузер? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
29.12.2017, 09:49
|
|||
---|---|---|---|
Открыть страницу сайта |
|||
#18+
владимирАлекскак открыть, например, принудительно эту страницу експлорером Код: vbnet 1.
Само собой, iexplore должен находиться через %PATH%, иначе необходимо указать полный путь к нему (можно взять из HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\x86AppPath), не забыв обрамить кавычками. ... |
|||
:
Нравится:
Не нравится:
|
|||
|
29.12.2017, 09:55
|
|||
---|---|---|---|
|
|||
Открыть страницу сайта |
|||
#18+
AkinaСамо собой, iexplore должен находиться через %PATH% Это как? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1611835]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
160ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
2ms |
others: | 15ms |
total: | 265ms |
0 / 0 |