这篇文章将为大家详细讲解有关VB.NET如何启动拨号网络中的连接,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。VB.NET网络技巧案例:启动拨号网络中的连接 由于拨号网络不是一个可执行文件, 所以要启动拨
这篇文章将为大家详细讲解有关VB.NET如何启动拨号网络中的连接,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。
VB.NET网络技巧案例:启动拨号网络中的连接
由于拨号网络不是一个可执行文件, 所以要启动拨号网络,需要借助 explorer.exe 。但若是要启动拨号网络中的某一个连接,则要借助rundll.exe 和 rnaui.dll两个文件。启动方法如下(假定此连接名称为163):
shell “rundll rnaui.dll,RnaDial 163”,vbNORMalFocus
上面假定了连接名称,但在实际编程中我们是不知道连接名称的。在窗体上放置一个命令按钮(cmdCallConnect),在其单击事件中进行连接处理。下面的代码介绍如何取得默认的连接名称并启动它:
Option Explicit 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 Const HKEY_CURRENT_USER = &H80000001 Const ERROR_SUCCESS = 0
在命令按钮(cmdCallConnect)中加入如下代码:
Private Sub cmdCallConnect_Click() Shell “rundll rnaui.dll,RnaDial” + GetConnect, vbNormalFocus End Sub Public Function GetConnect() As String Dim hKey As Long Dim SubKey As String hKey = HKEY_CURRENT_USER SubKey = “RemoteAccess” GetConnect=GetRegvalue(hKey,SubKey, “Default”) End Function 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 szBuffer = Space(255) lBuffSize = Len(szBuffer) RegOpenKeyEx hKey, lpszSubKey, 0, 1,phkResult lResult = RegQueryvalueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize) RegCloseKey phkResult If lResult = ERROR_SUCCESS Then GetRegvalue = Left(szBuffer, lBuffSize - 1) Else GetRegvalue =“” End If Exit Function ErrorRoutineErr: GetRegvalue =“” End Function
关于“VB.net如何启动拨号网络中的连接”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,使各位可以学到更多知识,如果觉得文章不错,请把它分享出去让更多的人看到。
--结束END--
本文标题: VB.NET如何启动拨号网络中的连接
本文链接: https://www.lsjlt.com/news/292924.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
2024-05-16
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0