如何让电脑断网，非ADSL

jake20

本想用网截控件拦截，但后来发现如果在软件运行前已经打开的程序就没办法使它掉线了。
       如果觉得我没说清楚的可以回复，我在线等。真的很急，朋友的软件要发布了，就差我只一块。
       我再次重申，不是ADSL 所以不用考虑 挂断（） 这个命令 不一定非得断网 只能让所有访问网络的程序访问不了就可以了
    而且运行时要把已经运行的访问网络的程序弄掉线。
       急··急··急··急··急
       要嫌静币少，说声，只要你能达到我的要求，我豁出去了··

pest

你没试试控制网卡的连接与断开吗？

lq3698

不懂，呵呵{:2_130:}

原我能

挂断啊 什么网络都支持！

jake20

回复 3# 原我能


    你错了，挂断 只支持拨号上网

精易-小牛

直接 刮断了，哈哈~~

jake20

回复 5# 小猪


   不是说了嘛 不要挂断 挂断 只能用于 拨号连接的 我要的效果是防火墙的那种效果

程序开发推广

源码我就不上了,给你个思路吧!
建议你控制网卡,不管什么程序现在使用连接都可以断开!
只要不能满足你的条件...
运行 (“cmd /c netsh interface ip set address 本地连接 static ” ＋ 局部_IP地址 ＋ “ ” ＋ 局部_子网掩码 ＋ “ ” ＋ 局部_网关 ＋ “ 1”, 假, 1

老发

Const ssfCONTROLS = 3
'网络适配器的名字，默认应该叫本地连接
sConnectionName = "本地连接"
'下面两行都要根据实际情况，看一下图形界面下的是停用还是禁用，不同的系统不太一样
'&后面加的是对应动作的代表字母
sEnableVerb = "启用(&A)"
sDisableVerb = "停用(&B)"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
   if folderitem.name   = "网络连接" Then  
'开始设置中的网络设备管理器同名，应该都叫网络连接吧，不一样改一下就好
   set oNetConnections = folderitem.getfolder: exit for
   end if
next
if oNetConnections is nothing then
   msgbox "Couldn't find 'Network Connections' folder"
   wscript.quit
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"
   wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
   s = s & vbcrlf & verb.name
   if verb.name = sEnableVerb then
     set oEnableVerb = verb  
     bEnabled = false
   end if
   if verb.name = sDisableVerb then
     set oDisableVerb = verb  
   end if
next
if bEnabled then
   oDisableVerb.DoIt
end if
wscript.sleep 5000
bEnabled = true
for each verb in oLanConnection.verbs
   s = s & vbcrlf & verb.name
   if verb.name = sEnableVerb then
set oEnableVerb = verb  
bEnabled = false
   end if
   if verb.name = sDisableVerb then
set oDisableVerb = verb  
   end if
next
oEnableVerb.DoIt

wscript.sleep 1000

甜到忧伤

我的意见也是控制网卡。
网卡里面不是可以设置IP、网关，DNS，修改这些选项应该可以达到你想要的效果。
具体操作你去搜一搜