Запустить ярлык Интернет соединения (программно)

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Запустить ярлык Интернет соединения (программно)

Сообщение qwertyhp » 11.08.2015 (Вт) 5:46

Здравствуйте!

Нужно программно запустить ярлык Интернет соединения. С использованием функции 'ShellExecute' ярлыки запускаются - но только ярлыки ПРОГРАММ. Ярлык соединения с Интернет не запускается.
Пожалуйста, помогите.
Код, мной использованный (закомментирован вариант с ярлычком Интернет-подключения):
Код: Выделить всё
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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
'  Tmp = ShellExecute(hWnd, "open", "C:\Documents and Settings\All Users\Рабочий стол\beeline.lnk", "", "", SW_SHOWNORMAL)

    Tmp = ShellExecute(hWnd, "open", "C:\Documents and Settings\All Users\Рабочий стол\AIMP3.lnk", "", "", SW_SHOWNORMAL)
End Sub
Пятачок Forever! :)

hclubmk
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 240
Зарегистрирован: 19.06.2009 (Пт) 14:23
Откуда: От-туда

Re: Запустить ярлык Интернет соединения (программно)

Сообщение hclubmk » 11.08.2015 (Вт) 20:04

Научились ли Вы радоваться трудностям?

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Re: Запустить ярлык Интернет соединения (программно)

Сообщение qwertyhp » 12.08.2015 (Ср) 22:13

Спасибо за ответ, но имелось ввиду нечто другое.
Подключение к БиЛайн, которое требует логина и пароля, я реализую именно так, как Вы подсказали.
Но прежде чем подключиться к БиЛайн, мне надо подключиться к "Подключение по локальной сети".
Просто это словосочетание не уместилось в заголовке.
Исследование ярлычка подключения выявило в нем указание на "R e a l t e k R T L 8 1 3 9 F a m i l y P C I F a s t E t h e r n e t N I C ........"
Предположу, что это мой сетевой адаптер, в гнездо которого воткнут шнурок.
К нему нет ни паролей, ни явок - просто надо кликнуть - и он подключает к локальной сети. А уже после этого - да, с помощью RasDial вызывается дух БиЛайн.
А вот как реализовать программно "Подключение к локальной сети"?
Пятачок Forever! :)

hclubmk
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 240
Зарегистрирован: 19.06.2009 (Пт) 14:23
Откуда: От-туда

Re: Запустить ярлык Интернет соединения (программно)

Сообщение hclubmk » 13.08.2015 (Чт) 7:45

C:\>netsh interface set interface "Подключение по локальной сети 3" ENABLED - включить
C:\>netsh interface set interface "Подключение по локальной сети 3" DISABLED - выключить
Научились ли Вы радоваться трудностям?


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 41

    TopList