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

想把文件隐藏成JPG????我有这个工具，我还有2唯码软件

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

宽带断网的代码我有，呵呵。

可以加个代码，就是“用户名”或者“密码”为空时，弹出提示框

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

每次拨号前先断开一下连接，这样就可以保证每次都是在未连接网络的情况下拨号的。

HangUpAll