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

[Jurist]

Народ, подскажите, как запустить ярлык на соединение с интернетом?

[keks-n]

RasDial?

[Jurist]

RasDial?

Нет. Хотелось бы запустить именно файл с расширением *.lnk

[Cytron]

открытие эксплорером не работает (shell "explorer.exe file.lnk")?

[Jurist]

открытие эксплорером не работает (shell "explorer.exe file.lnk")?

Не работает, даже если вместо homelink.lnk прописать другой файл.

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

Dim FileName As String
FileName = "C:\WINDOWS\explorer.exe C:\homelink.lnk"
X = Shell("rundll32.exe url.dll,FileProtocolHandler" & " " & FileName, vbNormalFocus)

Может быть где- то ошибка?

[Jurist]

Тоже не работает

[alibek]

Да? А как ты его применял?

[Jurist]

Да? А как ты его применял?

Вот так:

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


Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long

Private Sub Form_Load()
    Dim SEI As SHELLEXECUTEINFO
    Dim X As Long
    Dim FilePath As String
    FilePath = "C:\homelink.lnk" 'Иконка
    With SEI
        .cbSize = Len(SEI)
        .lpFile = FilePath
    End With
X = ShellExecuteEx(SEI)
End Sub


[alibek]

Зацени мембер fMask и флаг SEE_MASK_CLASSKEY (скорее всего).

[Jurist]

Зацени мембер fMask и флаг SEE_MASK_CLASSKEY (скорее всего).

Это как?

[Viper]

Зацени мембер fMask и флаг SEE_MASK_CLASSKEY (скорее всего).

Это как?

это что непонятно? Установить значение флага SEE_MASK_CLASSKEY мемберу fMask. Кстати, чему равен X? если это 0, то стоит заценить значение ошибки (Err.LastDllError).

[Jurist]

Так что- ли?

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


Private Const SEE_MASK_CLASSKEY = &H3
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long

Private Sub Form_Load()
    Dim SEI As SHELLEXECUTEINFO
    Dim X As Long
    Dim FilePath As String
    FilePath = "C:\homelink.lnk" 'Иконка
    With SEI
        .cbSize = Len(SEI)
        .lpFile = FilePath
        .fMask = SEE_MASK_CLASSNAME
    End With
X = ShellExecuteEx(SEI)
End Sub


Тоже не работает...

[Viper]

Код ошибки какой?

[Jurist]

Код ошибки какой?

X = 1

[Viper]

из чего можно сделать вывод, что таки работает.

[BV]

Надо не на возвращаемое значение смотреть, а на hInstApp. Или еще лучше - Err.LastDllError.

[Viper]

Если у него возвращаемое значение не 0, то функция отработала правильно, вопрос только в том, что есть правильно. Смотреть при этом на Err.LastDLLError нет смысла.

[Jurist]

из чего можно сделать вывод, что таки работает.

Тогда почему не видно результатов? Окно состояния подключения не открывается, значит не работает.

[EUGY]

Private Const SEE_MASK_CLASSKEY = &H3 ' !!!!!
...........
With SEI
.cbSize = Len(SEI)
.lpFile = FilePath
.fMask = SEE_MASK_CLASSNAME ' !!!!!

End With
............

Option Explicit !!!?

[Jurist]

Тупую ошибку исправил(спасибо EUGY). Тепеть вылетает сообщение "Приложение, выполняющее эту операцию, указанному файлу не сопоставлено. Произведите сопоставление с помощью панели управления "Свойства папки".".
Нашол в инете похожий пример, выводящий окно свойств любого файла. Он работает и для ярлыка. Может быть в нём можно что- нибудь переделать чтобы открывать ярлык?

[EUGY]

попробуй вот так, но может я ошибаюсь


Dim SEI As SHELLEXECUTEINFO
Dim FilePath As String
FilePath = "C:\homelink" ' not .lnk
With SEI
.nShow = 5 ' SW_SHOW
.cbSize = Len(SEI)
.lpFile = FilePath
.fMask = 0
End With
ShellExecuteEx(SEI)

[Cytron]

НАШОЛ ЛЕГКИЙ СПОСОБ!!!
нужно создать CMD файл или BAT файл и в нем прописать
C:\HomeLink.lnk
и запустить на выполнение с vbHide с помощью shell
примечание:
работает если подключение на которое ссылается ярлык неактивно!