<rp id="wnpn7"><ruby id="wnpn7"></ruby></rp>
<progress id="wnpn7"><track id="wnpn7"><rt id="wnpn7"></rt></track></progress>
<ruby id="wnpn7"></ruby>
<ruby id="wnpn7"><blockquote id="wnpn7"><div id="wnpn7"></div></blockquote></ruby>

    1. <em id="wnpn7"><ruby id="wnpn7"><input id="wnpn7"></input></ruby></em>
      1. <button id="wnpn7"><acronym id="wnpn7"></acronym></button><button id="wnpn7"><acronym id="wnpn7"></acronym></button>

        <rp id="wnpn7"><acronym id="wnpn7"></acronym></rp>

        <li id="wnpn7"><object id="wnpn7"><u id="wnpn7"></u></object></li>
        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > vb >
        • 怎樣用VB斷開與internet的連接

         如果你想終止與internet的連接,可以使用VB來斷開連接。 
        請來訪有更多VB方面的信息,我個人主頁:http://yysniu.126.com
        怎樣用VB斷開與internet的連接?

        如果你想終止與internet的連接,可以使用斷開連接的方法,首先你必須聲明以下函數和變量:

        Declarations

        Public Const RAS_MAXENTRYNAME As Integer = 256Public Const RAS_MAXDEVICETYPE As Integer = 16

        Public Const RAS_MAXDEVICENAME As Integer = 128

        Public Const RAS_RASCONNSIZE As Integer = 412Public Const ERROR_SUCCESS = 0&

        Public Type RasEntryName

        dwSize As Long

        szEntryName(RAS_MAXENTRYNAME) As Byte

        End Type

        Public Type RasConn

        dwSize As Long

        hRasConn As Long

        szEntryName(RAS_MAXENTRYNAME) As Byte

        szDeviceType(RAS_MAXDEVICETYPE) As Byte

        szDeviceName(RAS_MAXDEVICENAME) As Byte

        End Type

        Public Declare Function RasEnumConnections Lib _

        "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _

        Any, lpcb As Long, lpcConnections As Long) As Long

        Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _

        "RasHangUpA" (ByVal hRasConn As Long) As Long 

        Public gstrISPName As String

        Public ReturnCode As Long

        斷開過程:

        Public Sub HangUp()

        Dim i As Long

        Dim lpRasConn(255) As RasConn

        Dim lpcb As Long

        Dim lpcConnections As Long

        Dim hRasConn As Long

        lpRasConn(0).dwSize = RAS_RASCONNSIZE

        lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize

        lpcConnections = 0

        ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _

        lpcConnections)

        If ReturnCode = ERROR_SUCCESS Then

        For i = 0 To lpcConnections - 1

        If Trim(ByteToString(lpRasConn(i).szEntryName)) _

        = Trim(gstrISPName) Then

        hRasConn = lpRasConn(i).hRasConn

        ReturnCode = RasHangUp(ByVal hRasConn)

        End If

        Next i

        End If

        End Sub

        Public Function ByteToString(bytString() As Byte) As String

        Dim i As Integer

        ByteToString = ""

        i = 0

        While bytString(i) = 0&

        ByteToString = ByteToString & Chr(bytString(i))

        i = i + 1

        Wend

        End Function

        調用斷開過程:

        Call HangUp
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看