(*^__^*) 如何用代码启动网络 断开网络(已解决)

fanliukund

如何用代码启动网络 断开网络

[ 本帖最后由 fanliukund 于 2010-5-4 09:38 编辑 ]

feiyunkai

12楼的文件传错了（现在已经更新了），到12楼重新下载devcon.exe，然后解压，运行devcon.exe（点击unzip），输入路径（随便输入一个路径（例如；D:\））解压后，会提示3个文件注册成功，然后到该目录下，将i386文件夹下的devcon.exe复制到系统盘的system32文件夹下（例如：C:\WINDOWS\system32）然后执行12楼的步骤二

[ 本帖最后由 feiyunkai 于 2010-4-28 17:24 编辑 ]

fanliukund

不过..我没应用成功

fanliukund

不错不错..强大的很..收藏了

feiyunkai

步骤一：下载devcon.exe（附件中有）文件，解压到C:\WINDOWS\system32
步骤二：使用以下脚本就可以开启/断开网络了（WINXP系统测试通过）
'断开网络连接
strNICName = " disable =net pci\*"     
Set objShell = CreateObject("Wscript.Shell")   
strCommand = "devcon.exe"& strNICName   
objShell.Run strCommand, 0, False
'若要启用网络连接，将上面代码的strNICName = " disable =net pci\*"   修改为strNICName = " enable =net pci\*" 就可以了

[ 本帖最后由 feiyunkai 于 2010-4-28 17:18 编辑 ]

fanliukund

new->function library
粘贴
function network_link
中间代码
end function
保存
然后放入资源池..就可以用啦file->settings->resources

直接network_link
擦擦.........

fanliukund

哦..那我删掉去..哈哈...
直接用wait()

TIB

在QTP中不能直接用WScript

fanliukund

用QTP运行起来
报错 缺少对象: 'wscript'

怎么定义啊

fanliukund

能不能 封装起来..
然后用函数一句话写出来

fanliukund

能说的详细点吗?

mball

如果用的是路由，直接连到路由上选择重启路由←这个通过录制脚本应该能实现~

fanliukund

不错不错....很好很好...
谢谢谢谢

fanliukund

天啊..这么多..有没有..几句话就可以的..比如..引用xp的命令

TIB

下面的代码可用于停用和启用网络连接（名字可能需要根据实际的进行修改）：

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   "未找到网络和拨号连接文件夹"   
    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   "未找到   '"   &   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   
   
  'debugging   displays   left   just   in   case...   
  '   
  'msgbox   s   ':   wscript.quit   
  'msgbox   "Enabled:   "   &   bEnabled   ':   wscript.quit   
   
  'not   sure   why,   but   invokeverb   always   seemed   to   work     
  'for   enable   but   not   disable.      
  '   
  'saving   a   reference   to   the   appropriate   verb   object     
  'and   calling   the   DoIt   method   always   seems   to   work.   
  '   
  if   bEnabled   then   
  '     oLanConnection.invokeverb   sDisableVerb   
    oDisableVerb.DoIt   
  else   
  '     oLanConnection.invokeverb   sEnableVerb   
    oEnableVerb.DoIt   
  end   if   
   
  'adjust   the   sleep   duration   below   as   needed...   
  '   
  'if   you   let   the   oLanConnection   go   out   of   scope   
  'and   be   destroyed   too   soon,   the   action   of   the   verb   
  'may   not   take...   
  '   
  wscript.sleep   400