新建 文本文档.txt

adsl拨号工具 有很多功能 不错啊 大家试试

SkinLabel1
请从列表中选择您的名称：
SkinLabel2
操作口令(&P)：
SkinLabel3
请输入上网的内容(&M)：
SkinLabel4
名称(&U)：
SkinLabel5
口令(&L)：
SkinLabel6
确认(&G)：
SkinLabel7
拨号类型:
SkinLabel8
帐号:
SkinLabel9
密码:
SkinLabel10
进入网页:
SkinLabel11
运行程序:
SkinLabel2
操作口令(&P)：
SkinLabel3
请输入上网的内容(&M)：
SkinLabel4
名称(&U)：
SkinLabel5
口令(&L)：
SkinLabel6
确认(&G)：
SkinLabel7
拨号类型:
SkinLabel8
帐号:
SkinLabel9
密码:




'取得目前连接信息

Function GetAllConnects(ConnEntry() As RASCONN) As Long
'传回值: 总共连接数
'使用方式:

Dim Conn() As RASCONN
Dim icnt As Long
icnt = GetAllConnects(Conn())
End Function

'取得所有拨号网络Entry的信息 (不管有没有连接)
Function GetRasNameEntries(Entry() As RASENTRYNAME, Optional PhonePath As String) As Long

'传回值: 总共Entry数
'使用方式:
Dim Conn() As RASENTRYNAME
Dim icnt As Long
icnt = GetRasNameEntries(Conn())
End Function

'呼叫修改某一个连接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