[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS如何实现禁用/启用所有网卡/网络适配器?

本帖最后由 doswork 于 2016-7-1 21:36 编辑

请教:VBS能实现  关闭/打开 网络连接 的功能吗? 如果能的话怎么实现?

希望的效果:不限系统(有通用性,常见系统都有效,比如xp到win10),不想用网络的时候全部关闭网络连接,需要用的时候再全部开启。                                 能够快速的通过点击一下 “.vbs” 就实现 关闭/开启 网络连接 的功能(也可以一个开启,一个关闭),不用来回右键、左键的点击才能实现;

                 网上找到的代码测试没有效果,那个代码即便能用,也只能是在“本地连接”这种名称下有效,遇到“本地连接 5”、“无线网络连接 5”这样的还得手动再次修改vbs才能用。

谢谢!
多谢“zz100001” 给出的解决办法,应该是win7以上的系统有效,xp不支持。
1

评分人数

本帖最后由 9zhmke 于 2016-7-3 12:03 编辑

XP当然是可以实现的,玩程序得调试,不调试那叫定制程序

TOP

回复 9# zz100001


    确实是系统的问题,xp系统不支持,win10有效,多谢!

TOP

本帖最后由 doswork 于 2016-7-1 18:37 编辑

回复 9# zz100001


    您这个和系统还有“网络连接”的名称是否有关系?

我测试机器是xp的系统,网络连接的名称不是“本地连接”,而是“本地连接 5”,刚测试和名称应该没有关系,我再试试高版本的系统

TOP

你这啥系统啊,不知道你那个网络连接里面都有啥东西
先加个限制试一下,不行再看看里面出了网络连接还有些什么玩意儿
  1. Set sa = CreateObject("Shell.Application")
  2. Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
  3. For i = 0 To cs.Count - 1
  4.     If cs.Item(i).Path = "{BA126ADB-2166-11D1-B1D0-00805FC1270E}" Then
  5.         cs.Item(i).Verbs().Item(0).DoIt
  6.     End If
  7. Next
  8. MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码
1

评分人数

    • doswork: 新手分少,就少给点儿,多谢帮助!技术 + 1

TOP

回复 7# zz100001


    多谢回复!

   您的代码确实看不懂,但还是没有效果,出现“新建网络连接向导”……
   应该是认出笔记本上有“有线”和“无线”两个连接,vbs有两个窗口,但提示无法断开连接

TOP

这种模拟操作的东西,有太多不确定因素,其实如果能看懂的话,2楼 就这么磕 的代码改改去掉判断就行了
这里给你写个新的
  1. Set sa = CreateObject("Shell.Application")
  2. Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
  3. For i = 0 To cs.Count - 1
  4.     cs.Item(i).Verbs().Item(0).DoIt
  5. Next
  6. MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码

TOP

本帖最后由 doswork 于 2016-6-30 18:41 编辑

回复 5# pcl_test


    多谢版主,既然来了,版规是肯定要遵守的!下次一定注意!

   其实有时候问问题我们不一定会像版主您这样有很好的逻辑性,那样肯定不会有问题,特别是我们这些生手,可能会存在问题一次描述不清的情况,版主辛苦了~

   问问题有时候也是整理并解决的过程,不一定一次都能把问题说的清清楚楚,都清楚的话就没必要问了,呵呵……

TOP

本帖最后由 pcl_test 于 2016-6-30 17:11 编辑

回复 4# doswork

所有扣分是没错的,明显你是没有看过版规(或是看了却不当一回事)就随意发的贴,所以连扣分项都不知道
1、如果是标题问题,我会明说是标题
2、如果论坛有相同或类似的问题贴,而你因为没有深入搜索就发帖,我也会说明
3、你的扣分是因为你原来的标题和内容只有一含糊的话“请教:VBS能实现  关闭/打开 网络连接 的功能吗? 如果能的话怎么实现?”,而版规第二点已明确说明要求,特别是要“一次性把问题和结果交代清楚,勿‘挤牙膏’”,然后你现在才补充说明问题“希望的效果……”
4、如果不能接受论坛的版规并遵守,那么你可以离开

TOP

回复 1# doswork


    版主也太苛刻了吧? 呵呵……

我问的是“如何 关闭/开启 网络连接”,搜索并没有结果,然后您把标题修改了,那意思就是我问这问题必须考虑到相似的关键字都搜索一遍来问才不违规,就是说我得搜索“开启/关闭 网卡”这个发现没有才行……

TOP

多谢!
这段儿代码之前看过,但是我试过没有用……

我想实现的是通用的效果:也就是说,不管在什么系统都可以实现点击 .vbs 就可以快速 关闭/开启 网络连接,不知道能不能实现。



这论坛真苛刻啊……
第一次来发帖就给扣分……

TOP

本帖最后由 pcl_test 于 2016-7-1 12:46 编辑

当然可以了,参考本段(摘自 3DMAX9全自动注册 http://bbs.dp168.com/thread-79026-1-1.html):
  1. FunctiOn NetWork(i)
  2. '接收参数:0:关闭“本地连接”   1:打开“本地连接”   2:自动(关闭则打开;打开则关闭)
  3. Const ssfCONTROLS = 3
  4. sConnectionName = "本地连接"
  5. Set shellApp = createobject("shell.application")
  6. Set oControlPanel = shellApp.Namespace(ssfCONTROLS)
  7. Set oNetConnections = nothing
  8. for each folderitem in oControlPanel.items
  9. If folderitem.name = "网络连接" Then Set oNetConnections = folderitem.getfolder: exit for
  10. next
  11. If oNetConnections is nothing Then msgbox "未找到网络连接文件夹":wscript.quit
  12. Set oLanConnectiOn = nothing
  13. for each folderitem in oNetConnections.items
  14. If lcase(folderitem.name) = lcase(sConnectionName) Then Set oLanConnectiOn = folderitem: exit for
  15. next
  16. If oLanConnectiOn is nothing Then msgbox "未找到 '" & sConnectionName & "' item":wscript.quit
  17. bEnabled = true
  18. Set oEnableVerb = nothing
  19. Set oDisableVerb = nothing
  20. s = "Verbs: " & vbcrlf
  21. for each verb in oLanConnection.verbs
  22. s = s & vbcrlf & verb.name
  23. If verb.name = "启用(&A)" Then Set oEnableVerb = verb:bEnabled = false
  24. If verb.name = "禁用(&B)" or verb.name = "停用(&B)" Then Set oDisableVerb = verb:End If
  25. next
  26. If bEnabled and (i=0 or i=2) Then
  27. oDisableVerb.DoIt
  28. Else
  29. If bEnabled=0 and i>0 Then oEnableVerb.DoIt
  30. End If
  31. wscript.sleep 400
  32. End Function
复制代码

TOP

返回列表