锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net禁用网络 vb关闭网页

IT技术连接

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 NetConnection As Shell32.Folder
Dim FolderItem As Shell32.FolderItem
【vb.net禁用网络 vb关闭网页】Dim NetConnectionItem As ShellFolderItem
Dim verb As Shell32.FolderItemVerb
Set NetConnection = mShell.NameSpace(49) '这个49是我找出来vb.net禁用网络的vb.net禁用网络，有了它就可以避免遍历控制面板
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 换成你要控制vb.net禁用网络的本地连接的名字
flag = ExcNetLinkMenu("本地连接", "停用(B)") '这个在2000下对应的是禁用,具体是什么vb.net禁用网络，点右键,自己看吧
End Sub
Private Sub Command2_Click()
'把 本地连接 2 换成你要控制的本地连接的名字
Dim flag As Boolean
flag = ExcNetLinkMenu("本地连接", "启用(A)")
End Sub
vb中如何获得网卡是启用还是禁用'VB起用和禁用网络连接
OptionExplicit
PrivateConstNetConnect=H31
PrivateSubCommand1_Click()'停用本地连接
DimblnRelustAsBoolean
'把本地连接换成你要控制的本地连接的名字
blnRelust=ExcNetLinkMenu("本地连接","停用(B)")
'xp
IfblnRelustThen
Debug.Print"停用成功"
Else
blnRelust=ExcNetLinkMenu("本地连接","禁用(B)")
EndIf
IfblnRelustThen
Debug.Print"停用成功"
Else
Debug.Print"停用失败"
EndIf
EndSub
PrivateSubcommand2_Click()'启用本地连接
'把本地连接换成你要控制的本地连接的名字
DimblnRelustAsBoolean
blnRelust=ExcNetLinkMenu("本地连接","启用(A)")
IfblnRelustThen
Debug.Print"启用成功"
Else
Debug.Print"启用失败"
EndIf
EndSub
转自
vb.net 中 axwinsock控制 如何处理断网事件原代码的问题：1.计时器每过 [Interval] 毫秒就会自动触发 Timer() 事件 ， 而你在其中又加了一个循环 ， 让人不知所云2.下面这段代码是始终无法执行到 Close 1 的，因为一旦跳到这段代码，首先执行的便是 Exit Sub ， 于是程序就不会关闭这个文件 。E: Exit SubClose 1同时 ， 正确的语法应是：Close #13.最好不要频繁的打开、关闭文件 ， 这样会影响程序的性能4.你的变量 i 与 NewFile 的声明有问题 。如果在某一事件中使用 Dim ，在其所在的事件结束后，变量就会被销毁 。于是 NewFile 便始终只有一个字符 。应该使用 Static 创建静态变量，或将这两个变量用 Dim 在(通用)(声明)处将其声明 。你可以在(通用)(声明)处（所有代码的最上面）声明：Dim File As String '文件名Dim Fid As Integer '文件号把打开文件的代码放在窗体打开的事件里面：Private Sub Form_Load()Fid = FreeFileFile = "F:\test1.txt"Open File For Input As #FidEnd Sub注：此处你最好用 FreeFile 生成一个空闲的文件号 。万一 #1 这个文件号被占用，那程序还是会出错的 。然后在定时器里面添加代码：Private Sub Timer1_Timer()Static i '因为 i 是随着定时器的事件一一累加的 ， 所以要声明为静态变量 。Static NewFile As String '因为 NewFile 里的字符是随着定时器的事件一一累加的，所以要声明为静态变量 。Dim Char As String '因为 Char 只是作为临时变量，所以声明为普通变量 。On Error GoTo Ei = i1Char = Input(i, #Fid) '你在这里写的代码是 Char = Input(1, #1) ， 是不是写错了？我给你改成了 iNewFile = NewFileCharText1.Text = NewFileIF i = LOF(Fid) Then Timer1.Enable = Fals
求vb.net 连接宽带和断开的代码编写一个宽带连接的批处理脚本：
rasdial entryname [unseranamd 12345678]
编写一个宽带断开的批处理脚本：
rasphone -h entryname
在vb中调用这两个脚本执行就可以了；
怎样用vb 关闭网络连接API函数
WNetCancelConnection
VB声明
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
说明
结束一个网络连接
返回值
Longvb.net禁用网络，零表示成功 。会设置GetLastError 。如GetLastError是ERROR_EXTENDED_ERRORvb.net禁用网络 ， 则可用WNetGetLastError取得额外vb.net禁用网络的错误信息
参数表
参数 类型及说明
lpszName Stringvb.net禁用网络，已连接资源的远程名称或本地名称
bForce Long，如为TRUE，表示断开连接（即使连接的资源上正有打开的文件或作业）
vb 启用和禁用本地连接代码...这个简单啦看代码吧不会加Q问 VB启用/禁用本地连接
2009年01月19日 作者：SdBot.ck
'其实没什么说的，无非就是先找到“网络连接”这个虚拟文件夹 ， 然后找到要控制的本地连接对应的'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
vb.net禁用网络的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb关闭网页、vb.net禁用网络的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：java计算代码用时，java计算运行时间的函数

    下一篇：手机怎么把视频做出文件夹，怎么用手机把视频做成文件夹