[已解决]AU3停用/启用“无线网络连接”代码报错

waxy · 发表于 2010-5-21 18:43:14

本帖最后由 waxy 于 2010-8-18 09:34 编辑

各位，我们使用无线网卡时会常遇到一个这样的问题；当网络切换到有线时，无线网卡会常弹一些“找到XX无线信号”的提示，总觉得很烦人。
老是通过“网上邻居---属性”去停用无线网络也很麻烦（我的机器没有快捷键）；于是就想通AU3代码自动“停用/启用”wifi。以下代码
可以实现“停用/启用”无线网络，但还是有两个小问题，始终没弄明白。麻烦有时间帮看一下。
问题一：不能实现修改“无线网络连接”名称（当“无线网络连接”名不等于“无线网络连接”时，把它重命名为“无线网络连接”）。
问题二：脚本执行后能停用wifi，但脚本运行结束后老有一个错误提示（见下图）。
以下为代码与报错提示，麻烦帮看看，先谢了！

Dim $objShell,$objFolder,$objFolderItem,$objVerb
$objShell=ObjCreate('Shell.Application')
$objFolder=$objShell.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
For $index = 0 To $objFolder.Items.Count-1 Step 1
        $objFolderItem = $objFolder.Items.Item($index)
        If $objFolderItem.Name<>'无线网络连接' Then filecopy ($objFolderItem.Name,'无线网络连接' ,1)
                Sleep(300)
                If $objFolderItem.Name='无线网络连接' Then
                For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                        If $objFolderItem.Verbs.Item($index2).Name='停用(&B)' Then 
                                                $objFolderItem.Verbs.Item($index2).DoIt
                                Sleep(3000)
                        EndIf
                Next

                
        EndIf
Next

waxy · 发表于 2010-5-24 09:37:32

明明我自己回了一贴，说报错的问题解决了，还附了代码，怎么今天什么都看不到啊？

waxy · 发表于 2010-5-24 09:43:00

再回一次吧，报错的问题已经解了，还剩下重命名的问题。
Dim $objShell,$objFolder,$objFolderItem,$objVerb
$objShell=ObjCreate('Shell.Application')
$objFolder=$objShell.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
For $index = 0 To $objFolder.Items.Count-1 Step 1
   $objFolderItem = $objFolder.Items.Item($index)
      If $objFolderItem.Name='无线网络连接' Then
            For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                     If $objFolderItem.Verbs.Item($index2).Name='停用(&B)' Then $objFolderItem.Verbs.Item($index2).DoIt
   Sleep(1000)
                     Exit
Next


      EndIf
Next

waxy · 发表于 2010-5-26 09:56:46

真的没办法吗？兄弟们有空帮看看啊。

waxy · 发表于 2010-5-27 19:15:33

不会高手们也没招吧。5555.。。。

wolftotem · 发表于 2011-4-13 22:39:14

我是来学习的

wolftotem · 发表于 2011-4-13 22:53:18

请问7007ACC7-3202-11D1-AAD2-00805FC1270E是什么啊？
新手呵呵

zubaj · 发表于 2012-6-29 13:31:27

研究一下~~

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]AU3停用/启用“无线网络连接”代码报错

本帖子中包含更多资源

相关帖子