<p>斷開撥號網(wǎng)絡(luò)的連接</p>
<p></p>
<p>'有沒有簡便的方法在VB中讓MODEM斷線？</p>
<p>'我在程序中使用撥號網(wǎng)絡(luò)中導(dǎo)出的DUN文件來撥號登錄NT網(wǎng)，彈</p>
<p>'出“連接到”窗口后，用SENDKEYS命令發(fā)送回車，進(jìn)入撥號并且</p>
<p>'登錄，系統(tǒng)自動恢復(fù)網(wǎng)絡(luò)驅(qū)動器映射（這之前是手工映射的，有</p>
<p>'沒有API命令執(zhí)行網(wǎng)絡(luò)映射的？），但往往映射還未完成程序就</p>
<p>'繼續(xù)下去，從而得到錯誤的結(jié)果。怎樣才能一步步地完成撥號、</p>
<p>'映射，然后才繼續(xù)執(zhí)行下面的程序呢？</p>
<p>'回答:</p>
<p>'要想控制撥號網(wǎng)絡(luò)，就要使用Remote Access Service (RAS) API，這個API最早是在Windows for Workgroup 3.11中出現(xiàn)的，現(xiàn)在它已經(jīng)成為Win32 API的一個組成部分。掛斷撥號網(wǎng)絡(luò)的函數(shù)叫RasHangUp，這個函數(shù)的功能和用法都很簡單，它只有一個參數(shù)，就是要掛斷的撥號網(wǎng)絡(luò)連接的句柄。我們可以利用</p>
<p>'RasEnumConnections獲得當(dāng)前系統(tǒng)所有RAS連接（通常我們的系統(tǒng)在一個時刻只使用一個撥號網(wǎng)絡(luò)連接），利用這個函數(shù)我就可以得到RasHangUp所需的句柄了。不過RasEnumConnections函數(shù)在Windows 95和 Windows NT下的使用略有不同，限于篇幅我們只給出在Windows 95下調(diào)用該函數(shù)的例子。讀者可以從Win32 API的手冊找到所有相關(guān)函數(shù)的詳細(xì)介紹，不過VB的WIN32API.TXT中沒有包括RAS API所需的聲明語句，我們在下面給出解決本問題需要的函數(shù)和結(jié)構(gòu)聲明。如果希望深入研究這個問題，可以訪問參考QA000035 “在VB中如何實(shí)現(xiàn)自動啟動撥號網(wǎng)絡(luò)”，從中可以找到完整的RAS API聲明和在Windows NT下調(diào)用RasEnumConnections函數(shù)的例子 。</p>
<p>'為了運(yùn)行下面這個例子，首先需要建立一個窗體，在窗體上放置一個按鈕，然后輸入以下語句：</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 "沒有撥號網(wǎng)絡(luò)連接！", vbInformation</p>
<p>End If</p>
<p>End If</p>
<p>End Sub</p>
<p>'運(yùn)行時，按下按鈕就可以斷開撥號網(wǎng)絡(luò)的連接。</p>
<p></p>