VB & Internet

[ScorpionX]

Как програмнно подключиться к интернету?
И ещё каким образом, можно проверить подключение к интернету через локалку?

[tyomitch]

1. InternetDial
2. InternetGetConnectedState

[ScorpionX]

А поподробнее можно

[tyomitch]

На удовольствие.

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

Option Explicit

Private Declare Function InternetDial Lib "wininet" (ByVal hWndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1&
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2&
Private Const INTERNET_DIAL_UNATTENDED = &H8000&
Private Const INTERNET_DIAL_SHOW_OFFLINE = &H4000&
Private Const INTERNET_DIAL_FORCE_PROMPT = &H2000&

Private Const ERROR_INVALID_PARAMETER = 87&
Private Const ERROR_NO_CONNECTION = 668&
Private Const ERROR_USER_DISCONNECTION = 631&

Private Const INTERNET_CONNECTION_MODEM = &H1&
Private Const INTERNET_CONNECTION_LAN = &H2&
Private Const INTERNET_CONNECTION_PROXY = &H4&
Private Const INTERNET_RAS_INSTALLED = &H10&
Private Const INTERNET_CONNECTION_OFFLINE = &H20&
Private Const INTERNET_CONNECTION_CONFIGURED = &H40&

Sub Main()
Dim flags As Long
Debug.Print InternetDial(0, vbNullString, 0, 0, 0)
Debug.Print InternetGetConnectedState(flags, 0)
Debug.Print Hex(flags)
End Sub