vb中连接网络

来源：百度知道 编辑：UC知道 时间：2024/06/04 05:09:49
恩，快带拨号，链接，断开，这个动作，怎么弄的哈？有高手教下~
跪求啊~~~！！！
一楼的，那两个一个不全，一个看不懂....夹杂了好些符号....
那我研究下....

Shell "Rasphone.exe -h " & "连接名称"
如果不知道连接名称，可以用如下代码，先获取网络连接名称及在线状态

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long

Private Property Get OnLine(ln As String) As Boolean
ln = String$(128, 0)
OnLine = InternetGetConnectedStateEx(0, ln, 128, 0&)
End Property

Private Sub Command1_Click()
Dim LinkName As String
If OnLine(LinkName) Then Shell "Rasphone.exe -h " & LinkName
End Sub

shell "rasdial.exe 连接名称 /disconnect",1
就是在网络属性里你创建网络拨号的那个连接名称呀

挂断所有网络连接
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private Declare Function RasEnumConnections Lib "RasAp