隨著因特網(wǎng)的迅猛發(fā)展，現(xiàn)在編程常需要在程序中直接聯(lián)網(wǎng)來處理一些事項(xiàng)，如在線注冊和在線幫助，這就要求我們要在程序中建立某些連接。很多軟件在不知用戶是否聯(lián)網(wǎng)的情況下不管三七二十一就啟動瀏覽器查找網(wǎng)址，費(fèi)了九牛二虎之力只能查出一錯誤頁來（當(dāng)然不可能有什么好的結(jié)果）。如果我們在程序編寫時能自動判斷用戶是否已經(jīng)聯(lián)網(wǎng)，如已經(jīng)聯(lián)網(wǎng)則打開聯(lián)接，如沒有則啟動默認(rèn)的撥號連接，這樣是不是讓人覺得你的軟件更勝人一處呢？判斷是否已聯(lián)網(wǎng)很多地方都有介紹，這里我們只介紹如何啟動默認(rèn)的撥號連接。
---- 在介紹之前讓我們首先看看如何打開撥號網(wǎng)絡(luò)。由于撥號網(wǎng)絡(luò)不是一個可執(zhí)行文件，所以不能用 “Shell 可執(zhí)行文件”的方式來打開。要啟動撥號網(wǎng)絡(luò)，需借助 Explorer ，方法如下：

Shell "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\" & "::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus


---- 但若是要啟動撥號網(wǎng)絡(luò)中的某一個連接，則需借助rundll.exe 及 rnaui.dll來啟動，方法如下（假定連接名稱為163）：

Shell "rundll rnaui.dll,RnaDial 163", vbNormalFocus


---- 說明：在以上敘述中，“,RnaDial 163”這部分不要插入額外的空格，大小寫也不要任意更改。

---- 上面僅僅假定了連接名稱，但實(shí)際編程中我們是不知道其名稱的，如何取得默認(rèn)的連接名稱并啟動它呢？這里我們可利用注冊表來達(dá)到目的。完整程序如下：

---- 在窗體上放置一個命令按鈕（名稱為 cmdCallConnect)，下面為代碼部份：

Option Explicit
     
注釋：有關(guān)注冊的API聲明
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
注釋：常數(shù)
Const HKEY_CURRENT_USER = &H80000001
Const ERROR_SUCCESS = 0&
     
Private Sub cmdCallConnect_Click()
注釋：啟動默認(rèn)撥號連接
Shell "rundll rnaui.dll,RnaDial " + GetConnect, vbNormalFocus
End Sub
     
Public Function GetConnect() As String
Dim hKey As Long
Dim SubKey As String
hKey = HKEY_CURRENT_USER  注釋：主鍵
SubKey = "RemoteAccess"   注釋：子鍵
注釋：取得默認(rèn)連接名
GetConnect = GetRegValue(hKey, SubKey, "Default")
End Function

Public Function GetRegValue(hKey As Long, lpszSubKey As String, szKey As String) As Variant
On Error GoTo ErrorRoutineErr:
Dim phkResult As Long
Dim lResult As Long
Dim szBuffer As String
Dim lBuffSize As Long

注釋：創(chuàng)建緩沖區(qū)
szBuffer = Space(255)
lBuffSize = Len(szBuffer)

注釋：打開注冊鍵
RegOpenKeyEx hKey, lpszSubKey, 0, 1, phkResult

注釋：查詢結(jié)果
lResult = RegQueryValueEx(phkResult,szKey, 0, 0, szBuffer,lBuffSize)

注釋：關(guān)閉注冊鍵
RegCloseKey phkResult

注釋：返回結(jié)果
If lResult = ERROR_SUCCESS Then
GetRegValue = Left(szBuffer, lBuffSize - 1)
Else
GetRegValue = ""
End If
Exit Function

ErrorRoutineErr:
GetRegValue = ""
End Function
以上程序在 WIN98,VB6.0 下調(diào)試通過。