关于切断网络的问题。

Question

请问如何切断网络。就像防火墙一样，点一点击“断网”就可以切断网络。请教大家。

Answer 1

VB编程切断网络连接,请参见:
http://topic.csdn.net/t/20020711/22/867925.html

Answer 2

谢谢 chenjl1031 ,
那个不是我所需要的.如题才是我所需要的.

Answer 3

想自己编程,就是要达到控制孩子上网的效果.有指定的时间把网络断开.是通过程序喔,不是通过系统.因为通过系统,孩子也是知道怎么连接网络的.谢谢 chenjl1031.

Answer 4

VB：如何启用/禁用本地连接     
                  其实没什么说的，无非就是先找到“网络连接”这个虚拟文件夹，然后找到要控制的本地连接对应的folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法，在winxp   sp2   ，vb6   sp6下测试通过，代码如下：   
  Option   Explicit   
  '首先引用Microsoft   Shell   Controls   And   Automation   
  Private   Function   ExcNetLinkMenu(ByVal   AdapterName   As   String,   ByVal   MenuName   As   String)   As   Boolean   
          On   Error   Resume   Next   
          Dim   mShell   As   New   Shell32.Shell   
          Dim   NetConnection   As   Shell32.Folder   
          Dim   FolderItem   As   Shell32.FolderItem   
          Dim   NetConnectionItem   As   ShellFolderItem   
          Dim   verb   As   Shell32.FolderItemVerb   
          Set   NetConnection   =   mShell.NameSpace(49)   '这个49是我找出来的，有了它就可以避免遍历控制面板   
          If   ObjPtr(NetConnection)   =   0   Then   
                  ExcNetLinkMenu   =   False   
                  GoTo   exitfunction   
          End   If   
          Dim   flag   As   Boolean   
          flag   =   False   
          For   Each   FolderItem   In   NetConnection.Items   
                  If   FolderItem.Name   =   AdapterName   Then   
                          Set   NetConnectionItem   =   FolderItem   
                          flag   =   True   
                          Exit   For   
                  End   If   
          Next   
          If   flag   =   False   Then   
                  ExcNetLinkMenu   =   False   
                  GoTo   exitfunction   
          End   If   
          For   Each   verb   In   NetConnectionItem.Verbs   
                  If   verb.Name   =   MenuName   Then   
                          flag   =   True   
                          verb.DoIt   
                          ExcNetLinkMenu   =   True   
                          GoTo   exitfunction   
                    End   If   
          Next   
          If   flag   =   False   Then   
                  ExcNetLinkMenu   =   False   
                  GoTo   exitfunction   
          End   If   
  exitfunction:   
          Set   mShell   =   Nothing   
          Set   NetConnection   =   Nothing   
          Set   FolderItem   =   Nothing   
          Set   NetConnectionItem   =   Nothing   
          Set   verb   =   Nothing   
  End   Function   
    
  Private   Sub   Command1_Click()   
                  Dim   flag   As   Boolean   
                  '把   本地连接   2   换成你要控制的本地连接的名字   
                  flag   =   ExcNetLinkMenu("本地连接   2",   "停用(&B)")   '这个在2000下对应的是禁用,具体是什么，点右键,自己看吧   
  End   Sub   
    
  Private   Sub   Command2_Click()   
          '把   本地连接   2   换成你要控制的本地连接的名字   
          Dim   flag   As   Boolean   
          flag   =   ExcNetLinkMenu("本地连接   2",   "启用(&A)")   
  End   Sub   

Answer 5

用wscript.shell改一下注册表相关键值

Answer 6

hpygzhx520 的程序好像在USER用户权限下不能用吧，停了可以在手动启用，除非用定时器，最好在USER权限下断掉，这样除非超级用户才能启用

Answer 7

USER用户本来就不具备断开网络的权限吧
hpygzhx520 的程序我收藏了,谢谢!!!

Answer 8

先感谢大家.hpygzhx520 这种方法已经做到了. 但是就像 lizhiguo 所说的一样,用户还是可能启用.可以用定时器的话,感觉不是那么好,会耗系统资源.toury 所说的也可以考虑. 但同样的用户也是可以修改注册表.还有没有好的方法呢. 继续请教大家.