VB.NET网络技巧启动拨号网络中的连接案例分析

开发 后端
这里介绍了VB.NET网络技巧案例启动拨号网络中的连接,由于拨号网络不是一个可执行文件, 所以要启动拨号网络,需要借助 explorer.exe ...。

学习VB.NET时,你可能会遇到VB.NET网络问题,这里将总结一个VB.NET网络技巧的案例,在这里拿出来和大家分享一下。

VB.NET网络技巧案例:启动拨号网络中的连接

由于拨号网络不是一个可执行文件, 所以要启动拨号网络,需要借助 explorer.exe 。但若是要启动拨号网络中的某一个连接,则要借助rundll.exe 和 rnaui.dll两个文件。启动方法如下(假定此连接名称为163):

  1. Shell “rundll rnaui.dll,RnaDial 163”,vbNormalFocus 

上面假定了连接名称,但在实际编程中我们是不知道连接名称的。在窗体上放置一个命令按钮(cmdCallConnect),在其单击事件中进行连接处理。下面的代码介绍如何取得默认的连接名称并启动它:

  1. Option Explicit  
  2. /*有关的API声明*/   
  3. 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   
  4. 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   
  5. Private Declare Function RegCloseKey Lib “advapi32”(ByVal hKey As Long) As Long  
  6. /*常数的设定*/   
  7. Const HKEY_CURRENT_USER = &H80000001   
  8. Const ERROR_SUCCESS = 0 

在命令按钮(cmdCallConnect)中加入如下代码:

  1. Private Sub cmdCallConnect_Click()   
  2. /*启动默认拨号连接*/   
  3. Shell “rundll rnaui.dll,RnaDial” + GetConnect, vbNormalFocus   
  4. End Sub  
  5.  
  6. /*取得连接的函数(GetConnect)*/   
  7. Public Function GetConnect() As String   
  8. Dim hKey As Long   
  9. Dim SubKey As String   
  10. /*主键*/   
  11. hKey = HKEY_CURRENT_USER   
  12. /*子键*/   
  13. SubKey = “RemoteAccess”   
  14. /*取得默认连接名*/   
  15. GetConnect=GetRegvalue(hKey,SubKey, “Default”)   
  16. End Function  
  17.  
  18. /*取得注册的函数(GetRegvalue)*/   
  19. Public Function GetRegvalue(hKey As Long,lpszSubKey As String,szKey As String) As Variant   
  20. On Error GoTo ErrorRoutineErr:   
  21. Dim phkResult As Long   
  22. Dim lResult As Long   
  23. Dim szBuffer As String   
  24. Dim lBuffSize As Long   
  25. /*创建缓冲区*/   
  26. szBuffer = Space(255)   
  27. lBuffSize = Len(szBuffer)   
  28. /*打开注册键*/   
  29. RegOpenKeyEx hKey, lpszSubKey, 0, 1,phkResult   
  30. /*取得查询结果*/   
  31. lResult = RegQueryvalueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize)   
  32. /*关闭注册键*/   
  33. RegCloseKey phkResult   
  34. /*返回结果*/   
  35. If lResult = ERROR_SUCCESS Then   
  36. GetRegvalue = Left(szBuffer, lBuffSize - 1)   
  37. Else   
  38. GetRegvalue =“”   
  39. End If   
  40. Exit Function   
  41. /*意外处理*/   
  42. ErrorRoutineErr:   
  43. GetRegvalue =“”   
  44. End Function  

以上就是总结的VB.NET网络技巧,在机器上跑试一下。

责任编辑:田树 来源: 博客
相关推荐

2009-11-02 10:53:34

VB.NET INI文

2009-06-12 19:12:24

动态代码VB.NET

2009-11-02 16:55:50

VB.NET Smar

2009-10-28 15:38:30

VB.NET网络

2009-10-29 14:02:24

VB和VB.NET比较

2010-01-11 16:04:10

VB.NET使用wit

2010-01-15 19:24:42

2009-10-29 14:50:22

VB.NET扩展名分组

2010-01-11 10:19:18

VB.NET启动外部程

2009-11-02 17:12:01

VB和VB.NET

2009-11-03 13:16:58

VB.NET读取文件

2010-01-18 18:20:49

VB.NET使用API

2009-10-12 15:44:26

VB.NET动态编码技

2009-11-10 13:08:13

VB.NET编程技巧

2009-10-28 10:04:53

VB.NET XmlW

2010-07-06 15:54:30

VB.NET UDP

2010-01-07 17:24:12

VB.NET连接数据库

2010-01-12 11:55:10

VB.NET网络监控

2009-11-03 10:18:46

VB.NET继承

2010-01-08 18:16:52

VB.NET变量
点赞
收藏

51CTO技术栈公众号