<p>斷開(kāi)撥號(hào)網(wǎng)絡(luò)的連接</p>
<p></p>
<p>'有沒(méi)有簡(jiǎn)便的方法在VB中讓MODEM斷線？</p>
<p>'我在程序中使用撥號(hào)網(wǎng)絡(luò)中導(dǎo)出的DUN文件來(lái)?yè)芴?hào)登錄NT網(wǎng)，彈</p>
<p>'出“連接到”窗口后，用SENDKEYS命令發(fā)送回車，進(jìn)入撥號(hào)并且</p>
<p>'登錄，系統(tǒng)自動(dòng)恢復(fù)網(wǎng)絡(luò)驅(qū)動(dòng)器映射（這之前是手工映射的，有</p>
<p>'沒(méi)有API命令執(zhí)行網(wǎng)絡(luò)映射的？），但往往映射還未完成程序就</p>
<p>'繼續(xù)下去，從而得到錯(cuò)誤的結(jié)果。怎樣才能一步步地完成撥號(hào)、</p>
<p>'映射，然后才繼續(xù)執(zhí)行下面的程序呢？</p>
<p>'回答:</p>
<p>'要想控制撥號(hào)網(wǎng)絡(luò)，就要使用Remote Access Service (RAS) API，這個(gè)API最早是在Windows for Workgroup 3.11中出現(xiàn)的，現(xiàn)在它已經(jīng)成為Win32 API的一個(gè)組成部分。掛斷撥號(hào)網(wǎng)絡(luò)的函數(shù)叫RasHangUp，這個(gè)函數(shù)的功能和用法都很簡(jiǎn)單，它只有一個(gè)參數(shù)，就是要掛斷的撥號(hào)網(wǎng)絡(luò)連接的句柄。我們可以利用</p>
<p>'RasEnumConnections獲得當(dāng)前系統(tǒng)所有RAS連接（通常我們的系統(tǒng)在一個(gè)時(shí)刻只使用一個(gè)撥號(hào)網(wǎng)絡(luò)連接），利用這個(gè)函數(shù)我就可以得到RasHangUp所需的句柄了。不過(guò)RasEnumConnections函數(shù)在Windows 95和 Windows NT下的使用略有不同，限于篇幅我們只給出在Windows 95下調(diào)用該函數(shù)的例子。讀者可以從Win32 API的手冊(cè)找到所有相關(guān)函數(shù)的詳細(xì)介紹，不過(guò)VB的WIN32API.TXT中沒(méi)有包括RAS API所需的聲明語(yǔ)句，我們?cè)谙旅娼o出解決本問(wèn)題需要的函數(shù)和結(jié)構(gòu)聲明。如果希望深入研究這個(gè)問(wèn)題，可以訪問(wèn)參考QA000035 “在VB中如何實(shí)現(xiàn)自動(dòng)啟動(dòng)撥號(hào)網(wǎng)絡(luò)”，從中可以找到完整的RAS API聲明和在Windows NT下調(diào)用RasEnumConnections函數(shù)的例子 。</p>
<p>'為了運(yùn)行下面這個(gè)例子，首先需要建立一個(gè)窗體，在窗體上放置一個(gè)按鈕，然后輸入以下語(yǔ)句：</p>
<p>Option Explicit</p>
<p>Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long</p>
<p>Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long</p>
<p></p>
<p>Const RAS95_MaxEntryName = 256</p>
<p>Const RAS95_MaxDeviceName = 128</p>
<p>Const RAS_MaxDeviceType = 16</p>
<p></p>
<p>Private Type RASCONN95</p>
<p>'set dwsize to 412</p>
<p>dwSize As Long</p>
<p>hRasConn As Long</p>
<p>szEntryName(RAS95_MaxEntryName) As Byte</p>
<p>szDeviceType(RAS_MaxDeviceType) As Byte</p>
<p>szDeviceName(RAS95_MaxDeviceName) As Byte</p>
<p>End Type</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>Dim lngRetCode As Long</p>
<p>Dim lpcb As Long</p>
<p>Dim lpcConnections As Long</p>
<p>Dim intArraySize As Integer</p>
<p>Dim intLooper As Integer</p>
<p></p>
<p>ReDim lprasconn95(intArraySize) As RASCONN95</p>
<p>lprasconn95(0).dwSize = 412</p>
<p>lpcb = 256 * lprasconn95(0).dwSize</p>
<p>lngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections)</p>
<p></p>
<p>If lngRetCode = 0 Then</p>
<p>If lpcConnections > 0 Then</p>
<p>For intLooper = 0 To lpcConnections - 1</p>
<p>RasHangUp lprasconn95(intLooper).hRasConn</p>
<p>Next intLooper</p>
<p>Else</p>
<p>MsgBox "沒(méi)有撥號(hào)網(wǎng)絡(luò)連接！", vbInformation</p>
<p>End If</p>
<p>End If</p>
<p>End Sub</p>
<p>'運(yùn)行時(shí)，按下按鈕就可以斷開(kāi)撥號(hào)網(wǎng)絡(luò)的連接。</p>
<p></p>