люди а как запустить ярлык на соединение с интернет?

[deepslam]

САБЖ

[Александр80]

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 Command1_Click()
ShellExecute Me.hwnd, "open", "С:\имя.lnk", vbNullString, vbNullString, 1
End Sub

Сегодня день ShellExecute Третий раз подряд, помогает. Или нет?

[deepslam]

Если бы помогало, я бы не писал, это я сделал уже давно но в том то и проблема, что обычные ярлыки (на программы, файлы, папки...) запускаются, а вот на СОЕДИНЕНИЯ с интернетом НЕТ...и ошибки никакой не выдаёт...я все мозги уже сломал...

[Александр80]

'Example by Joel (crashcode6@hotmail.com)
'This example requires a command button (Command1)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
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
Const SE_ERR_NOASSOC = 31
Const sOperation As String = "open" ' Constants for shell operations
Const sRun As String = "RUNDLL32.EXE"
Const sParameters As String = "shell32.dll,OpenAs_RunDLL "
Private Function shelldoc(sfile As String)
Dim sPath As String, RetVal As Long, _
lRet As Long
lRet = ShellExecute(GetDesktopWindow(), sOperation, sfile, _
vbNullString, vbNullString, SW_SHOWNORMAL)
If lRet = SE_ERR_NOASSOC Then ' No association exists
'Create a buffer
sPath = Space(255)
'Get the system directory
RetVal = GetSystemDirectory(sPath, 255)
'Remove all unnecessary chr$(0)'s
'and move on the stack
sPath = Left$(sPath, RetVal)

lRet = ShellExecute(GetDesktopWindow(), "open", sRun, _
sParameters + sfile, sPath, SW_SHOWNORMAL)
End If
End Function
Private Sub Command1_Click()
' Change the file extensions so that one
' has a program associated with it and the
' other does not.
Call shelldoc("C:\myfile.txt")
Call shelldoc("C:\myfile.sarsaparilla")
End Sub


А это пробовал, прости скопировал из API Guide, как было...

[deepslam]

Попробовал твой код, всё равно не работает...(((

[Морфий]

Call Shell("RASDIAL " & "MyConnection") -- для NT, и Call Shell("Rundll Rnaui.dll,RnaDial " & "My Connection") -- для win9x. И нет проблем =)

[deepslam]

Call Shell("RASDIAL " & "MyConnection") -- для NT, и Call Shell("Rundll Rnaui.dll,RnaDial " & "My Connection") -- для win9x. И нет проблем =)

А как тока этот MyConnection узнать из ярлыка

[Морфий]

А нафиг тебе этот ярлык сдался -- выведи юзеру список всех подключений, пусть он сам выбирает, какое запускать. А уж если с ярлыком связываться принципиально необходимо, то можешь парсить его содержимое или попробовать вызвать его через ShellExecute

[deepslam]

А нафиг тебе этот ярлык сдался -- выведи юзеру список всех подключений, пусть он сам выбирает, какое запускать. А уж если с ярлыком связываться принципиально необходимо, то можешь парсить его содержимое или попробовать вызвать его через ShellExecute

нет, я панель задач пишу свою и там есть функция (как в стандартной, что ярлык можешь перетащить на панель задач и оттуда запускать). Поэтому мне ТОЛЬКО с ярлыка надо...(((

[Морфий]

тогда хрен знает как =). Можно покапать в сторону ShellLink, хотя у меня она не работает с ярлыками на подключения =(.

[Sebas]

народ поищите на форуме, уже и ссылки на инфу давали и так код приводили.

[deepslam]

народ поищите на форуме, уже и ссылки на инфу давали и так код приводили.

я перед созданием сабжа пытался найти на форуме по словам ярлык и подключение, но поиск почему то не работал...(((

[Sebas]

Я на прошлой неделе отвечал))

[Александр80]

Блин, самому стало интересно... Должно было помочь....

[deepslam]

Я на прошлой неделе отвечал))

а ты можешь еще раз ответить??? В долгу не останусь )))