'断开Internet网络连接 Public Function RASDisconnect() Dim udtRASConn(255) As RASConnType, udtStatus As RASConnStatusType, lRet As Long, hRasConn As Long, GetRASHandle As Long udtRASConn(0).dwSize = 412 lRet = RASEnumConnections(udtRASConn(0), udtRASConn(0).dwSize * 256, 0) If lRet <> 0 Then GetRASHandle = 0 Else GetRASHandle = udtRASConn(0).hRascon If GetRASHandle <> 0 Then Call RASHangUp(GetRASHandle) End Function '连接Internet网络 Public Function RASConnect(ByVal Phone_no, ByVal UserName As String, ByVal Password As String) As Boolean Dim rp As RASDIALPARAMS, h As Long, resp As Long rp.dwSize = Len(rp) + 6 ChangeBytes Phone_no, rp.szPhoneNumber 'Phone no. stored for Connection. ChangeBytes "*", rp.szCallbackNumber 'Callback no. stored for Connection. ChangeBytes UserName, rp.szUserName ChangeBytes Password, rp.szPassword ChangeBytes "*", rp.szDomain 'Domain stored for Connection. resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h) 'AddressOf RasDialFunc RASConnect = (resp = 0) End Function
'断开Internet网络连接
Public Function RASDisconnect()
Dim udtRASConn(255) As RASConnType, udtStatus As RASConnStatusType, lRet As Long, hRasConn As Long, GetRASHandle As Long
udtRASConn(0).dwSize = 412
lRet = RASEnumConnections(udtRASConn(0), udtRASConn(0).dwSize * 256, 0)
If lRet <> 0 Then GetRASHandle = 0 Else GetRASHandle = udtRASConn(0).hRascon
If GetRASHandle <> 0 Then Call RASHangUp(GetRASHandle)
End Function
'连接Internet网络
Public Function RASConnect(ByVal Phone_no, ByVal UserName As String, ByVal Password As String) As Boolean
Dim rp As RASDIALPARAMS, h As Long, resp As Long
rp.dwSize = Len(rp) + 6
ChangeBytes Phone_no, rp.szPhoneNumber 'Phone no. stored for Connection.
ChangeBytes "*", rp.szCallbackNumber 'Callback no. stored for Connection.
ChangeBytes UserName, rp.szUserName
ChangeBytes Password, rp.szPassword
ChangeBytes "*", rp.szDomain 'Domain stored for Connection.
resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h) 'AddressOf RasDialFunc
RASConnect = (resp = 0)
End Function