學(xué)習(xí)VB.NET時(shí)，你可能會(huì)遇到VB.NET網(wǎng)絡(luò)問(wèn)題，這里將總結(jié)一個(gè)VB.NET網(wǎng)絡(luò)技巧的案例，在這里拿出來(lái)和大家分享一下。

VB.NET網(wǎng)絡(luò)技巧案例：?jiǎn)?dòng)撥號(hào)網(wǎng)絡(luò)中的連接

由于撥號(hào)網(wǎng)絡(luò)不是一個(gè)可執(zhí)行文件， 所以要啟動(dòng)撥號(hào)網(wǎng)絡(luò)，需要借助 explorer.exe 。但若是要啟動(dòng)撥號(hào)網(wǎng)絡(luò)中的某一個(gè)連接，則要借助rundll.exe 和 rnaui.dll兩個(gè)文件。啟動(dòng)方法如下（假定此連接名稱為163）：

Shell “rundll rnaui.dll，RnaDial 163”，vbNormalFocus 

上面假定了連接名稱，但在實(shí)際編程中我們是不知道連接名稱的。在窗體上放置一個(gè)命令按鈕（cmdCallConnect)，在其單擊事件中進(jìn)行連接處理。下面的代碼介紹如何取得默認(rèn)的連接名稱并啟動(dòng)它：

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()   
/*啟動(dòng)默認(rèn)撥號(hào)連接*/   
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  
 
/*取得注冊(cè)的函數(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)   
/*打開注冊(cè)鍵*/   
RegOpenKeyEx hKey, lpszSubKey, 0, 1,phkResult   
/*取得查詢結(jié)果*/   
lResult = RegQueryvalueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize)   
/*關(guān)閉注冊(cè)鍵*/   
RegCloseKey phkResult   
/*返回結(jié)果*/   
If lResult = ERROR_SUCCESS Then   
GetRegvalue = Left(szBuffer, lBuffSize － 1)   
Else   
GetRegvalue =“”   
End If   
Exit Function   
/*意外處理*/   
ErrorRoutineErr:   
GetRegvalue =“”   
End Function  

以上就是總結(jié)的VB.NET網(wǎng)絡(luò)技巧，在機(jī)器上跑試一下。