Дозвон в инет

[valk]

Не подскажет ли уважаемый All, как из моей проги использовать стандартный виндовозный удаленный доступ?
Заранее спасибо

[Mizin Alex]

Держи енту функцию !
Только работает она иногда кривовато !

Dim rtn As Long
Private Declare Function InternetDial _
Lib "wininet.dll" Alias "InternetDialA" _
(ByVal hwndParent As Long, _
ByVal strEntryName As String, _
ByVal dwFlags As Long, _
lpdwConnection As Long, _
ByVal dwReserved As Long) As Long
'1& --> INTERNET_AUTODIAL_FORCE_ONLINE
'2& --> INTERNET_AUTODIAL_FORCE_UNATTENDED
'&H8000 --> INTERNET_DIAL_UNATTENDED
rtn = InternetDial("MyNAmeConnection", 2&, 0, 0)

С ув. Alex

[Shiz]

InternetDial
DWORD InternetDial(
IN HWND hwndParent,
IN LPTSTR lpszConnectoid,
IN DWORD dwFlags,
OUT LPDWORD lpdwConnection,
IN DWORD dwReserved
);

Initiates a connection to the Internet using a modem connection.

hwndParent
Handle to the parent window.
lpszConnectoid
String value containing the name of the dial-up connection to use.
dwFlags
Double-word value that contains the flags to use. Can be one of the following values: INTERNET_AUTODIAL_FORCE_ONLINE Forces an online connection.
INTERNET_AUTODIAL_FORCE_UNATTENDED Forces an unattended Internet dial-up.
INTERNET_DIAL_UNATTENDED Connects to the Internet through a modem, without displaying a user interface.

lpdwConnection
Address of a double-word value containing the number associated to the connection.
dwReserved
Reserved. Must be set to zero.



IMHO так круче rtn = InternetDial(Me.hWnd, "", 1&, 0, 0)