VB编程 如何断开adsl网络

来源：百度知道 编辑：UC知道 时间：2024/05/17 09:14:38
我只是想要断开网络那一段
大家不要帖一大段
好的话有附加分
对了
连接名称是类似 我的连接
这样快捷方式的名字么

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

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

挂断所有网络连接

http://hi.baidu.com/yfdyh000/blog