《adsl 实现宽带拨号》.doc

VB6.0代码 1、第一个问题还要添上连接名（就是拨号连接的名字） 我这里有一个现成的代码，挺长的，能上网、断网、查看网络状态、查看连接数目，如果其它的不需要的话，自己看函数的名字，删了即可 把一下代码粘贴到模块中，在窗体某控件的时间中写：花的贴身高手必威体育精装版章节 /html/1/1974 Dim recAdConn recAdConn = AddConnection(连接名, , , 用户名, 密码, ) Public Type RASCONN95 dwSize As Long hRasConn As Long szEntryName(256) As Byte szDeviceType(16) As Byte szDeviceName(128) As Byte End Type Public Type RASCONNSTATUS95 dwSize As Long RasConnState As Long dwError As Long szDeviceType(16) As Byte szDeviceName(128) As Byte End Type Public Declare Function RasGetConnectStatus Lib RasApi32.DLL Alias RasGetConnectStatusA (ByVal hRasCon As Long, lpStatus As Any) As Long Public Declare Function lstrcpy Lib kernel32 Alias lstrcpyA (lpString1 As Any, ByVal lpString2 As String) As Long Public Declare Function RasDial Lib RasApi32.DLL Alias RasDialA (lpRasDialExtensions As Any, ByVal lpszPhonebook As String, lprasdialparams As Any, ByVal dwNotifierType As Long, lpvNotifier As Long, lphRasConn As Long) As Long Public Declare Function RasHangUp Lib RasApi32.DLL Alias RasHangUpA (ByVal hRasConn As Long) As Long Public Declare Function RasEnumConnections Lib RasApi32.DLL Alias RasEnumConnectionsA (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long Public Function AddConnection(strNewEntryName As String, strNewPhoneNumber As String, strNewCallbackNumber As String, strNewUsername As String, strNewPassword As String, strNewDomain As String) As Long Const APINULL = 0 Dim lngRetCode As Long Dim lngRetLstrcpy As Long Dim lngRetHangUp As Long Dim lprasdialparams As RASDIALPARAMS95 On Error GoTo 10 lprasdialparams.dwSize = 1052 lngRetLstrcpy = lstrcpy(lprasdialparams.szEntryName(0), strNewEntryName) lngRetLstrcpy = lstrcpy(lprasdialparams.szPhoneNumber(0), strNewPhoneNumber) lngRetLstrcpy = lstrcpy(lprasdialparams.szCallbackNumber(0), strNewCallbackNumber) lngRetLstrcpy = lstrcpy(lprasdialparams.szUserName(0), strNewUsername) lngRetLstrcpy = lstrcpy(lprasdialparams.szPassword(0), strNewPassw