Вызов окна удалённого соединения

[ChAko]

Как вызвать окно «Подключение к ИМЯ_СОЕДИНЕНИЯ» в XP? Для ME и ниже хватало строки:

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

Result = Shell("rundll32.exe rnaui.DLL,RnaDial " & "connection_name", 1)

. В XP этот способ не катит.

[dr-vic]

Попробуй через RASAPI: RasDial, RasDialDlg.

[ChAko]

Попробуй через RASAPI: RasDial, RasDialDlg.

Нет, не хочет.

[Шурик]

Нашел, помоему это, проверить немог

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

Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long


If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
    MsgBox "Connected"
End If

If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
    MsgBox "Connected"
End If

If InternetAutodialHangup(0) Then
   MsgBox "Disconnected"
End If


[ChAko]

Нашел, помоему это, проверить немог

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

Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long


If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
    MsgBox "Connected"
End If

If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
    MsgBox "Connected"
End If

If InternetAutodialHangup(0) Then
   MsgBox "Disconnected"
End If


Это тоже не работает!

[Шурик]

http://bbs.vbstreets.ru/viewtopic.php?t=2081