Ⅰ 用VB怎样做才能断开网络连接而不禁用本地连接（在不修改IP的情况下）
能想到的有两种方法：
1、修改路由表，这个相对比较简单一点，就是用route add和route delete，把默认路由删了，那么大部分网络通信都不可达，同时你可以再添上删掉的路由就可以恢复网络（重启计算机也可以）
路由表操作有API，网络关键字“请问如何读取本机的路由表 VB”就可以找到。
2、这个方法就及其复杂，并且只对Ring3的程序管用（因为VB是Ring3的，无法修改比它高级别的代码），那就是挂API钩子，这个跟挂键盘钩子完全不同，实际上是通过汇编修改WINSOCK相关函数的入口地址，这个用VB做相当复杂，但是也是比较彻底的一种办法。
代码我就不给你，都不太简单你确认你要做的时候我可以给你做一个简单的例子看看
Ⅱ vb小问题
概述了 My 功能如何公开 .NET Framework 功能，包括可用的类、动态生成的类以及线程处理。
注：本文和示例代码均基于 Microsoft Visual Studio 2005（此前代号为“Whidbey”）的预发布版。文中包含的所有信息均有可能变更。示例项目需要 Visual Studio 2005 Beta1 或更高版本。
简介
My 是 Visual Basic 2005 中的一项新功能，它可将常用功能放在您触手可及的地方，并减少了您必须编写的代码行数。它以有效、可靠且线程安全的方式实现这一目的。在程序员工作效率显得尤为重要的环境中，My 可以帮助您更快地完成工作，这就是 Visual Basic 的精髓所在。
本文旨在探究如何使用 My 来访问 .NET Framework 功能羡培以及您项目中的项。
可从 My 中获得的 .NET Framework 类
由于 .NET Framework 涉及的内容很多，因此要找到您所需的功能非常困难。为了解决此问题，My 提供了常用 .NET Framework 类和功能的入口点。My 还公开了新的高级别携派返 .NET Framework 类，这些类可将相关的功能汇集到基于任务的 API 中。
My 公开功能的方式包括：返回已实例化并可以使用的 .NET Framework 类，延推迟对 .NET Framework 方法的调用，以及返回动态生成的类（使用该类可访问您项目中的项）。
直接公开
只要可能，My 便会作为一种发现机制为 .NET Framework 中的现有类提供服务，并直接公开这些类型。请参见以下 My.Application.Deployment 示例：
Public ReadOnly Property Deployment() As _
System.Deployment.ApplicationDeployment
Get
Return _
System.Deployment.ApplicationDeployment.CurrentDeployment
End Get
End Property
直接公开的其他示例包括 My.Computer.FileSystem.OpenTextFileReader()（它返回 System.IO.StreamReader）、My.Application.OpenForms()（它返回 System.Windows.Forms.FormsCollection）、My.User（它返回 System.Security.Principal.IPrincipal），等等。
外观
My 还可以返回能够提供基于任务的 API 的新类，以用于执行先前难以执行的操作，因为在以前找到功能很困难，并且/或者需要多个对象协同完成。
需要使用低级别 .NET Framework API 或者需要多辩饥行代码的常见任务得以大大简化。请参见以下确定网络连接是否可用的任务示例：
Imports System.Net.NetworkInformation
Public ReadOnly Property IsAvailable() As Boolean
Get
For Each NetInterface As NetworkInterface In _
NetworkInterface.GetAllNetworkInterfaces()
If NetInterface.Type <> InterfaceType.Loopback _
AndAlso NetInterface.Type <> InterfaceType.Tunnel _
AndAlso NetInterface.OperationalStatus = _
OperationalStatus.Up Then
Return True
End If
Next
Return False
End Get
End Property
上面的代码需要 System.Net.NetworkInformation 命名空间中几个类型的详细知识。使用外观模式，My.Computer.Network 可将这些类型及其关系简化为一行代码：My.Computer.Network.IsAvailable()。
外观还可以将用其他方式难以找到的相关功能简单地汇集在一起。例如，My.Computer 可将不同类的属性汇集起来，以提供计算机名以及对屏幕的访问：
Public ReadOnly Property Name() As String
Get
Return System.Environment.MachineName
End Get
End Property
Public ReadOnly Property Screen() As System.Windows.Forms.Screen
Get
Return System.Windows.Forms.Screen.PrimaryScreen
End Get
End Property
在 My 中，可从多个 .NET Framework 类型中汇集相关功能的类的其他示例包括 My.Application、My.Computer、My.Computer.FileSystem、My.Computer.Info 以及 My.Application.Info。
Proxy 类
proxy 类是一个非常“瘦”的类，可将对它的所有调用转发到基础对象中。例如，如果您调用 My.Computer.Clipboard.GetText()，则实际上是在调用 proxy 类方法 ClipboardProxy.GetText()，定义如下：
Public Function GetText() As String
Return Clipboard.GetText()
End Function
按照约定，proxy 类总是带有后缀 Proxy。当访问剪贴板、文件系统以及注册表时，My 会利用代理，这是因为代理公开的基本类是由在 IntelliSense 中不可见的共享方法组成的。Proxy 类无法由用户实例化。性能测试已表明，通过代理转发调用毫无意义。
动态生成的类
本着“使功能触手可及”这一宗旨，My 提供了对您项目中定义的窗体、Web 服务、资源和设置的访问。例如，如果您的项目包含对 Web 服务 MapDirections 的引用，则可以立即使用该 Web 服务，而不必了解如何启动该 Web 服务代理的实例。您只需键入以下内容： My.WebServices.MapDirections.GetDirections(...)
这是如何工作的？对于您项目中的窗体、Web 服务、设置以及资源，factory 类是由按需返回以惰性方式创建的实例的编译器生成的。factory 类经过调整，可以用适用于项目（您的代码运行在其中）类型 (exe/dll/web) 的方式返回实例。有关更多详细信息，请参阅“线程处理”部分。
My.Forms
作为动态生成的类的一个示例，请考虑 My.Forms。该类已提供给您，并为您项目中的每个窗体定义了工厂 (Factory) 方法。当您通过 My.Forms.Form1 访问 Form 时，该工厂方法会检查是否已打开 Form1 的一个实例。如果已打开一个实例，便会返回该实例。否则，会创建并返回 Form1 的一个实例。为包含 Form1 的项目所生成的代码如下所示：
Class MyForms
'Code in bold is generated by the compiler
Public m_Form1 As Form1
Public Property Form1() As Form1
Get
m_Form1 = Create__Instance__ (Of Form1)(m_Form1)
Return m_Form1
End Get
Set(ByVal Value As Form1)
If Value Is m_Form1
Return
End If
If Not Value Is Nothing Then
Throw New ArgumentException( _
"Property can only be set to Nothing.")
End If
Dispose__Instance__ (Of Form1)(m_Form1)
End Set
End Property
End Class
Create__Instance__() 函数负责按需创建窗体的实例。它会检查窗体（存储在 m_Form1 中）是否已被实例化。如果窗体已被实例化，便会返回该窗体。否则，会创建并返回一个实例。Create__Instance__() 还会捕获递归窗体创建尝试。Dispose__Instance__() 负责关闭该窗体。
My.Forms 还提供了重新引入窗体的默认实例的方法，您可能在较早版本的 Visual Basic 中熟悉该方法。默认实例使得在不必先显式创建窗体的实例的情况下引用窗体的实例成为可能。
例如，在 Visual Basic 6.0 中，作为替代，您可能已经编写了 Form1.Show()：
Dim Form1Instance as Form1
Form1Instance = new Form1
Form1Instance.Show()
由于 Visual Basic 2005 中的编译器利用 My.Forms 来创建默认实例，因此，您可以仅编写 Form1.Show()。
My.WebServices
人们在针对 Web 服务进行编码时遇到的困难之一是确定针对哪个类来进行编码。My.WebServices 省去了该确定过程并按需提供了 Web 服务代理的实例。
My.WebServices 最适用于同步调用 Web 服务。所生成的用以提供 Web 服务代理的实例的代码模式与所示的用以返回窗体的实例的代码模式相同。
My.Settings
Visual Basic 2005 中的新功能是 Settings 设计器，它可让您以应用程序或用户为基础指定应用程序设置。该设计器创建了一个类，您可以使用该类以强类型的方式访问您的设置。通过在解决方案资源管理器中显示所有文件并在 MySettings.Settings 节点下查找 MySettings.vb 文件，您可以看到 MySettings 类的一个示例。
以下为所生成的用以管理名为 SampleUserSetting 的应用程序设置的属性示例：
Partial NotInheritable Class MySettings
Inherits System.Configuration.ApplicationSettingsBase
<System.Diagnostics.DebuggerNonUserCode(), _
System.Configuration.UserScopedSettingAttribute(), _
System.Configuration.DefaultSettingValueAttribute("Try Me")> _
Public Property SampleUserSetting() As String
Get
Return CType(Me("SampleUserSetting"),String)
End Get
Set
Me("SampleUserSetting") = value
End Set
End Property
End Class
生成的类可为您做所有繁重工作。要访问该设置，您只需键入以下内容：
My.Settings.SampleUserSetting
My.Resources
Visual Basic 2005 中的另一项新功能是 Resource 设计器，它使您能够向应用程序中添加资源。Resource 设计器还会创建一个模块，您可以使用该模块以强类型的方式访问您应用程序中的资源。例如，如果您向项目中添加名为 Smiley 的位图，则可以使用 My.Resources.Smiley 访问该位图。通过在示例项目的解决方案资源管理器中显示所有文件并在 MyResources.resx 节点下查找 MyResources.vb 文件，您可以看到生成的资源模块的一个示例。
以下为所生成的用以返回 Smiley 资源的工厂属性的示例项目的一个示例：
Public ReadOnly Property Smiley() As System.Drawing.Bitmap
Get
Return CType(ResourceManager.GetObject("Smiley", _resCulture),_
System.Drawing.Bitmap)
End Get
End Property
所生成的强类型资源模块处理区分大小写的资源 ID，使用 System.Resources.ResourceManager 类检索您的资源，并管理与获取为应用程序正确创建的 ResourceManager 相关的详细信息。
要在 Visual Basic 2002 或 Visual Basic 2003 中访问相同的 Smiley 位图，您首先要将该位图放入 .resx 文件中，而该操作是很困难的。另一个方法是将它作为嵌入资源放入项目中，并且必须牢记在将要成为嵌入资源的资源的属性网格中更改生成操作。这样，您编写的代码应该如下所示：
Dim CurrentAssembly As Reflection.Assembly = _
Reflection.Assembly.GetExecutingAssembly
Dim BitMapStream As IO.Stream = _
CurrentAssembly.GetManifestResourceStream( _
"WindowsApplication2.Smiley.bmp")
Dim SmileyBitmap as Drawing.Bitmap = New Bitmap(BitMapStream)
该段代码中有一些重要的详细信息是您所必需了解的。您必须知道获取当前正在执行的程序集，并在其上调用 GetManifestResourceStream()。您必须牢记使用根命名空间名称来限定资源名。您必须获取大小写权限，这是因为传递给 GetManifestResourceStream() 的名称是区分大小写的。您必须知道在何处定义流类，这样您可以在流对象中捕获 GetManifestResource 的返回值。您必须知道如何从流创建位图。由于上述问题之一，在试图判断 BitMapStream 为什么总是返回 Nothing 时，您可能会遇到挫折。
Visual Basic 2005 通过提供 Resource Editor 解决第一个问题，使用 Resource Editor 可以很容易地将新的或现有资源放入 .resx 文件中。然后，可以使用 My 很容易地访问这些资源。您只需编写以下内容：
Dim SmileyBitmap as Drawing.Bitmap = My.Resources.Smiley
线程处理
My 中可用的类实例是通过缓和线程处理问题的方式公开的，因为 My 对象的实例是逐线程提供的。即，线程 1 上返回的 My.Computer 的实例不同于线程 2 上返回的 My.Computer 的实例。这意味着当使用 My 对象时，您不必编写同步代码。
在 Web 应用程序中，从 My 返回的实例是根据请求存储的。
小结
我们已经研究了 My 如何公开 .NET Framework 类以及如何生成动态生成的类以补充 My。
最后，My 可以减少您必须编写的代码行数，并提供对常用功能的访问。它以有效、可靠且线程安全的方式实现这一目的。在程序员工作效率显得尤为重要的环境中，My 可以帮助您更加快速有效地完成工作
Ⅲ 如何用vb来控制禁用、启用网卡，听说是API，请高手指点
可以参考绿豆的vbdhctrl, http://yuan505.vicp.net/cy_filesxxx/vbsrc/VBHDCtrl.rar里面有各者誉余虚锋硬件的禁用--启用方法向绿首滚豆致敬
Ⅳ 怎么用VB写关闭进程的程序,比如QQ和一些游戏，要求开机自动启动的，儿子现在上网太厉害需要禁止
第一种方法：编个VBS脚本自动运行就拍搏团行了
do while 1
dim y,ws,x
on error resume next
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
set x=y.execquery("select * from win32_process where name='qq.exe'")
for each i in x
ws.run "taskkill -f -im qq.exe"
next
loop
保存到文本文件，然后修改后缀名为.vbs，文件名随便，假如是a.vbs，然后拖到你的开始→程序→启动里面，这样每次在打开电脑的时候会自动运行，当你运行QQ的时候是打不开的，当然如果你想禁止QQ游戏的话，就把上面的qq.exe换成QQ游戏的进程名，不知道可以网络“QQ游戏进程名袭橘”，就是*.exe，这样就禁止了，如果要同时禁止很多，你可以在ws.run "taskkill -f -im qq.exe"下面加很多个ws.run "taskkill -f -im qq.exe"，然后把qq.exe改成相应的进程就行了。
第二种方法：用组策略禁用程序
开始→运行→输入gpedit.msc→用户配置→管理模板→系统，在右边找到“不要运行制定的windows应用程序”在里面添加你不要运行的程序。不知道怎么弄的追问。
第三种方法，用VB整个小程序出来禁止，这个今天没时间搞了，明天再银锋说吧。
Ⅳ 如何用VB禁止程序访问网络
Private Sub ToggleLanConnection() Const ssfCONTROLS = 3 sConnectionName = "本地连接" ' sConnectionName = "Local Area Connection" '英文 sEnableVerb = "启用(&A)" sDisableVerb = "禁用(&B)" ' sEnableVerb = "En&able" '英文 ' sDisableVerb = "Disa&ble" '英文 Set shellApp = CreateObject("shell.application") Set oControlPanel = shellApp.Namespace(ssfCONTROLS) Set oNetConnections = Nothing For Each folderitem In oControlPanel.items If folderitem.Name = "网络正袭和拨号连接" Then ' If folderitem.Name = "Network Connections" Then '英举饥兄文 Set oNetConnections = folderitem.getfolder: Exit For End If Next If oNetConnections Is Nothing Then MsgBox "Couldn't find 'Network Connections' folder" Exit Sub End If Set oLanConnection = Nothing For Each folderitem In oNetConnections.items If LCase(folderitem.Name) = LCase(sConnectionName) Then Set oLanConnection = folderitem: Exit For End If Next If oLanConnection Is Nothing Then MsgBox "Couldn't find '" & sConnectionName & "' item" Exit Sub End If bEnabled = True Set oEnableVerb = Nothing Set oDisableVerb = Nothing For Each Verb In oLanConnection.verbs Debug.Print Verb.Name If Verb.Name = sEnableVerb Then Set oEnableVerb = Verb bEnabled = False Exit For End If If Verb.Name = sDisableVerb Then Set oDisableVerb = Verb Exit For End If Next If bEnabled Then oDisableVerb.DoIt Else oEnableVerb.DoIt End If End Sub Private Sub Command1_Click() ToggleLanConnection End Sub
可以用winapi函数中的注册表操作函数，将相应的项删了或禁止就可以肢友了吧
Ⅵ 如何用VB写一个程序，开启禁用网卡，求代码，望高人指教
需要用到一个软件——Devcon 这个在网上可以下载到。
开启网卡的批处理——链蚂散enable.bat
@echo off
title 启用内网
devcon enable @B06BDRV\*\*0800
echo on
禁用网卡的批处理——disable.bat
@echo off
title 禁物袜用内网
devcon disable @B06BDRV\*\*0800
echo on
文件棚氏中的 B06BDRV\*\*0800 这个是我电脑网卡设备号的前面部分与后面部分，你自己的网卡与此肯定不一样，需要改成自己的网卡设备号。
Ⅶ vb 编写的HTTP代理上网
晕死，你的IP当然还衫锋纳是你的IP，这个只是修改IE的上网代基春理服务器设置而或没已，和你的本地IP地址根本没有任何关系。
请参考：
怎样设置IE浏览器代理服务器_网络经验
http://jingyan..com/article/2fb0ba404f4f4e00f2ec5fd4.html
Ⅷ vb webbrowser如何禁止打开某个网址
具体思路在URL为你要的网址悄或时，执行stop事件，没装耐运返控件，不能测试
WebBrowser 控 件 名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers]
---- WebBrowser 控 件 支 持 的 主 要 方 法 有:
GoBack — — — 回 退 到 上 一 屏。
GoForward — — — 进 入 到 下 一 屏。
GoHome — — — 回 家。 即 回 到 主 页。
Stop — — — 停 止 导 航。
Refresh — — — 刷 新。
Navigate — — — 导 航。
---- WebBrowser 控 件 所 响 应 的 事 件:
---- BeforeNavigate 事 件 — — — 在 开 始 导 航 前 发 生。 一 般 在 此 获 取 完 整 的URL 字 符 串。
---- WebBrowser 控 件 最 主 要 的 参 数:
---- URL — — — 获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 能 将昌饥”www.MicroSoft.Com” 自 动 翻 译 为”http://www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 缩 写， 是 在Internet 的WWW 服 务 程 序 上 用 于 指 定 信 息 位 置 的 表 示 方 法。
Ⅸ 用VB或者C#如何控制路由器的联/断网状态
教你如何通过路由器来控制上网
--------------------------------------------------------------------------------
http://www.sina.com.cn 2006年08月10日 13:22 赛迪网
现在很多家庭用户都通过电信的ADSL或其他公司提供的类似类型的宽带上网。由于宽带的费用并低廉，而对于大多数没有大量数据下载的家庭用户来说，一户人或一台电脑独占一条ADSL有点浪费资源的感觉。于是现在很多人都用共享一条宽带上网。
这种共享上网的方法一般如下：电话线--语音分离器--ADSL猫--宽带路由器--交换机集线器--电脑
被过滤广告
被过滤广告
在这种情况下，我经过思考与试验，我发现可以通过对宽带路由器进行适当设置就可以对上网进行限制。
这里以TP-LINK TL-R402M为例（因为我发现最多人用这种。。。）说说限制上网的步骤。
1.取得局域网内所有使用者的IP与MAC地址.
取得IP的方法很多，推荐用"局域网查看工具"，网上随便搜索一下就有了.
取得MAC地址的方法:WIN+R，输入CMD，用"NBTSTAT -A IP地址" 查看
取得自己电脑IP与MAC的方法:WIN+R，输入CMD，用"IPCONFIG /ALL" 查看
2.登陆宽带路由器
打开IE，输入192.168.1.1(一般都是这个....)，就会出现登陆窗口
账号：ADMIN
密码：ADMIN(默认是这个，一般不更改滴...如果被更改了，稍候我研究下怎样破解，有进展再发帖)
登陆后会出现宽带路由器的设置页面 3.只允许自己的电脑上网的设置
1，设置页面--DHCP服务器--静态地址分配--将自己的IP地址与MAC地址绑定(输入并保存即可)
2，设置页面--安全设置--防火墙设置--选择开启防火墙，开启IP地址过滤，开启MAC地址过滤三项--选择"凡是不符合已设IP地址过滤规则的数据包，禁止通过本路由器"和"仅允许已设MAC地址列表中已启用的MAC地址访问Internet"。
3，设置页面--安全设置--IP地址过滤--添加新条目--把你的IP地址填进去，并选择使所有条目生效。
4，设置页面--安全设置--MAC地址过滤--添加新条目--把你并晌的MAC地址填进去，并选择使所有条目生效。
这样设置后，嘿嘿，除了你之陵前外，没有人可以上外网，但局域网内部之间可以正常访问。
4.不允许某一台电脑上尺蔽清网的设置
1，设置页面--安全设置--防火墙设置--选择开启防火墙，开启MAC地址过滤二项--"禁止已设MAC地址列表中已启用的MAC地址访问Internet"。
2，设置页面--安全设置--MAC地址过滤--添加新条目--把禁止上网的电脑的MAC地址填进去，并选择使该条目生效。
这样设置后，被禁止上网的电脑就不可以上网了，但局域网内部之间可以正常访问。
对于只允许自己的电脑上网的设置，其他电脑想上网，是比较有难度的（除了入侵路由器并更改设置外）。
Ⅹ VB中新建WebBrowser1
试试这个办法：
建备伍森立一个wb(0),Visible=False
代码是：
Sub InitWB(Optional Update As Boolean=False)
If Update Then Unload(wb(1))
Load wb(1)
wb(1).visible = true
wb(1).left = 0
wb(1).top = 0
wb(1).width = 150
wb(1).height = 150 '初始化它的尺寸坐标 你自橘神己写
'如果还有其他属仿亩性设置这里加上
End Sub
Private Sub Form_Load()
InitWB
End Sub
如果要更新，调用语句Call InitWB(true)
这样应该是可以的。