Как запустить из VB по ссылке страницу HTML

@Nslava · Регистрация: 06.03.2015

Студворк — интернет-сервис помощи студентам

Не могу врубиться как запустить Iexplorer c параметром
Например iexplorer www.relib.com

21.08.2007, 21:41

Option Explicit
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 Const SW_SHOWNORMAL = 1
Private Sub ExecuteLink(ByVal sLinkTo As String)

On Error Resume Next

Dim lRet As Long
Dim lOldCursor As Long

lOldCursor = Screen.MousePointer

Screen.MousePointer = vbHourglass
lRet = ShellExecute(0, 'open', sLinkTo, '', vbNull, SW_SHOWNORMAL)

If lRet >= 0 And lRet <= 0 Then
Screen.MousePointer = vbDefault
MsgBox 'Error Opening Link to ' & sLinkTo & vbCrLf & vbCrLf & Err.LastDllError, , 'frmAbout::ExecuteLink'
End If
Screen.MousePointer = vbDefault

End Sub

Private Sub Label1_Click()

ExecuteLink 'http://www.relib.com'
Unload Me

End Sub

@el_risha · 29.10.2007, 16:15

s = Shell('start.exe ' & strHttp, vbHide)

где strHttp и есть url-адрес

@avtoman · 23.03.2009, 22:40

В Windows 2000 Professional Build 2195 не прокатывает пример el_risha.

В примере messer если вместо "http://www.relib.com" прописать "mailto:..."

То будет запускаться мейлер.

Новые блоги и статьи Все статьи Все блоги /
ПЛИС zxcha1ka_ 27.01.2026 AHDL Разработать программы для синтеза следующих устройств: 1. Параллельного регистра 4-х разрядного с синхронной загрузкой и асинхронным сбросом (обнулением); Пoмoгитe пoжaлyйстa	Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@Nslava 458 / 75 / 13 Регистрация: 06.03.2015 Сообщений: 148

	Как запустить из VB по ссылке страницу HTML 21.08.2007, 20:31. Показов 1281. Ответов 3 Метки нет (Все метки) Не могу врубиться как запустить Iexplorer c параметром Например iexplorer www.relib.com 0

messer
	21.08.2007, 21:41
	Option Explicit 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 Const SW_SHOWNORMAL = 1 Private Sub ExecuteLink(ByVal sLinkTo As String) On Error Resume Next Dim lRet As Long Dim lOldCursor As Long lOldCursor = Screen.MousePointer Screen.MousePointer = vbHourglass lRet = ShellExecute(0, 'open', sLinkTo, '', vbNull, SW_SHOWNORMAL) If lRet >= 0 And lRet <= 0 Then Screen.MousePointer = vbDefault MsgBox 'Error Opening Link to ' & sLinkTo & vbCrLf & vbCrLf & Err.LastDllError, , 'frmAbout::ExecuteLink' End If Screen.MousePointer = vbDefault End Sub Private Sub Label1_Click() ExecuteLink 'http://www.relib.com' Unload Me End Sub

@el_risha 0 / 0 / 0 Регистрация: 28.10.2007 Сообщений: 9
	29.10.2007, 16:15
	s = Shell('start.exe ' & strHttp, vbHide) где strHttp и есть url-адрес 0

@avtoman 0 / 0 / 0 Регистрация: 10.04.2007 Сообщений: 96
	23.03.2009, 22:40
	В Windows 2000 Professional Build 2195 не прокатывает пример el_risha. В примере messer если вместо "http://www.relib.com" прописать "mailto:..." То будет запускаться мейлер. 0