vb中怎样实现adsl宽带的断开和连接

我要VB源码 发我邮箱 493419286@qq.com

追问：可以做个源代码吗？发我邮箱493419286@qq.com

答案：新建一个模块,贴入以下代码: 

Option Explicit 
Public hRasConn As Long '?¨ò?ò??????òRASμ÷ó?μ?è?????±ú 
Public Const APINULL = 0& 
Public Const UNLEN = 256 
Public Const DNLEN = 15 
Public Const PWLEN = 256 
Public Const RAS95_MaxPhoneNumber = 128 
Public Const RAS95_MaxEntryName = 256 
Public Const RAS95_MaxCallbackNumber = RAS95_MaxPhoneNumber 

Public Type RASDIALPARAMS95 
dwSize As Long 
szEntryName(RAS95_MaxEntryName) As Byte 
szPhoneNumber(RAS95_MaxPhoneNumber) As Byte 
szCallbackNumber(RAS95_MaxCallbackNumber) As Byte 
szUserName(UNLEN) As Byte 
szPassword(PWLEN) As Byte 
szDomain(DNLEN) As Byte 
End Type 
'********************************** 
'* RASμ÷ó?′í?ó′úo? * 
'********************************** 
Public Const NOT_SUPPORTED = 120& 
Public Const RASBASEERROR = 600& 
Public Const SUCCESS = 0& 
Public Const ERROR_PORT_ALREADY_OPEN = (RASBASEERROR + 2) 
Public Const ERROR_UNKNOWN = (RASBASEERROR + 35) 
Public Const ERROR_REQUEST_TIMEOUT = (RASBASEERROR + 38) 
Public Const ERROR_PASSWD_EXPIRED = (RASBASEERROR + 48) 
Public Const ERROR_NO_DIALIN_PERMISSION = (RASBASEERROR + 49) 
Public Const ERROR_SERVER_NOT_RESPONDING = (RASBASEERROR + 50) 
Public Const ERROR_UNRECOGNIZED_RESPONSE = (RASBASEERROR + 52) 
Public Const ERROR_NO_RESPONSES = (RASBASEERROR + 60) 
Public Const ERROR_DEVICE_NOT_READY = (RASBASEERROR + 66) 
Public Const ERROR_LINE_BUSY = (RASBASEERROR + 76) 
Public Const ERROR_NO_ANSWER = (RASBASEERROR + 78) 
Public Const ERROR_NO_CARRIER = (RASBASEERROR + 79) 
Public Const ERROR_NO_DIALTONE = (RASBASEERROR + 80) 
Public Const ERROR_AUTHENTICATION_FAILURE = (RASBASEERROR + 91) 
Public Const ERROR_PPP_TIMEOUT = (RASBASEERROR + 118) 

'////////////////////////////////////////////////////////////////////// 
'Public Const RAS95_MaxEntryName = 256 
Public Const RAS95_MaxDeviceName = 128 
Public Const RAS_MaxDeviceType = 16 

Public Type RASCONN95 
'set dwsize to 412 
dwSize As Long 
hRasConn As Long 
szEntryName(RAS95_MaxEntryName) As Byte 
szDeviceType(RAS_MaxDeviceType) As Byte 
szDeviceName(RAS95_MaxDeviceName) As Byte 
End Type 
'///////////////////////////////////////////////////////////////////////////////// 



'********************************** 
'* RAS API éù?÷ * 
'********************************** 
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 Integer 

Dim lngRetCode As Long 
Dim lngRetLstrcpy As Long 
Dim lngRetHangUp As Long 
Dim lprasdialparams As RASDIALPARAMS95 

If GetConnections() > 0 Then 
AddConnection = lngRetCode: Exit Function '·à?1?à??á??ó ±￡3?ò???á??ó 
End If 
lprasdialparams.dwSize = 1052 '?úWINDOWS95/98?D±?D???dwSizeéè?a1052 
'à?ó?lstrcpyoˉêy??×?·?′???±′μ?BYTEêy×é 
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), strNewPassword) 
lngRetLstrcpy = lstrcpy(lprasdialparams.szDomain(0), strNewDomain) 
'?ò??ê1ó?í?2?í¨D? 
Screen.MousePointer = vbHourglass 
hRasConn = 0 ' 
lngRetCode = RasDial(ByVal APINULL, vbNullString, lprasdialparams, APINULL, ByVal APINULL, hRasConn) 
Screen.MousePointer = vbDefault 
'2aê?óD??óD′í?ó 
If lngRetCode Then 
lngRetHangUp = RasHangUp(hRasConn) 
End If 
AddConnection = lngRetCode 
End Function 

Public Function GetConnections() As Integer 
Dim lngRetCode As Long 
Dim lpcb As Long 
Dim lpcConnections As Long 
Dim intArraySize As Integer 

ReDim lprasconn95(intArraySize) As RASCONN95 
lprasconn95(0).dwSize = 412 
lpcb = 256 * lprasconn95(0).dwSize 
lngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections) 

' If lngRetCode = 0 Then 
' End If 
GetConnections = lpcConnections 
End Function 

'///////////////////////////////////////////////////// 
Public Function HangUpAll() As Boolean 
Dim lngRetCode As Long 
Dim lpcb As Long 
Dim lpcConnections As Long 
Dim intArraySize As Integer 
Dim intLooper As Integer 

ReDim lprasconn95(intArraySize) As RASCONN95 
lprasconn95(0).dwSize = 412 
lpcb = 256 * lprasconn95(0).dwSize 
lngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections) 

If lngRetCode = 0 Then 
If lpcConnections > 0 Then 
For intLooper = 0 To lpcConnections - 1 
RasHangUp lprasconn95(intLooper).hRasConn 
Next intLooper 
Else 
HangUpAll = False 
Exit Function 
End If 
End If 
HangUpAll = True 
End Function 


调用方法: 
拨号:temp = AddConnection("连接名", "", "", username, Password, "") 'ADSL 
temp=0 成功,否则失败 
断线: HangUpAll

上一个：怎么用VB自动点击网页里的某按钮
下一个：如何将VB输出成.exe安装程序