----在介紹之前讓我們首先看看如何打開(kāi)撥號(hào)網(wǎng)絡(luò)。由于撥號(hào)網(wǎng)絡(luò)不是一個(gè)可執(zhí)行文件，所以不能用“Shell可執(zhí)行文件”的方式來(lái)打開(kāi)。要啟動(dòng)撥號(hào)網(wǎng)絡(luò)，需借助Explorer，方法如下：

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

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

Shell"rundllrnaui.dll,RnaDial163",vbNormalFocus

----說(shuō)明：在以上敘述中，“,RnaDial163”這部分不要插入額外的空格，大小寫(xiě)也不要任意更改。

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

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

OptionExplicit

'有關(guān)注冊(cè)的API聲明
EndSub

PublicFunctionGetConnect()AsString
DimhKeyAsLong
DimSubKeyAsString
hKey=HKEY_CURRENT_USER'主鍵
SubKey="Remoteaccess"'子鍵
'取得默認(rèn)連接名
GetConnect=GetRegValue(hKey,SubKey,"Default")
EndFunction

PublicFunctionGetRegValue(hKeyAsLong,lpszSubKeyAsString,szKeyAsString)AsVariant
OnErrorGoToErrorRoutineErr:
DimphkResultAsLong
DimlResultAsLong
DimszBufferAsString
DimlBuffSizeAsLong

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

'打開(kāi)注冊(cè)鍵
RegOpenKeyExhKey,lpszSubKey,0,1,phkResult

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

'關(guān)閉注冊(cè)鍵
RegCloseKeyphkResult

'返回結(jié)果
IflResult=ERROR_SUCCESSThen
GetRegValue=Left(szBuffer,lBuffSize-1)
Else
GetRegValue=""
EndIf
ExitFunction

ErrorRoutineErr:
GetRegValue=""
EndFunction
以上程序在WIN98,VB6.0下調(diào)試通過(guò)。->