vb6.0 禁用本地连接和启用本地连接代码 (win7) 50
若以下回答无法解决问题，邀请你更新回答
展开全部
Set WMI=GetObject("winmgmts:\\.\root\cimv2")
Set w=WMI.ExecQuery("select * from WIN32_NetworkAdapter")
For Each i In w
If i.NetConnectionID="本地连接" Then
If i.NetConnectionStatus<>0 then
i.Disable
Else
i.Enable
end if
End If
next
说明：1、你上面给出的代码编写的很怪异，乍一看觉得运行时不够稳定，我给你重新编写了一个。
2、代码在win 7下编写的。
3、为了避免每次都弹出提示框，我取消了提示框，运行后不会弹出任何窗口。
4、若当前本地连接启用，运行后则禁用，若当前本地连接为禁用，运行后则启用。
5、启用本地连接时，有个扫描网络的过程，需要1~2秒，请不要重复运行。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
