Как программно открыть браузер ?

[Eduard]

Как программно можно открыть окно браузера, ну короче как это делуют гиперссыики, чтобы из программы можно было не только открыть окно браузера, но еще и адресс в браузере сразу указать ??!

[SeRRg]

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()
Call ShellExecute(0&, vbNullString, "http://www.vbstreets.ru", vbNullString, vbNullString, vbNormalFocus)
End Sub

[Boris_BGB]

А можно просто Shell и путь к ярлыку броузера.

[hCORe]

Есть 3 варианта...

1) Использование непосредственно в форме проекта. В VB создай пустой проект и выбери пункт Project>Add Form>Web Browser и посмотри сгенерированный код. (это использование Microsoft Web Browser Control).

2) Использование объекта браузера для открытия внешнего окна. Добавь в список Project>References ссылку на Microsoft Internet Controls и используй такой код:

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

Sub CallBrowser (URL as String)
On Error Resume Next
'Создание объекта
Dim IEInstance as SHDocVW.InternetExplorer
'Инициализация
Set IEInstance=New SHDocVW.InternetExplorer
'Видимость окна
IEInstance.Visible=True
'Навигация на URL
IEInstance.Navigate URL
'Сборка мусора
Set IEInstance=Nothing
End Sub


Ну и соответственно CallBrowser "http://www.microsoft.com" или что-то там еще...

3) Использование функции Shell из VB или API ShellExecute. см. API-Guide