VB怎样启动和禁止本地连接，要代码

vb6.0 启动和禁用 本地链接的方法和代码!~

内存不能为read/written 问题的简单解决办法：(原创答案，欢迎分享→请活学活用→仅供参考): 一、硬件的可能性是比较小的,如果是硬件,那就应该是内存条跟主机不兼容的问题导致的 如果能排除硬件上的原因（内存条不兼容，更换内存。内存条松动或积累灰尘，重新拔插并清理灰尘）往下看： 二、系统或其它软件引起的，可用下述方法处理：系统本身有问题，及时安装官方发行的补丁，必要时重装系统。 病毒问题：杀毒 。杀毒软件与其它软件冲突：卸载有问题的软件。显卡、声卡驱动是否正确安装或者是否被恶意覆盖否？重新安装显卡声卡驱动。 1、使用系统自带的sfc命令，修复受到损坏的系统文件恢复到正常状态。 开始→运行→输入cmd，打开“命令提示符”窗口→输入字符串命令sfc/scannow→回车→耐心等待命令程序对每个系统文件搜索扫描→一旦发现系统文件的版本不正确或者系统文件已经损坏→它就能自动弹出提示界面→要求插入Windows系统的安装光盘→从中提取正常的系统文件来替代不正常的系统文件→达到修复系统文件的目的→最后重新启动计算机。 2、安装过的Domino这程序导致有问题,你可以在开始→运行→msconfig→启动项目→关闭Domino启动项→如果关闭不了→可以用卡卡助手之类的系统设置软件把它强行关掉→如果还是不行的→证明你系统中毒→那就重新安装或者恢复系统备份彻底解决。 三、某些系统服务被禁用可能导致类似问题，例如QoS RSVP本地通信控制安装功能被禁用时可能会提示RPC服务器不可用。解决方法：我的电脑右键→管理→服务和应用程序→服务→双击QoS RSVP项目将启动类型改为“手动”或“自动”→关闭窗口→重新启动计算机。如果其它服务被禁用导致的问题也可用这个方法重新启用来解决。

Set WMI=GetObject("winmgmts:\\.oot\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 Ifnext说明：1、你上面给出的代码编写的很怪异，乍一看觉得运行时不够稳定，我给你重新编写了一个。 2、代码在win 7下编写的。 3、为了避免每次都弹出提示框，我取消了提示框，运行后不会弹出任何窗口。 4、若当前本地连接启用，运行后则禁用，若当前本地连接为禁用，运行后则启用。 5、启用本地连接时，有个扫描网络的过程，需要1~2秒，请不要重复运行。

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

绝对不是为了干啥好事，去你大爷的！

---

汤阴县15216377032： VB怎样禁用和启用本地连接？
冷丽天地： http://ms.mblogger.cn/supergreenbean/posts/5537.aspx 参考这个网址看看.然后在参考下硬件和vb的相关资料.

汤阴县15216377032： VB怎样启动和禁止本地连接,要代码 - ？
冷丽天地： 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 ...

汤阴县15216377032： vb6.0 禁用本地连接和启用本地连接代码 (win7) - ？
冷丽天地： 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 ...

汤阴县15216377032： vb禁用本地连接 - ？
冷丽天地： d 不会~~ 完成的话,请给分结贴 不知道你能不能看懂我说的~~你引用了 Microsoft Shell Controls And Automation 没有?没有的话,引用~不能的话再补充问题....瀑布汗...'其实没什么说的,无非就是先找到“网络连接”这个虚拟文件夹,然后找到...

汤阴县15216377032： 禁用与启用本地连接最简单的命令 - ？
冷丽天地： 运行如下命令: netsh interface show interface将显示类似下面的画面: Admin State State Type Interface Name ------------------------------------------------------------------------- Enabled Unreachable Dedicated Local Area Connection 2 Enabled ...

汤阴县15216377032： 怎样用VB6控制本地连接?？
冷丽天地： SetTcpEntry ()这个可以,不过你要用 GetTcpEntry() 获得一个表,然后再删除不过UDP不可以删除,不知道是不是我没有找到这个API..

汤阴县15216377032： 怎样用VB关闭一个指定的进程? - ？
冷丽天地： 1.首行看他的标题是什么2.把标题加到以下的程序代码,即可.Option Explicit Private Declare Function PostMessage Lib ＂User32＂ Alias ＂PostMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam ...

汤阴县15216377032： vb中如何获得网卡是启用还是禁用 - ？
冷丽天地： 我是用ping 解决的,如果通就是启用,否则禁用,你可以试试

汤阴县15216377032： 一键启用/禁用 本地连接 VBS 如下:在XP可以行没问题,可是在WIN7运行, 就找不到“网络连接”,怎么改? - ？
冷丽天地： Set WMI=GetObject(＂winmgmts:\\.\root\cimv2＂) Set w=WMI.ExecQuery(＂select * from WIN32_NetworkAdapter＂) For Each i In wIf i.NetConnectionID=＂本地连接＂ ThenIf i.NetConnectionStatus<>0 theni.DisableElsei.Enableend ifEnd ...

汤阴县15216377032： vb中有没有直接的禁用和启用网卡的办法 - ？
冷丽天地： 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 ...