XP下用VB6.0操作PPPoE宽带连接[创建连接_拨号_断开]

这个，这张图是已连接的，不知道在“正在连接...”状态，怎么结束并删除这个连接..
对了，要源代码的话，根据图片上的信息过来吧...
手头没有“将文件隐藏在图片中”的工具...见谅...

回复：2楼
你动作好快...我还没发完呢...
代码片段：Create_PPPoE_Connection(sEntryName, sUsername, sPassword)
recAdConn = AddConnection(TxtLJ.Text, "", "", TxtYHM.Text, TxtMM.Text, "")
Public Function IsConnected() As Boolean
     Dim TRasCon(255) As RASCONN95
     Dim lg As Long
     Dim lpcon As Long
    
截止...代码太长了....

Function Create_PPPoE_Connection(ByVal sEntryName As String, ByVal sUsername As String, ByVal sPassword As String) As Boolean
           Create_PPPoE_Connection = False
    
           Dim re      As RASENTRY
           Dim sDeviceName      As String, sDeviceType        As String
           sDeviceName = "WAN    微型端口    (PPPOE)"
           sDeviceType = "PPPoE"
           With re
                   .dwSize = LenB(re)
                   .dwCountryCode = 86
                   .dwCountryID = 86
                   .dwDialExtraPercent = 75
                   .dwDialExtraSampleSeconds = 120
                   .dwDialMode = 1
                   .dwEncryptionType = 3
                   .dwfNetProtocols = 4
                   .dwfOptions = 1024262928
                   .dwfOptions2 = 367
                   .dwFramingProtocol = 1
                   .dwHangUpExtraPercent = 10
                   .dwHangUpExtraSampleSeconds = 120
                   .dwRedialCount = 3
                   .dwRedialPause = 60
                   .dwType = 5
                   CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)


                   CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)
           End With
    
           Dim rc      As RASCREDENTIALS
           With rc
                   .dwSize = LenB(rc)
                   .dwMask = 11
                   CopyMemory .szUserName(0), ByVal sUsername, Len(sUsername)
                   CopyMemory .szPassword(0), ByVal sPassword, Len(sPassword)
           End With
            
           Dim rtn      As Long
           If RasSetEntryProperties(vbNullString, sEntryName, re, LenB(re), 0, 0) = 0 Then
                   If RasSetCredentials(vbNullString, sEntryName, rc, 0) = 0 Then
                           Create_PPPoE_Connection = True
                   End If
           End If
   End Function

回复：7楼
其实我是想，结束掉，3楼说的，那个连接...

回复：10楼
我错了...
我想说，已经创建了那个空用户名密码的连接，它一直显示“正在连接...”，无法再次拨号了....