取得目前连接信息 Function GetAllConnects(ConnEntry() as RASCONN) As Long 传回值：总共连接数 使用方式 ： Dim Conn() AS RASCONN Dim icnt as Long icnt = GetAllConnects(Conn())
取得所有拨号网络Entry的信息(不管有没有连接) Function GetRasNameEntries(Entry() As RASENTRYNAME, _ Optional PhonePath As String) As Long 传回值：总共Entry数 使用方式 ： Dim Conn() AS RASENTRYNAME Dim icnt as Long icnt = GetRasNameEntries(Conn())
呼叫修改某一个连接Entry 的Window Sub EditEntry(ByVal EntryName As String, _ Optional ByVal PhonePath As String) 於拨号网络中新增一个Entry Sub CreateEntry(Optional ByVal PhonePath As String) 自动拨接 Function DialUp(ByVal EntryName As String, ByVal UserN As String, _ ByVal Pwd As String, Optional ByVal PhonePath As String) As Long 取消拨接 Function HangUp(ByVal hconn As Long) As Boolean hconn的值来自於 1.DialUp()的传回值 2.GetAllConnects() RASCONN结构叁数中的hRasConn值
取得连接状态 Function GetConnectStatus(ByVal hocnn As Long) As Long hconn的值来自於 1.DialUp()的传回值 2.GetAllConnects() RASCONN结构叁数中的hRasConn值
注释：Below is in rasapi.bas Public Const RAS_MaxEntryName = 256 Public Const RAS_MaxDeviceName = 128 Public Const RAS_MaxDeviceType = 16 Public Const RAS_MaxPhoneNumber = 128 Public Const RAS_MaxCallbackNumber = 128 Public Const UNLEN = 256 Public Const PWLEN = 256 Public Const DNLEN = 15 Public Const ERROR_INVALID_HANDLE = 6
Type RASCONN dwSize As Long 注释：412 hRasConn As Long szEntryName(RAS_MaxEntryName) As Byte szDeviceType(RAS_MaxDeviceType) As Byte szDeviceName(RAS_MaxDeviceName) As Byte End Type
Type RASENTRYNAME dwSize As Long 注释：264 szEntryName(RAS_MaxEntryName) As Byte End Type
Type RASDIALPARAMS dwSize As Long 注释：1052 szEntryName(RAS_MaxEntryName) As Byte szPhoneNumber(RAS_MaxPhoneNumber) As Byte szCallbackNumber(RAS_MaxCallbackNumber) As Byte szUserName(UNLEN) As Byte szPassword(PWLEN) As Byte szDomain(DNLEN) As Byte End Type
Type RASCONNSTATUS dwSize As Long 注释：144 RasConnState As Long dwError As Long szDeviceType(RAS_MaxDeviceType) As Byte szDeviceName(RAS_MaxDeviceName) As Byte End Type
Declare Function RasDial Lib "rasapi32" _ Alias "RasDialA" (DialExt As Long, ByVal lpPhoneBook As String, _ RasDialParam As RASDIALPARAMS, ByVal NotifyType As Long, _ ByVal Notifter As Long, hRasConn As Long) As Long Declare Function RasCreatePhonebookEntry Lib "rasapi32" _ Alias "RasCreatePhonebookEntryA" (ByVal hWnd As Long, ByVal lpPhoneBook As String) As Long
精品推荐