建站
咨詢
售后
建站咨詢
新聞中心
這篇文章將為大家詳細(xì)講解有關(guān)VB.NET如何啟動撥號網(wǎng)絡(luò)中的連接，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。
站在用戶的角度思考問題，與客戶深入溝通，找到大豐網(wǎng)站設(shè)計與大豐網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名申請、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋大豐地區(qū)。
VB.NET網(wǎng)絡(luò)技巧案例：啟動撥號網(wǎng)絡(luò)中的連接
由于撥號網(wǎng)絡(luò)不是一個可執(zhí)行文件， 所以要啟動撥號網(wǎng)絡(luò)，需要借助 explorer.exe 。但若是要啟動撥號網(wǎng)絡(luò)中的某一個連接，則要借助rundll.exe 和 rnaui.dll兩個文件。啟動方法如下（假定此連接名稱為163）：
Shell “rundll rnaui.dll，RnaDial 163”，vbNormalFocus
上面假定了連接名稱，但在實際編程中我們是不知道連接名稱的。在窗體上放置一個命令按鈕（cmdCallConnect)，在其單擊事件中進(jìn)行連接處理。下面的代碼介紹如何取得默認(rèn)的連接名稱并啟動它：
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ù)的設(shè)定*/ Const HKEY_CURRENT_USER = ＆H80000001 Const ERROR_SUCCESS = 0
在命令按鈕（cmdCallConnect)中加入如下代碼：
Private Sub cmdCallConnect_Click() /*啟動默認(rèn)撥號連接*/ Shell “rundll rnaui.dll,RnaDial” ＋ GetConnect, vbNormalFocus End Sub /*取得連接的函數(shù)（GetConnect）*/ 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 /*取得注冊的函數(shù)（GetRegvalue）*/ 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
關(guān)于“VB.NET如何啟動撥號網(wǎng)絡(luò)中的連接”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。
網(wǎng)頁名稱：VB.NET如何啟動撥號網(wǎng)絡(luò)中的連接
當(dāng)前路徑：http://fisionsoft.com.cn/article/jsgeip.html
