Программное подключение к Интернету средствами VB (Visual Basic)...

Это делается при помощи функции InternetAutodial...
'Добавьте на форму элемент CommandButton.
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 ' без запроса

'Прежде чем выполнять эту функцию, в реестре нужно установить разрешение(!)
'на проведение такой операции программными средствами!
'Установите бит разрешения, иначе ничего не будет работать!

'[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
'"EnableAutodial"=dword:00000001

Private Sub Command1_Click()
res = InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED Or _
INTERNET_AUTODIAL_FORCE_ONLINE, 0&)
If res = 0 Then Exit Sub Else: MsgBox "Подключение к Интернету выполнено..."
End Sub

‘========================================
Программное отключение от Интернета средствами VB (Visual Basic)...

'Добавьте на форму элемент CommandButton.
'При нажатии на кнопку происходит вызов функции HangUp,
’которая закрывает соединение с Интернетом.

Const RAS_MAXENTRYNAME As Integer = 256
Const RAS_MAXDEVICETYPE As Integer = 16
Const RAS_MAXDEVICENAME As Integer = 128
Const RAS_RASCONNSIZE As Integer = 412
Const ERROR_SUCCESS = 0&

Private Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

Private Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type

Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private gstrISPName As String
Public ReturnCode As Long

Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As Long
Dim hRasConn As Long
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)
If ReturnCode = ERROR_SUCCESS Then
For i = 0 To lpcConnections - 1
If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
hRasConn = lpRasConn(i).hRasConn
ReturnCode = RasHangUp(ByVal hRasConn)
End If
Next i
End If
End Sub

Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function

Private Sub Command1_Click()
Call HangUp
End Sub

‘========================================
Программная проверка Интернет-соединения средствами VB (Visual Basic)...

Private Declare Function InternetCheckConnection Lib _
"wininet.dll" Alias "InternetCheckConnectionA" _
(ByVal lpszUrl As String, ByVal dwFlags As Long, _
ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1

Private Sub Form_Load()
If InternetCheckConnection("http://yahoo.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Текущее соединение отсутствует!", vbInformation
Else
MsgBox "Текущее подключение к Интернену активно!", vbInformation
End If
End Sub

DOSSЕсть компоненты WebBrowser и Inet

Есть один недостаток...
Компоненты всюду таскать нужно вместе с основной программой, а это не всегда есть GOOD! :((
К тому же на другой машине еще и регистрация этих контролов потребуется! Ну, или нужно будет делать инсталлятор для своего проекта через мастера VB - Application Setup Wizard...

‘ Вариант 2 =======================================
Программная проверка Интернет-соединения средствами VB (Visual Basic)...

Option Explicit
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Private Sub Form_Load()
If InternetConnected Then MsgBox "Текущее подключение к Интернену активно!" _
Else MsgBox "Текущее соединение отсутствует!"
End Sub

‘ Вариант 2 =======================================
Программное подключение/отключение к Интернету средствами VB (Visual Basic)...

Есть еще один вариант подключения, через функцию InternetDial.
Для нее бит разрешения НЕ нужен! :)
Вот по этому адресу можно скачать пример:
http://www.thescarms.com/vbasic/wininet.aspx

‘================================================
P.S.
Кто-нибудь может мне сказать почему функция InternetAutodialHangup для разъединения от Инета НЕ работает?! :((

Вот такой стандартный(!) по MSDN код не хочет работать:

Private Declare Function InternetAutodialHangup Lib "Wininet.dll" (ByVal _
dwReserved As Long) As Long

Private Sub Form_Load()
Dim lResult As Long
lResult = InternetAutodialHangup(0&)
End Sub

Спасибо за подсказку... :) Такие тонкости не всегда удается улавливать.