用VB实现ADSL拨号

我是发给你邮件的人，刚在去看了百度消息！

VB6.0代码

1、第一个问题还要添上连接名（就是拨号连接的名字）
我这里有一个现成的代码，挺长的，能上网、断网、查看网络状态、查看连接数目，如果其它的不需要的话，自己看函数的名字，删了即可
把一下代码粘贴到模块中，在窗体某控件的时间中写：
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