64.htm

一些简单的编程例子 都是网页的形式

<p>如何中断【拨号网络连接】？ </p>
<p>版本：VB6 / VB5 / VB4-32 </p>
<p></p>
<p>要在 VB 程序中中断【拨号网络连接】，可以使用 Remote Access Services Hangup 函数：</p>
<p></p>
<p>'在模块的声明区中加入以下声明及模块：</p>
<p></p>
<p>Public Const RAS_MAXENTRYNAME As Integer = 256</p>
<p>Public Const RAS_MAXDEVICETYPE As Integer = 16</p>
<p>Public Const RAS_MAXDEVICENAME As Integer = 128</p>
<p>Public Const RAS_RASCONNSIZE As Integer = 412</p>
<p>Public Const ERROR_SUCCESS = 0&</p>
<p></p>
<p>Public Type RasEntryName</p>
<p>dwSize As Long</p>
<p>szEntryName(RAS_MAXENTRYNAME) As Byte</p>
<p>End Type</p>
<p></p>
<p>Public Type RasConn</p>
<p>dwSize As Long</p>
<p>hRasConn As Long</p>
<p>szEntryName(RAS_MAXENTRYNAME) As Byte</p>
<p>szDeviceType(RAS_MAXDEVICETYPE) As Byte</p>
<p>szDeviceName(RAS_MAXDEVICENAME) As Byte</p>
<p>End Type</p>
<p></p>
<p>Public Declare Function RasEnumConnections Lib _</p>
<p>"rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _</p>
<p>Any, lpcb As Long, lpcConnections As Long) As Long</p>
<p></p>
<p>Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _</p>
<p>"RasHangUpA" (ByVal hRasConn As Long) As Long</p>
<p></p>
<p>Public gstrISPName As String</p>
<p>Public ReturnCode As Long</p>
<p>Public Sub HangUp()</p>
<p>Dim i As Long</p>
<p>Dim lpRasConn(255) As RasConn</p>
<p>Dim lpcb As Long</p>
<p>Dim lpcConnections As Long</p>
<p>Dim hRasConn As Long</p>
<p></p>
<p>lpRasConn(0).dwSize = RAS_RASCONNSIZE</p>
<p>lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize</p>
<p>lpcConnections = 0</p>
<p>ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)</p>
<p>If ReturnCode = ERROR_SUCCESS Then</p>
<p>For i = 0 To lpcConnections - 1</p>
<p>If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then</p>
<p>hRasConn = lpRasConn(i).hRasConn</p>
<p>ReturnCode = RasHangUp(ByVal hRasConn)</p>
<p>End If</p>
<p>Next i</p>
<p>End If</p>
<p>End Sub</p>
<p>Public Function ByteToString(bytString() As Byte) As String</p>
<p>Dim i As Integer</p>
<p>ByteToString = ""</p>
<p>i = 0</p>
<p>While bytString(i) = 0&</p>
<p>ByteToString = ByteToString & Chr(bytString(i))</p>
<p>i = i + 1</p>
<p>Wend</p>
<p>End Function</p>
<p>'在程序中使用实例为 </p>
<p>Call HangUp</p>
<p></p>